Runtime.InteropServices
Public Class Form1
'Variablen:
Private Structure Connection
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
End Structure
Dim Server As TcpListener
Dim client As New TcpClient
Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 4000)
Dim funktion As String( ...
Verfasst am: 17.09.2010, 17:51 Aufrufe: 840
... address
'</remarks>
Public Shared Sub WakeUp(ByVal macAddress As String)
Dim s As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
s.SetSocketOption(SocketOptionLevel.Socket,
SocketOptionName.Broadcast, 1)
Dim Message As Byte() = GetMagicPacket(macAddress)
Dim IPEP As IPEndPoint ...
Verfasst am: 10.06.2010, 15:10 Aufrufe: 553
Hallo Zusammen,
ich bin gerade dabei ein Programm zu schreiben, das Daten per UDP senden und empfangen kann (Client). Der Server ist eine Box, die auf bestimmte Datenpakete antwortet und auch zyklisch Daten sendet.
Über den folgenden Code kann ich Daten senden und direkt die Antwort empfangen.
Dim myEndPoint As New IPEndPoint(IPAddress.Parse(IP_XCP), 9050)
Dim myUdpClient = New UdpClient(IP_XCP, 9050)
...
Verfasst am: 09.06.2010, 20:51 Aufrufe: 970
... ss"
Dim startTaskmgr As String = "/functionTaskmgr"
Dim EndgetProzess As String = "/endgetprozess"
Dim prozessbuffer As String
Dim readbuffer As String
Dim taskmgrbuffer As String
Dim adresse As String
Dim port As Integer = 4000
Dim stream As NetworkStream
Dim Server As TcpListener
Public client As New TcpClient
Dim ipendpoint ...
[ Time: 3.2869s ][ Queries: 66 (3.2258s) ][ GZIP on - Debug on ]