舞蹈房间ID = BeginThread(舞蹈房间)
    Call Plugin.Msg.Tips("自动创建双人舞房间已开启！")
End Event
Sub 创建房间()
    Dim h
    h = Plugin.Window.Find("GAMEAPP", 0)
    Call Plugin.Window.Move(h, 0, 0)
    Delay 500

    Rem J
    Call Plugin.Bkgnd.MoveTo(h, 175, 25)
    Call Plugin.Bkgnd.LeftClick(h, 175, 25)
    Delay 500

    Call Plugin.Bkgnd.MoveTo(h, 458, 270)
    Call Plugin.Bkgnd.LeftClick(h, 458, 270)
    Delay 500

    Call Plugin.Bkgnd.MoveTo(h, 388, 444)
    Call Plugin.Bkgnd.LeftClick(h, 388, 444)
    Delay 500

    Call Plugin.Bkgnd.MoveTo(h, 336, 310)
    Call Plugin.Bkgnd.LeftClick(h, 336, 310)
    Delay 500

    Call Plugin.Window.SendKeyPress(h, 96)


    Call Plugin.Bkgnd.MoveTo(h, 190, 442)
    Call Plugin.Bkgnd.LeftClick(h, 190, 442)
    Delay 500

    Call Plugin.Bkgnd.MoveTo(h, 353, 404)
    Call Plugin.Bkgnd.LeftClick(h, 354, 404)
    Delay 1000
    //房间内了
    Call Plugin.Bkgnd.MoveTo(h, 115, 160)
    Call Plugin.Bkgnd.LeftClick(h, 115, 160)
    Delay 1000

    Call Plugin.Bkgnd.MoveTo(h, 400, 140)
    Call Plugin.Bkgnd.LeftClick(h, 400, 140)
    Delay 500

    Call Plugin.Bkgnd.MoveTo(h, 702, 450)
    Call Plugin.Bkgnd.LeftClick(h, 702, 450)
    Delay 500

    Call Plugin.Bkgnd.MoveTo(h, 534, 420)
    Call Plugin.Bkgnd.LeftClick(h, 534, 420)
    Delay 500



    Call Plugin.Bkgnd.MoveTo(h, 340, 500)
    Call Plugin.Bkgnd.LeftClick(h, 340, 500)
    Delay 500
	
    Call Plugin.Msg.Tips("自动创房换图已完成，进房间密码为0！")

End Sub
Event Form1.Button40.Click

    Call Plugin.Msg.Tips("自动创房换图已开启，请拉小号进房间！")

    房间ID=BeginThread  (创建房间)

End Event
Sub 改装车子()

    Dim h
    h = Plugin.Window.Find("GAMEAPP", 0)
    Call Plugin.Window.Move(h, 0, 0)
    Delay 1000

    Rem J
    Call Plugin.Bkgnd.MoveTo(h, 155, 550)
    Call Plugin.Bkgnd.LeftClick(h, 155, 550)
    Delay 100
    Call Plugin.Bkgnd.MoveTo(h, 360, 410)
    Call Plugin.Bkgnd.LeftClick(h, 360, 410)
    Delay 100
    Call Plugin.Bkgnd.MoveTo(h, 360, 410)
    Call Plugin.Bkgnd.LeftClick(h, 360, 410)

    Goto j


End Sub
Event Form1.Button32.Click

    改造ID = BeginThread(改装车子)
    Call Plugin.Msg.Tips("自动改造车已开启！")
End Event
Event Form1.Button33.Click
    Call Plugin.Msg.Tips("请确定自动改造是否关闭，如未关闭请按F12关闭！")
    StopThread 改造ID
End Event