//get windows handle dim c1,c2,c3,c4,c5,c6,c7,c8,y,a,username,password username="账号" password="密码" Plugin hwnd=Window.MousePoint() //get windows curscr Plugin s = Window.GetClientRect(hwnd) XYArray = Split(s, "|", -1, 1) dx = XYArray(0) dy = XYarray(1) Rem start Gosub piccheck If pic="游戏画面" Goto click ElseIf pic="登陆画面" Gosub zhanghao Goto start ElseIf pic="更新数据" Delay 1000 Goto start ElseIf pic="服务器选择" Gosub service Goto start ElseIf pic="角色选择" Gosub select Goto start ElseIf pic="出现错误" Gosub quxiao Goto start ElseIf pic="战斗画面" Gosub fight ElseIf pic="开始画面" Gosub quxiao Else Gosub quxiao Goto start EndIf Rem click Gosub quxiao Gosub buchong Gosub buchong Delay 110 Plugin Bkgnd.LeftClick(hwnd,420-dx,430-dy) Delay 110 Plugin Bkgnd.LeftClick(hwnd,260-dx,400-dy) Delay 110 Plugin Bkgnd.LeftClick(hwnd,260-dx,260-dy) Delay 110 Plugin Bkgnd.LeftClick(hwnd,380-dx,200-dy) Delay 110 Plugin Bkgnd.LeftClick(hwnd,500-dx,260-dy) Delay 110 Plugin Bkgnd.LeftClick(hwnd,500-dx,400-dy) Delay 110 Plugin Bkgnd.LeftClick(hwnd,380-dx,450-dy) Delay 110 Plugin Bkgnd.LeftClick(hwnd,380-dx,340-dy) Delay 110 //取消对话框 Plugin Bkgnd.LeftClick(hwnd,430-dx,430-dy) Delay 110 Plugin Bkgnd.LeftClick(hwnd,380-dx,340-dy) Delay 110 Plugin Bkgnd.LeftClick(hwnd,380-dx,340-dy) Delay 110 Goto start Sub buchong Plugin Bkgnd.LeftClick(hwnd,405-dx,400-dy) Delay 100 Rem buchongstart Plugin c1=BkgndColor.GetPixelColor(hwnd,631-dx,121-dy) c1=hex(c1) //宠补红 If c1<>"5959DE" and c1<>"5858DD" and c1<>"5959DD" and c1<>"5858DE" and c1<>"5959DE" and c1<>"5859DD" and c1<>"5859DE" //Plugin Bkgnd.RightClick(hwnd,658-dx,628-dy) //Delay 800 Plugin Bkgnd.KeyPress(hwnd,55) Delay 2000 EndIf //补红 Plugin c1=BkgndColor.GetPixelColor(hwnd,779-dx,121-dy) c1=hex(c1) If c1<>"5959DE" and c1<>"5858DD" and c1<>"5959DD" and c1<>"5858DE" and c1<>"5959DE" and c1<>"5859DD" and c1<>"5859DE" //Plugin Bkgnd.RightClick(hwnd,445-dx,628-dy) //Delay 800 Plugin Bkgnd.KeyPress(hwnd,49) Delay 2000 EndIf //补蓝 Plugin c1=BkgndColor.GetPixelColor(hwnd,779-dx,131-dy) c1=hex(c1) If c1<>"F18359" and c1<>"F18458" and c1<>"F18556" //Plugin Bkgnd.RightClick(hwnd,482-dx,628-dy) //Delay 800 Plugin Bkgnd.KeyPress(hwnd,50) Delay 2000 EndIf Return buchong Sub fight Delay 1000