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