--------------------------------------------------------------------------//
   //                      脚本是用大漠插件后台识别游戏中的数字                     //
  //                       希望给新手对插件的应用有更深入的理解                    //
 //                        作者 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