- 展开附件 *.* 到 d:\test_game 文件夹
- 展开附件 RegDll.dll 到 .\Plugin 文件夹
- 调用 RegDll.Reg("c:\test_game\dm.dll")
- 令 dm = createobject("dm.dmsoft")
- 向调试窗口输出:"当前版本:" & dm.Ver
- dm.SetPath("D:\字库和图片集")
- dm.SetDict(0,"抢小.txt")
- 用户定义变量 延时=30 "延时(毫秒)"
- 令 TTBB2_Hwnd_抢小 = Window.Foreground()
- 令 dm_ret = dm.BindWindow(TTBB2_Hwnd_抢小,"normal","normal","normal",0)
- 令 dm_ret = dm.GetClientSize(TTBB2_Hwnd_抢小,w,h)
- 调用 开始抢小()
- 调用 副本创建成功()
- 子程序 开始抢小()
- 调用 Msg.HideScrTXT()
- 延时 500 毫秒
- 调用 Msg.ShowScrTXT(0,0,1024,768,"【开始抢小】","0000FF")
- 循环开始
- 令 dm_ret = dm.FindStrFast(0,0,w,h,"江湖","F9F900-1E1E00",1.0,intX,intY)
- 如果 intX >= 0 并且 intY >= 0 则
- dm.MoveTo(intX + 22,intY + 50)
- dm.LeftClick()
- 延时 延时 毫秒
- 跳出循环
- 条件结束
- 循环结束
- 子程序结束
- 子程序 副本创建成功()
- 循环开始
- 令 dm_ret = dm.FindPic(0,0,w,h,"刀.bmp","000000",0.9,0,intX,intY)
- 如果 intX >= 0 并且 intY >= 0 则
- 跳出循环
- 条件结束
- 循环结束
- dm.MoveTo(intX + 55,intY + 3)
- 循环 i 从 0 到 5
- dm.LeftClick()
- 延时 100 毫秒
- 循环结束
- 脚本停止运行
- 子程序结束
- 子程序 OnScriptExit()
- 令 dm_ret = dm.UnBindWindow()
- 调用 Msg.ShowScrTXT(0,0,1024,768,"抢小完毕脚本退出","0000FF")
- 子程序结束