好友
阅读权限 10
听众
最后登录 1970-1-1
源代码:
Do
Q = Int(1000 * Rnd + 500)
K = Int(5000 * Rnd + 3000)
Rem AB
KeyPress "F1", 1
Delay Q
KeyPress "Z", 1
Delay Q
FindPic 0,0,1440,900,"Attachment:\掉到了.bmp",0.9,intW,intE
If intW > 0 And intE > 0 Then
R = Int(Rnd * (417 - 236)) + 237
T = Int(Rnd * (643 - 617)) + 618
Delay Q
MoveTo R, T(这里是丢石头坐标)
LeftClick 1
Delay K
Y = Int(Rnd * (419 - 234)) + 235
U = Int(Rnd * (591 - 563)) + 564
MoveTo Y, U(这里是扔球坐标)
LeftClick 1
Delay Q
FindPic 0,0,1440,900,"Attachment:\该点叉了.bmp",0.9,intI,intO
If intI > 0 And intO > 0 Then
P = Int(Rnd * (956 - 952)) + 953
A = Int(Rnd * (304 - 300)) + 301
Delay Q
MoveTo P, A(点叉坐标)
LeftClick 1
Delay Q
End If
Delay Q
Goto AB
FindPic 0,0,1440,900,"Attachment:\没钓到.bmp",0.9,intS,intD
If intS > 0 And intD > 0 Then
Delay Q
Goto AB
Delay Q
End If
End If
FindPic 0, 0, 1400, 900, "Attachment:\0球.bmp", 1, intF, intG
FindPic 0, 0, 1400, 900, "Attachment:\返回.bmp", 1, intH, intJ
If intF > 0 And intG > 0 OR intH > 0 And intJ > 0 Then
代码B(这里代码过长且不关上面的事就省略了)
loop
现在的问题是不能执行丢石头坐标之后点击丢球
萌新不知道问题出在哪里 请大佬帮下忙
这个是思路
发帖前要善用【论坛搜索 】 功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。