Question

会做按键精灵的高手来，求个3D游戏挂机打怪脚本

我想求个挂机的脚本，Tab搜索怪，按个1键打怪，打死为止，再Tab搜索怪，如此反复。 蓝低于百分只50后按个8键。（例如）
Plugin Hwnd = Window.Find(0, "神魔大陆")
Plugin Rect = Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(Rect,"|")
Ux=CLng(Myarray(0))
Uy=CLng(Myarray(1))
Rem xuanze
KeyPress 9,1
Delay 1000
IfColor 369+Ux,57+Uy,2327a3,0
KeyPress 56,1
Else
EndIf
Goto xuanze
但是我的这个脚本设置不对哈 做出来光是只有TAB搜索，别的都没有执行，是我看视频教程做出来的， 我不懂 麻烦你们给的脚本要叫我自己添加什么东西就写详细点
Plugin Hwnd = Window.Find(0, "神魔大陆")
Plugin Rect = Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(Rect,"|")
Ux=CLng(Myarray(0))
Uy=CLng(Myarray(1))
UserVar lan=90 蓝量<lan%时，自动吃蓝。
UserVar lanT=150 补蓝延时时间（毫秒）
Rem xuanze
IfColor 251,72,4739B6,1
KeyPress 9,1//搜索 按键Tab
EndIf
Delay 200
IfColor (lan/100)*127+97,79,FF9A1C,2
KeyPress 56,1 //补蓝. 按键8
Delay lanT
EndIf
KeyPress 49,1 //攻击 按键1
Goto xuanze
回蓝是一直吃 还有就是 不是后台执行， 要怎么加才能后台执行呢？

Answer 1

其实,你能光看视频就写到这一步,已经很好了

但是,你的脚本逻辑是错误的

1.你没有加入按键 1 打怪
2.你没有加入是否选怪成功判断,不加这个,如何判断选中了怪,又如何判断怪是否死了再切换呢? 没有这个判断,就算你加了按键1,那么也是选一个怪,打一下,马上又TAB切换下一个怪,再打一下.那不把自己害死才怪..哈哈.你仔细想想
3.我是玩完美国际的,据我所知.完美的角色红蓝信息显示在左上角的.怎么你那个蓝判断横坐标居然会有个369 ? 那不是已经快到屏幕中间了吗?这里可能有问题

脚本永远是自己做的最好,努力学习吧,你做到这步已经很不错了

Answer 2

你可能抓色不对，或者坐标有问题，导致颜色判断出问题，还有你这没设置补蓝的，你试下不要颜色判断：
Plugin Hwnd = Window.Find(0, "神魔大陆")
Plugin Rect = Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(Rect,"|")
Ux=CLng(Myarray(0))
Uy=CLng(Myarray(1))
Rem xuanze
KeyPress 9,1
Delay 1000
KeyPress 56,1
Delay 10000//你这里设置打死一个怪的时间,尽量设置大一点点.若时间太大的话要用循环来设置
Goto xuanze

Answer 3

Plugin Hwnd = Window.Find(0, "神魔大陆")
Plugin Rect = Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(Rect,"|")
Ux=CLng(Myarray(0))
Uy=CLng(Myarray(1))
Rem xuanze
KeyPress 9,1
Delay 1000
VBSCall GetColor=GetPixelColor(hwnd,369+Ux,57+Uy)
If GetColor="2327a3"
Delay 1000
KeyPress 56,1
EndIf
Goto xuanze