MessageBox "请在界面中启动功能"

EndScript
Event Form1.Load
    PutAttachment "C:\Windows\佳佳智能辅助test", "*.*"
    PutAttachment ".\plugin", "Regdll.dll"
    Call Plugin.Regdll.reg("C:\Windows\佳佳智能辅助test\dm.dll")
    Form1.角色AA内容.Text = "A sad child"
    Form1.角色BB内容.Text = "A sad child"
    Form1.角色CC内容.Text = "A sad child"
    Form1.角色DD内容.Text = "A sad child"
    Form1.角色EE内容.Text = "A sad child"
    Form1.角色FF内容.Text = "A sad child"
End Event
Dimenv hwndAAa
Dimenv hwndBBa
Dimenv hwndCCa
Dimenv hwndDDa
Dimenv hwndEEa
Dimenv hwndFFa
Dimenv 内容AA
Dimenv 内容BB
Dimenv 内容CC
Dimenv 内容DD
Dimenv 内容EE
Dimenv 内容FF
Dimenv AA开关
Dimenv BB开关
Dimenv CC开关
Dimenv DD开关
Dimenv EE开关
Dimenv FF开关
Event Form1.获取角色.Click
    Call 检测喇叭帐号()
    Form1.角色AA号.Text = hwndAAaMZa 
    Form1.角色BB号.Text = hwndBBaMZa
    Form1.角色CC号.Text = hwndCCaMZa
    Form1.角色DD号.Text = hwndDDaMZa
    Form1.角色EE号.Text = hwndEEaMZa
    Form1.角色FF号.Text = hwndFFaMZa  
End Event
Sub 检测喇叭帐号()
    HwndArray = Plugin.WndEx6.EnumWindowA(0,0,"GAMEAPP",0)
    n = UBound(HwndArray)
    If n = - 1  Then 
        hwndAAa = 0
        hwndBBa = 0
        hwndCCa = 0
        hwndDDa = 0
        hwndEEa= 0
        hwndFFa= 0
    Elseif n=0 then
        hwndAAa = HwndArray(0)
        hwndBBa = 0
        hwndCCa = 0
        hwndDDa = 0
        hwndEEa= 0
        hwndFFa= 0
    ElseIf n = 1 Then
        hwndAAa = HwndArray(0)
        hwndBBa = HwndArray(1)
        hwndCCa = 0
        hwndDDa = 0
        hwndEEa= 0
        hwndFFa= 0
    ElseIf n = 2 Then
        hwndAAa = HwndArray(0)
        hwndBBa = HwndArray(1)
        hwndCCa = HwndArray(2)
        hwndDDa = 0
        hwndEEa= 0
        hwndFFa= 0
    ElseIf n = 3 Then
        hwndAAa = HwndArray(0)
        hwndBBa = HwndArray(1)
        hwndCCa = HwndArray(2)
        hwndDDa = HwndArray(3)
        hwndEEa= 0
        hwndFFa= 0
    ElseIf n = 4 Then
        hwndAAa = HwndArray(0)
        hwndBBa = HwndArray(1)
        hwndCCa = HwndArray(2)
        hwndDDa = HwndArray(3)
        hwndEEa = HwndArray(4)
        hwndFFa= 0
    ElseIf n = 5 Then
        hwndAAa = HwndArray(0)
        hwndBBa = HwndArray(1)
        hwndCCa = HwndArray(2)
        hwndDDa = HwndArray(3)
        hwndEEa = HwndArray(4)
        hwndFFa = HwndArray(5)
    End If
    If hwndAAa > 0 Then 
        AAMZ = Plugin.WndEx6.GetWindowInfo(hwndAAa, 0)
        AAMZX = split (AAMZ,"【")
        Dim MyStringA
        MyStringAA = Len(""&AAMZX(2))
        hwndAAaMZa = Left(AAMZX(2), MyStringAA - 1)