马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 x15436 于 2014-9-16 06:15 编辑
还帮我看看怎样写更好?需要改进什么帮帮我 谢谢
While i=0
FindPic 0,0,1024,768,"Attachment:\2.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 150
LeftDown 1
Delay 150
LeftUp 1
Delay 5000
KeyDown "Ctrl", 1
Delay 150
KeyUp "Ctrl", 1
Delay 300
MoveTo 648,1013
Delay 150
LeftDown 1
Delay 150
LeftUp 1
Delay 500
KeyDown "Num 2", 1
Delay 150
KeyUp "Num 2", 1
Delay 500
MoveTo 483,1013
Delay 300
LeftDown 1
Delay 150
LeftUp 1
Delay 500
KeyDown "Num 2", 1
Delay 150
KeyUp "Num 2", 1
Delay 500
MoveTo 332,1013
Delay 300
LeftDown 1
Delay 150
LeftUp 1
Delay 300
KeyDown "Num 6", 1
Delay 150
KeyUp "Num 6", 1
Delay 500
KeyDown "4", 1
Delay 150
KeyUp "4", 1
Delay 500
KeyDown "E", 1
Delay 150
KeyUp "E", 1
Delay 1000
KeyDown "C", 1
Delay 150
KeyUp "C", 1
Delay 6000
KeyDown "Num 2", 1
Delay 150
KeyUp "Num 2", 1
Delay 300
End If
Wend
|