//第9个招募号//
    Call Plugin.Bkgnd.MoveTo(h, 600, 410)
    Call Plugin.Bkgnd.LeftClick(h, 600, 410)
    Delay 500


    Call Plugin.Bkgnd.MoveTo(h, 375, 410)
    Call Plugin.Bkgnd.LeftClick(h, 375, 410)
    Delay 1000
    //第10个招募号//
    Call Plugin.Bkgnd.MoveTo(h, 600, 445)
    Call Plugin.Bkgnd.LeftClick(h, 600, 445)
    Delay 500


    Call Plugin.Bkgnd.MoveTo(h, 375, 410)
    Call Plugin.Bkgnd.LeftClick(h, 375, 410)
    Delay 1000

	
    Call Plugin.Msg.Tips("招募完成，请继续游戏！")	
End Sub

Event Form1.Button39.Click
    招募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 1000

    Call Plugin.Bkgnd.MoveTo(h, 786, 418)
    Call Plugin.Bkgnd.LeftClick(h, 786, 418)
    Delay 500
    Call Plugin.Bkgnd.MoveTo(h, 315, 124)
    Call Plugin.Bkgnd.LeftClick(h, 315, 124)
    Delay 500
    For 5

        Call Plugin.Bkgnd.MoveTo(h, 600, 488)
        Call Plugin.Bkgnd.LeftClick(h, 600, 488)
        Delay 5000

        Call Plugin.Bkgnd.MoveTo(h, 566, 200)
        Call Plugin.Bkgnd.LeftClick(h, 566, 200)
        Delay 500
    Next

End Sub
Sub 扔瓶()


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

    Call Plugin.Bkgnd.MoveTo(c, 786, 418)
    Call Plugin.Bkgnd.LeftClick(c, 786, 418)
    Delay 500
    Call Plugin.Bkgnd.MoveTo(c, 305, 293)
    Call Plugin.Bkgnd.LeftClick(c, 305, 293)
    Delay 500
    Rem 扔
    Call Plugin.Bkgnd.MoveTo(c, 305, 293)
    Call Plugin.Bkgnd.LeftClick(c, 305, 293)
    Delay 500
    
    
     Call Plugin.Window.SendKeyPress(c, 101)
   Delay 200
  Call Plugin.Window.SendKeyPress(c, 98)
  Delay 200
    Call Plugin.Window.SendKeyPress(c, 96)
    Delay 200
      Call Plugin.Window.SendKeyPress(c, 97)
      Delay 200
        Call Plugin.Window.SendKeyPress(c, 99)
        Delay 200
          Call Plugin.Window.SendKeyPress(c, 97)
          Delay 200
            Call Plugin.Window.SendKeyPress(c, 100)
            Delay 200
        Call Plugin.Bkgnd.MoveTo(c, 540, 510)
    Call Plugin.Bkgnd.LeftClick(c, 540, 510)
    Delay 4000
            Call Plugin.Bkgnd.MoveTo(c, 427, 402)
    Call Plugin.Bkgnd.LeftClick(c, 427, 402)        
    
    Delay 500
            Call Plugin.Bkgnd.MoveTo(c, 427, 402)
    Call Plugin.Bkgnd.LeftClick(c, 427, 402)
    Goto 扔
End Sub