Public LocalHost As String = System.Net.Dns.GetHostName Public MyIP As IPAddress = (System.Net.Dns.Resolve(LocalHost).AddressList(0)) Public MyIP2 As String = Convert.ToString(MyIP) Public GroupIP As IPAddress = IPAddress.Parse("239.255.255.255") Public Bytes(2000) As Byte Public GroupEP As New IPEndPoint(GroupIP, 1001) Public Send As New UdpClient(GroupEP) Public Receive As New UdpClient(GroupEP) Delegate Sub Delegate1(ByVal SntPulseVar As String) Delegate Sub Delegate2(ByVal RePulseVar As String) Delegate Sub Delegate3(ByVal DelNodeVar As String) Public PulsePacket As String = (NodeNumber & " " & LocalHost & " " & MyIP2) Public PulseFrequency As Int32 Public InPulseStr As String Public InPulseByt As Object Public KillThread As Boolean Public T As Int32 Public NodeNumber As Int32 ''Frm Load'' Public Sub FrmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Send.JoinMulticastGroup(GroupIP, 1001) BtnDis.Enabled = False End Sub
Send.Send(Bytes, Bytes.Length, GroupEP) InPulseByt = Receive.Receive(GroupEP)
Public MyIP3 As IPAddress = IPAddress.Parse("192.168.1.255")