PutAttachment "d:\test_game","*.*"
PutAttachment ".\Plugin" ,"RegDll.dll"
Call Plugin.RegDll.Reg("d:\test_game\dm.dll")
set dm = createobject("dm.dmsoft")
dm.SetPath "d:\test_game"
// 获取句柄
hwnd = dm.GetMousePointWindow()
// 绑定
dm_ret = dm.BindWindow(hwnd,"normal","normal","normal",0)
dm_ret = dm.SetDict(0,"dm_soft.txt")
dm_ret = dm.UseDict(0)
Dim x
Dim y
Dim m
Dim n
Dim c
Dim d
Do
dm_ret = dm.FindStr(749, 104, 1003, 231, "10", "ffffff-000000", 1.0, x, y)
dm_ret = dm.FindColor(749, 104, 1003, 231, "1b121b|331733|4f1f4f|65b746", 1.0, 0, m, n)
Delay 500
dm_ret = dm.FindStr(605, 113, 1308, 843, "5", "F3F3F3-151515", 0.9, c, d)
TracePrint c
TracePrint m
If m > 0 and c>0 Then
a=now
While DateDiff("s", a, now) < 10
KeyDown "F", 1
RightClick 1
Delay 100
LeftClick 1
Delay 100
KeyPress "X", 1
Delay 200
KeyUp "F", 1
Wend
End If
loop
脚本源码,还需要字库文件,待会打包放送上来