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