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, 333)
    Call Plugin.Bkgnd.LeftClick(h, 54, 333)
      
    Rem J1
    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 j1
End Sub
Sub 幸运币2000


    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, 460)
    Call Plugin.Bkgnd.LeftClick(h, 54, 460)
      
    Rem J2
    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 j2
End Sub	
Event Form1.Button25.Click
    StopThread 幸运ID
    Call Plugin.Msg.Tips("幸运币抽奖正常开启")
End Event
Event Form1.Button24.Click
    幸运ID = BeginThread(幸运币200)

End Event
Event Form1.幸运币.SelectChange
	
    If Form1.幸运币.ListIndex = 0 Then 

        Call Plugin.Msg.Tips("请选择")


    End If
    If Form1.幸运币.ListIndex = 1 Then 
        幸运ID = BeginThread(幸运币200)

        Call Plugin.Msg.Tips("幸运币抽奖正常开启")


    End If
        If Form1.幸运币.ListIndex = 2 Then 
        幸运ID = BeginThread(幸运币500)

        Call Plugin.Msg.Tips("幸运币抽奖正常开启")


    End If
        If Form1.幸运币.ListIndex = 3 Then 
        幸运ID = BeginThread(幸运币2000)

        Call Plugin.Msg.Tips("幸运币抽奖正常开启")


    End If
End Event
Sub 掉房
    Do
FindPic 0,0,1024,768,"Attachment:\掉房.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
		Call 掉线报警
End If
    Loop	
End Sub
Sub 掉线
    Do
    FindPic 0,0,1024,768,"Attachment:\掉线.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
	Call 掉线报警
End If
    Loop	
End Sub

//PK人
Sub PK人1()