1. 展开附件 *.* 到 d:\test_game 文件夹
  2. 展开附件 RegDll.dll 到 .\Plugin 文件夹
  3. 调用 RegDll.Reg("c:\test_game\dm.dll")
  4. 令 dm = createobject("dm.dmsoft")
  5. 向调试窗口输出:"当前版本:" & dm.Ver
  6. dm.SetPath("D:\字库和图片集")
  7. dm.SetDict(0,"抢小.txt")
  8. 用户定义变量 延时=30 "延时(毫秒)"
  9. 令 TTBB2_Hwnd_抢小 = Window.Foreground()
  10. 令 dm_ret = dm.BindWindow(TTBB2_Hwnd_抢小,"normal","normal","normal",0)
  11. 令 dm_ret = dm.GetClientSize(TTBB2_Hwnd_抢小,w,h)
  12. 调用 开始抢小()
  13. 调用 副本创建成功()
  14. 子程序 开始抢小()
  15.     调用 Msg.HideScrTXT()
  16.     延时 500 毫秒
  17.     调用 Msg.ShowScrTXT(0,0,1024,768,"【开始抢小】","0000FF")
  18.     循环开始
  19.         令 dm_ret = dm.FindStrFast(0,0,w,h,"江湖","F9F900-1E1E00",1.0,intX,intY)
  20.         如果 intX >= 0 并且 intY >= 0 则
  21.             dm.MoveTo(intX + 22,intY + 50)
  22.             dm.LeftClick()
  23.             延时 延时 毫秒
  24.             跳出循环
  25.         条件结束
  26.     循环结束
  27. 子程序结束
  28. 子程序 副本创建成功()
  29.     循环开始
  30.         令 dm_ret = dm.FindPic(0,0,w,h,"刀.bmp","000000",0.9,0,intX,intY)
  31.         如果 intX >= 0 并且 intY >= 0 则
  32.             跳出循环
  33.         条件结束
  34.     循环结束
  35.     dm.MoveTo(intX + 55,intY + 3)
  36.     循环 i 从 0 到 5
  37.         dm.LeftClick()
  38.         延时 100 毫秒
  39.     循环结束
  40.     脚本停止运行
  41. 子程序结束
  42. 子程序 OnScriptExit()
  43.     令 dm_ret = dm.UnBindWindow()
  44.     调用 Msg.ShowScrTXT(0,0,1024,768,"抢小完毕脚本退出","0000FF")
  45. 子程序结束