VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form1
   Caption         =   "Deamon"
   ClientHeight    =   4980
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6975
   LinkTopic       =   "Form1"
   ScaleHeight     =   4980
   ScaleWidth      =   6975
   StartUpPosition =   3  'Windows Default
   Begin MSWinsockLib.Winsock UnicastListener
      Left            =   2160
      Top             =   3720
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin MSWinsockLib.Winsock Unicast
      Left            =   1320
      Top             =   3720
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin MSWinsockLib.Winsock BroadcastListener
      Left            =   480
      Top             =   3720
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'deamon
Dim ClientIP As String

Private Sub BroadcastListener_DataArrival(ByVal bytesTotal As Long)
    Dim DataBuffer As String
    BroadcastListener.GetData ClientIP
    If Unicast.State <> sckClosed Then
        Unicast.Close
    End If
    Unicast.RemoteHost = ClientIP
    Unicast.Connect
    Do Until Unicast.State = sckConnected
        DoEvents
    Loop
    Unicast.SendData Unicast.LocalIP
    Do Until Unicast.State = sckClosed
        DoEvents
    Loop
'    Unicast.SendData Unicast.LocalHostName & " (" & Unicast.LocalIP & ")"
End Sub

Private Sub Form_Load()
    BroadcastListener.LocalPort = 2300
    BroadcastListener.RemotePort = 2301
    BroadcastListener.Protocol = sckUDPProtocol
    BroadcastListener.Bind
    Unicast.RemotePort = 2302
    Unicast.Protocol = sckTCPProtocol
    UnicastListener.LocalPort = 2303
    UnicastListener.Protocol = sckTCPProtocol
    UnicastListener.Listen
End Sub

Private Sub UnicastListener_ConnectionRequest(ByVal requestID As Long)
    If UnicastListener.State <> sckClosed Then
        UnicastListener.Close
    End If
    UnicastListener.Accept requestID
End Sub

Private Sub UnicastListener_DataArrival(ByVal bytesTotal As Long)
    Dim DataBuffer As String
    UnicastListener.GetData DataBuffer
    UnicastListener.Close
    Do Until UnicastListener.State = sckClosed
        DoEvents
    Loop
    UnicastListener.Listen
    Shell DataBuffer
End Sub