该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
游戏好像不支持后台命令,用抓抓截屏是黑屏
While True
HwndEx = Plugin.Window.Search("XXX") //会找到多个句柄
TracePrint "查找到的窗口句柄为:" & HwndEx
HwndArray = Split(HwndEx, "|")
If UBound(HwndArray) >= 0 Then
For i = 0 To UBound(HwndArray)
Call 自动补蓝(HwndArray(i))
Next
End If
Delay 2000
Wend
Sub 自动补蓝(Hwnd)
sRect = Plugin.Window.GetClientRect(Hwnd)
TracePrint Hwnd & "得到窗口句柄的客户区大小为:" & sRect
MyArray = Split(sRect, "|")
L = Clng(MyArray(0)) : T = Clng(MyArray(1))
R = Clng(Myarray(2)) : B = Clng(MyArray(3))
TracePrint "左上角X=" & L
TracePrint "左上角X=" & T
TracePrint "客户区宽度=" & R
TracePrint "客户区高度=" & B
TracePrint Hwnd & "取色点坐标" & L+786 & "," & T+26
Cor = Plugin.Color.GetPixelColor(L + 786, T + 26, 1)
TracePrint "得到的颜色值=" & Cor
If Cor="604714" Then
TracePrint Hwnd & "鼠标移动到" & L+786 & "," & T+26
Call Plugin.Bkgnd.MoveTo(Hwnd, L+786, T+26)
Delay 200
Call Plugin.Bkgnd.LeftClick(Hwnd, L+786, T+26)
Delay 200
End If
End Sub