Var007=DropList{是:1|否:0}=0 捕捉精灵
UserVar Var006=DropList{公测:0|内测:1}=1 内测
UserVar Var005=DropList{标准:0|大个精灵:1}=1 恢复修正
UserVar Var1111=DropList{是:1|否:2}=2 调试
UserVar Var1114=DropList{否:10|是:0}=0 带小弟
Var1114_temp =  Var1114
UserVar Var3=DropList{1:0|11:1|21:2|31:3|41:4}=0 开始楼层
UserVar Var_QD=DropList{重新:1|继续:2|双号:3}=1 启动
//====================================用户参数
VBS user_name=Array(A,B)
VBS user_nono=Array(0,0,1,0,0,0,0,0)
VBS user_pass_word=Array("A","B")
UserVar Var_user=DropList{循环:0|A:1|B:2}=0 选择用户
UserVar Var_user01=DropList{循环:0|A:1|B:2}=0  第二用户
//====================================用户参数
UserVar Var_mubiao=DropList{勇者塔:0|火星:1|克洛斯星:2|云霄星:3|海洋星一层:4|基地:5|D:6|停止:99}=1 选择练功地点
UserVar Var_ceng=DropList{一层:1|二层:2|三层:3|四层:4}=2 详细地点二
Var_ceng=cint(Var_ceng)
UserVar Var1=1234 攻击顺序
UserVar Var9=100  挂机分钟
UserVar time101=500 延时
UserVar Var2=10 技能次数
Rem 屏幕颜色深度
Plugin GET_Col=Sys.GetScDep()
If GET_Col=16
Else 
    MessageBox "屏幕颜色深度为" & GET_Col & "位色，请改为16位色"
    Goto 屏幕颜色深度
EndIf 
riji=0
buxue=cint(var2)
time101=cint(time101)
Var1_tmp=var1
Var1=left(var1,4)
Var1=left(var1,3) & "," & right(var1,1)
Var1=left(var1,2) & "," & right(var1,3)
Var1=left(var1,1) & "," & right(var1,5)
var01=Split(var1,",")
var3=cint(var3)
var006=cint(var006)
//挂机时间
var9=cint(var9)*60
If var9 < 0
    var9=3600
EndIf 
DiDian = Var_mubiao & Var_ceng
Startime=timer
If Var_QD="3"
    If Var_user=Var_user01
        MessageBox "双号不能一样！！"
        Goto END
    EndIf 
    VBSCall RunApp("R:\Maxthon\Maxthon.exe")
EndIf 
Var_user=Cint(Var_user)-1
If DiDian = "11"
    MessageBox "火星一层火贝：练特防拣火焰元素"
ElseIf DiDian = "12"
    MessageBox "火星二层吉尔：练特功拣熔岩晶体"
ElseIf DiDian = "41"
    MessageBox "海洋星一层贝尔：练特防拣水之精华"
EndIf 
Delay 1000
Gosub CX.读句柄
For var006*99999
    Gosub CX.目的地
EndFor 
If Var_QD= "2"
    Gosub CX.位置判断
    If txt_record = "0"
        Var_QD = "1"
    EndIf 
ElseIf Var_QD = "3"
    KKK = 0
EndIf 
Rem 打开页面
If Var_QD = "1" or Var_QD = "3"
    address="http://www.51seer.com/Client.swf?sign=undefined&sid=undefined"
    //address="http://www.51seer.com/"
    Set ie=CreateObject("InternetExplorer.application")
    ie.Visible=True
    ie.Navigate   address
    i=50
    While ie.readystate < 4 and i>1
        Delay 200
        i=i-1
    EndWhile 
    Set ie=Nothing
    Delay 1000
    //下面这句是得到当前最前面的窗口句柄
    Plugin Hwnd01 = Window.Foreground()
    //下面这句是移动窗口到(0, 0)位置
    Plugin Window.Move(Hwnd01, 0, 0)
    Delay 200
    Plugin Window.Size(Hwnd01,960, 560)
    MoveTo 100,10
    //下面这句是得到鼠标指向的窗口句柄
    txt = Hwnd01
    VBS filename="..\程序句柄.txt"
    Gosub CX.句柄_02