‘按键精灵抓点抓色三点同时运行,怎么做
我写了个脚本很简单的。。Hwnd=Plugin.Window.Find(0,"寻仙-北京区-凌霄殿:版本号1.4.41.1")sRect=Plugin.Window.Ge...
我写了个脚本 很简单的。。
Hwnd = Plugin.Window.Find(0, "寻仙-北京区-凌霄殿:版本号1.4.41.1")
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(rect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
For 100
Rem xuanguai
KeyPress "Tab", 1
Delay 1000
IfColor 473,125,"60816",0 Then
KeyPress "1", 1
Delay 2000
End If
Goto xuanguai
IfColor 257,123,"9080C",0 Then
KeyPress "2", 1
Delay 2000
KeyPress "2", 1
Delay 2000
KeyPress "2", 1
Delay 2000
Else
Goto xuanguai
End If
IfColor 531,240,"53524F",0 Then
KeyPress "Z", 3
Else
Goto xuanguai
End If
Next
就是判断tab选的的怪是否是要打的怪 是的话打不是的话返回
弟2格式判断自己的血还够不够一半,如果不够就要加血
第三个是判断怪有没有倒下,如果倒下按z捡起
问题是,如果运行的话脚本会不停运行第一个,怎样让这三个同时运行。就是打怪的途中,如果血不够了就加血 如果加完血正好怪死了就捡东西。怎么样让这三个都起效啊!!我是菜鸟。帮我修改下好吗。或者告诉我该则么做。谢谢了 展开
Hwnd = Plugin.Window.Find(0, "寻仙-北京区-凌霄殿:版本号1.4.41.1")
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(rect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
For 100
Rem xuanguai
KeyPress "Tab", 1
Delay 1000
IfColor 473,125,"60816",0 Then
KeyPress "1", 1
Delay 2000
End If
Goto xuanguai
IfColor 257,123,"9080C",0 Then
KeyPress "2", 1
Delay 2000
KeyPress "2", 1
Delay 2000
KeyPress "2", 1
Delay 2000
Else
Goto xuanguai
End If
IfColor 531,240,"53524F",0 Then
KeyPress "Z", 3
Else
Goto xuanguai
End If
Next
就是判断tab选的的怪是否是要打的怪 是的话打不是的话返回
弟2格式判断自己的血还够不够一半,如果不够就要加血
第三个是判断怪有没有倒下,如果倒下按z捡起
问题是,如果运行的话脚本会不停运行第一个,怎样让这三个同时运行。就是打怪的途中,如果血不够了就加血 如果加完血正好怪死了就捡东西。怎么样让这三个都起效啊!!我是菜鸟。帮我修改下好吗。或者告诉我该则么做。谢谢了 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询