会做按键精灵的高手来,求个3D游戏挂机打怪脚本 100
我想求个挂机的脚本,Tab搜索怪,按个1键打怪,打死为止,再Tab搜索怪,如此反复。蓝低于百分只50后按个8键。(例如)PluginHwnd=Window.Find(0,...
我想求个挂机的脚本,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
但是我的这个脚本设置不对哈
如果给的好我加分
2楼的,我就加不来怎么判断怪死没死,好像是加上血没有了的坐标,但是我 做了好想 无效,还有 你的里面那个a是什么意思 能写详细点吗? 展开
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
但是我的这个脚本设置不对哈
如果给的好我加分
2楼的,我就加不来怎么判断怪死没死,好像是加上血没有了的坐标,但是我 做了好想 无效,还有 你的里面那个a是什么意思 能写详细点吗? 展开
2个回答
展开全部
Plugin a=Window.MousePoint()
Plugin Window.Min(a)
Plugin Bkgnd.KeyPress(a,9)
Plugin Bkgnd.KeyPress(a,81)
Plugin b=Bkgnd.GetPixelColor(a,0.0.)
If b=00000
Else
Plugin Bkgnd.KeyPress(a,56)
EndIf
判断怪死了没的内容自己加。坐标什么的自己带入就可以了
Plugin Window.Min(a)
Plugin Bkgnd.KeyPress(a,9)
Plugin Bkgnd.KeyPress(a,81)
Plugin b=Bkgnd.GetPixelColor(a,0.0.)
If b=00000
Else
Plugin Bkgnd.KeyPress(a,56)
EndIf
判断怪死了没的内容自己加。坐标什么的自己带入就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询