Else
        MsgBox "请输入飞车昵称"
    End If    
End Event
Event Form1.AA停止.Click
    Form1.AA开始.Visible = 1
    Form1.AA停止.Visible = 0
    AA开关 = 0
End Event
Sub BB开始刷喇叭()
//    Call Plugin.Window.Restore(hwndBBa)
   //  BBckdx = 0
   //  While BBckdx = 0
      //   WinRectBB = Plugin.WndEx6.GetWindowInfo(hwndBBa,3)
      //   BB宽 = WinRectBB(2) -  WinRectBB(0)
      //   BB高 = WinRectBB(3) -  WinRectBB(1)
       //  If BB宽 = 800 and BB高 = 600 Then
       //      BBckdx = 1
       //  Else 
         //    BBckdx = 0
         //    Delay 1000
        //     Plugin.BGKM6.KeyClick hwndBBa,119
       //  End If
        Delay 100
   //  Wend
    Call Plugin.bgkms5.FakeWindowState(hwndBBa, 1)
    Plugin.BGKM6.LClick hwndBBa,380,447
    Delay 100
    Plugin.BGKM6.LClick hwndBBa,204,446
    Delay 100
    While BB开关= 1
        Call Plugin.Bkgnd.SendString(hwndBBa,"/C01【The use of permanent free】"&内容BB)
        Plugin.BGKM6.KeyClick hwndBBa, 13
        Call Plugin.Bkgnd.SendString(hwndBBa,"/C02【The use of permanent free】"&内容BB)
        Plugin.BGKM6.KeyClick hwndBBa, 13
        Call Plugin.Bkgnd.SendString(hwndBBa,"/C03【The use of permanent free】"&内容BB)
        Plugin.BGKM6.KeyClick hwndBBa, 13
        Call Plugin.Bkgnd.SendString(hwndBBa,"/C04【The use of permanent free】"&内容BB)
        Plugin.BGKM6.KeyClick hwndBBa, 13
        Call Plugin.Bkgnd.SendString(hwndBBa,"/C05【The use of permanent free】"&内容BB)
        Plugin.BGKM6.KeyClick hwndBBa, 13
        Call Plugin.Bkgnd.SendString(hwndBBa,"/C06【The use of permanent free】"&内容BB)
        Plugin.BGKM6.KeyClick hwndBBa, 13
        Call Plugin.Bkgnd.SendString(hwndBBa,"/C07【The use of permanent free】"&内容BB)
        Plugin.BGKM6.KeyClick hwndBBa, 13
        Call Plugin.Bkgnd.SendString(hwndBBa,"/C08【The use of permanent free】"&内容BB)
        Plugin.BGKM6.KeyClick hwndBBa, 13
        Call Plugin.Bkgnd.SendString(hwndBBa,"/C09【The use of permanent free】"&内容BB)
        Plugin.BGKM6.KeyClick hwndBBa, 13
        Call Plugin.Bkgnd.SendString(hwndBBa,"/C10【The use of permanent free】"&内容BB)
        Plugin.BGKM6.KeyClick hwndBBa, 13
    Wend
End Sub
Event Form1.BB开始.Click
    If hwndBBa > 0 Then 
        Form1.BB开始.Visible = 0
        Form1.BB停止.Visible = 1
        BB开关 = 1
        内容BB =Form1.角色BB内容.Text
        BeginThread BB开始刷喇叭
    Else
        MsgBox "请输入飞车昵称"
    End If  
End Event
Event Form1.BB停止.Click
    Form1.BB开始.Visible = 1
    Form1.BB停止.Visible = 0
    BB开关 = 0
End Event
Sub CC开始刷喇叭()
   //  Call Plugin.Window.Restore(hwndCCa)
    // CCckdx = 0
    // While CCckdx = 0
      //   WinRectCC = Plugin.WndEx6.GetWindowInfo(hwndCCa,3)
      //   CC宽 = WinRectCC(2) -  WinRectCC(0)
      //   CC高 = WinRectCC(3) -  WinRectCC(1)
       // //  If CC宽 = 800 and CC高 = 600 Then
       //      CCckdx = 1
      //   Else 
     //        CCckdx = 0
            Delay 1000
      //       Plugin.BGKM6.KeyClick hwndCCa,119
     //    End If
     //    Delay 100
    // Wend
    Call Plugin.bgkms5.FakeWindowState(hwndCCa, 1)
     Plugin.BGKM6.LClick hwndCCa,380,447
     Delay 100
     Plugin.BGKM6.LClick hwndCCa,204,446
     Delay 100
    While CC开关= 1
        Call Plugin.Bkgnd.SendString(hwndCCa,"/C01【The use of permanent free】"&内容CC)
        Plugin.BGKM6.KeyClick hwndCCa, 13
        Call Plugin.Bkgnd.SendString(hwndCCa,"/C02【The use of permanent free】"&内容CC)
        Plugin.BGKM6.KeyClick hwndCCa, 13
        Call Plugin.Bkgnd.SendString(hwndCCa,"/C03【The use of permanent free】"&内容CC)
        Plugin.BGKM6.KeyClick hwndCCa, 13
        Call Plugin.Bkgnd.SendString(hwndCCa,"/C04【The use of permanent free】"&内容CC)
        Plugin.BGKM6.KeyClick hwndCCa, 13
        Call Plugin.Bkgnd.SendString(hwndCCa,"/C05【The use of permanent free】"&内容CC)