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开始刷喇叭