yz=0 "出现验证码报警几次" UserVar xz1=DropList{"是":"1"|"否":"0"}=1 "帐号1是否运行" UserVar zh1=0 "帐号1" UserVar mm1=0 "密码1" UserVar sp1=0 "帐号1程序运行速度(秒)" UserVar xz2=DropList{"是":"1"|"否":"0"}=1 "帐号2是否运行" UserVar zh2=0 "帐号2" UserVar mm2=0 "密码2" UserVar sp2=0 "帐号2程序运行速度(秒)" UserVar xz3=DropList{"是":"1"|"否":"0"}=1 "帐号3是否运行" UserVar zh3=0 "帐号3" UserVar mm3=0 "密码3" UserVar sp3=0 "帐号3程序运行速度(秒)" UserVar xz4=DropList{"是":"1"|"否":"0"}=1 "帐号4是否运行" UserVar zh4=0 "帐号4" UserVar mm4=0 "密码4" UserVar sp4=0 "帐号4程序运行速度(秒)" UserVar xz5=DropList{"是":"1"|"否":"0"}=1 "帐号5是否运行" UserVar zh5=0 "帐号5" UserVar mm5=0 "密码5" UserVar sp5=0 "帐号5程序运行速度(秒)" UserVar xz6=DropList{"是":"1"|"否":"0"}=1 "帐号6是否运行" UserVar zh6=0 "帐号6" UserVar mm6=0 "密码6" UserVar sp6=0 "帐号6程序运行速度(秒)" UserVar xz7=DropList{"是":"1"|"否":"0"}=1 "帐号7是否运行" UserVar zh7=0 "帐号7" UserVar mm7=0 "密码7" UserVar sp7=0 "帐号7程序运行速度(秒)" UserVar xz8=DropList{"是":"1"|"否":"0"}=1 "帐号8是否运行" UserVar zh8=0 "帐号8" UserVar mm8=0 "密码8" UserVar sp8=0 "帐号8程序运行速度(秒)" UserVar xz9=DropList{"是":"1"|"否":"0"}=1 "帐号9是否运行" UserVar zh9=0 "帐号9" UserVar mm9=0 "密码9" UserVar sp9=0 "帐号9程序运行速度(秒)" UserVar xz10=DropList{"是":"1"|"否":"0"}=1 "帐号10是否运行" UserVar zh10=0 "帐号10" UserVar mm10=0 "密码10" UserVar sp10=0 "帐号10程序运行速度(秒)" Rem 开始 If xz1=1 Then Delay 500 FindPic 0,0,1024,768,"Attachment:\三国图标.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX,intY Delay 500 LeftDoubleClick 1 Goto 程序运行1 End If MessageBox "没找到三国快捷" Goto 结束 Rem 程序运行1 Delay sp1*1000 MoveTo 866,484 LeftClick 1 Delay 1000 FindPic 0,0,1024,768,"Attachment:\网速不好.bmp",0.9,WSX,WSY If WSX > 0 And WSY > 0 Then Delay sp1*1000 MoveTo WSX+133,WSY+64 Delay sp1*1000 LeftClick 1 Delay sp1*1000 End If FindPic 0,0,1024,768,"Attachment:\选线了.bmp",0.9,intX1,intY1 If intX1 > 0 And intY1 > 0 Then Delay sp1*1000 Hwnd = Plugin.Window.Find(0, "QQ三国1.0Beta21Build4") Call Plugin.Window.Move(Hwnd, 0, 0) Delay sp1*1000 KeyPress "Enter", 1 Delay 500 Rem 输入帐号1 Delay 500 FindPic 0,0,800,600,"Attachment:\输入帐号.bmp",0.9,ZHX,ZHY If ZHX > 0 And ZHY > 0 Then MoveTo 361,274 LeftDoubleClick 1 Delay sp1*1000 SayString zh1 Delay 1000 moveto 359,300 LeftClick 1 Delay sp1*1000 SayString mm1 Delay 500 KeyPress "Enter", 1 Rem 进入1 Delay sp1*5000 FindPic 0,0,800,600,"Attachment:\输入验证码.bmp",0.9,YZX1,YZY1 If YZX1 > 0 And YZY1 > 0 Then For yz Beep Delay 1000 Next Call Plugin.Window.Min(Hwnd) Delay sp1*1000