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