• 新浪微博:
  • 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.7.1
软件大小:46.2M
更新时间:03-10

按键精灵iOS版
立即下载

软件版本:1.7.9
软件大小:29.2M
更新时间:03-06

按键手机助手
立即下载

软件版本:3.7.7
软件大小:262M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[◆提问帖] 求大神帮忙解答代码问题出在哪里 [复制链接]

1#
代码如下, 问题出在 退出子程序, 不找图 或者找不到图 (子程序退出的代码 基本和开始的代码一样) 能看到鼠标移动


求大神帮忙解答







Hwnd = Plugin.Window.MousePoint()
sRect = Plugin.Window.GetClientRect(Hwnd)
Arr = Split(srect, "|")
Bx = Clng(Arr(0))
By = Clng(Arr(1))
Cx = Clng(Arr(2))
Cy = Clng(Arr(3))
Do
Call 开始()
Call 选择挑战()
Call 点火()
Call 攻击()
Call 退出()
Delay 3000
Loop
Sub 开始()
While i = 0
FindPic Bx, By, Cx, Cy, "Attachment:\laoren.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
i = 1
End If
MoveTo intX+20, intY-5
Delay 100
LeftClick 1
Wend
Delay 500
End Sub
Sub 选择挑战()
MoveTo Bx++358+166, By+261+105
Delay 300
LeftClick 1
Delay 300
End Sub
Sub 点火()
KeyPress "F5", 1
Delay 300
KeyPress "F5", 1
Delay 300
MoveTo Bx+788, By+427
Delay 1000
LeftDoubleClick 1
Delay 200
MoveTo Bx+578, By+266//
Delay 2400
LeftDoubleClick 1
Delay 200
MoveTo Bx+359, By+426
Delay 2400
LeftDoubleClick 1
Delay 200
MoveTo Bx+571, By+586
Delay 2400
LeftDoubleClick 1
Delay 2200
End Sub
Sub 攻击()
KeyDown "F7", 1
Delay 200
KeyUp "F7", 1
Delay 33000
End Sub
Sub 退出()
While i = 0
FindPic Bx, By, Cx, Cy, "Attachment:\laoren.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
i = 1
End If
MoveTo intX+20, intY-5
Delay 100
LeftClick 1
Wend

MoveTo Bx++361+140, By++261+120//133.121
Delay 500
LeftClick 1
Delay 1000
End Sub

2#

MoveTo Bx++361+140, By++261+120//133.121
两个+什么意思

3#

试试这个可行

Function 退出()
Do
FindPic Bx, By, Cx, Cy, "Attachment:\laoren.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
MoveTo intX+20, intY-5
Delay 100
LeftClick 1
Exit Do
End If
Loop
MoveTo Bx+361+140, By+261+120
Delay 500
LeftClick 1
Delay 1000
End Function

4#

鼠标会移动啊 找不到图就会继续执行下面命令

5#

这个脚本不是呢自己写的吧

发新话题 回复该主题