Rem C
    Plugin.BGKM6.LClick hwnd, 133, 298
    Delay 20
    Plugin.BGKM6.LClick hwnd, 376, 406
    Delay 20
    Plugin.BGKM6.LClick hwnd, 407, 497
    Delay 20
    Goto C
End Sub

Sub 道具2()
    hwnd = Plugin.WndEx6.GetForegroundFocus()
    Rem D
    Plugin.BGKM6.LClick hwnd, 278, 298
    Delay 20
    Plugin.BGKM6.LClick hwnd, 376, 406
    Delay 20
    Plugin.BGKM6.LClick hwnd, 407, 497
    Delay 20
    Goto D
End Sub

Sub 道具3()
    hwnd = Plugin.WndEx6.GetForegroundFocus()
    Rem E
    Plugin.BGKM6.LClick hwnd, 421, 298
    Delay 20
    Plugin.BGKM6.LClick hwnd, 376, 406
    Delay 20
    Plugin.BGKM6.LClick hwnd, 407, 497
    Delay 20
    Goto E
End Sub

Sub 道具4()
    hwnd = Plugin.WndEx6.GetForegroundFocus()
    Rem F
    Plugin.BGKM6.LClick hwnd, 128, 504
    Delay 20
    Plugin.BGKM6.LClick hwnd, 376, 406
    Delay 20
    Plugin.BGKM6.LClick hwnd, 407, 497
    Delay 20
    Goto F
End Sub

Sub 道具5()
    hwnd = Plugin.WndEx6.GetForegroundFocus()
    Rem C
    Plugin.BGKM6.LClick hwnd, 278, 504
    Delay 20
    Plugin.BGKM6.LClick hwnd, 376, 406
    Delay 20
    Plugin.BGKM6.LClick hwnd, 407, 497
    Delay 20
    Goto C
End Sub

Sub 道具6()

    hwnd = Plugin.WndEx6.GetForegroundFocus()
    Rem C
    Plugin.BGKM6.LClick hwnd, 415, 504
    Delay 20
    Plugin.BGKM6.LClick hwnd, 376, 406
    Delay 20
    Plugin.BGKM6.LClick hwnd, 407, 497
    Delay 20
    Goto C
End Sub

//////////////////////////////////////////////////////////////////
Event Form1.竞速.Click
 
    竞速房ID = BeginThread(竞速房)
End Event
Event Form1.道具.Click

   情侣房ID = BeginThread(情侣房)
End Event
Sub 竞速房()
    Dim w
    w = Plugin.Window.Find("GAMEAPP", 0)
    Call Plugin.Window.Move(w, 0, 0)
    Delay 500

    Rem J
    Call Plugin.Bkgnd.MoveTo(w, 175, 25)
      Call Plugin.Bkgnd.LeftClick(w, 175, 25)
        Delay 100   
    Call Plugin.Bkgnd.MoveTo(w, 460, 275)
      Call Plugin.Bkgnd.LeftClick(w, 460, 275)
        Delay 100
        Call Plugin.Bkgnd.MoveTo(w, 390, 395)
      Call Plugin.Bkgnd.LeftClick(w, 390, 395)
        Delay 100
          Call Plugin.Bkgnd.MoveTo(w, 335, 312)
      Call Plugin.Bkgnd.LeftClick(w, 335, 312)
        Delay 100  
 Call Plugin.Window.SendKeyPress(w, 96)