[游戏开发]按键精灵后台找图

重拾按键精灵：找图找色鼠标点击键盘按键，用着确实方便。所以又深入研究了后台找图。

1. 需要后台找图的插件BGCP2_02
2. 窗口不能最小化或者被遮挡。
3. 不支持附件添加图片。
4. 其他的还没有研究。

Dim HandleArray
call 获取句柄
Sub 获取句柄
	hwnd = Plugin.Window.Find("按键精灵", 0)
	Call 后台找图
End Sub
Sub 后台找图
	HandleArray=Plugin.BGCP2_02.LoadBMP("C:\Users\Lenovo\Desktop\1233.bmp")
//IsArray函数用于判断HandleArray是否是数组
If IsArray(HandleArray)=False Then
    MsgBox "载入图片失败",4096
    EndScript 
End If 

Call Plugin.BGCP2_02.TransformWindow(hwnd)
Delay 200
Call Plugin.BGCP2_02.FindPicture(hwnd,0,0,1401,666,HandleArray(0),30,0.9,x,y)
If x>=0 And y>=0 Then
    MsgBox "坐标："&CStr(x)&","&CStr(y),4096
Else
    MsgBox "未找到图形",4096
End If
call OnScriptExit
EndScript
//OnScriptExit过程在脚本结束时执行，即使脚本执行到一半的时候，你按了停止热键，它也会执行了这个过程再停止，这样能保证占用的资源被释放

End Sub
Sub OnScriptExit
    Call Plugin.BGCP2_02.UnTransformWindow(hwnd)
    Call Plugin.Window.Move(hwnd,10,10)
    //释放用LoadBMP命令载入到内存中的图片数据
    Call Plugin.BGCP2_02.FreeBMP(HandleArray)
End Sub