Else 
        hwndAAaMZa = " "
    End If
    If hwndBBa > 0 Then 
        BBMZ = Plugin.WndEx6.GetWindowInfo(hwndBBa, 0)
        BBMZX = split (BBMZ,"【")
        Dim MyStringBB
        MyStringBB = Len(""&BBMZX(2))
        hwndBBaMZa = Left(BBMZX(2), MyStringBB - 1)
    Else 
        hwndBBaMZa = " "
    End If
    If hwndCCa > 0 Then 
        CCMZ = Plugin.WndEx6.GetWindowInfo(hwndCCa, 0)
        CCMZX = split (CCMZ,"【")
        Dim MyStringCC
        MyStringCC = Len(""&CCMZX(2))
        hwndCCaMZa = Left(CCMZX(2), MyStringCC - 1)
    Else 
        hwndCCaMZa = " "
    End If
    If hwndDDa > 0 Then 
        DDMZ = Plugin.WndEx6.GetWindowInfo(hwndDDa, 0)
        DDMZX = split (DDMZ,"【")
        Dim MyStringDD
        MyStringDD = Len(""&DDMZX(2))
        hwndDDaMZa = Left(DDMZX(2), MyStringDD - 1)
    Else 
        hwndDDaMZa = " "
    End If
    If hwndEEa > 0 Then 
        EEMZ = Plugin.WndEx6.GetWindowInfo(hwndEEa, 0)
        EEMZX = split (EEMZ,"【")
        Dim MyStringEE
        MyStringEE = Len(""&EEMZX(2))
        hwndEEaMZa = Left(EEMZX(2), MyStringEE - 1)
    Else 
        hwndEEaMZa = " "
    End If
    If hwndFFa > 0 Then 
        FFMZ = Plugin.WndEx6.GetWindowInfo(hwndFFa, 0)
        FFMZX = split (FFMZ,"【")
        Dim MyStringFF
        MyStringFF = Len(""&FFMZX(2))
        hwndFFaMZa = Left(FFMZX(2), MyStringFF - 1)
    Else 
        hwndFFaMZa = " "
    End If
End Sub
Sub AA开始刷喇叭()
//    Call Plugin.Window.Restore(hwndAAa)
//    AAckdx = 0
//    While AAckdx = 0
//        WinRectAA = Plugin.WndEx6.GetWindowInfo(hwndAAa,3)
//        AA宽 = WinRectAA(2) -  WinRectAA(0)
//        AA高 = WinRectAA(3) -  WinRectAA(1)
//        If AA宽 = 800 and AA高 = 600 Then
//            AAckdx = 1
//        Else 
//            AAckdx = 0
//            Delay 1000
//            Plugin.BGKM6.KeyClick hwndAAa,119
//        End If
        Delay 100
//    Wend
    Call Plugin.bgkms5.FakeWindowState(hwndAAa, 1)
    Plugin.BGKM6.LClick hwndAAa,380,447
    Delay 100
    Plugin.BGKM6.LClick hwndAAa,204,446
    Delay 100
    While AA开关= 1
        Call Plugin.Bkgnd.SendString(hwndAAa,"/C01【The use of permanent free】"&内容AA)
        Plugin.BGKM6.KeyClick hwndAAa, 13
        Call Plugin.Bkgnd.SendString(hwndAAa,"/C02【The use of permanent free】"&内容AA)
        Plugin.BGKM6.KeyClick hwndAAa, 13
        Call Plugin.Bkgnd.SendString(hwndAAa,"/C03【The use of permanent free】"&内容AA)
        Plugin.BGKM6.KeyClick hwndAAa, 13
        Call Plugin.Bkgnd.SendString(hwndAAa,"/C04【The use of permanent free】"&内容AA)
        Plugin.BGKM6.KeyClick hwndAAa, 13
        Call Plugin.Bkgnd.SendString(hwndAAa,"/C05【The use of permanent free】"&内容AA)
        Plugin.BGKM6.KeyClick hwndAAa, 13
        Call Plugin.Bkgnd.SendString(hwndAAa,"/C06【The use of permanent free】"&内容AA)
        Plugin.BGKM6.KeyClick hwndAAa, 13
        Call Plugin.Bkgnd.SendString(hwndAAa,"/C07【The use of permanent free】"&内容AA)
        Plugin.BGKM6.KeyClick hwndAAa, 13
        Call Plugin.Bkgnd.SendString(hwndAAa,"/C08【The use of permanent free】"&内容AA)
        Plugin.BGKM6.KeyClick hwndAAa, 13
        Call Plugin.Bkgnd.SendString(hwndAAa,"/C09【The use of permanent free】"&内容AA)
        Plugin.BGKM6.KeyClick hwndAAa, 13
        Call Plugin.Bkgnd.SendString(hwndAAa,"/C10【The use of permanent free】"&内容AA)
        Plugin.BGKM6.KeyClick hwndAAa, 13
    Wend
End Sub
Event Form1.AA开始.Click
    If hwndAAa > 0 Then 
        Form1.AA开始.Visible = 0
        Form1.AA停止.Visible = 1
        AA开关 = 1
        内容AA =Form1.角色AA内容.Text
        BeginThread AA开始刷喇叭