PutAttachment "c:\test", "*.*" //
PutAttachment ".\Plugin", "RegDll.dll" //
Call Plugin.RegDll.Reg("c:\test\dm.dll") //
Set dm = createobject("dm.dmsoft") //
dm_ret = dm.SetPath("c:\test") //
dm_ret = dm.LoadPic("*.bmp")
Hwnd = dm.GetMousePointWindow() //
Call Plugin.Window.Move(Hwnd, 0, 0) //
dm_ret = dm.BindWindow(Hwnd,"gdi","windows","windows",0) //
Delay 10
If dm_ret = 1 Then
Else
MessageBox "绑定失败,重启脚本或联系作者"
EndScript
End If
Do While (true)
dm_ret = dm.FindPic(0, 0, 2000, 2000, "1.bmp", "000000", 0.9, 0, X, Y)// 后台查找图片。
坐标、图片地址、色差、相似度、查找顺序、返坐标
If X >0 and Y >0 Then
dm.MoveTo X + 10, Y + 30
Delay 200
dm.LeftClick
Delay 500
dm.leftclick
delay 1000
endsub
End If
Loop
PutAttachment ".\Plugin", "RegDll.dll" //
Call Plugin.RegDll.Reg("c:\test\dm.dll") //
Set dm = createobject("dm.dmsoft") //
dm_ret = dm.SetPath("c:\test") //
dm_ret = dm.LoadPic("*.bmp")
Hwnd = dm.GetMousePointWindow() //
Call Plugin.Window.Move(Hwnd, 0, 0) //
dm_ret = dm.BindWindow(Hwnd,"gdi","windows","windows",0) //
Delay 10
If dm_ret = 1 Then
Else
MessageBox "绑定失败,重启脚本或联系作者"
EndScript
End If
Do While (true)
dm_ret = dm.FindPic(0, 0, 2000, 2000, "1.bmp", "000000", 0.9, 0, X, Y)// 后台查找图片。
坐标、图片地址、色差、相似度、查找顺序、返坐标
If X >0 and Y >0 Then
dm.MoveTo X + 10, Y + 30
Delay 200
dm.LeftClick
Delay 500
dm.leftclick
delay 1000
endsub
End If
Loop