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.106 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. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. sevGraph (VB/VBA) Grafische Auswertungen Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! |
||||||||||||||||
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. |