IfColor 892+Ux,98+Uy,347de0,0
KeyPress 49,1
判断颜色没成功。。。如果找到就按1是吧
结果他一直在按TAB
找颜色有问题,好好调试一下
Hwnd = Plugin.Window.Find(0, "热血世界")
Rect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(Rect,"ㄧ")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
Rem 找怪
KeyPress 9,1
Delay 50
IfColor 892+Ux,98+Uy,"347de0",0
KeyPress 49,1
Else
Goto 找怪
End If