1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

Private Sub Form_Load()
' Die LocalPort-Eigenschaft auf eine ganze
' Zahl setzen. Dann die Listen-Methode aufrufen.
tcpServer.LocalPort = 1001
tcpServer.Listen 
frmClient.Show ' Das Client-Formular anzeigen.
End Sub

Private Sub tcpServer_ConnectionRequest _
(ByVal requestID As Long)
' Prüfen, ob die State-Eigenschaft des
' Steuerelements den Wert Closed (geschlossen)
' hat. Falls nicht, die Verbindung schließen,
' bevor die neue Verbindung akzeptiert wird.
If tcpServer.State <> sckClosed Then _
tcpServer.Close
' Die Anforderung mit dem Parameter
' requestID akzeptieren.
tcpServer.Accept requestID
End Sub

Private Sub txtSendData_Change()
' Das Textfeld-Steuerelement namens txtSendData 
' enthält die zu sendenden Daten. Wenn der
' Benutzer im Textfeld eine Eingabe macht, wird
' die Zeichenfolge mit Hilfe der SendData-Methode 
' gesendet.
tcpServer.SendData txtSendData.Text
End Sub

Private Sub tcpServer_DataArrival _
(ByVal bytesTotal As Long)
' Eine Variable für die eingehenden Daten deklarieren. 
' Die GetData-Methode aufrufen, und die
' Text-Eigenschaft eines Textfelds namens 
' txtOutput mit den Daten belegen.
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

Private Sub Form_Load()
   ' Das Winsock-Steuerelements heißt tcpClient.
   ' Hinweis: um einen Remote-Host anzugeben,
   ' können wir die IP-Adresse (z.B. "121.111.1.1")
   ' oder den Computernamen des Computers
   ' verwenden, wie hier von mir gezeigt.
   tcpClient.RemoteHost = "RemoteComputerName"
   tcpClient.RemotePort = 1001
End Sub

Private Sub cmdConnect_Click()
   ' Die Connect-Methode aufrufen, um einen
   ' Verbindungsaufbau zu initiieren.
   tcpClient.Connect
End Sub

Private Sub txtSendData_Change()
   tcpClient.SendData txtSend.Text
End Sub

Private Sub tcpClient_DataArrival _
(ByVal bytesTotal As Long)
   Dim strData As String
   tcpClient.GetData strData
   txtOutput.Text = strData
End Sub

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Private intMax As Long

Private Sub Form_Load()
   intMax = 0
   sckServer(0).LocalPort = 1001
   sckServer(0).Listen
End Sub

Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
   If Index = 0 Then
      intMax = intMax + 1
      Load sckServer(intMax)
      sckServer(intMax).LocalPort = 0
      sckServer(intMax).Accept requestID
      Load txtData(intMax)
   End If
End Sub

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

Private Sub Form_Load()
' Das Winsock-Steuerelement heißt udpPeerA
With udpPeerA
' WICHTIG: Vergess nicht, den Wert vom
' RemoteHost auf den Namen Deines Computers zu 
' setzen.
.RemoteHost= "PeerB" 
.RemotePort = 1001   ' Anschluß, zu dem
' verbunden werden soll.
.Bind 1002                ' An den lokalen
' Anschluß binden.
End With
frmPeerB.Show                 ' Zweites Formular zeigen.
End Sub

Private Sub txtSend_Change()
' Text senden, sobald er eingegeben wird.
udpPeerA.SendData txtSend.Text
End Sub

Private Sub udpPeerA_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = strData
End Sub

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

Private Sub Form_Load()
' Das Steuerelement heißt udpPeerB.
With udpPeerB
' WICHTIG: Vergesse nicht, den Wert von
' RemoteHost auf den Namen Deines Computers zu 
' setzen.
.RemoteHost= "PeerA"
.RemotePort = 1002    ' Anschluß, zu dem
' verbunden werden soll.
.Bind 1001                ' An den lokalen
' Anschluß binden.
End With
End Sub

Private Sub txtSend_Change()
' Text senden, sobald er eingegeben wird.
udpPeerB.SendData txtSend.Text
End Sub

Private Sub udpPeerB_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerB.GetData strData
txtOutput.Text = strData
End Sub