Internet transfer control

Ένας δεύτερος τρόπος πρόσβασης στο Web μέσα από την εφαρμογή μας είναι με τη χρήση του Internet Transfer Control (προσθήκη από το Project - Components).
Το όργανο αυτό δεν εμφανίζεται όταν εκτελείται η εφαρμογή μας, αλλά μας επιτρέπει την πρόσβαση σε περιεχόμενο δικτυακών τόπων μέσα από το πρόγραμμα.
Για διαβάσουμε το περιεχόμενο μιας συγκεκριμένης σελίδας χρησιμοποιούμε τη μέθοδο OpenURL που επιστρέφει μια συμβολοσειρά με τα περιεχόμενα της σελίδας όπως στο παρακάτω παράδειγμα:
```
Private Sub Command1_Click()
Dim weather As String
	weather = Inet1.OpenURL("http://www.ntua.gr/weather")

	MsgBox "Wind speed is " + Mid(weather, InStr(weather, "beaufort") - 2, 1) + " beaufort", vbOKOnly, "Current wind speed"
End Sub
```
Προσοχή: τα περιεχόμενα της σελίδας είναι - στην καλύτερη περίπτωση - κωδικοποιημένα σε HTML.
Αν τα περιεχόμενα της σελίδας είναι πολλά πρέπει να χρησιμοποιήσουμε τις μεθόδους Execute και GetChunk για να τη διαβάσουμε σε τμήματα.
Η μέθοδος GetHeader επιτρέπει την πρόσβαση στις επικεφαλίδες HTTP.