Hwnd = Plugin.Window.Find(0, "激战2")
HwndEx = Plugin.Window.FindEx(Hwnd, 0, "ArenaNet_Dx_Window_Class", "0")
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim Myarray
MyArray = Split(sRect, "|" )
Ux = CLng(MyArray(0))
Uy =CLng(Myarray (1))
Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
那个大神帮我改下按键精灵 我要找到上面坐标颜色 找到就按后台1 没找到就跳回去在找
后台找色命令的屏幕范围参数本身就是窗口坐标,所以不用后面+Ux之类的,还有,你的窗口范围以及颜色值参数有错,那是绝对找不到色的。如果代码写正确了,也有可能找不到色,按键精灵后台插件实在太差了,游戏一般有保护作用,会屏蔽按键精灵自带后台插件。有没有被游戏屏蔽,你要自己测试。找色代码如下,参数你自己修改:
While True
XY = Plugin.Bkgnd.FindColor(Hwnd, 0, 0, 1024, 768, "0000FF")
ZB = InStr(XY, "|") : X = Clng(Left(XY, ZB - 1))
If X > 0 Then
Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
End If
Delay 100 //适当延时,减少CPU使用率
Wend
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息