--------------------------------------------------------------------------// // 脚本是用大漠插件后台识别游戏中的数字 // // 希望给新手对插件的应用有更深入的理解 // // 作者 andychao QQ 511092004 // //-----------------------------------------------------------------------------// PutAttachment "c:\test" ,"*.*" '释放附件中的文件到指定位置 Call Plugin.RegDll.Reg("c:\test\dm.dll")'注册大漠插件 set dm = createobject("dm.dmsoft") '使用大漠必需创建大漠对像 Hwnd = Plugin.Window.Find("QQXXZ", 0)'得到游戏句柄 dm_Bind = dm.BindWindow(hwnd,"dx","normal","normal")'绑定大漠插件进句柄 dm_ret = dm.SetDictPwd("123456")'字库密码 dm_ret = dm.SetDict(0, "c:\test\dm_soft.txt")'字库路径 title = dm.GetWindowTitle(hwnd)'得到窗口标题 Do While True //RGB多色识别数字 s = dm.Ocr(963,35,1017,51,"f0e69d-58ff9f|958f61-000000|977c55-000000",1.0) dim XY XY = Split(s, ",") X = XY(0) : Y = XY(1)'拆分XY数组得出 X 和 Y dm_ret_title = dm.SetWindowText(hwnd, title & " 当前人物坐标 X " & X & " : Y " & Y)'设置坐标显示在标题栏上 Delay 100 Loop Sub OnScriptExit() //脚本停止后释放大漠插件资源 dm_Bind = dm.UnBindWindow() dm_ret_title = dm.SetWindowText(hwnd,title) End Sub