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

Dim strURL As String
Dim bData() As Byte      ' Datenvariable
Dim intFile As Integer   ' FreeFile-Variable
strURL = _
"ftp://ftp.microsoft.com/Softlib/Softlib.exe"
intFile = FreeFile()      ' intFile auf eine
                        ' unbenutzte Datei setzen.
' Das Ergebnis der OpenURL-Methode wandert in das
' Byte-Datenfeld, und dieses wird dann auf Datenträger
' gespeichert.
bData() = Inet1.OpenURL(strURL, icByteArray)
Open "C:\Temp\Softlib.exe" For Binary Access Write _ 
As #intFile
Put #intFile, , bData()
Close #intFile

1:
2:

Inet1.Execute "FTP://ftp.microsoft.com", _
"GET disclaimer.txt C:\Temp\Disclaimer.txt"

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

Private Sub Inet1_StateChanged(ByVal State As Integer)
   Dim vtData As Variant ' Datenvariable.
   Select Case State
   ' ... Andere Fälle werden nicht gezeigt.
   Case icResponseCompleted ' 12
      ' Eine zu beschreibende Datei öffnen.
      Open txtOperation For Binary Access _
      Write As #intFile

      ' Den ersten Datenblock abrufen. HINWEIS: geben Sie
      ' ein Byte-Datenfeld an (icByteArray), um eine 
      ' Binärdatei abzurufen.
      vtData = Inet1.GetChunk(1024, icString)

      Do While LenB(vtData) > 0
         Put #intFile, , vtData
         ' Nächsten Datenblock abrufen.
         vtData = Inet1.GetChunk(1024, icString)
      Loop
      Put #intFile, , vtData
      Close #intFile
   End Select
End Sub

1:
2:
3:
4:
5:
6:
7:

With Inet1
   .URL = "ftp://ftp.eineFTPSite.com"
   .UserName = "John Smith"
   .Password = "mAuI&9$6"
   .Execute ,"DIR"   ' Gibt den Ordner zurück.
   .Execute ,"CLOSE" ' Die Verbindung schließen.
End With

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

#include <afxinet.h>
//setzt voraus, daß Server- und Dateinamen initialisiert wurden
CInternetSession session("Meine FTP-Sitzung");
CFtpConnection* pConn = NULL;

pConn = session.GetFtpConnection(lpszServerName);
//Datei holen
if (!pConn->GetFile(pstrRemoteFile, pstrLocalFile))
   //display an error
delete pConn;
session.Close();

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