发此贴之前先向各位看官们致以真挚歉意,因前段时间工作太忙,忽略了大家的回帖,而且源码也未即时补上,非常抱歉,现将此帖重新发布补上源码供大家学习,同时恶补一片自动注册机源码分享,请看官们查看楼主发帖消息,希望大家多多支持!
在上一段简单代码
- 空间 明教打怪
- dm=com("dm.dmsoft")
- 整型 线程句柄,线程1,线程2,线程3,线程4,线程5,线程6,线程7,线程8,线程9,线程10
- 整型 窗口句柄
- 逻辑型 是否成功
- 整型 intX
- 整型 intY
- 整型 键值
- 逻辑型 是否暂停
- 整型 对象句柄
- 是否选择
- 功能 获取()
- 鼠标窗口=窗口.鼠标所在窗口句柄()
- 内容=编辑框.设置文本("编辑框2",鼠标窗口)
- 功能结束
- 功能 前台绑定()
- 窗口句柄=编辑框.获得文本("编辑框2")
- 是否成功=dm.BindWindow(窗口句柄,"normal","normal","normal",0)
- 如果(是否成功==1)
- 辅助.消息框("前台绑定成功")
- 否则
- 辅助.消息框("前台绑定失败,请重新绑定")
- 如果结束
- 功能结束
- 功能 前台解绑()
- 是否成功=dm.UnBindWindow()
- 如果(是否成功==1)
- 辅助.消息框("解除前台绑定")
- 否则
- 辅助.消息框("解除前台绑定失败,请重新操作")
- 如果结束
- 功能结束
- 功能 后台绑定()
- 窗口句柄=编辑框.获得文本("编辑框2")
- 辅助.等待(1000)
- 是否成功=dm.BindWindow(窗口句柄,"dx","dx","dx",0)
- 辅助.等待(1000)
- 如果(是否成功==1)
- 辅助.消息框("后台绑定成功")
- 否则
- 辅助.消息框("后台绑定失败,请重新绑定")
- 如果结束
- 辅助.等待(2000)
- 功能结束
- 功能 后台解绑()
- 是否成功=dm.UnBindWindow()
- 如果(是否成功==1)
- 辅助.消息框("解除后台绑定")
- 否则
- 辅助.消息框("解除后台绑定失败,请重新操作")
- 如果结束
- 功能结束
- 功能 开始打怪()
- 循环(真)
- 循环(dm.FindColor(406,26,425,51,"d5422c-000000",1.0,0,intX,intY))
- 辅助.等待(50)
- 键值=下拉框.获得文本("下拉框0")
- 选择(键值)
- 条件 1:
- 键值=49
- 条件 2:
- 键值=50
- 条件 3:
- 键值=51
- 条件 4:
- 键值=52
- 条件 5:
- 键值=53
- 条件 6:
- 键值=54
- 条件 7:
- 键值=55
- 条件 8:
- 键值=56
- 条件 9:
- 键值=57
- 条件 0:
- 键值=48
- 条件 10:
- 键值=100
- 选择结束
- 如果(键值>57)
- 辅助.消息框("热键未选择或未正确输入延时,程序停止运行,请重新操作")
- 返回 真
- 如果结束
- dm.KeyPress(键值)
- 延时=编辑框.获得文本("编辑框3")
- help.sleep(延时)
- 键值=下拉框.获得文本("下拉框1")
- 选择(键值)
- 条件 1:
- 键值=49
- 条件 2:
- 键值=50
- 条件 3:
- 键值=51
- 条件 4:
- 键值=52
- 条件 5:
- 键值=53
- 条件 6:
- 键值=54
- 条件 7:
- 键值=55
- 条件 8:
- 键值=56
- 条件 9:
- 键值=57
- 条件 0:
- 键值=48
- 条件 10:
- 键值=100
- 选择结束
- 如果(键值>57)
- 辅助.消息框("热键未选择或未正确输入延时,程序停止运行,请重新操作")
- 返回 真
- 如果结束
- dm.KeyPress(键值)
- 延时=编辑框.获得文本("编辑框4")
- help.sleep(延时)
- 键值=下拉框.获得文本("下拉框2")
- 选择(键值)
- 条件 1:
- 键值=49
- 条件 2:
- 键值=50
- 条件 3:
- 键值=51
- 条件 4:
- 键值=52
- 条件 5:
- 键值=53
- 条件 6:
- 键值=54
- 条件 7:
- 键值=55
- 条件 8:
- 键值=56
- 条件 9:
- 键值=57
- 条件 0:
- 键值=48
- 条件 10:
- 键值=100
- 选择结束
- 如果(键值>57)
- 辅助.消息框("热键未选择或未正确输入延时,程序停止运行,请重新操作")
- 返回 真
- 如果结束
- dm.KeyPress(键值)
- 延时=编辑框.获得文本("编辑框5")
- help.sleep(延时)
- 循环结束
- dm.KeyPress(9)
- help.sleep(50)
- 循环结束
- 功能结束
- 功能 分云裁天()
- 循环(真)
- 键值=下拉框.获得文本("下拉框3")
- 选择(键值)
- 条件 1:
- 键值=49
- 条件 2:
- 键值=50
- 条件 3:
- 键值=51
- 条件 4:
- 键值=52
- 条件 5:
- 键值=53
- 条件 6:
- 键值=54
- 条件 7:
- 键值=55
- 条件 8:
- 键值=56
- 条件 9:
- 键值=57
- 条件 0:
- 键值=48
- 条件 10:
- 键值=100
- 选择结束
- 延时=编辑框.获得文本("编辑框6")
- 如果(键值>57)
- 跳出
- 如果结束
- dm.KeyPress(键值)
- help.sleep(延时)
- 循环结束
- 功能结束
- 功能 天地归阳()
- 循环(真)
- 键值=下拉框.获得文本("下拉框4")
- 选择(键值)
- 条件 1:
- 键值=49
- 条件 2:
- 键值=50
- 条件 3:
- 键值=51
- 条件 4:
- 键值=52
- 条件 5:
- 键值=53
- 条件 6:
- 键值=54
- 条件 7:
- 键值=55
- 条件 8:
- 键值=56
- 条件 9:
- 键值=57
- 条件 0:
- 键值=48
- 条件 10:
- 键值=100
- 选择结束
- 延时=编辑框.获得文本("编辑框7")
- 如果(键值>57)
- 跳出
- 如果结束
- dm.KeyPress(键值)
- help.sleep(延时)
- 循环结束
- 功能结束
- 功能 明王圣火()
- 循环(真)
- 键值=下拉框.获得文本("下拉框5")
- 选择(键值)
- 条件 1:
- 键值=49
- 条件 2:
- 键值=50
- 条件 3:
- 键值=51
- 条件 4:
- 键值=52
- 条件 5:
- 键值=53
- 条件 6:
- 键值=54
- 条件 7:
- 键值=55
- 条件 8:
- 键值=56
- 条件 9:
- 键值=57
- 条件 0:
- 键值=48
- 条件 10:
- 键值=100
- 选择结束
- 延时=编辑框.获得文本("编辑框8")
- 如果(键值>57)
- 跳出
- 如果结束
- dm.KeyPress(键值,2)
- dm.LeftClick(2)
- help.sleep(延时)
- 循环结束
- 功能结束
- 功能 自动捡物()
- 是否选择=复选框.获得状态("复选框1")
- 如果(是否选择)
- 循环(真)
- 遍历(i=0;i<3;i++)
- dm.KeyPress(192)
- 辅助.等待(500)
- 遍历结束
- 循环结束
- 如果结束
- 功能结束
- 功能 自动吃药()
- 复选框.获得状态("复选框0")
- 辅助.消息框("游戏自带自动吃药功能,请在人物血条处设置")
- 功能结束
- 功能 验证报警()
- dm.SetPath(辅助.获取资源路径("rc:"))
- 是否选择=复选框.获得状态("复选框2")
- 如果(是否选择)
- 循环(真)
- x,y
- 是否找到=dm.FindPic(0,0,1440,990,"问题1.bmp|问题2.bmp|问题3.bmp","000000",0.9,0,x,y)
- 如果(x>0||y>0)
- 线程.暂停(线程1)
- 线程.暂停(线程2)
- 线程.暂停(线程3)
- 线程.暂停(线程4)
- ID=辅助.播放("rc:提示音.mp3")
- 辅助.等待(120000)
- 辅助.停止播放(ID)
- 如果结束
- 循环结束
- 如果结束
- 功能结束
- 功能 自动助火()
- dm.SetPath(辅助.获取资源路径("rc:"))
- 是否选择=复选框.获得状态("复选框6")
- 如果(是否选择)
- 循环(真)
- x,y
- 是否找到=dm.FindPic(144,29,1297,864,"助火.bmp","000000",0.9,0,x,y)
- 如果(x>0||y>0)
- dm.MoveTo(x,y)
- help.sleep(500)
- dm.LeftClick()
- 如果结束
- x,y
- 是否找到=dm.FindPic(144,29,1297,864,"助火2.bmp","000000",0.9,0,x,y)
- 如果(x>0||y>0)
- dm.MoveTo(x+5,y+5)
- help.sleep(500)
- dm.LeftClick()
- 否则
- x,y
- 是否找到=dm.FindPic(144,29,1297,864,"关闭.bmp","000000",0.9,0,x,y)
- 如果(x>0||y>0)
- dm.MoveTo(x,y)
- help.sleep(500)
- dm.LeftClick()
- 如果结束
- 如果结束
- 循环结束
- 如果结束
- 功能结束
- 功能 自动买药()
- //dm.SetPath(辅助.获取资源路径("rc:"))
- //是否选择=复选框.获得状态("复选框7")
- //如果(是否选择)
- //辅助.等待(5000)
- //循环(dm.FindPic(0,0,1440,990,"公文榜.bmp","000000",0.9,0,intX,intY)<0)
- //辅助.等待(50)
- //循环结束
- //辅助.等待(1000)
- //dm.KeyUp(77)
- //循环(dm.FindPic(0,0,1440,990,"医师.bmp","000000",0.9,0,intX,intY)<0)
- //辅助.等待(50)
- //循环结束
- //dm.MoveTo(intX,intY)
- //dm.LeftClick(2)
- //辅助.等待(500)
- //dm.KeyUp(77)
- //循环(dm.FindPic(0,0,1440,990,"药品店.bmp","000000",0.9,0,intX,intY)<0)
- //辅助.等待(50)
- //循环结束
- //dm.MoveTo(intX+15,intY+60)
- //辅助.等待(500)
- //dm.RightClick(2)
- //循环(dm.FindPic(0,0,1440,990,"交易.bmp","000000",0.9,0,intX,intY)<0)
- //辅助.等待(50)
- //循环结束
- //dm.MoveTo(intX+5,intY+5)
- //辅助.等待(500)
- //dm.LeftClick(1)
- //如果结束
- 功能结束
- 功能 回城保护()
- dm.SetPath(辅助.获取资源路径("rc:"))
- 是否选择=复选框.获得状态("复选框8")
- 如果(是否选择)
- 循环(真)
- 是否找到=dm.FindMultiColor(127,23,184,43,"af1804-000000","3|-1|b21509-000000,2|2|930800-000000",0.9,1,intX,intY)
- 如果(!是否找到)
- 线程.暂停(线程1)
- 线程.暂停(线程2)
- 线程.暂停(线程3)
- 线程.暂停(线程4)
- 辅助.等待(500)
- dm.KeyDown(66)
- 循环(dm.FindPic(0,0,1440,990,"回城卷.bmp","000000",0.9,0,intX,intY)<0)
- 辅助.等待(50)
- 循环结束
- dm.MoveTo(intX+5,intY+5)
- 辅助.等待(500)
- dm.RightClick(2)
- 辅助.等待(500)
- dm.KeyUp(66)
- 如果结束
- 循环结束
- 如果结束
- 功能结束
- 功能 线程1开()
- 线程1=线程.开启("明教打怪.开始打怪","")
- 辅助.等待(100)
- 线程2=线程.开启("明教打怪.分云裁天","")
- 功能结束
- 功能 线程4开()
- 线程7=线程.开启("明教打怪.自动助火","")
- 辅助.等待(100)
- 线程8=线程.开启("明教打怪.自动买药","")
- 辅助.等待(100)
- 线程9=线程.开启("明教打怪.回城保护","")
- 功能结束
- 功能 线程1关()
- 线程.关闭(线程1)
- 线程.关闭(线程2)
- 线程.关闭(线程3)
- 线程.关闭(线程4)
- 线程.关闭(线程5)
- 线程.关闭(线程6)
- 线程.关闭(线程7)
- 线程.关闭(线程8)
- 线程.关闭(线程9)
- 功能结束
- 功能 暂停恢复()
- 如果(!是否暂停)
- 线程.暂停(线程1)
- 线程.暂停(线程2)
- 线程.暂停(线程3)
- 线程.暂停(线程4)
- 线程.暂停(线程5)
- 线程.暂停(线程6)
- 线程.暂停(线程7)
- 线程.暂停(线程8)
- 线程.暂停(线程9)
- 是否暂停=真
- 辅助.消息框("挂机暂停")
- 否则
- 线程.恢复(线程1)
- 线程.恢复(线程2)
- 线程.恢复(线程3)
- 线程.恢复(线程4)
- 线程.恢复(线程5)
- 线程.恢复(线程6)
- 线程.恢复(线程7)
- 线程.恢复(线程8)
- 线程.恢复(线程9)
- 是否暂停=假
- 辅助.消息框("挂机恢复")
- 如果结束
- 功能结束
- 功能 线程2开()
- 线程3=线程.开启("明教打怪.天地归阳","")
- 辅助.等待(50)
- 线程4=线程.开启("明教打怪.明王圣火","")
- 功能结束
- 功能 线程3开()
- 线程3=线程.开启("明教打怪.自动捡物","")
- 辅助.等待(100)
- 线程6=线程.开启("明教打怪.验证报警","")
- 辅助.等待(100)
- 功能结束
- 空间结束
复制代码 其实前面的各位看官们都不用看,相信来这里的不只是为了求得一分脚本,更多的是来学习写作思路。下面将我的脚本源码地址给大家分享,只需回帖即可:
|