Else Delay 200 EndIf Gosub 重新进入 EndWhile // 输密码 Delay 200 SayString( zhangHn(num)) KeyPress 9,1 SayString(mima(num)) Rem 重新确定进入 Delay 200 MoveTo 445,461 Delay 200 LeftClick 1 xx=2 While xx > 0 IfColor 788,223,4ccef1,2 MoveTo 798,178 xx=-1 Else Delay 200 Plugin hwnd = Window.Find(0,"提示") If hwnd = 0 Delay 1 Else MoveTo 510,403 Delay dltime LeftClick 1 Goto 重新确定进入 EndIf EndIf Gosub 重新进入 EndWhile // 准备进入游戏 // VBSCall RunApp("D:\变速齿轮\变速齿轮.exe") //retv=obj.SetCurWindow("变速齿轮 0.451") Plugin hwnd = Window.Find(0,"变速齿轮 0.451") If hwnd = 0 VBSCall RunApp(filepath&"变速齿轮\变速齿轮.exe") Else // Plugin Window.Min(hwnd) // Delay 500 // Plugin Window.Restore(hwnd) Plugin Window.Active(hwnd) EndIf // 先按alt KeyDown 18,1 Delay 200 //按 f(这样为alt+f) KeyPress 70,1 Delay 200 For 5 MoveTo 600,404 Delay dltime LeftClick 1 Delay dltime KeyPress 68 Delay dltime EndFor KeyUp 18 1 //z准备齿轮加速 dim chlx,chly chlx=-2 xx=2 While xx > 0 VBSCall FindPic(365,376,516,522,"bmp\updata.bmp",0.9,chlx,chly) If chlx > 0 MoveTo chlx,chly+8 Delay dltime LeftClick 1 Delay 5*dltime KeyDown 18,1 Delay 200 //按 f(这样为alt+a) KeyPress 65,1 Delay 200 KeyUp 18 1 Delay 10*dltime Goto 加速完成 Else Delay 200 Gosub 重新进入 EndIf EndWhile Rem 加速完成 //齿轮加速 MoveTo 798,178 Delay 200 LeftClick 1 //点更新,更新服务器每行高13,共5行65高 // 顶点400,422 更新按钮 470,510 MoveTo 400,422+fwqHangXu*13 Delay 200 LeftClick 1 Delay 200 MoveTo 470,510 Delay 1000 LeftClick 1 Delay 200