高ID = BeginThread(高级)
End Event
//
Sub 暴风任务()
	
    Dim h
    h = Plugin.Window.Find("GAMEAPP", 0)
    Call Plugin.Window.Move(h, 0, 0)
    Delay 1000

    Rem gg

    Call Plugin.Bkgnd.MoveTo(h, 676, 550)
    Delay 800
    Call Plugin.Bkgnd.LeftClick(h, 676, 550)
    Delay 1000
    Call Plugin.Bkgnd.MoveTo(h, 334, 406)
    Delay 800
    Call Plugin.Bkgnd.LeftClick(h, 334, 406)
    Delay 1000


    Call Plugin.Bkgnd.MoveTo(h, 430, 413)
    Delay 3000
    Call Plugin.Bkgnd.LeftClick(h, 430, 413)
    Delay 1000

    Goto gg
		
End Sub
Event Form1.Button28.Click
    暴风ID = BeginThread(暴风任务)
    Call Plugin.Msg.Tips("自动暴风任务已开启，请一陪观看！")
End Event
Event Form1.Button31.Click
    Call Plugin.Msg.Tips("请确定暴风任务是否关闭，如未关闭请按F12关闭！")
    StopThread 暴风ID
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 200 
   call  Plugin.Bkgnd.MoveTo(w, 458, 270)
      Call Plugin.Bkgnd.LeftClick(w, 458, 270)
    Delay 200
      Call Plugin.Bkgnd.MoveTo(w, 392, 368)
   Call Plugin.Bkgnd.MoveTo(w, 391, 369)
    Delay 200
        Call Plugin.Bkgnd.MoveTo(w, 507, 366)
           Call Plugin.Bkgnd.MoveTo(w, 506, 366)
           
      call Plugin.Bkgnd.MoveTo(w, 507, 366)
      Call Plugin.Bkgnd.LeftClick(w, 507, 366)
    Delay 200  
      call Plugin.Bkgnd.MoveTo(w, 336, 301)
      Call Plugin.Bkgnd.LeftClick(w, 336, 301)
    Delay 200  

    Call Plugin.Window.SendKeyPress(w, 96)
      call Plugin.Bkgnd.MoveTo(w, 356, 408)
      Call Plugin.Bkgnd.LeftClick(w, 356, 408)
    Delay 1500
    
      call Plugin.Bkgnd.MoveTo(w, 145, 512)
      Call Plugin.Bkgnd.LeftClick(w, 145, 512)
    Delay 200
          call Plugin.Bkgnd.MoveTo(w, 667, 82)
      Call Plugin.Bkgnd.LeftClick(w, 667, 82)
    Delay 200
             call Plugin.Bkgnd.MoveTo(w, 585, 25)
      Call Plugin.Bkgnd.LeftClick(w, 585, 25)
    Delay 200
               call Plugin.Bkgnd.MoveTo(w, 214, 78)
      Call Plugin.Bkgnd.LeftClick(w, 214, 78)
    Delay 500
                 call Plugin.Bkgnd.MoveTo(w, 680, 424)
      Call Plugin.Bkgnd.LeftClick(w, 680, 424)

    

    Delay 500
                        call Plugin.Bkgnd.MoveTo(w, 270, 243)
      Call Plugin.Bkgnd.LeftClick(w, 270, 243)
    Delay 20
                         call Plugin.Bkgnd.MoveTo(w, 342, 495)
      Call Plugin.Bkgnd.LeftClick(w, 342, 495)
    Delay 20
    Call Plugin.Msg.Tips("自动建舞蹈房间已完成，进房间密码为0！请检测是否为娃娃脸，飞车舞蹈！")


End Sub
Event Form1.舞蹈房.Click