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