|
这里是单线程的 太乱了 我想学多线程
#import "dm.dmsoft" AAA
空间 挂机脚本
//定义默认空间
整型 线程句柄
功能 逻辑型 挂机()
整型 是否成功,窗口句柄,鼠标窗口
逻辑型 状态
整型 intX
整型 intY
整型 看到BOSS,怪物,检取,加血,加蓝,随机,回城,凤翔,寻路,交易,卖,买,车夫,怪,城市
窗口句柄=AAA.FindWindow("","剑侠")
AAA.SetWindowText(窗口句柄," 剑侠窗口1")
AAA.SetPath(辅助.获取资源路径("rc:"))
是否成功=AAA.BindWindow(窗口句柄,"dx","dx2","dx",0)
鼠标窗口=窗口.鼠标所在窗口句柄()
如果(是否成功==0)
辅助.消息框("窗口绑定!成功")
如果结束
如果(窗口句柄==0)
辅助.消息框("找!到窗口")
如果结束
辅助.等待(2000)
循环(真)
状态=(复选框.获得状态("复选框7")==真)
如果(状态)
城市=AAA.FindPic(691,0,797,46,"城市凤翔.bmp|城市卞京.bmp|城市成都.bmp|城市大里.bmp|城市临安.bmp|城市襄阳.bmp|城市扬州.bmp","203040",0.9,0,intX,intY)
如果(城市==0)
辅助.等待(500)
标签.设置文本("标签19","城市:凤翔....")
辅助.等待(3000)
循环(0<100)
寻路=AAA.FindPic(658,1,799,170,"寻路.bmp","203040",0.9,0,intX,intY)
如果(寻路==0)
AAA.MoveTo(intX,intY)
辅助.等待(30)
AAA.LeftClick()
辅助.等待(1000)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
辅助.等待(300)
AAA.KeyPress(49)
AAA.KeyPress(57)
AAA.KeyPress(53)
AAA.KeyPress(191)
AAA.KeyPress(50)
AAA.KeyPress(48)
AAA.KeyPress(48)
辅助.等待(1000)
AAA.KeyPress(13)
跳出
如果结束
循环结束
否则
如果结束
如果(城市==1)
辅助.等待(500)
标签.设置文本("标签19","城市:卞京....")
辅助.等待(3000)
循环(0<100)
寻路=AAA.FindPic(658,1,799,170,"寻路.bmp","203040",0.9,0,intX,intY)
如果(寻路==0)
AAA.MoveTo(intX,intY)
辅助.等待(30)
AAA.LeftClick()
辅助.等待(1000)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
辅助.等待(300)
AAA.KeyPress(50)
AAA.KeyPress(50)
AAA.KeyPress(51)
AAA.KeyPress(191)
AAA.KeyPress(49)
AAA.KeyPress(57)
AAA.KeyPress(52)
辅助.等待(1000)
AAA.KeyPress(13)
跳出
如果结束
循环结束
否则
如果结束
如果(城市==2)
辅助.等待(500)
标签.设置文本("标签19","城市:成都....")
辅助.等待(3000)
循环(0<100)
寻路=AAA.FindPic(658,1,799,170,"寻路.bmp","203040",0.9,0,intX,intY)
如果(寻路==0)
AAA.MoveTo(intX,intY)
辅助.等待(30)
AAA.LeftClick()
辅助.等待(1000)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
辅助.等待(300)
AAA.KeyPress(51)
AAA.KeyPress(56)
AAA.KeyPress(54)
AAA.KeyPress(191)
AAA.KeyPress(51)
AAA.KeyPress(50)
AAA.KeyPress(48)
辅助.等待(1000)
AAA.KeyPress(13)
跳出
如果结束
循环结束
否则
如果结束
如果(城市==3)
辅助.等待(500)
标签.设置文本("标签19","城市:大里....")
辅助.等待(3000)
循环(0<100)
寻路=AAA.FindPic(658,1,799,170,"寻路.bmp","203040",0.9,0,intX,intY)
如果(寻路==0)
AAA.MoveTo(intX,intY)
辅助.等待(30)
AAA.LeftClick()
辅助.等待(1000)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
辅助.等待(300)
AAA.KeyPress(49)
AAA.KeyPress(57)
AAA.KeyPress(50)
AAA.KeyPress(191)
AAA.KeyPress(50)
AAA.KeyPress(48)
AAA.KeyPress(48)
辅助.等待(1000)
AAA.KeyPress(13)
跳出
如果结束
循环结束
否则
如果结束
如果(城市==4)
辅助.等待(500)
标签.设置文本("标签19","城市:临安....")
辅助.等待(3000)
循环(0<100)
寻路=AAA.FindPic(658,1,799,170,"寻路.bmp","203040",0.9,0,intX,intY)
如果(寻路==0)
AAA.MoveTo(intX,intY)
辅助.等待(30)
AAA.LeftClick()
辅助.等待(1000)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
辅助.等待(300)
AAA.KeyPress(49)
AAA.KeyPress(54)
AAA.KeyPress(55)
AAA.KeyPress(191)
AAA.KeyPress(49)
AAA.KeyPress(57)
AAA.KeyPress(56)
辅助.等待(1000)
AAA.KeyPress(13)
跳出
如果结束
循环结束
否则
如果结束
如果(城市==5)
辅助.等待(500)
标签.设置文本("标签19","城市:襄阳....")
辅助.等待(3000)
循环(0<100)
寻路=AAA.FindPic(658,1,799,170,"寻路.bmp","203040",0.9,0,intX,intY)
如果(寻路==0)
AAA.MoveTo(intX,intY)
辅助.等待(30)
AAA.LeftClick()
辅助.等待(1000)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
辅助.等待(300)
AAA.KeyPress(50)
AAA.KeyPress(48)
AAA.KeyPress(51)
AAA.KeyPress(191)
AAA.KeyPress(50)
AAA.KeyPress(48)
AAA.KeyPress(52)
辅助.等待(1000)
AAA.KeyPress(13)
跳出
如果结束
循环结束
否则
如果结束
如果(城市==06)
辅助.等待(500)
标签.设置文本("标签19","城市:扬州....")
辅助.等待(3000)
循环(0<100)
寻路=AAA.FindPic(658,1,799,170,"寻路.bmp","203040",0.9,0,intX,intY)
如果(寻路==0)
AAA.MoveTo(intX,intY)
辅助.等待(30)
AAA.LeftClick()
辅助.等待(1000)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
辅助.等待(300)
AAA.KeyPress(50)
AAA.KeyPress(49)
AAA.KeyPress(51)
AAA.KeyPress(191)
AAA.KeyPress(49)
AAA.KeyPress(56)
AAA.KeyPress(57)
辅助.等待(1000)
AAA.KeyPress(13)
跳出
如果结束
循环结束
否则
如果结束
循环(0<100)
交易=AAA.FindPic(133,131,395,406,"凤翔 杂货店.bmp|襄阳 杂货店.bmp|卞京 杂货店.bmp|成都 杂货店.bmp|大里 杂货店.bmp|扬州 杂货店.bmp|临安 杂货店.bmp","203040",0.9,0,intX,intY)
如果(交易>=0)
标签.设置文本("标签19","杂货店到了....")
辅助.等待(1800)
跳出
否则
继续
如果结束
循环结束
辅助.等待(3000)
循环(0<100)
交易=AAA.FindPic(133,131,395,406,"凤翔 杂货店.bmp","203040",0.9,0,intX,intY)
如果(交易==0)
AAA.MoveTo(intX+80,intY-3)
辅助.等待(30)
AAA.LeftClick()
跳出
否则
继续
如果结束
循环结束
辅助.等待(1000)
循环(0<100)
交易=AAA.FindPic(18,28,738,506,"交易.bmp","203040",0.9,0,intX,intY)
如果(交易==0)
AAA.MoveTo(intX,intY)
辅助.等待(30)
AAA.LeftClick()
//辅助.消息框("进行交易")
跳出
否则
交易=AAA.FindPic(133,131,395,406,"凤翔 杂货店.bmp","203040",0.9,0,intX,intY)
如果(交易==0)
AAA.MoveTo(intX+80,intY-3)
辅助.等待(30)
AAA.LeftClick()
跳出
如果结束
//辅助.消息框("没看到交易")
继续
如果结束
循环结束
辅助.等待(1000)
循环(0<100)
卖=AAA.FindPic(18,28,738,506,"卖.bmp","203040",0.9,0,intX,intY)
如果(卖==0)
AAA.MoveTo(intX,intY)
辅助.等待(30)
AAA.LeftClick()
辅助.等待(1000)
跳出
否则
//辅助.消息框("没看到卖")
继续
如果结束
循环结束
AAA.KeyPress(114)
辅助.等待(1000)
循环(0<100)
卖=AAA.FindColor(588,48,790,406,"003421-000000|310400-000000",1.0,0,intX,intY)
如果(卖>=1)
AAA.MoveTo(intX,intY)
辅助.等待(50)
AAA.LeftClick()
否则
辅助.等待(1000)
买=AAA.FindPic(14,28,254,451,"买.bmp","203040",0.9,0,intX,intY)
如果(买==0)
AAA.MoveTo(intX,intY)
辅助.等待(30)
AAA.LeftClick()
跳出
如果结束
如果结束
循环结束
//辅助.等待(1000)
//循环(0<100)
//回城=AAA.FindPic(40,43,263,441,"回城.bmp","203040",0.9,0,intX,intY)
//如果(回城==0)
//AAA.MoveTo(intX,intY)
//辅助.等待(30)
//AAA.LeftClick()
//AAA.KeyPress(115)
//跳出
//否则
//如果结束
//循环结束
否则
辅助.消息框("没有开启自动买卖")
如果结束
状态=(复选框.获得状态("复选框11")==真)
如果(状态)
循环(0<100)
寻路=AAA.FindPic(658,1,799,170,"寻路.bmp","203040",0.9,0,intX,intY)
如果(寻路==0)
AAA.MoveTo(intX,intY)
辅助.等待(30)
AAA.LeftClick()
辅助.等待(1000)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
辅助.等待(300)
AAA.KeyPress(49)
AAA.KeyPress(57)
AAA.KeyPress(48)
AAA.KeyPress(191)
AAA.KeyPress(50)
AAA.KeyPress(48)
AAA.KeyPress(50)
辅助.等待(800)
AAA.KeyPress(13)
跳出
否则
继续
如果结束
循环结束
辅助.等待(1000)
循环(0<100)
车夫=AAA.FindPic(12,28,650,450,"车夫.bmp","203040",0.9,0,intX,intY)
如果(车夫==0)
//辅助.消息框("找到车夫")
辅助.等待(2000)
AAA.KeyPress(77)
辅助.等待(500)
AAA.KeyPress(86)
//辅助.消息框("下马打坐,判断是否卡住位子")
跳出
否则
继续
如果结束
循环结束
辅助.等待(1000)
循环(0<100)
车夫=AAA.FindPic(13,12,714,444,"车夫.bmp","203040",0.9,0,intX,intY)
如果(车夫==0)
//辅助.消息框("找到车夫点击")
AAA.MoveTo(intX+8,intY+65)
辅助.等待(30)
AAA.LeftClick()
辅助.等待(1000)
AAA.KeyPress(40)
辅助.等待(500)
//辅助.消息框("弹出对话框")
车夫=AAA.FindColor(106,158,646,452,"ff0000-000000",1.0,0,intX,intY)
如果(车夫==1)
//辅助.消息框("选择路经地方")
AAA.MoveTo(intX+1,intY+10)
辅助.等待(50)
AAA.LeftClick()
辅助.等待(500)
AAA.KeyPress(40)
AAA.KeyPress(40)
AAA.KeyPress(40)
//辅助.消息框("选择第3项回到上次的地方")
辅助.等待(500)
车夫=AAA.FindColor(106,158,646,452,"ff0000-000000",1.0,0,intX,intY)
如果(车夫==1)
AAA.MoveTo(intX+1,intY+10)
辅助.等待(50)
AAA.LeftClick()
跳出
否则
继续
如果结束
如果结束
如果结束
循环结束
辅助.等待(3500)
否则
辅助.消息框("没启动坐车返回")
跳出
如果结束
循环(0<100)
寻路=AAA.FindPic(658,1,799,170,"寻路.bmp","203040",0.9,0,intX,intY)
如果(寻路==0)
AAA.MoveTo(intX,intY)
辅助.等待(30)
AAA.LeftClick()
辅助.等待(1000)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
AAA.KeyPress(8)
辅助.等待(300)
AAA.KeyPress(50)
AAA.KeyPress(50)
AAA.KeyPress(53)
AAA.KeyPress(191)
AAA.KeyPress(50)
AAA.KeyPress(49)
AAA.KeyPress(55)
辅助.等待(800)
AAA.KeyPress(13)
跳出
否则
继续
如果结束
循环结束
辅助.等待(17000)
AAA.KeyPress(77)
//检取物品
状态=(复选框.获得状态("复选框1")==真)
如果(状态)
循环(0<100)
检取=AAA.FindPic(1,7,728,497,"JXB.bmp|道具.bmp|物品.bmp|两.bmp","203040",0.9,0,intX,intY)
如果(检取>=0)
AAA.MoveTo(intX-1,intY-12)
辅助.等待(10)
AAA.LeftClick()
辅助.等待(300)
跳出
否则
跳出
如果结束
循环结束
否则
如果结束
状态=(复选框.获得状态("复选框6")==真)
如果(状态)
循环(0<100)
检取=AAA.FindColor(41,35,641,441,"6365ff-000000",1.0,0,intX,intY)
如果(检取==1)
AAA.MoveTo(intX+10,intY+30)
辅助.等待(30)
AAA.LeftClick()
跳出
否则
跳出
如果结束
循环结束
否则
如果结束
//开始找怪物
状态=(复选框.获得状态("复选框0")==真)
如果(状态)
循环(0<100)
//看到BOSS 闪人
AAA.KeyPress(46)
看到BOSS=AAA.FindColor(254,105,540,375,"efb200-000000",1.0,0,intX,intY)
如果(看到BOSS==1)
AAA.MoveToEx(679,31,784,132)
辅助.等待(30)
AAA.LeftClick()
辅助.等待(1800)
如果结束
怪物=AAA.FindPic(13,12,714,444,"金怪.bmp|木怪1.bmp|水怪.bmp|土怪.bmp|火怪.bmp","203040",0.9,0,intX,intY)
如果(怪物>=0)
AAA.MoveTo(intX-20,intY+65)
辅助.等待(30)
AAA.LeftClick()
辅助.等待(2000)
AAA.MoveToEx(679,31,784,132)
AAA.LeftClick()
否则
//如果(单选框.获得状态("单选框0")==真)
随机=AAA.FindColor(671,17,798,142,"a530ff-000000",1.0,0,intX,intY)
如果(随机==1)
AAA.MoveTo(intX,intY)
辅助.等待(30)
AAA.LeftClick()
辅助.等待(500)
//如果结束
如果结束
如果结束
循环结束
否则
如果结束
//自动加蓝
状态=(复选框.获得状态("复选框2")==真)
如果(状态)
循环(0<100)
加蓝=AAA.FindColor(392,0,467,21,"105594-000000",1.0,0,intX,intY)
如果(加蓝!=1)
AAA.KeyPress(49)
辅助.等待(1500)
跳出
否则
跳出
如果结束
循环结束
否则
如果结束
//自动加血
状态=(复选框.获得状态("复选框3")==真)
如果(状态)
循环(0<100)
加血=AAA.FindColor(337,0,371,21,"a50400-000000",1.0,0,intX,intY)
如果(加血!=1)
AAA.KeyPress(49)
辅助.等待(1500)
跳出
否则
跳出
如果结束
循环结束
否则
如果结束
//无药回城
状态=(复选框.获得状态("复选框4")==真)
如果(状态)
循环(0<100)
回城=下拉框.得到选项("下拉框2")
如果(回城==0)
辅助.消息框("血低%20回城")
加血=AAA.FindColor(290,0,372,20,"a50400-000000",1.0,0,intX,intY)
如果(加血!=1)
AAA.KeyPress(51)
辅助.消息框("回城了整理,准备")
跳出
否则
辅助.消息框("找到血量不回城")
如果结束
跳出
否则
辅助.消息框("下拉框没选项")
跳出
如果结束
跳出
循环结束
否则
辅助.消息框("没开启回城保护")//判断结束
如果结束
循环结束
返回 真
功能结束
功能 逻辑型 按钮0_点击()
//这里添加你要执行的代码
标签.设置文本("标签1","游戏加载成功")
字符型 内容=浏览框.获得("浏览框0")
如果(内容=="")
辅助.消息框("选择客户端")
返回 真
如果结束
如果(字符串.查找字符串(内容,"gamefree.exe")<0)
辅助.消息框("请选择免费区的客户端")
返回 真
如果结束
进程.打开(内容)
整型 图片X坐标,图片Y坐标
循环(图像.找图(0,0,1440,900,"rc:\\开始游戏.bmp",#102030,1.0,0,图片X坐标,图片Y坐标)<0)
辅助.等待(10)
循环结束
鼠标.移动(图片X坐标,图片Y坐标)
鼠标.左键单击(1)
辅助.等待(100)
键盘.按键(13,1)
循环(图像.找图(0,0,1440,900,"rc:\\游戏声明.bmp",#102030,1.0,0,图片X坐标,图片Y坐标)<0)
辅助.等待(10)
循环结束
鼠标.移动(图片X坐标,图片Y坐标)
鼠标.左键单击(1)
辅助.等待(500)
键盘.按键(40,13)
辅助.等待(30)
键盘.按键(39,1)
整型 选项
选项=下拉框.得到选项("下拉框5")
如果(选项==0)
键盘.按键(37,1)
键盘.按键(38,1)
键盘.按键(40,1)
键盘.按键(39,1)
辅助.等待(100)
键盘.按键(13,1)
如果结束
辅助.等待(50)
如果(选项==1)
键盘.按键(37,1)
键盘.按键(38,1)
键盘.按键(40,1)
键盘.按键(39,1)
键盘.按键(40,1)
辅助.等待(100)
键盘.按键(13,1)
如果结束
如果(选项==2)
键盘.按键(37,1)
键盘.按键(38,1)
键盘.按键(40,1)
键盘.按键(39,1)
键盘.按键(40,2)
辅助.等待(100)
键盘.按键(13,1)
如果结束
如果(选项==3)
键盘.按键(37,1)
键盘.按键(38,1)
键盘.按键(40,1)
键盘.按键(39,1)
键盘.按键(40,3)
辅助.等待(100)
键盘.按键(13,1)
如果结束
如果(选项==4)
键盘.按键(37,1)
键盘.按键(38,1)
键盘.按键(40,1)
键盘.按键(39,1)
键盘.按键(40,4)
辅助.等待(100)
键盘.按键(13,1)
如果结束
如果(选项==5)
键盘.按键(37,1)
键盘.按键(38,1)
键盘.按键(40,1)
键盘.按键(39,1)
键盘.按键(40,5)
辅助.等待(100)
键盘.按键(13,1)
如果结束
如果(选项==6)
键盘.按键(37,1)
键盘.按键(38,1)
键盘.按键(40,1)
键盘.按键(39,1)
键盘.按键(40,6)
辅助.等待(100)
键盘.按键(13,1)
如果结束
如果(选项==7)
键盘.按键(37,1)
键盘.按键(38,1)
键盘.按键(40,1)
键盘.按键(39,1)
键盘.按键(40,7)
辅助.等待(100)
键盘.按键(13,1)
如果结束
如果(选项==8)
键盘.按键(37,1)
键盘.按键(38,1)
键盘.按键(40,1)
键盘.按键(39,1)
键盘.按键(40,8)
辅助.等待(100)
键盘.按键(13,1)
如果结束
辅助.等待(500)
字符型 帐号=编辑框.获得文本("编辑框3")
键盘.发送字符串(帐号)
辅助.等待(200)
键盘.按键(9,1)
辅助.等待(200)
字符型 密码=编辑框.获得文本("编辑框4")
键盘.发送字符串(密码)
辅助.等待(200)
键盘.按键(13,1)
辅助.等待(1000)
整型 角色
如果(单选框.获得状态("单选框2")==真)
辅助.等待(30)
键盘.按键(13,1)
如果结束
如果(单选框.获得状态("单选框3")==真)
辅助.等待(30)
键盘.按键(39,1)
辅助.等待(300)
键盘.按键(13,1)
如果结束
如果(单选框.获得状态("单选框4")==真)
辅助.等待(30)
键盘.按键(39,2)
辅助.等待(300)
键盘.按键(13,1)
如果结束
返回 真
功能结束
功能 逻辑型 开始_点击()
//这里添加你要执行的代码
线程句柄=线程.开启("挂机脚本.挂机","")
标签.设置文本("标签1","脚本运行中....")
返回 真
//函数返回语句
功能结束
功能 逻辑型 热键0_热键()
//这里添加你要执行的代码
线程句柄=线程.开启("挂机脚本.挂机","")
标签.设置文本("标签1","脚本运行中....")
返回 真
功能结束
功能 逻辑型 退出_点击()
//这里添加你要执行的代码
辅助.退出()
线程.关闭(线程句柄)
返回 真
//函数返回语句
功能结束
空间结束
//空间结束语句 |
|