先注册大漠插件

Function 主函数
MessageBox "绑定窗口，请先激活窗口并按空格键绑定窗口"
i=1
While i <> 0
Do
i_0 = WaitKey
Hwnd= Plugin.Window.MousePoint()
Loop While (Hwnd = 0)
If i_0 =32 Then
Call Plugin.window.Move(Hwnd, i * 50, i *50)
线程ID = BeginThread(挂机)
Delay 100
i = i + 1
MessageBox "按任意键继续绑定，按HOME结束绑定"
i_0 = WaitKey()
If i_0 = 36 Then
MessageBox "绑定结束"
kz=0
i=0
End If
End If
Wend
End Function

Sub 挂机
// 绑定游戏窗口=========
hwnd_gj = Hwnd
set dm = createobject("dm.dmsoft")
dm_ret = dm.BindWindow(hwnd_gj, "dx2", "windows", "windows", 0)
Delay 500
If dm_ret = 1 Then
MsgBox "绑定成功"
End If
If dm_ret = 0 Then
MsgBox "绑定失败"
End If
// 设置程序开关 绑定结束后开始挂机
While kz = 1
Delay 100
Wend
// 设定字库=========
dm_ret = dm.SetDict(0, "d:\test_game\宋体9号字.txt")
dm_ret = dm.SetDict(1, "d:\test_game\数字.txt")
dm_ret = dm.SetDict(2,"d:\test_game\位图字库.txt")
Delay 10
TracePrint "当前地图："&读取当前地图
TracePrint "人物坐标：" & 读取人物坐标(len(读取当前地图))
TracePrint "位图:"&len(读取位图坐标(15,8,1270,740))
End Sub

Function 读取当前地图
dm_ret = dm.UseDict(0)
读取当前地图 = dm.Ocr(13,750,114,765, "ffffff-000000", 1.0)
End Function
// 定义读取人物坐标函数，参数为地图名字数， 返回人物坐标 x:y
Function 读取人物坐标(a)
x_duqu = a * 12 + 20
dm_ret = dm.UseDict(1)
Delay 10
读取人物坐标 = dm.Ocr(x_duqu, 750, x_duqu+50, 765, "ffffff-000000", 1.0)
End Function
Function 读取位图坐标(x1, y1, x2, y2)
dm_ret = dm.UseDict(2)
Delay 10
读取位图坐标 = dm.Ocr(x1, y1, x2, y2, "d4fddb-555555", 0.8)
End Function

Dimenv Hwnd
Dimenv kz
kz=1
Call 注册大漠插件
Call 主函数

没有人么

为啥没有人

要不要我给你找个游戏练练手啊

😓现在不是很有时间，业余的时候就学习下

就简单的boss刷新计时的你会做嘛？

会啊

有点看不懂

可以合作的 加q1023463774

好腻害