Как программой вытянуть инфу из инета?

[Cadett]

Господа, вот такая проблема.
Вот линк http://usa-s1.vatsim.net/data/metar.php?id=uuee
Как из программы записать эту строчку, что выдаётся, в стринговою переменную? Если можно набросайте примерчик, а то Я не шарю как с HTTP работать...

[ShadowCaster]

Есть форма, на ней:
WinSock Control - Name = "ws"
Command Button - Name = "cm"

Код:

' http://usa-s1.vatsim.net/data/metar.php?id=uuee

Private Sub cm_Click()
ws.connect "usa-s1.vatsim.net", 80
End Sub

ws_Connect()
ws.SendData "GET /data/metar.php?id=uuee HTTP/1.0" + vbCrLf
ws.SendData "HOST: usa-s1.vatsim.net" + vbCrLf + vbCrLf
End Sub

ws_DataArrival (bytesTotal as Long)
dim s as string
ws.GetData s
ws.Close
' Теперь в s нужная нам строчка+заголовок
s = mid(s, instr(s, vbCrLf+vbCrLf)+2) ' Избавляемся от заголовка
' А вот теперь в s только нужная нам строчка
' Делаем с ней всё, что хотим
End Sub

[Amed]

'Или с помощью MS Internet Transfer Control:

'Есть форма, на ней:
'MS Internet Transfer Control - Name = "inet"
'Command Button - Name = "cm"

Private Sub cm_Click()
dim Data as variant
dim data_str as string

data = Inet.OpenURL("http://usa-s1.vatsim.net/data/metar.php?id=uuee", icString)

data_str=cstr(data)

msgbox data_str
End Sub

'Это, по-моему, покороче...