- 注释:注册大漠
- 注释:释放附件
- 展开附件 regDll.dll 到 .\plugin 文件夹
- 展开附件 *.bmp 到 C:\test_game 文件夹
- 展开附件 *.txt 到 C:\test_game 文件夹
- 展开附件 dm.dll 到 C:\test_game 文件夹
- 注释:大漠注册
- 调用 RegDll.Reg("C:\test_game\dm.dll")
- 令 aa = createobject("dm.dmsoft")
- 注释:指定 全局路径
- aa.SetPath("C:\test_game")
- 延时 40 毫秒
- 注释:获取鼠标指向的窗口句柄
- 令 hwnd = aa.GetMousePointWindow()
- 注释:激活该窗口
- 令 aa_ret = aa.SetWindowState(hwnd,1)
- 注释:绑定窗口句柄
- 令 aa_ret = aa.BindWindow(hwnd,"dx","dx","dx",1)
- 延时 200 毫秒
- 注释:创建一个对象(aa),并检查对象是否创建成功
- 如果 aa_ret = 0 则
- 弹出窗口 "绑定“失败”"
- ExitScript()
- 条件结束
- 注释:多线程控制小号
- 启动线程 min
- 注释:大号脚本编写包括(移动游戏窗口、准备、开始)
- 延时 100 毫秒
- aa.MoveWindow(hwnd,0,0)
- 注释:显示气泡提示信息
- 调用 Msg.Tips("移动游戏屏幕到指定位置")
- 延时 500 毫秒
- 标记 大准备
- 令 aa_ret = aa.FindPic(0,0,1024,768,"打开.bmp","000000",1,1,intX,intY)
- 如果 intX >= 0 并且 intY >= 0 则
- aa.Moveto(495,127)
- 延时 100 毫秒
- aa.LeftClick()
- 否则
- 条件结束
- 注释:大号中的“一次找图”,判断是否开始游戏
- 令 aa_ret = aa.FindPic(0,0,1024,768,"确定.bmp","000000",1,1,intX,intY)
- 如果 intX >= 0 并且 intY >= 0 则
- 延时 200 毫秒
- aa.MoveTo(310,342)
- 延时 100 毫秒
- aa.LeftClick()
- 否则
- 注释:大号中的“二次找图”判断是否开始游戏
- 令 aa_ret = aa.FindPic(0,0,1024,768,"准备.bmp|开始游戏.bmp","000000",1,1,intX,intY)
- 如果 intX >= 0 并且 intY >= 0 则
- aa.Moveto(64,19)
- 延时 100 毫秒
- aa.LeftClick()
- 延时 300 毫秒
- 否则
- 跳转到标记 检测1
- 条件结束
- 条件结束
- 跳转到标记 大准备
- 注释:大号开始跑了
- 标记 检测1
- aa.KeyDown(87)
- 延时 100 毫秒
- aa.keypress(69)
- 延时 100 毫秒
- aa.keypress(32)
- 令 aa_ret = aa.FindPic(0,0,1024,768,"d.bmp","000000",1,1,intX,intY)
- 如果 intX >= 0 并且 intY >= 0 则
- aa.keypress(82)
- 否则
- 令 aa_ret = aa.FindPic(477,383,590,448,"300.bmp","000000",1,1,intX,intY)
- 如果 intX >= 0 并且 intY >= 0 则
- aa.keyUp(87)
- aa.KeyDown(68)
- 延时 2000 毫秒
- aa.keyup(68)
- 条件结束
- 条件结束
- 跳转到标记 大准备
- 注释:小号跑前准备、呵呵
- 子程序 min()
- 令 cc = createobject("dm.dmsoft")
- 注释:↑大漠·注册
- cc.SetPath("C:\test_game")
- 延时 40 毫秒
- 注释:小号标题名称(支持模糊查找、、例如我这里也可以用“忘记时间”)
- 令 hwnd = cc.FindWindow("","忘记时间时间爱你")
- 令 cc_ret = cc.SetWindowState(hwnd,1)
- 注释: display: dx 鼠标:windows后台 键盘:windows后台 模式1
- 令 cc_ret = cc.BindWindow(hwnd,"dx","dx","dx",1)
- 延时 100 毫秒
- 如果 cc_ret = 0 则
- 弹出窗口 "绑定“失败”"
- ExitScript()
- 条件结束
- 注释:脚本编写包括(移动游戏窗口、准备、开始)
- 延时 100 毫秒
- cc.MoveWindow(hwnd,0,300)
- 注释:显示气泡提示信息