Goto 上一层 End If Else Goto 封印 End If Else Exit Sub End If End Sub Sub 阵图() Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "阵图次数.bmp", 10, 1, x, y If x + y > 0 Then Delay 200 Call 关闭() Exit Sub End If Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "阵图窗口.bmp", 10, 0.9, x, y If x + y > 0 Then Delay 300 Call Plugin.Bkgnd.LeftClick(Hwnd, x + 38, y + 330) End If End Sub Sub 闯关() Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "单人挑战.bmp", 10, 0.8, x, y If x + y > 0 Then Delay 300 Call Plugin.Bkgnd.LeftClick(Hwnd, x + 38, y + 330) End If End Sub Sub 副本() Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "副本.bmp", 10, 0.9, x, y If x + y > 0 Then Delay 300 Call Plugin.Bkgnd.LeftClick(Hwnd, x + 15, y + 45) End If End Sub //*************************************斗剑子程序******************************************** Sub 斗剑() Rem 斗剑 Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "斗剑场窗口.bmp", 10, 1, x, y If x + y > 0 Then Delay 300 Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "可以斗剑.bmp", 10, 1, x, y If x + y > 0 Then Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "斗剑次数.bmp", 10, 1, x, y If x + y > 0 Then Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "挑战.bmp", 10, 1, x, y If x + y > 0 Then Delay 300 Call Plugin.Bkgnd.LeftClick(Hwnd, x + 13, y + 29) End If Else Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "斗剑人物选择.bmp", 10, 0.8, x, y If x + y > 0 Then Delay 300 Call Plugin.Bkgnd.LeftClick(Hwnd, x + 35, y + 59) Rem 斗剑结束 Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "确定.bmp", 10, 0.9, x, y If x + y > 0 Then Delay 300 Call Plugin.Bkgnd.LeftClick(Hwnd, x + 31, y + 14) Delay 1000 Call 关闭() Else Delay 1000 Goto 斗剑结束 End If djcs=djcs+1 End If End If End If Else Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "斗剑图标.bmp", 10, 1, x, y If x + y > 0 Then Call Plugin.Bkgnd.LeftClick(Hwnd, x + 24, y + 27) Delay 300 Goto 斗剑 End If End If End Sub Sub 领奖() Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "抽奖.bmp", 10, 0.9, x, y If x + y > 0 Then Delay 300 Call Plugin.Bkgnd.LeftClick(Hwnd, x + 27, y + 9) End If Rem 领奖 Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "领取奖励.bmp", 10, 0.9, x, y If x + y > 0 Then Delay 300 Call Plugin.Bkgnd.LeftClick(Hwnd, x + 27, y + 9) Else Delay 300 Goto 领奖 End If End Sub Sub 打怪() Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "发动攻击.bmp", 10, 0.9, x, y If x + y > 0 Then Delay 300