Call 注册大漠
Set dm = createobject("dm.dmsoft")
//获取大漠插件目录
base_path = dm.GetBasePath()
//设定大漠插件通用目录
dm_ret = dm.SetPath(base_path)
//设定字库
dm_ret = dm.SetDict(0, "大漠找字测试.txt")
Delay 800
s = dm.Ocr(504, 453, 788, 489, "ffffff-000000", 1.0)
TracePrint s
//开始定位语句在屏幕上 --找到字后返回相应坐标值
dm_ret = dm.FindStr(229,694,458,715,"行会","ffaa00-444555",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
dm.MoveTo intX, intY
Delay 200
dm.LeftClick
End If
Function 注册大漠()
PutAttachment "C:\test_game", "*.*"
Set ws = createobject("Wscript.Shell")
ws.run("regsvr32 atl.dkk -s")
ws.run ("regsvr32 C:\test_game\dm.dll -s")
Delay 200
Set ws = nothing
Set dm = createobject("dm.dmsoft")
ver = dm.ver()
TracePrint ver
Set dm = nothing
Delay 100
End Function
//sss