ABACOM - ELECTRONIC SOFTWARE

Code: Alles auswählen

Imports System.Net.Sockets
Imports System.Net
Imports System.Text
 Private Sub Button1_Click_2(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'Einen UDP Net Socket erstellen
        Dim clientUDP As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
        'Ip Adresse des netPIO
        Dim netPIO_IP As IPAddress
        Dim bytes2(200) As Byte
        'einen IPEndPoint erstellen von jeder IP
        'Creates an IPEndPoint to record the IP address and port number of the sender. 
        'The IPEndPoint will allow you to read datagrams sent from any source.
        Dim ep As New IPEndPoint(IPAddress.Any, 0)
        netPIO_IP = IPAddress.Parse("192.168.2.144")
        'verbinden
        clientUDP.Connect(New IPEndPoint(netPIO_IP, 37155))
        'Befehl senden
        clientUDP.Send(System.Text.Encoding.ASCII.GetBytes("GETAUX"))
        'Antwort abfangen
        clientUDP.ReceiveFrom(bytes2, ep)
        'Bytes zum String umwandeln
        Dim ReceiveStr As String = Encoding.ASCII.GetString(bytes2)
        clientUDP.Close()
        MsgBox(ReceiveStr)
    End Sub

Code: Alles auswählen

Imports System.Net.Sockets
Imports System.Net
Imports System.Text
 
  Private Shared sck As Socket
    '### Code to send data via UDP begin ###
    Public Shared Sub SendToDevice()
        Dim command As String = "LEDTOGGLE"
        Connect()
        sck.Send(System.Text.Encoding.ASCII.GetBytes(command))
        sck.Close()
    End Sub
    Private Shared Sub Connect()
        Dim clientIPAddress As IPAddress = IPAddress.Parse("192.168.2.144")
        sck = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
        sck.Connect(New IPEndPoint(clientIPAddress, 37155))
    End Sub
    Private Sub cmdSendData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSendData.Click
        SendToDevice()
    End Sub
    '### Code to send data via UDP end ###