下面是按键精灵源程序代码
给想深入学习,了解原理亲们做参考!
没基础的肯定不明白,这个不需要你懂....
只需要你下载 给贤姐投投票支持一下就可以
不要告诉我你不懂这个了.. 谢谢~
Delay 1000
KeyDown 91,1
KeyPress 68,1
KeyUp 91,1
Delay 500
MoveTo 660,485
LeftClick 1
Delay 500
VBSCall RunApp("iexplore")
Delay 1000
KeyPress 27,1
Delay 1000
Plugin ck = Window.Foreground()
Plugin Window.Max(ck)
//最大化IE
Delay 2000
KeyPress 115,1
Delay 1000
SayString "http://ent.cctv.com/special/C20165/02/index.shtml"
KeyPress 13,1
//已经打开投票页
Delay 5000
KeyPress 115,1
Delay 500
SayString "是否开启睡觉挂机系统?(请做好相应设置再按Y,不太懂的就下按N继续! 详细设置见居里交流帖子说明)"
KeyPress 115,1
Rem 等待按键0
WaitKey key
If key=89
anto=1
Goto 结束等待0
ElseIf key=78
anto=0
Goto 结束等待0
Else
KeyPress 115,1
Delay 600
SayString "开启睡觉挂机系统请按Y,不要按其他键,现在等您的按键...(不开启按N)"
KeyPress 115,1
Goto 等待按键0
EndIf
Rem 结束等待0
Delay 1000
//开始修改cookies
KeyDown 18,1
KeyPress 84,1
KeyUp 18,1
KeyPress 79,1
Delay 700
KeyDown 17,1
Delay 500
KeyPress 9,2
KeyUp 17,1
Delay 700
KeyPress 83,1
Delay 500
SayString "cctv.com"
Delay 200
KeyDown 18,1
KeyPress 66,1
KeyUp 18,1
Delay 2000
KeyDown 18,1
KeyPress 115,2
KeyUp 18,1
//修改cookies完毕
Delay 1000
KeyPress 115,1
Delay 500
SayString "现在开始选票吧,点选李贞贤和孙悦 别人请不要选! 选好按一下键盘上的 Y (先不要点投票)"
KeyPress 115,1
//OK打开投票
Rem 等待按键1
WaitKey key
If key=89
Delay 500
KeyPress 40,10
Delay 2000
KeyPress 115,1
SayString "非常不错,现在把鼠标指向 黑红色的 投票 按钮中心别动,再按一下 Y"
KeyPress 115,1
Goto 结束等待1
ElseIf key=78
Goto 脚本结束
Else
KeyPress 115,1
Delay 600
SayString "选好请按Y,不要按其他键,现在等您的按键...(结束脚本按N)"
KeyPress 115,1
Goto 等待按键1
EndIf
Rem 结束等待1
Rem 等待按键2
WaitKey key
If key=89
SaveMousePos
MoveR -40,0
LeftClick 1
KeyPress 115,1
Delay 600
SayString "太棒啦,优秀的贤亲! 你终于解放了双手~ 5秒后自动开始运行,投完55票自动停止,如果想强行中止脚本请按 F12"
KeyPress 115,1
Delay 5000
Goto 结束等待2
ElseIf key=78
Goto 脚本结束
Else
KeyPress 115,1
Delay 600
SayString "放好别动按Y,不要按其他键,现在等您的按键...(结束脚本按N)"
KeyPress 115,1
Goto 等待按键2
EndIf
Rem 结束等待2
Rem 投票开始
For 55
Delay 200
RestoreMousePos
LeftClick 1
Delay 1300
KeyDown 17,1
KeyPress 87,1
KeyUp 17,1
EndFor
Rem 投票结束
//重连宽带
省略....
//重连宽带完毕
Rem 脚本结束
Delay 1000
MoveR -40,0
LeftClick 1
Delay 500
KeyPress 115,1
Delay 500
SayString "投票脚本已经结束,谢谢使用!"
KeyPress 115,1
[ 本帖最后由 独意 于 2007-12-13 20:59 编辑 ] |