路径 = Plugin.Sys.GetDir(0)
PutAttachment "路径","显示桌面.scf"

延时 = 300
宽 = Plugin.Sys.GetScRX()
高 = Plugin.Sys.GetScRY()
K = Lib.图像.查找屏幕图片数量(100,高-40,宽,高,"Attachment:\判断.bmp",0.9)
If K>6 or k=0 Then
    Call Plugin.Media.Beep(900, 200)
    MessageBox "没有检测到窗口或者超过可用开数"
    EndScript
End if
名字=InputBox("请输入大号角色昵称，检测到"&K&"开~"&TTTT&"")
RunApp "路径\显示桌面.scf"
RunApp "路径\显示桌面.scf"
Dim a(6)
i = 0
For k
    Rem 寻找    
    Call Plugin.Msg.Tips("正在寻找第"&i&"个号句柄（请不要最小化窗口）:"&TTTT)
    FindPic 0,0,1024,768,"Attachment:\飞车.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        SaveMousePos
        MoveTo intX, intY
        a(i) = Plugin.Window.MousePoint()
        RestoreMousePos
    Else 
        Goto 寻找    
    End If
    HH = a(i)
    //下面这句是判断窗口是否打开
    Window1 = Plugin.Window.IsWindow(HH)
    If Window1 = 1 Then
        //窗口打开
        sClass = Plugin.Window.GetClass(HH)
        //飞车为"GAMEAPP"
        sText = Plugin.Window.GetText(HH)
        //飞车为"QQ飞车公测版 Beta31 Build05 【大区】 【角色名字】"
        Call Plugin.Msg.Tips("标题：" & sText & "类名:" & sClass & "" &Hwnd)
    Else 
        //窗口没有打开
        EndScript
    End If
    For 3
        rect=Plugin.Window.GetClientRect(HH)
        If StrComp(Right(rect,7),"640|480")<>0 Then
            Call Plugin.Window.Active(HH)
            Call Plugin.Window.SetText(HH,"改变窗口大小ing")
            Delay 100
            KeyPress "F8", 1
            Delay 700
        End If 
    Next
    Call Plugin.Window.Move(HH, 0, 0)
    Call Plugin.Window.Min(HH)
    If sText = "QQ飞车公测版 Beta31 Build05 【电信区】 【" & 名字 & "】" or sText = "QQ飞车公测版 Beta31 Build05 【电信二】 【" & 名字 & "】" or sText = "QQ飞车公测版 Beta31 Build05 【网通区】 【" & 名字 & "】" Then
        Call Plugin.Window.SetText(HH, 名字)             
        remember=i
    Else 
        Call Plugin.Window.SetText(HH,"小号")
    End If    
    i=i+1
    Delay 100

Next

Call Plugin.Window.Restore(a(remember))
Call Plugin.Window.Move(a(remember), 宽-650, 0)
Call Plugin.Msg.Tips("进入主控制循环区鼠标移动到最左右调整切换频率")
Rem 开始
c=0
For k
    FindPic 0,0,2000,2000,"Attachment:\差.bmp",0.8,差X,差Y
    If 差X > 0 And 差Y > 0 Then
        SaveMousePos
        MoveTo 差X, 差Y        
        LeftClick 1
        RestoreMousePos
    End If
    Call 临时调整()
    b = 0    
    For K
        If b = c Then
        Else 
            Call Plugin.Window.Min(a(b))
        End If        
        b = b + 1    
    Next

    Call Plugin.Window.Restore(a(c))


    rect=Plugin.Window.GetClientRect(a(c))
    r=Split(rect,"|"):x=r(0):y=r(1)
    Call 准备()
    If c=remember Then
        Call Plugin.Window.SetText(a(remember), 名字)        
    Else 
        Call Plugin.Window.SetText(a(c),"辅助号")        
    End If