Dim Hwnd, X, Y,BMPArray
Call 确认句柄
Sub 确认句柄
Hwnd = Plugin.Window.Find("C32Wnd Class", 0)
TracePrint Hwnd
Call 后台找图
End Sub
Sub 后台找图
Call Plugin.BGCP2_02.TransformWindow(hwnd)
Delay 1000
BMPArray= Plugin.BGCP2_02.LoadBMP("C:\Users\jiayo\Desktop\决战脚本\话.bmp")
If IsArray(BMPArray)=False
MsgBox "载入图片失败",4096
EndScript
TracePrint 123
Else
TracePrint 111
Call Plugin.BGCP2_02.FindPicture(Hwnd, 0, 0, 1024, 768, BMPArray(0), 0, 0.7, x, y)
TracePrint 321
If x > 0 And y > 0 Then
TracePrint 666
Else
TracePrint 555
End If