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, 415)
    Call Plugin.Bkgnd.LeftClick(h, 388, 415)
    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.Button43.Click

    创建房ID = BeginThread(创建房)
End Event

Event Form1.边镜.SelectChange
    If Form1.边镜.ListIndex = 0 Then 
        MessageBox "请选择！"

    End If
    If Form1.边镜.ListIndex = 1 Then 
        高ID = BeginThread(高级)

    End If
    If Form1.边镜.ListIndex = 2 Then 
        低ID = BeginThread(初级)

    End If
    If Form1.边镜.ListIndex = 3 Then 
        专ID = BeginThread(专)

    End If
End Event

Sub 幸运币200


    Dim h
    h = Plugin.Window.Find("GAMEAPP", 0)
    Call Plugin.Window.Move(h, 0, 0)
    Delay 1000
    Call Plugin.Msg.Tips("幸运币抽奖正常开启")
       Call Plugin.Bkgnd.MoveTo(h, 646, 90)
    Call Plugin.Bkgnd.LeftClick(h, 646, 90)
     Delay 1000
           Call Plugin.Bkgnd.MoveTo(h, 54, 200)
    Call Plugin.Bkgnd.LeftClick(h, 54, 200)
      
    Rem J
    Call Plugin.Bkgnd.MoveTo(h, 408, 305)
    Call Plugin.Bkgnd.LeftClick(h, 408, 305)
    Delay 1000
    Call Plugin.Bkgnd.MoveTo(h, 440, 460)
    Call Plugin.Bkgnd.LeftClick(h, 440, 460)
    Goto j
End Sub
Sub 幸运币500