WPE|52wpe|我爱WPE

 找回密码
 注册会员
搜索
  • 4939查看
  • 12回复

主题

好友

94

积分

注册会员

发表于 2011-2-2 12:51:37 |显示全部楼层
;By IVIaniac
Global $timer_1, $timer_2, $timer_3, $timer_4, $timer_5, $timer_6, $timer_7
Global $script_running=0
Global $sleep=100 ;how long of a delay between running the script (100 = 10x / second)


WinActivate("World of Warcraft");
Send("{shiftdown}4{shiftup}")
; Hotkeys
HotKeySet("{INSERT}", "start_script")
HotKeySet("{END}", "stop_script")


Func start_script()
        Send("=")
        Sleep($sleep)
        Send("=")
        Sleep($sleep)
        Send("=")
        Sleep($sleep)
        Send("=")
        Sleep($sleep)
        Send("=")
        Sleep($sleep)
        Send("=")
        Sleep($sleep)
         
        Send("--")
        Sleep($sleep)
        Send("00")
        Sleep($sleep)
        Send("99")
        Sleep($sleep)
        Send("88")
        Sleep($sleep)
        Send("66")
        Sleep($sleep)
        Send("55")
        Sleep($sleep)
        Send("44")
        Sleep($sleep)
        Send("33")
        Sleep($sleep)
        Send("22")
        Sleep($sleep)
        $timer_1=TimerInit()
        $timer_2=$timer_1
        $timer_3=$timer_1
        $timer_4=$timer_1
        $timer_5=$timer_1
        $timer_6=$timer_1
        $timer_7=$timer_1
         
    $script_running = 1
EndFunc

Func stop_script()
    $script_running = 0
EndFunc

While 1
         
    If $script_running Then
        ;do stuff here
                If(TimerDiff($timer_1) >= 19*1000) Then
                        Send ("22") ; 20 sec
                        $timer_1=TimerInit()
                ElseIf(TimerDiff($timer_2) >= 14*1000) Then
                        Send ("33") ; 15
                        $timer_2=TimerInit()
                ElseIf(TimerDiff($timer_3) >= 13*1000) Then
                        Send ("44") ; 15
                        $timer_3=TimerInit()
                ElseIf(TimerDiff($timer_5) >= 40.5*1000) Then
                        Send ("66") ; 40s CD
                        $timer_5=TimerInit()
                ElseIf(TimerDiff($timer_4) >= 3*1000) Then
                        Send ("55") ; 5
                        $timer_4=TimerInit()
                ElseIf(TimerDiff($timer_6) >= 2*60*1000) Then
                        Send ("88") ; 2min
                        $timer_6=TimerInit()
                ElseIf(TimerDiff($timer_7) >= 1.5*60*1000) Then
                        Send ("00") ; 1.5min
                        $timer_7=TimerInit()
                Else
                        Send ("1")
                EndIf
        EndIf
         
        Sleep($sleep)
WEnd

主题

好友

94

积分

注册会员

发表于 2011-2-2 12:54:34 |显示全部楼层
回复 1# 大海


    我看他用的语句是VB的
评价上面也说是VB编写-----我想应该是简单的代码注入
回复

使用道具 举报

主题

好友

214

积分

中级会员

发表于 2011-2-2 13:17:06 |显示全部楼层
恩  很好很强大!!!不过可惜我不懂VB。。。
回复

使用道具 举报

主题

好友

358

积分

中级会员

发表于 2011-2-2 21:28:56 |显示全部楼层
恩。。。很好。。很强大。。。非常强悍。。。
回复

使用道具 举报

主题

好友

492

积分

中级会员

发表于 2011-2-2 23:26:18 |显示全部楼层
2011给力哥,相当强悍
回复

使用道具 举报

主题

好友

44

积分

新手上路

发表于 2011-2-6 17:40:24 |显示全部楼层
我是小白..哪位大婶教教??
回复

使用道具 举报

主题

好友

86

积分

注册会员

发表于 2011-5-23 13:36:52 |显示全部楼层
不知道怎么用,但是的确是大神
回复

使用道具 举报

主题

好友

16

积分

新手上路

发表于 2011-10-15 19:47:03 |显示全部楼层
不知所云。。。操作步骤都没有的。
回复

使用道具 举报

主题

好友

420

积分

中级会员

发表于 2011-10-27 00:25:13 |显示全部楼层
什么东西啊 完全看不懂
回复

使用道具 举报

主题

好友

420

积分

中级会员

发表于 2011-10-27 08:11:52 |显示全部楼层
什么东西啊 完全看不懂
回复

使用道具 举报

主题

好友

20

积分

新手上路

发表于 2011-11-11 23:05:13 |显示全部楼层
完全看不懂
回复

使用道具 举报

主题

好友

240

积分

中级会员

发表于 2012-1-21 02:56:56 |显示全部楼层
什么东西  完全不懂
回复

使用道具 举报

主题

好友

70

积分

注册会员

发表于 2012-2-9 18:30:23 |显示全部楼层
自己研究 不会问我
回复

使用道具 举报

快速发帖

您需要登录后才可以回帖 登录 | 注册会员

手机版|Archiver|WPE|52wpe|我爱WPE ( 闽ICP备15009081号 )

GMT+8, 2024-3-29 20:00 , Processed in 0.071164 second(s), 16 queries .

返回顶部