Hwnd = Plugin.Window.Find(0, "QQ飞车公测版 Beta42 Build06 【电信区】 【在这里输入小号的游戏名】")
Call Plugin.Window.Move(Hwnd, 650, 0)
Delay 200
Hwnd1 = Plugin.Window.Find(0, "QQ飞车公测版 Beta42 Build06 【电信区】 【在这里输入小号的游戏名】")
Call Plugin.Window.Move(Hwnd, 650, 0)
Delay 200
Hwnd1 = Plugin.Window.Find(0, "QQ飞车公测版 Beta432 Build06 【电信区】 【在这里输入小号的游戏名】")
Call Plugin.Window.Move(Hwnd, 650, 0)
Delay 200
Hwnd1 = Plugin.Window.Find(0, "QQ飞车公测版 Beta42 Build06 【电信区】 【在这里输入大号的游戏名】")
Call Plugin.Window.Move(Hwnd1, 0, 0)
Delay 100
Call Plugin.Window.Active(Hwnd1)
Delay 200
For 4
FindPic 0,0,1024,768,"Attachment:\888.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
Delay 100
LeftClick 1
End If
Next
Delay 200
FindPic 650,0,1024,768,"Attachment:\111.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
Delay 100
LeftClick 1
End If
Delay 200
FindPic 0,0,1024,768,"Attachment:\222.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
Delay 100
LeftClick 1
Delay 1000
FindPic 0,0,1024,768,"Attachment:\120.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
End If
End If
Delay 2000
BeginThread 线程1
BeginThread 线程2
BeginThread 线程3
BeginThread 线程4
Sub 线程1()
Rem A
Delay 100
KeyDown "W", 1
KeyPress "R", 1
KeyDown "W", 1
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000
KeyPress "R", 1
Delay 6000