Internet Transfer Control in VB6

Example 1: VB6

 Private Sub cmdGo_Click()
   inet.Protocol = icHTTP
   inet.URL = txtAddress.Text
   txtOut.Text = inet.OpenURL
 
 End Sub
 
 Private Sub Form_Load()
   txtAddress.Text = "http://wiki.robotz.com"
 End Sub

Example 2: VBA, Uses the internet transfer control with HTTP to create an HTML page.

 Dim objInet as Inet
 
 Private Sub Form_Load()
    ' Set a reference to the internet transfer control.
    Set objInet = Me!axInetTran.Object
 End Sub
 
 Private Sub cmdWriteFile_Click()
    Dim b() as Byte
 
    ' Set the internet transfer control protocol and URL.
    objInet.Protocol = icHTTP
    objInet.URL = "HTTP://www.microsoft.com"
 
    ' Retrieve the HTML data into a byte array.
    b() = objInet.OpenURL(objInet.URL,icByteArray)
 
    ' Create a local file from the retrieved data.
    Open "C:\Homepage.htm" For Binary Access Write As #1
    Put #1, , b()
    Close #1
 
    MsgBox "Done"
 End Sub
 
 Private Sub cmdGetHeader_Click()
    ' Set the internet transfer control protocol and URL.
    objInet.Protocol = icHTTP
    objInet.URL = "HTTP://www.microsoft.com"
 
    ' Open the HTML and display the header information.
    objInet.openURL objInet.URL, icByteArray
    MsgBox objInet.GetHeader
 End Sub

Example 3: VBA, Retrieve a File from an FTP Site

 Private Sub Form_Load()
    ' Set a reference to the internet transfer control.
    Set objFTP = Me!axFTP.Object
 End Sub
 
 Private Sub cmdGetFile_Click()
    Dim strSite As String
    Dim strFile As String
    strSite = Me!txtFTPSite
    strFile = Me!txtFileName
    objFTP.Protocol = icFTP
    objFTP.URL = strSite
    objFTP.Execute strSite, "Get " & strFile & " C:\" & strFile
 End Sub
 
 Private Sub axFTP_StateChanged(ByVal State As Integer)
    ' Display a message when the transfer is finished.
    If State = 12 Then Msgbox "File Transferred"
 End Sub

You can easily FTP files between a client and host computer.