Call Plugin.Bkgnd.MoveTo(w, 364, 408)
      Call Plugin.Bkgnd.LeftClick(w, 364, 408)
        Delay 100
    //房间内了
    Call Plugin.Bkgnd.MoveTo(w, 115, 160)
    Call Plugin.Bkgnd.LeftClick(w, 115, 160)
    Delay 1000

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

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

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



    Call Plugin.Bkgnd.MoveTo(w, 340, 500)
    Call Plugin.Bkgnd.LeftClick(w, 340, 500)
    Delay 500
	
           
    Call Plugin.Msg.Tips("自动创建房间已完成，进房间密码为0！请检测是否为老接管道！")


End Sub
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, 456, 273)
      Call Plugin.Bkgnd.LeftClick(w, 456, 273)
    Call Plugin.Bkgnd.MoveTo(w, 389, 394)
      Call Plugin.Bkgnd.LeftClick(w, 389, 394)
        Delay 100
        Delay 100
          Call Plugin.Bkgnd.MoveTo(w, 335, 312)
      Call Plugin.Bkgnd.LeftClick(w, 335, 312)
        Delay 100
       
 Call Plugin.Window.SendKeyPress(w, 96)
    Call Plugin.Bkgnd.MoveTo(w, 364, 408)
      Call Plugin.Bkgnd.LeftClick(w, 364, 408)
        Delay 100
    //房间内了
        Call Plugin.Bkgnd.MoveTo(w, 145, 515)
    Call Plugin.Bkgnd.LeftClick(w, 147, 515)
    Delay 100
        Call Plugin.Bkgnd.MoveTo(w, 662, 85)
    Call Plugin.Bkgnd.LeftClick(w, 662, 85)
    Delay 1000 
    Call Plugin.Bkgnd.MoveTo(w, 115, 160)
    Call Plugin.Bkgnd.LeftClick(w, 115, 160)
    Delay 1000

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

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

    Call Plugin.Bkgnd.MoveTo(w, 576, 241)
    Call Plugin.Bkgnd.LeftClick(w, 576, 241)
    Delay 500



    Call Plugin.Bkgnd.MoveTo(w, 340, 500)
    Call Plugin.Bkgnd.LeftClick(w, 340, 500)
    Delay 500
	
           
    Call Plugin.Msg.Tips("自动创建房间已完成，进房间密码为0！请检测是否为老接管道！")


End Sub