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