阴阳师脚本较多功能版本源码不知道失效与否有源码文件

//注册大漠插件
PutAttachment ".\plugin", "RegDll.dll"
PutAttachment ".\plugin\dm", "dm.dll"
Plugin.RegDll.Reg (Plugin.sys.GetDir(0) + "\plugin\dm\dm.dll")
Set dm = createobject("dm.dmsoft")
//注册大漠插件结束
//BeginThread 信息
ppp1=form1.InputBox6.Text
计划御魂次数 = Cint(ppp1)
ppp1=form1.InputBox1.Text
设定次数=cint(ppp1)
//注意分辨率！！窗口！！！
If form1.ComboBox2.ListIndex = 0 Then 突破次数 = 3
ElseIf form1.ComboBox2.ListIndex = 1 Then突破次数 = 6
ElseIf form1.ComboBox2.ListIndex = 2 Then突破次数=9
End If
//打5星下  6代表5星，依次类推，不然就变成0了
If form1.ComboBox1.ListIndex = 0 Then xj01= 5
ElseIf form1.ComboBox1.ListIndex = 1 Thenxj01= 4
ElseIf form1.ComboBox1.ListIndex = 2 Thenxj01= 3
ElseIf form1.ComboBox1.ListIndex = 3 Thenxj01=2
ElseIf form1.ComboBox1.ListIndex = 4 Thenxj01=1
ElseIf form1.ComboBox1.ListIndex = 5 Then//0星xj01=0
End if
linshicuchun = form1.ComboBox3.ListIndex
御魂层数 = linshicuchun + 1
系统启动到目前时间 = Plugin.GetSysInfo.GetTime()
退出副本时间 = Plugin.GetSysInfo.GetTime()
If form1.CheckBox31.value = 1 Then BeginThread 悬赏
End IfBeginThread 置顶
Dowxjj = 0qtjj = 0sbjj = 0 linshi = xj01失败总次数 = 0探索总次数 = 0御魂总次数 = 0业原火总次数 = 0妖气封印总次数 = 0突破总次数 = 0sdcs=0Rem 开始If sdcs > 设定次数 Then Goto 下一个End If//开始探索If form1.CheckBox1.Value=1 thenform2.Label1.Caption = time & ",正在进行动作：■探索副本开启■" & chr(13)& "探索具体情况：设定探索次数" & 设定次数 &"次。已打"&sdcs &"次。击败boss"& boss&"次。失败"& lost&"次"& chr(13)&"已养成狗粮"&狗粮&"只。"狗粮=0yizhaodao=0boss = 0tscs = 0无法退出探索里面 = 0lost = 0探索加成 = 1御魂加成=0Call 判断界面call 关闭加成Rem huiCall 探索End IfRem 下一个//启动御魂If form1.CheckBox20.value = 1 Then If form1.ComboBox6.ListIndex = 1 Then Call 等待加入模式End IfCall 关闭加成Call 判断界面探索加成=0御魂加成=1Call 加成开启Call 御魂End IfRem 御魂完毕//开始妖气封印If form1.checkbox2.value = 1 Then Call 判断界面yqcs=0Call 关闭加成Call 妖气封印End If//突破程序的跳转If zcx = 100 Then Rem 突破刷新完成Call 突破End If//业原火If form1.CheckBox15.value = 1 Then Call 判断界面Call 关闭加成Call 业原火End if
loop
Sub 签到//判断签到FindPic 10,0,1153,681,"C:\Users\DrunkDreamer\Documents\按键\11\签到.bmp",0.3,intaX,intaYIf intaX > 0 And intaY > 0 Then MoveTo intaX, intaYDelay 100LeftClick 1Delay 500Call 点击End If
End Sub
Event form1.Button1.Click //改分辨率和调整位置Hwnd = Plugin.Window.Find(0, "阴阳师-网易游戏")If hwnd = "" Then MessageBox "自动获取失败，请把鼠标移至游戏界面。3秒后开始调整"Delay 3000End IfDelay 100Call Plugin.Window.SetClientSize(Hwnd, 1136, 640)Delay 100Call Plugin.Window.Move(Hwnd, 0, 0)
End Event
Sub 探索DoFindPic 0,7,1143,670,"C:\Users\DrunkDreamer\Documents\按键\11\录像.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then intY = intY + 60Call 点击End IfFindPic 5,1,1122,680,"C:\Users\DrunkDreamer\Documents\按键\11\失败.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then lost=lost+1失败总次数=失败总次数+1suiji1 = RndNum(1, 50)intX = intX + suiji1intY = intY + suiji1Call 点击End If//签到-全局-可能有问题FindPic 3,0,1147,675,"C:\Users\DrunkDreamer\Documents\按键\11\签到奖励.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then 动作 = "领取签到奖励"Call 信息MoveTo intX - 200, intY + 50Delay 100LeftClick 1Delay 100End If//探索-全局FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\探索.bmp",0.8,intX,intYIf intX > 0 And intY > 0 Then //困难难度If form1.CheckBox23.value=1  Then FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\困难.bmp",0.9,a,bIf a > 0 And b > 0 Then Call 点击1End IfEnd IfCall 点击画面中没有目标怪=0End IfIf form1.CheckBox25.value=1 thenCall 药师End IfIf form1.CheckBox26.value = 1 Then Call 年兽End IfIf form1.CheckBox26.value = 1 Then Call 石距End IfFindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\宝箱.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then Call 点击yizhaodao=0Goto yizhaodao1End if//不打石距dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\疯狂的石距.bmp|C:\Users\DrunkDreamer\Documents\按键\11\石距.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.CheckBox24.value = 0 Then form2.Label2.Caption = time & ",正在进行动作：■不打石距，重新找目标副本■"yizhaodao = 0End If//不打药师dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\药师.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.CheckBox24.value = 0 Then form2.Label2.Caption = time & ",正在进行动作：■不打药师，重新找目标副本■"yizhaodao = 0End If//不打年兽dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\年兽.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.CheckBox24.value = 0 Then form2.Label2.Caption = time & ",正在进行动作：■不打年兽，重新找目标副本■"yizhaodao = 0End IfFindPic 0,2,1146,678,"C:\Users\DrunkDreamer\Documents\按键\11\boss.bmp",0.4,intX,intYIf intX > 0 And intY > 0 Then form2.Label1.Caption = time & ",统计信息：■" & 事项 & "■" & chr(13)& "探索具体情况：设定探索次数" & form1.InputBox1.text &"次。已打"&sdcs &"次。击败boss"& boss&"次。失败"& lost&"次" &chr(13)form2.Label2.Caption = time & ",正在进行动作：■正在挑战BOSS■"Call 点击boss=boss+1End If//=============================================//=============================================//=============================================//==========在庭院界面，准别进入探索地图时，提前判断事项=================================FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\探索灯笼.bmp",0.4,intX,intY    If intX > 0 And intY > 0 ThenCall 签到//Call 宠物Call 点击End IfFindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\灯笼.bmp",0.5,intX,intYIf intX > 0 And intY > 0 Then //判断签到Call 签到Call 点击End If//====================================================================================//*******************************重要********************需要进行拖动章节选择If yizhaodao = 1 Then Goto yizhaodao1End If//进入章节大地图，确定妖那个字，判断下面第一个是多少章节ae=form1.InputBox3.Textbe = form1.InputBox4.Textzj = cint(ae)//文本框格式是char格式，所以需要强制转化为整数型zd=cint(be)FindPic 1,0,1150,684,"C:\Users\DrunkDreamer\Documents\按键\11\章节选择.bmp",0.9,m,nIf m > 0 And n > 0 Then //判断是否是10票突破卷If form1.CheckBox22.value = 1  Then For 突破卷 = 0 To 30FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\突破卷"&突破卷&".bmp",1,intax,intayIf intax > 0 And intay > 0 and 突破卷 > 9 Then form2.Label2.Caption = time & ",正在进行动作：■发现突破卷满足要求，开始突破■"Call 判断界面Call 关闭加成Call 突破End IfNextEnd If//            Rem jiachengCall 加成开启form2.Label1.Caption = time & ",正在进行动作：■正在进行章节选择，请勿操作■"//进行根据最大章节来判断If zd - zj =0 Then MoveTo m, n + 400Goto l1ElseIf zd - zj = 1 ThenMoveTo m, n + 300Goto l1ElseIf zd - zj = 2 ThenMoveTo m, n + 200Goto l1ElseIf zd - zj = 3 ThenMoveTo m, n + 100Goto l1End Ifjl=(zd-zj-2)*100Doform2.Label2.Caption = time & ",正在进行动作：■拖动中■"&jlIf jl <= 0 Then MoveTo m,n+400Exit DoEnd If//向上翻页MoveTo m, n + 100Delay 100LeftDown 1Delay 100If jl > 400 Then yd = 500Else yd =jlEnd IfCall Lib.Corder.SMoveto(m,n+yd+10,3)Delay 100LeftUp 1Delay 1000jl=jl-400LoopMoveTo m, n + 100Rem l1Delay 100LeftClick 1Delay 100//直接推出看有无宝箱For 5dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\关闭.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■关闭界面■"Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500Exit ForEnd IfDelay 1000Next  yizhaodao=1End IfRem yizhaodao1//***********************zj是各个章节的图表，不是文字那个********************************//推出一次 查看宝箱//这里做一个判断，如果多次未找到对应图，重复上面的滚动找章节-全局FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\"&zj&".bmp",0.9,mx1,mx2If mx1 > 0 And mx2 > 0 Then Delay 100FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\宝箱.bmp",0.8,intX,intYIf intX > 0 And intY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■找宝箱中 x1■"Call 点击yizhaodao=0Goto yizhaodao1End if//判断是否是10票突破卷If form1.CheckBox22.value = 1  Then For 突破卷 = 0 To 30FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\突破卷"&突破卷&".bmp",1,intax,intayIf intax > 0 And intay > 0 and 突破卷 > 9 Then form2.Label2.Caption = time & ",正在进行动作：■发现突破卷满足10票，即将进入突破进程■"Call 关闭加成Call 突破Call 判断界面End IfNextEnd If//判断次数是否足够If sdcs > 设定次数 Then Goto 下一个End IfDelay 100MoveTo mx1, mx2Delay 100LeftClick 1Delay 1000End Ifform2.Label1.Caption = time & ",正在进行动作：■探索副本■" & chr(13)& "探索具体情况：设定探索次数" & 设定次数 &"次。已打"&sdcs &"次。击败boss"& boss&"次。失败"& lost&"次"& chr(13)&"已养成狗粮"&狗粮&"只。"FindPic 0,2,1146,678,"C:\Users\DrunkDreamer\Documents\按键\11\确认退出.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then 无法退出探索里面=0Call 点击退出副本时间 = Plugin.GetSysInfo.GetTime()  End If//判断等待时间是不是2分钟了等待时间 = Plugin.GetSysInfo.GetTime()卡主时间 = int((120000 - (等待时间 - 退出副本时间)) / 1000)form2.Label3.Caption = time & ",探索副本中重置时间等待还剩■" & 卡主时间 & "秒■"FindPic 1,0,1150,684,"C:\Users\DrunkDreamer\Documents\按键\11\章节选择.bmp",0.9,m1,n1If 等待时间 - 退出副本时间 > 120000 and m1 > 0 And n1 > 0 Then yizhaodao = 0退出副本时间 = Plugin.GetSysInfo.GetTime() End If无法退出探索里面 = 无法退出探索里面 + 1//满酒壶-全局FindPic 0,7,1143,670,"C:\Users\DrunkDreamer\Documents\按键\11\满酒壶.bmp",0.9,intX,intYIf intX> 0 And intY> 0 ThenCall 点击Delay 500FindPic 0,7,1143,670,"C:\Users\DrunkDreamer\Documents\按键\11\酒壶取消.bmp",0.9,intX,intYIf intX> 0 And intY> 0 ThenCall 点击End IfEnd If//打败boss出的小纸人奖励-全局dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\奖励最后.bmp","202020",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call 点击Delay 1000vv = RndNum(-50, 50)MoveTo intX - 330+ vv, intY + 20+ vv*2LeftClick 1Delay 100拖动了 = 0退出副本时间 = Plugin.GetSysInfo.GetTime()  End If//         form2.Label3.Caption = time & ",探索副本怪物次数【" & 失败总次数 & "次】，失败次数【"&失败总次数&"次】，"//打败后出现的胜利鼓-全局FindPic 0,7,1137,680,"C:\Users\DrunkDreamer\Documents\按键\11\获得奖励.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then vv = RndNum(- 50 , 50)intX = intX + vvintY=intY+vvCall 点击End If//===============================================================================//根据选择，判断打什么怪，目前只设置了exp 和全部怪物两种模式If form1.CheckBox13.value = 1 Then //打全部怪物的选择zuobiaox = 0zuobiaoy = 0zuobiaox1 = 1187zuobiaoy1 = 689Goto t2ElseIf form1.CheckBox12.value = 1 Then//只打经验怪Goto jyEnd If//===============================================================================Rem jyFindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\exp3.bmp",0.3,intX,intYIf intX > 0 And intY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■发现经验怪-3■" zuobiaox = intX - 100zuobiaoy = intY - 250zuobiaox1 = intX + 100zuobiaoy1 = intY + 30Goto t2End IfFindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\exp6.bmp",0.3,intX,intYIf intX > 0 And intY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■发现经验怪-6-1■" zuobiaox = intX - 100zuobiaoy = intY - 250zuobiaox1 = intX + 100zuobiaoy1 = intY + 30Goto t2End If//找到经验图标1FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\exp.bmp",0.3,intX,intYIf intX > 0 And intY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■发现经验怪■"zuobiaox = intX +100zuobiaoy = intY - 250zuobiaox1 = intX -30zuobiaoy1 = intY + 30Goto t2End IfFindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\exp6.bmp",0.3,intX,intYIf intX > 0 And intY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■发现经验怪-6■"zuobiaox = intX +100zuobiaoy = intY - 250zuobiaox1 = intX -30zuobiaoy1 = intY + 30Goto t2End IfFindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\exp4.bmp",0.3,intX,intYIf intX > 0 And intY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■发现经验怪-4■"zuobiaox = intX +100zuobiaoy = intY - 186zuobiaox1 = intX zuobiaoy1 = intYGoto t2End If//找到经验图标2FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\exp1.bmp",0.3,intX,intYIf intX> 0 And intY> 0 Thenform2.Label2.Caption = time & ",正在进行动作：■发现经验怪-1■"zuobiaox = intX + 100zuobiaoy = intY - 250zuobiaox1 = intX - 30zuobiaoy1 = intY + 30画面中没有目标怪=画面中没有目标怪-1Rem t2//MessageBox zuobiaox&","&zuobiaoy&","&zuobiaox1&","&zuobiaoy1//注意，我把下面的模糊度调节为0.5，原来是0.2dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\打1.bmp|C:\Users\DrunkDreamer\Documents\按键\11\打.bmp","000000",0.8,0,a,b)If a > 0 And b > 0 Then form2.Label3.Caption = time & ",探索副本怪物次数【" & 探索总次数 & "次】，失败次数【"&失败总次数&"次】，突破战斗次数【"&突破总次数&"次】，业原火总次数【"&业原火总次数&"次】，妖气封印次数【"&妖气封印总次数&"次】。"form2.Label2.Caption = time & ",正在进行动作：■攻打副本怪物中...■" Call 点击1Delay 100画面中没有目标怪=0tscs = tscs + 1sdcs = tscs探索总次数=探索总次数+1//                Call 信息End IfEnd If//管壁体力选项，然后等待5分钟dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\关闭体力.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.体力操作.ListIndex=1 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500Delay 300000End If//弄个全局变量，判断是在地图里面，增加脚本效率，例如查找右小角 消耗寿司X3那个图标，一次算一次FindPic 0,2,1146,678,"C:\Users\DrunkDreamer\Documents\按键\11\小寿司.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then 画面中没有目标怪=画面中没有目标怪+1End if//如果  画面中没有目标怪   好多次 form2.Label2.Caption = time & ",正在进行动作：■寻找怪物中■探索具体情况：检视怪物次数" & 画面中没有目标怪 &"次。5次后将拖动画面；已拖动"&拖动了&"次，5次后将会退出。"If 画面中没有目标怪 > 4 Then //开始拖动副本FindPic 0,2,1146,678,"C:\Users\DrunkDreamer\Documents\按键\11\小寿司.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then MoveTo intX,intYLeftDown 1Call Lib.Corder.SMoveto(intX-800, intY, 0.5)LeftUp 1Delay 2500画面中没有目标怪 = 0拖动了=拖动了+1End IfEnd If//如果拖动了大于6次，就开始进入退出阶段//判断同一个像素点是否一直都是一个颜色，如果是，就退出。想法FindPic 0,2,1146,678,"C:\Users\DrunkDreamer\Documents\按键\11\小寿司.bmp",0.9,intxxX,intxxY     If 拖动了 > 5 and intxxX > 0 And intxxY > 0 Then //退出FindPic 0,2,1146,678,"C:\Users\DrunkDreamer\Documents\按键\11\退出副本.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then Call 点击拖动了 = 0End IfEnd If//普通模式下准备-全局FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.9,intxxX,intxxYIf intxxX > 0 And intxxY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■准备1■"Call 满级判断Delay 100MoveTo intxxX, intxxYDelay 100LeftClick 1Delay 1000yigundong=0End IfFindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\最终胜利.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■最终胜利（突破）■"zz1 = RndNum(-50, 50)MoveTo intX +200 + zz1, intY + 63 + zz1LeftClick 1Delay 500LeftClick 1Delay 100End If//答应后的奖励前-全局FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励前.bmp",0.8,intX,intYIf intX > 0 And intY > 0 Then zz1 = RndNum(-50, 50)MoveTo intX +200 + zz1, intY + 63 + zz1LeftClick 2Delay 1500LeftClick 1Delay 100End If//打赢后的开达摩的图-全局FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then zz1 = RndNum(-50, 50)MoveTo intX - 450 + zz1, intY - 63 + zz1Delay 100LeftClick 1Delay 100End IfLoop
End Sub
Sub 满级判断//判断经验满//中间FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\满2.bmp",0.8,intX,intYIf intX > 0 And intY > 0 Then Goto t1End If//右侧If form1.CheckBox14.value = 1 Then Goto tiaoguoEnd IfFindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\满3.bmp",0.8,intX,intYIf intX > 0 And intY > 0 Then Goto t1End IfRem tiaoguo//左FindPic 4,1,1150,679,"C:\Users\DrunkDreamer\Documents\按键\11\满.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then DoRem t1form2.Label2.Caption = time & ",正在进行动作：■发现有满级狗粮，开始进行更换■"//点左下角神龛,进入换人界面FindPic 4,1,1150,679,"C:\Users\DrunkDreamer\Documents\按键\11\满1.bmp",0.9,a,bIf a > 0 And b > 0 Then Call 点击1Delay 1000End If//选择全部式神FindPic 4,1,1150,679,"C:\Users\DrunkDreamer\Documents\按键\11\全部.bmp",0.8,intX,intYIf intX > 0 And intY > 0 Then Call 点击Delay 1000End If//N卡和   素材判断FindPic 4,1,1150,679,"C:\Users\DrunkDreamer\Documents\按键\11\N.bmp",0.8,intX,intYIf intX > 0 And intY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■选择N卡■"Call 点击Delay 1000zz1=0End If//滚动条判断If yigundong = 1 Then Goto a2End IfDodm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\滚动.bmp", "202020", 0.9, 0, xa1, ya1)If xa1 > 0 And ya1 > 0 Then form2.Label2.Caption = time & ",正在进行动作：■开始滚动■"dm.MoveTo xa1, ya1Delay 1000dm.LeftDown Delay 500zz = RndNum(100, 300)Delay 100Call Lib.Corder.SMoveto(xa1 + zz, ya1, 2)Delay 1000dm.LeftUp yigundong = 1Delay 1000Exit DoEnd IfDelay 100LoopGetCursorPos mx, mymm=0Rem a2//中间满级Doform2.Label2.Caption = time & ",正在进行动作：■判断中间满级■"dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\满级.bmp","101010",0.9,0,xa3,ya3)If xa3 >= 0 and ya3 >= 0 Thenform2.Label2.Caption = time & ",正在进行动作：■中间满级■"dm.MoveTo mx, my - 50Delay 1000dm.LeftDownDelay 1000Call Lib.Corder.SMoveto(xa3, ya3 + 50, 2)Delay 1000dm.LeftUp Delay 1000狗粮=狗粮+1mm = mm + 1form2.Label1.Caption = time & ",正在进行动作：■探索副本■" & chr(13)& "探索具体情况：设定探索次数" & form1.InputBox1.text &"次。已打"&sdcs &"次。击败boss"& boss&"次。失败"& lost&"次" &chr(13)&"已养成狗粮"&狗粮&"只。"End If//左边队长满级//满级If form1.CheckBox14.value = 1 Then Goto tiaoguo2End Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\满级1.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Thendm.Moveto mx + 200, my - 50Delay 1000dm.LeftDown Delay 1000Call Lib.Corder.SMoveto(xa1, ya1 + 50, 2)Delay 1000dm.LeftUp Delay 1000狗粮=狗粮+1mm = mm + 1form2.Label1.Caption = time & ",正在进行动作：■探索副本■" & chr(13)& "探索具体情况：设定探索次数" & form1.InputBox1.text &"次。已打"&sdcs &"次。击败boss"& boss&"次。失败"& lost&"次" &chr(13)&"已养成狗粮"&狗粮&"只。"End IfRem tiaoguo2//右边form2.Label2.Caption = time & ",正在进行动作：■判断右边满级■"dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\满级2.bmp","000000",0.8,0,xa2,ya2)If xa2 >= 0 and ya2 >= 0 Then Delay 1000MoveTo mx - 100, my - 50Delay 1000LeftDown 1Delay 1000Call Lib.Corder.SMoveto(xa2, ya2 + 50, 2)Delay 1000LeftUp 1Delay 1000狗粮=狗粮+1mm = mm + 1form2.Label1.Caption = time & ",正在进行动作：■探索副本■" & chr(13)& "探索具体情况：设定探索次数" & form1.InputBox1.text &"次。已打"&sdcs &"次。击败boss"& boss&"次。失败"& lost&"次" &chr(13)&"已养成狗粮"&狗粮&"只。"End Ifmm = mm + 1Delay 100//判断换人次数，一般换3次最多，之后跳出换人这个循环，进入准备If mm > 5 Then Goto a3End If//接受悬赏FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\接受悬赏.bmp",0.9,intX,intYIf intX> 0 And intY> 0 Thencall 点击End IfLoopLoop//换人界面准备FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\准备2.bmp",0.5,intX,intYIf intX > 0 And intY > 0 and mm>3 Then yigundong=0Call 点击Goto a3End IfEnd IfRem a3
End Sub
Sub 妖气封印Doform2.Label1.Caption = time & ",正在进行动作：■妖气封印■" & chr(13)& "妖气封印情况：设定次数" & form1.InputBox2.text &"次。已打"&yqcs &"次。"//返回庭院dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\退出副本.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■退出副本■"Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500End If//        FindPic 10,0,1153,681,"C:\Users\DrunkDreamer\Documents\按键\11\关闭.bmp",0.9,intX,intY//        If intX> 0 And intY> 0 Then//            Call 点击//        End If//卷轴dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\卷轴.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500End If//组队dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\庭院组队.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then //判断是否达到指定次数gb1=form1.InputBox2.textIf yqcs >= cint(gb1) Then form2.Label2.Caption = time & ",正在进行动作：■进入下一个环节■"yqcs = 0Exit DoEnd IfDelay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500End If//奖励目标dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破奖励.bmp","000000",0.9,0,intX,intY)If intX >= 0 and intY >= 0 Then zz1 = RndNum(-50, 50)MoveTo intX - 450 + zz1, intY + 63 + zz1LeftClick 1Delay 100End If//满酒壶FindPic 0,7,1143,670,"C:\Users\DrunkDreamer\Documents\按键\11\满酒壶.bmp",0.9,intX,intYIf intX> 0 And intY> 0 ThenCall 点击Delay 500FindPic 0,7,1143,670,"C:\Users\DrunkDreamer\Documents\按键\11\酒壶取消.bmp",0.9,intX,intYIf intX> 0 And intY> 0 ThenCall 点击End IfEnd If//奖励前FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励前.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then zz1 = RndNum(-50, 50)MoveTo intX +200 + zz1, intY + 63 + zz1LeftClick 1Delay 500LeftClick 1Delay 100End If//        //接受悬赏 有全局//        FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\接受悬赏.bmp",0.9,intX,intY//        If intX> 0 And intY> 0 Then//            call 点击//        End If//准备FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■准备1■"Call 点击yqcs=yqcs+1妖气封印总次数=妖气封印总次数+1End IfFindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\准备2.bmp",0.9,intX,intYIf intX > 0 And intY > 0 and mm > 3 Then form2.Label2.Caption = time & ",正在进行动作：■准备2■"Call 点击yqcs=yqcs+1妖气封印总次数=妖气封印总次数+1End If//妖气封印dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\全部1.bmp","303030",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1,ya1+300Delay 100dm.leftdown Call Lib.Corder.SMoveto(xa1,ya1+100,2)Delay 500dm.leftup Delay 500End If//妖气封印Xdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\妖气封印1.bmp","404040",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■找到妖气封印1■"Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 100Call 妖气选项End IfLoop
End Sub
Sub 妖气选项Doform2.Label3.Caption = time & ",探索副本怪物次数【" & 探索总次数 & "次】，失败次数【"&失败总次数&"次】，突破战斗次数【"&突破总次数&"次】，业原火总次数【"&业原火总次数&"次】，妖气封印次数【"&妖气封印总次数&"次】。"dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\骨女.bmp","101010",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.checkbox11.value = 1 Then form2.Label2.Caption = time & ",正在进行动作：■get 骨女■"Delay 100dm.moveto xa1+420,ya1+35Delay 100dm.leftclick Delay 100End If//直到普通状态才推出dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp","101010",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■进入准备1，跳出■"Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 100yqcs = yqcs + 1妖气封印总次数=妖气封印总次数+1Exit doEnd Ifdm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\海坊主.bmp","101010",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.checkbox10.value = 1 Then form2.Label2.Caption = time & ",正在进行动作：■get海坊主■"Delay 100dm.moveto xa1+420,ya1+35Delay 100dm.leftclick Delay 100End If    dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\跳跳哥哥.bmp","101010",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.checkbox9.value = 1 Then form2.Label2.Caption = time & ",正在进行动作：■get跳跳哥哥■"Delay 100dm.moveto xa1+420,ya1+35Delay 100dm.leftclick Delay 100End If    dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\二口女.bmp","101010",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.checkbox8.value = 1 Then form2.Label2.Caption = time & ",正在进行动作：■get二口女■"Delay 100dm.moveto xa1+420,ya1+35Delay 100dm.leftclick Delay 100End If    //小松丸dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\小松丸.bmp","101010",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.checkbox7.value = 1 Then form2.Label2.Caption = time & ",正在进行动作：■get 小松丸■"Delay 100dm.moveto xa1+420,ya1+35Delay 100dm.leftclick Delay 100End If    //日和坊dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\日和坊.bmp","101010",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.checkbox6.value = 1 Then form2.Label2.Caption = time & ",正在进行动作：■get 日和坊■"//        Delay 100dm.moveto xa1+420,ya1+35Delay 100dm.leftclick Delay 100End If       dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\椒图.bmp","101010",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.checkbox5.value=1 Then //        Delay 100dm.moveto xa1+420,ya1+35Delay 100dm.leftclick Delay 100form2.Label2.Caption = time & ",正在进行动作：■get椒图■"End If    dm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\饿鬼.bmp","101010",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.checkbox4.value = 1 Then form2.Label2.Caption = time & ",正在进行动作：■get饿鬼■"Delay 100dm.moveto xa1+420,ya1+35Delay 100dm.leftclick Delay 3000End If    //刷新dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\妖气封印2.bmp","505050",0.9,0,xb1,yb1)dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\刷新.bmp","000000",0.9,0,xa11,ya11)If xa11 >= 0 and ya11 >= 0 and xb1 >= 0 and yb1 >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■刷新咯■"Delay 100dm.moveto xa11,ya11Delay 100dm.leftclick Delay 100End Ifdm_ret = dm.FindPic(0,0,2000,2000,"C:\Users\DrunkDreamer\Documents\按键\11\鬼使黑.bmp","101010",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.checkbox3.value = 1 Then form2.Label2.Caption = time & ",正在进行动作：■get 鬼使黑■"Delay 100dm.moveto xa1+420,ya1+35Delay 100dm.leftclick Delay 100End Ifloop
End Sub
Sub 御魂ddsj = form1.InputBox5.textddsj = Cint(ddsj)ddsj=ddsj*1000御魂胜利次数 = 0御魂失败次数=0Do//所有事项多做一个回到探索界面开始的一个子程序//御魂图标If form1.ComboBox6.ListIndex = 2 and yhtb=1 Then//加入队伍模式 Goto tgyhtbtimeb= Plugin.GetSysInfo.GetTime End IfFindPic 0,0,1366,768,"C:\Users\DrunkDreamer\Documents\按键\11\御魂图标.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then Call 点击yhtb=1End If//这上面要进行判断，等待时间Rem tgyhtbIf timeb - timea > ddsj Then yhtb=0End If//八岐大蛇全局FindPic 0,0,1146,674,"C:\Users\DrunkDreamer\Documents\按键\11\八岐大蛇.bmp",0.9,ma,mbIf ma > 0 And mb > 0 Then MoveTo ma, mbDelay 100LeftClick 1Delay 1000End If//找魂10 并点击FindPic 0,0,1146,674,"C:\Users\DrunkDreamer\Documents\按键\11\组队界面御魂字.bmp",0.9,ma,mbIf ma > 0 And mb > 0 and xx02=0 Then Delay 100//根据所选章节判断层数cs001 = form1.ComboBox3.ListIndexcs001 = cs001 + 1If cs001 > 5 Then //拖动MoveTo ma, mb+380Delay 100LeftDown 1Delay 100Call Lib.Corder.SMoveto(ma,mb,0.5)Delay 500LeftUp 1Delay 1000End Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\御魂"&cs001&".bmp","303030",0.9,0,intX,intY)If intX > 0 And intY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■已选择御魂"&cs001&"层■" Delay 100MoveTo intX, intYDelay 100LeftClick 1Delay 1000//加入队伍  6是队伍FindPic 0,0,1146,674,"C:\Users\DrunkDreamer\Documents\按键\11\加入.bmp",0.9,ma,mbIf ma > 0 And mb > 0 and form1.ComboBox6.ListIndex=2 Then form2.Label2.Caption = time & ",正在进行动作：■加入队伍中..■" MoveTo ma, mbDelay 100LeftClick 1Delay 1000xx02=1End If//创建队伍FindPic 0,0,1146,674,"C:\Users\DrunkDreamer\Documents\按键\11\创建队伍.bmp",0.9,ma,mbIf ma > 0 And mb > 0 and form1.ComboBox6.ListIndex=0 Then form2.Label2.Caption = time & ",正在进行动作：■创建队伍中■" MoveTo ma, mbDelay 100LeftClick 1Delay 1000End IfEnd IfEnd If//刷新FindPic 0,0,1146,674,"C:\Users\DrunkDreamer\Documents\按键\11\刷新.bmp",0.9,ma,mbIf ma > 0 And mb > 0 and form1.ComboBox6.ListIndex=2 Then form2.Label2.Caption = time & ",正在进行动作：■刷新..■" MoveTo ma, mbDelay 100LeftClick 1Delay 1000xx02=1End If//加入队伍FindPic 0,0,1146,674,"C:\Users\DrunkDreamer\Documents\按键\11\加入.bmp",0.9,ma,mbIf ma > 0 And mb > 0 and form1.ComboBox6.ListIndex=2 Then form2.Label2.Caption = time & ",正在进行动作：■加入队伍中...1■" MoveTo ma, mbDelay 100LeftClick 1Delay 1000xx02=1End If//队伍公开选项FindPic 0,0,1366,768,"C:\Users\DrunkDreamer\Documents\按键\11\公开.bmp",0.9,gkx,gkyIf gkx > 0 And gky > 0 and form1.ComboBox4.ListIndex=0 Then//公开 form2.Label2.Caption = time & ",正在进行动作：■选择公开队伍■"MoveTo gkx + 20, gky + 45Delay 100LeftClick 1Delay 1000FindPic 0,0,1366,768,"C:\Users\DrunkDreamer\Documents\按键\11\御魂创建.bmp",0.9,cjx,cjyIf cjx > 0 And cjy > 0 Then Delay 100MoveTo cjx, cjyLeftClick 1Delay 1000End IfElseIf gkx > 0 and gky > 0 and form1.ComboBox4.ListIndex = 1 Then//好友寮友form2.Label2.Caption = time & ",正在进行动作：■选择仅好友和寮友■" MoveTo gkx - 28, gky + 11Delay 100LeftClick 1Delay 1000FindPic 0,0,1366,768,"C:\Users\DrunkDreamer\Documents\按键\11\创建.bmp",0.9,cjx,cjyIf cjx > 0 And cjy > 0 Then Delay 100MoveTo cjx, cjyLeftClick 1Delay 1000End IfElseIf gkx > 0 and gky > 0 and form1.ComboBox4.ListIndex = 2 Then//不公开form2.Label2.Caption = time & ",正在进行动作：■选择不公开■" MoveTo gkx-23, gky+15Delay 100LeftClick 1Delay 1000FindPic 0,0,1366,768,"C:\Users\DrunkDreamer\Documents\按键\11\创建.bmp",0.9,cjx,cjyIf cjx > 0 And cjy > 0 Then Delay 100MoveTo cjx, cjyLeftClick 1Delay 1000End IfEnd If//判断准备组几人队//邀请1代表第二个位置为空form2.Label1.Caption = time & ",正在进行动作：■御魂副本■" & chr(13)& "御魂具体情况：设定御魂次数" & 计划御魂次数 &"次。已打"&御魂总次数 &"次。胜利次数"&御魂胜利次数&"次，失败"& 御魂失败次数&"次。"dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\进入协战队伍.bmp","000000",0.9,0,xaa1,yaa1)If xaa1 >= 0 and yaa1 >= 0 Then Delay 1000If 御魂总次数 >= 计划御魂次数 Then form2.Label2.Caption = time & ",正在进行动作：■御魂完成3■"御魂胜利次数 = 0Goto 御魂完毕End If//选择2人对if form1.ComboBox5.ListIndex = 0 Thendm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\开始战斗.bmp", "000000", 0.9, 0, xa1, ya1)Delay 100If 御魂总次数 >= 计划御魂次数 and xa1 >= 0 and ya1 >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■御魂完成1■"御魂胜利次数=0Goto 御魂完毕//                dm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\邀请1.bmp", "000000", 0.9, 0, yqx,yqy)Else form2.Label2.Caption = time & ",正在进行动作：■两人队开始战斗■"御魂胜利次数 = 御魂胜利次数 + 1御魂总次数=御魂总次数+1Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 2000End If//                and yqx<0 and yqy<0End if//邀请 代表三人队伍If form1.ComboBox5.ListIndex=1 thendm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\开始战斗.bmp", "000000", 0.9, 0, xa1, ya1)Delay 500If 御魂总次数 >= 计划御魂次数 and xa1 >= 0 and ya1 >= 0 Then 御魂胜利次数 = 0form2.Label2.Caption = time & ",正在进行动作：■御魂次数已满2■"Goto 御魂完毕end ifdm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\邀请.bmp", "000000", 0.9, 0, yqx,yqy)If xa1 >= 0 and ya1 >= 0 and yqx<0 and yqy<0 Thenform2.Label2.Caption = time & ",正在进行动作：■三人对开始战斗■"御魂胜利次数 = 御魂胜利次数 + 1御魂总次数=御魂总次数+1Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 2000End IfEnd IfEnd If//3人If form1.ComboBox5.ListIndex=1 thendm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\开始战斗.bmp", "000000", 0.9, 0, xa1, ya1)Delay 500If 御魂总次数 >= 计划御魂次数 and xa1 >= 0 and ya1 >= 0 Then 御魂胜利次数 = 0form2.Label2.Caption = time & ",正在进行动作：■御魂次数已满5■"Goto 御魂完毕end ifdm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\邀请.bmp", "000000", 0.9, 0, yqx,yqy)If xa1 >= 0 and ya1 >= 0 and yqx<0 and yqy<0 Thenform2.Label2.Caption = time & ",正在进行动作：■三人对开始战斗■"御魂胜利次数 = 御魂胜利次数 + 1御魂总次数=御魂总次数+1Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 2000End IfEnd If//选择2人对if form1.ComboBox5.ListIndex = 0 Thendm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\开始战斗.bmp", "000000", 0.9, 0, xa1, ya1)Delay 100If 御魂总次数 >= 计划御魂次数 and xa1 >= 0 and ya1 >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■御魂完成4■"御魂胜利次数=0Goto 御魂完毕//                dm_ret = dm.FindPic(0, 0, 2000, 2000, "C:\Users\DrunkDreamer\Documents\按键\11\邀请1.bmp", "000000", 0.9, 0, yqx,yqy)Else form2.Label2.Caption = time & ",正在进行动作：■两人队开始战斗■"御魂胜利次数 = 御魂胜利次数 + 1御魂总次数=御魂总次数+1Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 2000End If//                and yqx<0 and yqy<0End if//御魂按钮FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\探索地图御魂按钮.bmp",0.9,intax,intayIf intax > 0 And intay > 0 Then //判断是否是10票突破卷If form1.CheckBox22.value = 1  Then For 突破卷 = 0 To 30FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\突破卷"&突破卷&".bmp",1,intax,intayIf intax > 0 And intay > 0 and 突破卷 > 9 Then form2.Label2.Caption = time & ",正在进行动作：■发现突破卷满足10票，即将进入突破进程■"Call 关闭加成Call 突破Goto 下一个End IfNextEnd IfMoveTo intax, intayDelay 100LeftClick 1Delay 2500End If//点击组队FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\组队.bmp",0.9,intax,intayIf intax > 0 And intay > 0 Then MoveTo intax, intayDelay 100LeftClick 1Delay 1000End IfFor 2//默认邀请队友FindPic 0,0,1366,768,"C:\Users\DrunkDreamer\Documents\按键\11\默认邀请队友.bmp",0.9,intX,intYIf intX> 0 And intY> 0 ThenCall 点击Else //确认退出和确认一样FindPic 0,0,1366,768,"C:\Users\DrunkDreamer\Documents\按键\11\确认退出.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then Call 点击End IfEnd IfNext//准备form2.Label3.Caption = time & ",探索副本怪物次数【" & 探索总次数 & "次】，失败次数【"&失败总次数&"次】，突破战斗次数【"&突破总次数&"次】，业原火总次数【"&业原火总次数&"次】，妖气封印次数【"&妖气封印总次数&"次】。"FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.8,intX,intYIf intX> 0 And intY> 0 Thencall 点击End If//打赢后的奖励前-全局FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励前.bmp",0.8,intX,intYIf intX > 0 And intY > 0 Then zz1 = RndNum(-50, 50)MoveTo intX +200 + zz1, intY + 63 + zz1LeftClick 1Delay 1500LeftClick 1Delay 1000End IfFindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\最终胜利.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■最终胜利（突破）■"zz1 = RndNum(-50, 50)MoveTo intX +200 + zz1, intY + 63 + zz1LeftClick 1Delay 500LeftClick 1Delay 100End If//打赢后的开达摩的图-全局FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then zz1 = RndNum(-50, 50)MoveTo intX - 450 + zz1, intY - 63 + zz1Delay 100LeftClick 1Delay 1000timea = Plugin.GetSysInfo.GetTime//胜利后，等待8秒。直到看到准备If form1.ComboBox6.ListIndex = 2 Then For 10*ddsjDelay 100//打赢后的奖励前-全局FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\突破奖励.bmp",0.8,intX,intYIf intX > 0 And intY > 0 Then zz1 = RndNum(-50, 50)MoveTo intX +200 + zz1, intY + 63 + zz1LeftClick 1Delay 1000End Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\组队同意普通.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\组队同意默认.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 ThenDelay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500end ifEnd IfFindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.8,intqqX,intqqYIf intqqX> 0 And intqqY> 0 ThenExit forEnd Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1+suiji1,ya1+suiji1Delay 100dm.leftclick Delay 1000御魂失败次数=御魂失败次数+1End if//打赢后的奖励前-全局FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励前.bmp",0.8,intX,intYIf intX > 0 And intY > 0 Then zz1 = RndNum(-50, 50)MoveTo intX +200 + zz1, intY + 63 + zz1LeftClick 1Delay 100LeftClick 1Delay 1000End IfNext   End IfEnd If//战斗失败最后一个界面 -全局suiji1 = RndNum(1, 50)dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1+suiji1,ya1+suiji1Delay 100dm.leftclick Delay 1000//胜利后，等待8秒。直到看到准备If form1.ComboBox6.ListIndex = 2 Then For 10*ddsjDelay 100FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.8,intqqX,intqqYIf intqqX> 0 And intqqY> 0 ThenExit forEnd Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1+suiji1,ya1+suiji1Delay 100dm.leftclick Delay 1000End ifNext   End Iftimea= Plugin.GetSysInfo.GetTime End IfLoop
End Sub
Sub 业原火yyhcs = form1.InputBox7.text业原火计划次数 = Cint(yyhcs)业原火进行次数 = 0已选择=0//    ddsj=ddsj*1000//    御魂胜利次数 = 0//    御魂失败次数=0Doform2.Label1.Caption = time & ",正在进行动作：■业原火■" & chr(13)& "业原火情况：设定次数" & 业原火计划次数 &"次。已打"&业原火进行次数 &"次。"form2.Label3.Caption = time & ",探索副本怪物次数【" & 探索总次数 & "次】，失败次数【"&失败总次数&"次】，突破战斗次数【"&突破总次数&"次】，业原火总次数【"&业原火总次数&"次】，妖气封印次数【"&妖气封印总次数&"次】。"dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\御魂图标.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500End If//业原火图标dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\业原火.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500End If//选择管卡dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\贪之阵.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.CheckBox28.value=1 and 已选择=0 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500已选择=1End Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\嗔之阵.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.CheckBox29.value=1 and 已选择=0  Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500已选择=1End Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\痴之阵.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.CheckBox30.value=1 and 已选择=0  Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500已选择=1End If//挑战dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\业原火挑战.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then If 业原火进行次数 >= 业原火计划次数 Then Goto wanbiEnd IfDelay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500业原火总次数 = 业原火总次数 + 1已选择=0End If//准备FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.8,intX,intYIf intX> 0 And intY> 0 ThenCall 点击业原火进行次数=业原火进行次数+1End If//打赢后的奖励前-全局FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励前.bmp",0.8,intX,intYIf intX > 0 And intY > 0 Then zz1 = RndNum(-50, 50)MoveTo intX +200 + zz1, intY + 63 + zz1LeftClick 1Delay 1500LeftClick 1Delay 1000End If//打赢后的开达摩的图-全局FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\突破奖励.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then zz1 = RndNum(-50, 50)MoveTo intX - 450 + zz1, intY - 63 + zz1Delay 100LeftClick 1Delay 1000End Ifsuiji1 = RndNum(1, 50)//shibai dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1+suiji1,ya1+suiji1Delay 100dm.leftclick Delay 1000End  ifLoopRem wanbi
End Sub
Sub 等待加入模式do//准备FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.8,intX,intYIf intX> 0 And intY> 0 Thencall 点击End If//打赢后的奖励前-全局FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励前.bmp",0.8,intX,intYIf intX > 0 And intY > 0 Then zz1 = RndNum(-50, 50)MoveTo intX +200 + zz1, intY + 63 + zz1LeftClick 1Delay 1500LeftClick 1Delay 1000End Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\真蛇.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500End Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\组队同意普通.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\组队同意默认.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 ThenDelay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500end ifEnd If//打赢后的开达摩的图-全局FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then zz1 = RndNum(-50, 50)MoveTo intX - 450 + zz1, intY - 63 + zz1Delay 100LeftClick 1Delay 1000timea = Plugin.GetSysInfo.GetTime//胜利后，等待8秒。直到看到准备If form1.ComboBox6.ListIndex = 1 Then For 10*ddsjDelay 100FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.8,intqqX,intqqYIf intqqX> 0 And intqqY> 0 ThenExit forEnd Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1+suiji1,ya1+suiji1Delay 100dm.leftclick Delay 1000End if//打赢后的奖励前-全局FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励前.bmp",0.8,intX,intYIf intX > 0 And intY > 0 Then zz1 = RndNum(-50, 50)MoveTo intX +200 + zz1, intY + 63 + zz1LeftClick 2Delay 1500LeftClick 1Delay 1000End IfNext End If御魂胜利=御魂胜利+1End If//战斗失败最后一个界面 -全局suiji1 = RndNum(1, 50)dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1+suiji1,ya1+suiji1Delay 100dm.leftclick Delay 1000//胜利后，等待8秒。直到看到准备If form1.ComboBox6.ListIndex = 1 Then For 10*ddsjDelay 100FindPic 1,0,1140,681,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp",0.8,intqqX,intqqYIf intqqX> 0 And intqqY> 0 ThenExit forEnd Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1+suiji1,ya1+suiji1Delay 100dm.leftclick Delay 1000End ifNext  End IfEnd Ifloop
End Sub
Sub 加成开启For 5//打开加成那个小灯笼FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\加成开启.bmp",0.9,intax,intayIf intax > 0 And intay > 0 Then form2.Label2.Caption = time & ",正在进行动作：■打开加成选项■"MoveTo intax, intayDelay 100LeftClick 1Delay 1000End If//根据选择开启加成选项//经验加成dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\经验100.bmp","202020",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.CheckBox1.value=1 and form1.CheckBox27.value=1 and 探索加成=1 Then form2.Label2.Caption = time & ",正在进行动作：■经验100%开启■"Delay 100dm.moveto xa1+175,ya1+10Delay 100dm.leftclick Delay 500End Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\经验50.bmp","202020",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.CheckBox1.value=1 and form1.CheckBox16.value=1 and 探索加成=1 Then form2.Label2.Caption = time & ",正在进行动作：■经验50%开启■"Delay 100dm.moveto xa1+175,ya1+10Delay 100dm.leftclick Delay 500End If//御魂加成FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\御魂加成.bmp",0.8,intbx,intbyIf intbx > 0 And intby > 0 and form1.CheckBox17.value=1 and form1.CheckBox20.value=1 and 御魂加成=1 Then form2.Label2.Caption = time & ",正在进行动作：■御魂加成开启■"MoveTo intbx + 461, intbyDelay 100LeftClick 1Delay 100End If//觉醒加成FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\觉醒加成.bmp",0.8,intbx,intbyIf intbx > 0 And intby > 0 and form1.CheckBox18.value=1 and form1.CheckBox21.value=1 and 觉醒加成=1 Then form2.Label2.Caption = time & ",正在进行动作：■觉醒开启■"MoveTo intbx + 461, intbyDelay 100LeftClick 1Delay 100End If//金钱加成dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\金钱100.bmp","202020",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.CheckBox1.value=1 and form1.CheckBox19.value=1 and 探索加成=1 Then form2.Label2.Caption = time & ",正在进行动作：■金币100%开启■"Delay 100dm.moveto xa1+175,ya1+10Delay 100dm.leftclick Delay 500End IfDelay 100Next//关闭加成界面FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\关闭加成界面最下面樱花.bmp",0.9,intax,intayIf intax > 0 And intay > 0 Then form2.Label2.Caption = time & ",正在进行动作：■关闭加成界面■"Delay 100MoveTo intax , intayDelay 100LeftClick 1Delay 1000End If
End Sub
Sub 关闭加成For 20//打开加成那个小灯笼FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\加成开启.bmp",0.9,intax,intayIf intax > 0 And intay > 0 Then form2.Label2.Caption = time & ",正在进行动作：■打开加成界面1■"MoveTo intax, intayDelay 100LeftClick 1Delay 100End If//根据选择关闭加成选项dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\暂停.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■暂停加成■"Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500End IfDelay 100Next//关闭加成界面FindPic 2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\关闭加成界面最下面樱花.bmp",0.9,intax,intayIf intax > 0 And intay > 0 Then form2.Label2.Caption = time & ",正在进行动作：■关闭加成界面■"Delay 200MoveTo intax,intayDelay 100LeftClick 1Delay 1000End If
End Sub
Sub 突破等待次数=0DoIf 等待次数>3000 Then Goto 开始End IfDelay 100//突破按钮form2.Label1.Caption = time & ",正在进行动作：■突破任务■" & chr(13)& "突破具体情况：已打五★结界"&wxjj &"次。其他★结界"&qtjj &"次"dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破按钮.bmp","000000",0.8,0,intX,intY)If intX >= 0 and intY >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■突破按钮（突破）■"Delay 100dm.MoveTo intX,intYDelay 500dm.leftclick Delay 2000End If//突破界面 -判断事项dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破界面.bmp","000000",0.8,0,intX,intY)If intX >= 0 and intY >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■找到突破界面，并刷新判断（突破）■"Call 突破刷新判断End If//五星以下=====Rem aginIf linshi = 5 Then  dm_ret = dm.FindPicEx(2,0,1356,732, "C:\Users\DrunkDreamer\Documents\按键\11\测试5星.bmp", "404040", 0.8, 0)If len(dm_ret) > 0 Then form2.Label2.Caption = time & ",正在进行动作：■找到五星（突破）■"ss = split(dm_ret,"|")index = 0count = UBound(ss) + 1Do While index < countsss = split(ss(index),",")id = int(sss(0))x = int(sss(1))y = int(sss(2))dm.MoveTo x,yDelay 1000dm.leftclick Delay 1000Call 循环wxjj = wxjj + 1form2.Label1.Caption = time & ",正在进行动作：■突破任务■" & chr(13)& "突破具体情况：已打五★结界"&wxjj &"次。其他★结界"&qtjj &"次"index = index+1LoopEnd Iflinshi = linshi - 1Goto aginEnd IfIf linshi < 0 Then dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破刷新.bmp","202020",0.8,0,intX,intY)If intX >= 0 and intY >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■发现突破刷新了■"dm.MoveTo intX,intYDelay 1000dm.leftclick Delay 1000//确认dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\确认退出.bmp","202020",0.8,0,intX,intY)If intX >= 0 and intY >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■确认退出02■"dm.MoveTo intX,intYDelay 1000dm.leftclick Delay 1000//                        linshi=xj01//重置星End IfEnd IfGoto 开始End Ifform2.Label2.Caption = time & ",正在进行动作：■寻找有无"&linshi&"星结界■"if linshi>-1 and linshi<5 thenform2.Label2.Caption = time & ",正在进行动作：■寻找有无"&linshi&"星结界-1■"dm_ret = dm.FindPicEx(2,0,1356,732,"C:\Users\DrunkDreamer\Documents\按键\11\测试"&linshi&"星.bmp","303030",0.8,0)If len(dm_ret) > 0 Thenss = split(dm_ret,"|")index = 0count = UBound(ss) + 1Do While index < countsss = split(ss(index),",")id = int(sss(0))x = int(sss(1))y = int(sss(2))dm.MoveTo x,y//挨个点击找到的结界Delay 1000dm.leftclick Delay 1000Call 循环qtjj = qtjj + 1//其他结界form2.Label1.Caption = time & ",正在进行动作：■突破任务■" & chr(13)& "突破具体情况：已打五★结界"&wxjj &"次。其他★结界"&qtjj &"次"index = index+1LoopEnd Iflinshi = linshi - 1Goto aginEnd If等待次数=等待次数+1Loop
End Sub
Sub 循环Do//        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破界面.bmp","000000",0.8,0,intvX,intvY)//        If intvX >= 0 and intvY >= 0 and 等待次数 > 5 Then //        form2.Label2.Caption = time & ",正在进行动作：■突破界面■"//            dm.MoveTo x,y//            Delay 1000//            dm.leftclick //            Delay 1000//            等待次数=0//        End Ifform2.Label3.Caption = time & ",探索副本怪物次数【" & 探索总次数 & "次】，失败次数【"&失败总次数&"次】，御魂战斗次数【"&御魂总次数&"次】，突破战斗次数【"&突破总次数&"次】，业原火总次数【"&业原火总次数&"次】，妖气封印次数【"&妖气封印总次数&"次】。"&等待次数dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破进攻.bmp","303030",0.7,0,intX,intY)If intX >= 0 and intY >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■突破进攻■"Delay 1000dm.MoveTo intX+50,intY+50Delay 1000dm.leftclick Delay 100等待次数=0End If//准备dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\准备.bmp","202020",0.8,0,intX,intY)If intX >= 0 and intY >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■准备（突破）■"Delay 100dm.MoveTo intX,intYDelay 100dm.leftclick Delay 100等待次数=0突破总次数=突破总次数+1End If//准备1dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp","202020",0.8,0,intX,intY)If intX >= 0 and intY >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■准备1（突破）■"Delay 100dm.MoveTo intX,intYDelay 100dm.leftclick Delay 100等待次数=0突破总次数=突破总次数+1End If//胜利阶段1//        Do while sl=1FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\最终胜利.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■最终胜利（突破）■"zz1 = RndNum(-50, 50)MoveTo intX +200 + zz1, intY + 63 + zz1LeftClick 1Delay 500LeftClick 1Delay 100End Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破奖励.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■突破奖励（突破）■"a = Lib.算法.随机数字串(2)xa = intX +aya=intY +adm.MoveTo xa, yaDelay 100dm.LeftClick Delay 100等待次数=0End IfFindPic 6,1,1138,683,"C:\Users\DrunkDreamer\Documents\按键\11\突破界面.bmp",0.8,intX,intYIf intX > 0 And intY > 0 Then sl = 0form2.Label2.Caption = time & ",正在进行动作：■回到突破界面，开始判断是否满足条件刷新■"Call 突破刷新判断Goto xx1End If//准备//        loop//奖励前FindPic 0,5,1145,679,"C:\Users\DrunkDreamer\Documents\按键\11\奖励前.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■奖励前（突破）■"zz1 = RndNum(-50, 50)MoveTo intX +200 + zz1, intY + 63 + zz1LeftClick 1Delay 100LeftClick 1Delay 100等待次数=0End If//胜利后dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\奖励.bmp","000000",0.8,0,intX,intY)If intX > 0 And intY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■奖励（突破）■"a = Lib.算法.随机数字串(2)xa = intX +aya=intY +adm.MoveTo xa, yaDelay 1000dm.LeftClick Delay 1000dm.LeftClick Delay 1000sl = 1End Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■失败1（突破）■"suiji1 = RndNum(1, 50)intX = intX + suiji1intY = intY + suiji1Call 点击Delay 1000sbjj=sbjj+1form2.Label1.Caption = time & ",正在进行动作：■突破任务■" & chr(13)& "突破具体情况：已打五★结界"&wxjj &"次。其他★结界"&qtjj &"次。失败"&sbjj&"次。"sl = 1End If//        //失败//        dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,intX,intY)//        If intX > 0 And intY > 0 Then //            form2.Label2.Caption = time & ",正在进行动作：■失败1（突破）■"//            suiji1 = RndNum(1, 50)//            intX = intX + suiji1//            intY = intY + suiji1//            Call 点击//            Delay 2000//            sbjj=sbjj+1//            form2.Label1.Caption = time & ",正在进行动作：■突破任务■" & chr(13)& "突破具体情况：已打五★结界"&wxjj &"次。其他★结界"&qtjj &"次。失败"&sbjj&"次。"//            sl = 1//        End Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\关闭体力.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.体力操作.ListIndex = 1 Then form2.Label2.Caption = time & ",正在进行动作：■关闭体力（突破）■"Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500form2.Label2.Caption = time & ",正在进行动作：■等待5分钟■"Delay 300000End IfIf 等待次数>1000 Then Goto 开始End If//没票了FindPic 6, 1, 1138, 683, "C:\Users\DrunkDreamer\Documents\按键\11\0票.bmp", 1, intX, intYIf intX > 0 And intY > 0 Then form2.Label2.Caption = time & ",正在进行动作：■0票了（突破）■"//            If sdcs > 设定次数 Then //                form2.Label2.Caption = time & ",正在进行动作：■下一个001■"//                Goto 开始//            End Ifgoto 下一个//这里可以做一个全局界面判断，最终进入探索大地图后再exit do//也可以放在外面循环End If等待次数 = 等待次数 + 1Delay 100LoopRem xx1
End Sub
Sub 突破刷新判断If form1.ComboBox2.ListIndex = 0 Then //选择3次刷新For rrr=3 to 8dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\攻破记录"&rrr&".bmp","202020",0.8,0,intX,intY)If intX >= 0 and intY >= 0 Then //刷新Delay 1000form2.Label2.Caption = time & ",正在进行动作：■检查记录中■"dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破刷新.bmp","202020",0.8,0,intX,intY)If intX >= 0 and intY >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■发现突破刷新了■"dm.MoveTo intX,intYDelay 1000dm.leftclick Delay 1000//确认dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\确认退出.bmp","202020",0.8,0,intX,intY)If intX >= 0 and intY >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■确认退出02■"dm.MoveTo intX,intYDelay 1000dm.leftclick Delay 1000//                        linshi=xj01//重置星Goto 突破刷新完成End IfEnd Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\灰色刷新.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■刷新CD中■"Goto 开始End ifEnd IfnextEnd If//刷新6次If form1.ComboBox2.ListIndex = 1 Then //选择3次刷新For rrr=7 to 8dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\攻破记录"&rrr&".bmp","202020",0.8,0,intX,intY)If intX >= 0 and intY >= 0 Then //刷新Delay 1000form2.Label2.Caption = time & ",正在进行动作：■检查记录中■"dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破刷新.bmp","202020",0.8,0,intX,intY)If intX >= 0 and intY >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■发现突破刷新了■"dm.MoveTo intX,intYDelay 1000dm.leftclick Delay 1000//确认dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\确认退出.bmp","202020",0.8,0,intX,intY)If intX >= 0 and intY >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■确认退出02■"dm.MoveTo intX,intYDelay 1000dm.leftclick Delay 1000//                        linshi=xj01//重置星Goto 突破刷新完成End IfEnd Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\灰色刷新.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■刷新CD中6■"Goto 开始End ifEnd IfnextEnd If//9次  9次后自动刷新，会导致linshi还是0 ，所以怎么判断重置。是个问题If form1.ComboBox2.ListIndex = 2 ThenFor rrr=1 to 8dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\攻破记录"&rrr&".bmp","202020",0.8,0,intX,intY)If intX >= 0 and intY >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■9次中发现攻破记录"&rrr&"次■"已经突破中 = 1Exit ForEnd Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\攻破记录0.bmp","202020",0.8,0,intaX,intaY)If intaX >= 0 and intaY >= 0 and 已经突破中 = 1 Then form2.Label2.Caption = time & ",正在进行动作：■重置星■"linshi = xj01//重置星级delay 1000已经突破中 = 0Exit forEnd IfnextEnd if
End Sub
Sub 判断界面Dodm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\式神委派界面.bmp","000000",0.9,0,intX,intY)If intX >= 0 and intY >= 0 Then dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\退出副本.bmp","000000",0.9,0,intX,intY)If intX >= 0 and intY >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■式神委派■"Delay 100dm.moveto intX, intYDelay 100dm.leftclick Delay 1000End ifEnd If//突破判断dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\突破进攻.bmp","303030",0.7,0,intX,intY)If intX >= 0 and intY >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■突破进攻界面03■"Delay 100dm.moveto intX-200, intYDelay 100dm.leftclick Delay 1000End ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\加成界面1.bmp","000000",0.8,0,intX,intY)If intX >= 0 and intY >= 0 Then form2.Label2.Caption = time & ",正在进行动作：■加成界面001■"Delay 100dm.moveto intX, intY + 120Delay 100dm.leftclick Delay 1000End If//C:\Users\DrunkDreamer\Documents\按键\11\庭院.bmp 这个删除了dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\酒壶取消.bmp|C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp|C:\Users\DrunkDreamer\Documents\按键\11\退后.bmp|C:\Users\DrunkDreamer\Documents\按键\11\叉1.bmp|C:\Users\DrunkDreamer\Documents\按键\11\突破界面.bmp|C:\Users\DrunkDreamer\Documents\按键\11\离开队伍.bmp|C:\Users\DrunkDreamer\Documents\按键\11\确认退出.bmp|C:\Users\DrunkDreamer\Documents\按键\11\取消.bmp|C:\Users\DrunkDreamer\Documents\按键\11\叉.bmp","000000",0.9,0,intX,intY)If intX >= 0 and intY >= 0 Then Delay 100dm.moveto intX, intYDelay 100dm.leftclick Delay 1000End If//=====判断是否在副本里面，根据情况进行操作dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\探索副本左下角.bmp","000000",0.9,0,intX,intY)If intX >= 0 and intY >= 0 Then //如果勾选了探索，就直接开始探索If form1.CheckBox1.value = 1 Then Call 探索Else //判断dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\退出副本.bmp","000000",0.9,0,intX,intY)If intX >= 0 and intY >= 0 Then Delay 100dm.moveto intX, intYDelay 100dm.leftclick Delay 1000End ifEnd IfEnd Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\退出副本左下角变暗图标.bmp","000000",0.9,0,intX,intY)If intX >= 0 and intY >= 0 Then dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\确认退出.bmp","000000",0.9,0,intX,intY)If intX >= 0 and intY >= 0 Then Delay 100dm.moveto intX, intYDelay 100dm.leftclick Delay 1000End ifEnd If//======FindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\探索灯笼.bmp",0.4,intX,intY    If intX > 0 And intY > 0 ThenCall 签到//Call 宠物Call 点击End IfFindPic 0,0,1187,689,"C:\Users\DrunkDreamer\Documents\按键\11\灯笼.bmp",0.5,intX,intYIf intX > 0 And intY > 0 Then //判断签到Call 签到Call 点击End Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\章节选择.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Exit doEnd IfLoop
End Sub
Sub 循环探索事项dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\接受悬赏.bmp|C:\Users\DrunkDreamer\Documents\按键\11\妖怪发现.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 1000End If
End Sub
Event form1.Button2.Clickform2.showDelay 100Call Plugin.Window.Move(form2.Hwnd, 1140, 458)
End Event
Event Form2.Button1.Clickform2.Hide
End Event
Randomize
Function RndNum(MinNum,MaxNum)RndNum=Int((MaxNum-MinNum+1)*Rnd()+MinNum)
End Function
Sub 点击MoveTo intX, intYDelay 200LeftClick 1Delay 500
End Sub
Sub 点击1MoveTo a, bDelay 100LeftClick 1Delay 500
End Sub
Sub 药师Rem 药师1//发现药师就打dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\药师.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.CheckBox24.value = 1 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 5000yizhaodao=0//组队do//组队挑战dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp|C:\Users\DrunkDreamer\Documents\按键\11\石距鼓.bmp|C:\Users\DrunkDreamer\Documents\按键\11\石距胜利.bmp|C:\Users\DrunkDreamer\Documents\按键\11\创建.bmp|C:\Users\DrunkDreamer\Documents\按键\11\组队挑战.bmp|C:\Users\DrunkDreamer\Documents\按键\11\开始战斗.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 1000End Ifdelay 1000dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\章节选择.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Exit DoEnd Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 1000Goto 药师1End IfloopEnd If
End Sub
Sub 年兽Rem 年兽1dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\年兽.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.CheckBox24.value = 1 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 5000yizhaodao=0//组队do//组队挑战dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp|C:\Users\DrunkDreamer\Documents\按键\11\石距鼓.bmp|C:\Users\DrunkDreamer\Documents\按键\11\石距胜利.bmp|C:\Users\DrunkDreamer\Documents\按键\11\创建.bmp|C:\Users\DrunkDreamer\Documents\按键\11\组队挑战.bmp|C:\Users\DrunkDreamer\Documents\按键\11\开始战斗.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 1000End Ifdelay 1000dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\章节选择.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Exit DoEnd Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 1000Goto 年兽1End IfloopEnd If
End Sub
Sub 石距//发现石距就打Rem 石距1dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\疯狂的石距.bmp|C:\Users\DrunkDreamer\Documents\按键\11\石距.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.CheckBox24.value = 1 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 5000yizhaodao=0//组队do//组队挑战dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\准备1.bmp|C:\Users\DrunkDreamer\Documents\按键\11\石距鼓.bmp|C:\Users\DrunkDreamer\Documents\按键\11\石距胜利.bmp|C:\Users\DrunkDreamer\Documents\按键\11\创建.bmp|C:\Users\DrunkDreamer\Documents\按键\11\组队挑战.bmp|C:\Users\DrunkDreamer\Documents\按键\11\开始战斗.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 1000End Ifdelay 1000dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\章节选择.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Exit DoEnd Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\失败1.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 1000Goto 石距1End IfloopEnd If
End Sub
Event form1.CheckBox13.Click//当多选框被点击后触发的事件If form1.CheckBox13.value = 1 Then form1.CheckBox12.Enabled = 0form1.CheckBox12.value = 0            Else form1.CheckBox12.Enabled = 1End If
End Event
Event form1.CheckBox12.Click//当多选框被点击后触发的事件If form1.CheckBox12.value = 1 Then form1.CheckBox13.Enabled = 0form1.CheckBox13.value=0Else form1.CheckBox13.Enabled = 1End If
End Event
Event form1.Button3.Clickform1.SaveSetting
End Event
Sub 悬赏//注册大漠插件PutAttachment ".\plugin", "RegDll.dll"PutAttachment ".\plugin\dm", "dm.dll"Plugin.RegDll.Reg (Plugin.sys.GetDir(0) + "\plugin\dm\dm.dll")Set dm = createobject("dm.dmsoft")//注册大漠插件结束Hwnd1 = Plugin.Window.Find(0, "阴阳师-网易游戏")Call Plugin.Window.Show(Hwnd1)dodm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\接受悬赏.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500End Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\关闭聊天.bmp","000000",0.9,0,intX,intY)If intX >= 0 and intY >= 0 Then Delay 100dm.moveto intX, intYDelay 100dm.leftclick Delay 1000End If//关闭好友界面dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\同心.bmp","000000",0.9,0,xaa1,yaa1)If xaa1 >= 0 and yaa1 >= 0 Then dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\叉.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500End IfEnd If//御魂过多dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\御魂过多.bmp","000000",0.9,0,xaa1,yaa1)If xaa1 >= 0 and yaa1 >= 0 Then dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\确定御魂.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500End IfEnd Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\普通召唤.bmp","000000",0.9,0,xaa1,yaa1)If xaa1 >= 0 and yaa1 >= 0 Then dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\退出副本.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500End IfEnd Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\真蛇.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500End Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\宠物奖励.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 Then Delay 100dm.moveto xa1-100,ya1Delay 100dm.leftclick Delay 500End If//只买两次If 买体力 = 2 and form1.体力操作.ListIndex=1 Then Goto 跳过体力购买End Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\普攻.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.体力操作.ListIndex=2 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 100End Ifdm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\购买体力.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.体力操作.ListIndex=2 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500买体力=买体力+1End If//一直买dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\购买体力.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0 and form1.体力操作.ListIndex=1 Then Delay 100dm.moveto xa1,ya1Delay 100dm.leftclick Delay 500End IfRem 跳过体力购买dm_ret = dm.FindPic(0,0,1150,675,"C:\Users\DrunkDreamer\Documents\按键\11\手动.bmp","000000",0.9,0,xa1,ya1)If xa1 >= 0 and ya1 >= 0  Then Delay 100dm.moveto xa1+10,ya1+10Delay 100dm.leftclick Delay 500End IfDelay 2000loop
End Sub
Sub 置顶
m=0DoKey=WaitKey()
//脚本运行到这一行会暂停,当用户按下键盘后继续执行,并且把用户的按键码保存在变量Key里
If Key = 20 and m=0 Then    Hwnd2 = Plugin.Window.Find(0, "阴阳师-网易游戏")Call Plugin.Window.Top(Hwnd2, 0)Hwnd3 = Plugin.Window.Find(0, "运行信息")Call Plugin.Window.Top(Hwnd3, 0)m=1
End If
If key = 20 and m = 1 Then Call Plugin.Window.Top(Hwnd2, 1)
Call Plugin.Window.Top(Hwnd3, 1)m=0
End If
loop
End Sub
具体源码自行下载
https://www.lanzous.com/i6tuvri
阴阳师脚本较多功能版本源码不知道失效与否有源码文件相关推荐

用WeX5做一个二维码名片应用！有源码！
本文由起步科技原创.未经许可,禁止转载! 作者:起步科技前端研究员小茄,专注分享HTML5 App快速开发工具 WeX5 的黑魔法以及各种有趣炫酷的前端技术. 前言二维码现在是无处不在,无孔不入 ...
[分享] 30分钟做一个二维码名片应用，有源码！
2019独角兽企业重金招聘Python工程师标准>>> 前言 30分钟带你用Wex5做一个微信公众号上使用的二维码名片,相应技术点有详细讲解,高清有码!(点击下载全部源码) 二维码现 ...
可在广域网部署运行的QQ高仿版 -- GG叽叽V2.0，增加网盘和远程磁盘功能（源码）...
尽力2~3周发布一个版本,我这次也没有失言.这段时间内,我仿照QQ的微云功能,在GG中增加了网盘的功能,而且,我还自创了一个QQ没有的新的功能:远程磁盘.正如远程桌面一样,远程磁盘允许我们像访问本地磁 ...
微信公众号发送红包功能实现源码
微信公众号发送红包功能实现源码最近项目要求推出活动, //A推荐了B,1.如果B成功支付,2.如果B来源为雅思哥给A发66.66,如果不是雅思哥发200 //在活动期间,当A推荐了B时,A不会有任何 ...
TP新版抢单系统开源招财宝自由宝HZ区块系统源码+带门票支付+激活码功能
简介: TP新版抢单系统,招财宝自由宝HZ区块系统源码带门票与激活码功能源代码全开源无加密[Thinkphp内核] 源码为原始版本完整版本为框架源码如完善细节功能运营请自行修改二开提示:程序为 ...
php 支付宝订单查询_php实现支付宝APP支付功能与源码
原标题:php实现支付宝APP支付功能与源码码农程序自学与交流微信群微信群有,就怕你进群发一些乱七八糟的,群有群规,既然规定是技术学习交流,那就不要发广告信息,推广信息,小程序分享,刷屏刷图等!一 ...
购物车的功能——JS源码
此CSS的对应的是"购物车的功能--界面源码"的内容和"购物车的功能--CSS源码"的内容,希望大家不要乱 $(function(){//点击复选框全选或全不选 ...
Qt利用avilib实现录屏功能_openlayers6结合geoserver利用WFS服务实现图层编辑功能(附源码下载)...
内容概览 1.openlayers6结合geoserver利用WFS服务实现图层编辑功能 2.源代码demo下载效果图如下: 本篇主要是参照openlayers6结合geoserver利用WFS服务 ...
arcgis xml 下载切片_openlayers6结合geoserver利用WFS服务实现图层编辑功能(附源码下载)...
内容概览 1.openlayers6结合geoserver利用WFS服务实现图层编辑功能 2.源代码demo下载效果图如下: 本篇主要是参照openlayers6结合geoserver利用WFS服务 ...
阴阳师脚本较多功能版本源码不知道失效与否有源码文件

阴阳师脚本较多功能版本源码不知道失效与否有源码文件相关推荐

最新文章

热门文章

阴阳师 脚本 较多功能版本 源码 不知道失效与否 有源码文件

阴阳师 脚本 较多功能版本 源码 不知道失效与否 有源码文件相关推荐

最新文章

热门文章

阴阳师脚本较多功能版本源码不知道失效与否有源码文件

阴阳师脚本较多功能版本源码不知道失效与否有源码文件相关推荐
