按键后台源代码例子2

set dm = createobject("dm.dmsoft")
dm.SetPath "C:\Users\Administrator\Desktop\自由幻想\图片"
hwnd = dm.GetMousePointWindow()
//"normal" : 正常模式,平常我们用的前台截屏模式
//
//"gdi" : gdi模式,用于窗口采用GDI方式刷新时. 此模式占用CPU较大.
//
//"gdi2" : gdi2模式,此模式兼容性较强,但是速度比gdi模式要慢许多,如果gdi模式发现后台不刷新时,可以考虑用gdi2模式.
//
//"dx2" : dx2模式,用于窗口采用dx模式刷新,如果dx方式会出现窗口所在进程崩溃的状况,可以考虑采用这种.采用这种方式要保证窗口有一部分在屏幕外.win7或者vista不需要移动也可后台.此模式占用CPU较大.
//
//"dx3" : dx3模式,同dx2模式,但是如果发现有些窗口后台不刷新时,可以考虑用dx3模式,此模式比dx2模式慢许多. 此模式占用CPU较大.
//
//"dx" : dx模式,等同于BindWindowEx中，display设置的"dx.graphic.2d|dx.graphic.3d",具体参考BindWindowEx
//
//dm_ret = dm.BindWindowEx(hwnd,"gdi","windows","windows","",101 )
dm_ret = dm.BindWindow(hwnd, "dx", "normal", "normal", 0)
dm_ret = dm.Capture(0, 0, 800, 600, "screen.bmp")
dm_ret = dm.FindPic(659,39,757,145,"小地图找怪.bmp","000000",0.7,0,intX,intY)
If intX >= 0 and intY >= 0 Then
MessageBox "随机验证找到"
Else
// MsgBox "not found"
End If
dm_ret = dm.FindPicEx(659,39,757,145,"小地图找怪.bmp","020202",0.7,0)
If len(dm_ret) > 0 Then
ss = split(dm_ret,"|")
index = 0
count = UBound(ss) + 1
MsgBox count
End If
MsgBox dm_ret
Sub OnScriptExit()
dm_ret = dm.UnBindWindow()
End Sub