以下是 源代码
Rem 归零开始
VBS Dim diff
VBS Dim diff=0
VBS Dim times
VBS times=0
Rem 脚本开始
MoveTo 1271 948
LeftDown 1
Delay 3000
LeftUp 1
Delay 200
KeyDown 40 1
Delay 1000
KeyUp 40 1
Delay 200
IfColor 936 928 990000 0
Goto 定位完成
Else
VBS times=times+1
If times=5
KeyPress 116 1
KeyPress 13 1
VBS times=0
Goto 脚本开始
EndIf
Goto 继续等待
EndIf
Rem 定位完成
IfColor 613 241 0 0
MoveTo 173 311
LeftClick 1
Else
MoveTo 169 485
LeftClick 1
EndIf
KeyDown 17 1
KeyPress 86 1
KeyUp 17 1
Rem 增加变异
If diff=0
SayString 爽翻了!
VBS diff=diff+1
Goto 变异完成
EndIf
If diff=1
SayString 爽哦!
VBS diff=diff-1
EndIf
Rem 变异完成
Delay 1000
IfColor 613 241 0 0
MoveTo 548 526
LeftClick 1
Else
MoveTo 550 702
LeftClick 1
EndIf
Rem 继续等待
Delay 4500
Goto 脚本开始
爽哦!
按键精灵里面的源代码 朋友做的
用在 http://sj.bbs.91.com/thread/26/67/20091109/4af75e3e0ca9f3a13-1.html
这个论坛里灌水 可是不知道为什么 看见朋友能够用 我问他要了代码之后 在我的按键精灵里面 复制好了以后 点F10开始 没有反应 望高手知道