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