//获取句柄Delay 500Plugin hwnd = aojiansoft.findWinName("大明龙权")Delay 300Plugin Window.Active(hwnd)Delay 300//移动窗口到（0.0）Plugin Window.Move(hwnd, 0, 0)Delay 500PutAttachment .\plugin *.dllDelay 300Rem 开始Gosub 药Gosub 组Rem 找//按TAB键找怪Plugin BGKM5.KeyClick(hwnd,9)Delay 400Gosub 验证//检查是否为可攻击怪物VBSCall FindPic(100,50,800,400,"Attachment:\卡.bmp",0.9,intX,intY)If intX>=0 and intY>=0 Delay 500 Goto 找EndIf VBSCall FindPic(100,50,800,400,"Attachment:\卡2.bmp",0.9,intX,intY)If intX>=0 and intY>=0 Delay 500 Goto 找EndIf //开始打怪了Rem 检查死怪VBSCall FindPic(100,0,900,250,"Attachment:\怪.bmp",0.9,intX,intY)If intX>=0 and intY>=0//右键点击进行攻击 Plugin BGKM5.MMove(hwnd,300,10) Delay 200 Plugin BGKM5.RClick(hwnd,300,10) Delay 600Else Goto 找EndIf VBSCall FindPic(100,0,900,230,"Attachment:\已死怪.bmp",0.9,intX,intY)If intX>=0 and intY>=0 Plugin BGKM5.MMove(hwnd,300,10) Delay 200 Plugin BGKM5.RClick(hwnd,300,10) Delay 600//游戏里怪物血条没血了，怪还有1口气的，所以先打一次再拣东西 Gosub 验证 Gosub 拾取 Goto 开始Else Gosub 验证 Plugin BGKM5.MMove(hwnd,300,10) Delay 200 Plugin BGKM5.RClick(hwnd,300,10) Delay 600 Gosub 药 Goto 检查死怪EndIf Goto 开始//子程序Sub 拾取//拾取白色和兰色物品，循环3次 For 3 VBSCall FindPic(200,205,750,450,"Attachment:\材料.bmp",0.9,intX,intY) If intX>=0 and intY>=0 Plugin BGKM5.MMove(hwnd,intX,intY-29) Delay 200 Plugin BGKM5.LClick(hwnd,intX,intY-29) Delay 1000 EndIf VBSCall FindPic(30,0,750,450,"Attachment:\蓝装备.bmp",0.9,intX,intY) If intX>=0 and intY>=0 Plugin BGKM5.MMove(hwnd,intX,intY-29) Delay 200 Plugin BGKM5.LClick(hwnd,intX,intY-29) Delay 1000 EndIf EndFor Plugin BGKM5.MMove(hwnd,0,0) Delay 200Return //反外挂验证报警提示Sub 验证 VBSCall FindPic(150,100,900,300,"Attachment:\验证.bmp",0.9,intX,intY) If intX>=0 and intY>=0 Beep 1 Delay 100 Beep 1 Delay 100 Beep 1 Delay 100 Beep 1 Delay 100 Beep 1 Delay 100 For 1 VBS strSoundFile = "C:\WINDOWS\Media\Windows XP 启动.wav" VBS Set objShell = CreateObject("Wscript.Shell") VBS strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34) VBS objShell.Run strCommand, 0, True Delay 2000 EndFor EndIf Return Sub 药 VBSCall FindPic(0,0,1200,300,"Attachment:\血60%.bmp",0.9,intX,intY) If intX>=0 and intY>=0 Else Plugin BGKM5.KeyClick(hwnd,112) Delay 400 EndIf VBSCall FindPic(0,0,1200,300,"Attachment:\蓝50%.bmp",0.9,intX,intY) If intX>=0 and intY>=0 Else Plugin BGKM5.KeyClick(hwnd,113) Delay 400 EndIf Return Sub 组 VBSCall FindPic(200,205,1200,550,"Attachment:\组队.bmp",0.9,intX,intY) If intX>=0 and intY>=0 Plugin BGKM5.MMove(hwnd,intX-3,intY-29) Delay 200 Plugin BGKM5.LClick(hwnd,intX-3,intY-29) Delay 600 EndIf VBSCall FindPic(200,205,1200,550,"Attachment:\接受组队.bmp",0.9,intX,intY) If intX>=0 and intY>=0 Plugin BGKM5.MMove(hwnd,intX-3,intY-29) Delay 200 Plugin BGKM5.LClick(hwnd,intX-3,intY-29) Delay 600 EndIf Return
