SetSimMode 2

Dim IsDenglu
Dim ZhangHao,ClZhangHao,ClMiMa
UserVar VarZhanghao="0" "设置帐号文件路径"

HwndEx = Plugin.Window.Search("征途2")

//下面这句用于分割字符串,将获得的句柄组分割
MyArray = Split(HwndEx, "|")

If UBound(MyArray) > 0 Then 
    k=0
    For UBound(MyArray)
        Call Plugin.Window.Restore(MyArray(k))
        Call Plugin.Window.Active(MyArray(k))
        sRect = Plugin.Window.GetClientRect(MyArray(k))
        MyArrayClinet = Split(sRect, "|")
        If UBound(MyArrayClinet) >0 Then 
            //下面这句将字符串转换成数值
            L = Clng(MyArrayClinet(0)): T = Clng(MyArrayClinet(1))
            R = Clng(MyArrayClinet(2)) : B = Clng(MyArrayClinet(3))
            //Call 查找包裹
            Delay  1000
            Call 是否在登陆界面
            If IsDenglu = 1 Then 
                //Call 输入帐号
                Call 读取帐号文件
                Call 原始帐号处理(ZhangHao)
                Call 输入帐号(ClZhangHao, ClMiMa)
        	
            End If
        
        End If
        k=k+1
    Next
End If

EndScript
Function 原始帐号处理(x)
	
    clstr = Split(x, ",")
    zx = clstr(0)
    mx = clstr(1)
    ClZhangHao = ""
    ClMiMa = ""
    cstnum=1
    If len(zx) > 0 Then 
        For len(zx)
			
            addstr=Mid(""&zx,cstnum,1)
            ClZhangHao = "" & ClZhangHao & "" & addstr &","
            cstnum=cstnum+1
        Next
        //ClZhangHao=""&ClZhangHao&","
    End If
    cstnum=1
    If len(mx) > 0 Then 
        For len(mx)
			
            addstr=Mid(""&mx,cstnum,1)
            ClMiMa = "" & ClMiMa & "" & addstr &","
            cstnum=cstnum+1
        Next
        //ClMiMa=""&ClMiMa&","
    End If
    //MessageBox ""&ClMiMa
End Function
Function 读取帐号文件
	
    Call 读取帐号文件基本数据
    Call 读取第几个帐号文件(ZhangHaoThis)
    ZhangHaoThis = ZhangHaoThis + 1
    Call 修改帐号文件游标
End Function
Function 修改帐号文件游标
	
    Call Plugin.File.WriteINI("Command", "this", ""&ZhangHaoThis, VarZhanghao)
End Function
Function 读取帐号文件基本数据
    ZhangHaoMax = Plugin.File.ReadINI("Command", "max", VarZhanghao)
    ZhangHaoThis = Plugin.File.ReadINI("Command", "this", VarZhanghao)
End Function
Function 读取第几个帐号文件(x)
	
    If x > ZhangHaoMax Then 
        MessageBox "帐号登陆完毕"
        EndScript
    End If
    ZhangHao = Plugin.File.ReadINI("Command", "zh" & x, VarZhanghao)
    //Msgbox "得到一个配置文件键值为："&ZhangHao  
End Function
Function 读取第几行帐号文件(x)
    zhx = 0
    fileHandle = Plugin.File.OpenFile("" & VarZhanghao)
    filelineMax=""
    For x
        fileline = Plugin.File.ReadLine(fileHandle)
        Call Plugin.File.SeekFile(fileHandle, Len(filelineMax) + zhx*1)