Vor kurzem haben wir Ihnen ein Beispiel gezeigt, wie sich mit dem Winsock-Control Daten über das TCP/IP-Protokoll versenden und empfangen lassen. Das Winsock-Control unterstützt aber auch das UDP-Protokoll. Und wie sich Daten über das UDP-Protokoll austauschen lassen, erfahren Sie nachfolgend. Wieder werden zwei Programme benötigt. Aber diesmal gibt es keinen Server oder Client, denn beim UTP-Verfahren muss keiner der beiden Programme als erstes eine Verbindung aufbauen, bevor man Daten senden oder empfangen kann. Das ist wahrscheinlich auch der Hauptgrund, warum UTP ein nicht gerade sichers Verfahren ist, um Daten auszutauschen, denn:
Beim UTP-Verfahren muss folgende Informationen bekannt sein, ehe man einen Sendevorgang starten kann:
Der Server / Client.... Option Explicit Private Sub Form_Load() Dim nPort As Integer Dim sOwnIP As String ' UDP-Protokoll einstellen Winsock1.Protocol = sckUDPProtocol ' Port, der überwacht werden soll nPort = 12345 ' Eigene IP ermitteln sOwnIP = Winsock1.LocalIP ' Port an die IP "binden" Winsock1.Bind nPort, sOwnIP End Sub ' Daten senden Private Sub cmdSend_Click() ' Wurde kein Empfänger/IP eingegeben ' darf nicht gesendet werden If txtIP.Text = "" Then MsgBox "Bevor Sie senden, müssen Sie den Namen oder " & _ "die IP des Empfängers eingeben!" Else ' Fehlerbehandlung aktivieren On Error Goto Err_Handler With Winsock1 ' Portnummer, an der die Daten gesendet ' werden sollen .RemotePort = 12345 ' Name bzw. IP des Empfängers .RemoteHost = txtIP.Text ' Daten senden .SendData "Hallo Empfänger!" End With End If On Error Goto 0 Exit Sub Err_Handler: MsgBox "Fehler: " & Err.Number & vbCrLf & _ Err.Description End Sub ' Wenn Daten ankommen... Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim sData As String ' Die ankommenden Daten werden in einer Variable ' (sDaten) gespeichert... Winsock1.GetData sData ' ... und in einer MutliLine-TextBox ausgegeben With txtMessage .SelStart = Len(.Text) .SelText = sData End With End Sub Exakt das gleich Programm wird nun als Empfänger verwendet! Kopieren Sie das Programm auf 2 unterschiedlichen PCs in Ihrem LAN und starten es. Geben Sie anschließend den Rechnernamen bzw. die IP-Adresse des Empfängers in die TextBox txtIP ein und klicken auf den Button cmdSend. Jetzt sollte auf dem zweiten Rechner die Nachricht Hallo Empfänger erscheinen. Dieser Tipp wurde bereits 55.207 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
Neu! sevEingabe 3.0 Einfach stark! Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |