Obtener datos de Internet

[The Keeper]

Hola, queria saber como hacer para poder obtener varios datos de una pagina de internet, como por ejemplo, desde mi programa todos los lunes obtener una noticia de una web y mostrarla en mi programa VB...

Desde ya muchas gracias gente!!!!

[<--v1c1ous-->]

Usando el control INET.

Código [Seleccionar] Expandir

Dim CODE as String

CODE = Inet1.URL = ("http://page.com")

Open File for Binary write as #1
Put 1,,CODE
Close #1

Y si solo queres pasarlo a un TextBox:

Código [Seleccionar] Expandir

Text1.Text = Inet1.URL = ("http://page.com")

Y despues busca las String que nececites en el codigo como gustes.

[The Keeper]

Me da "falso" en el archivo que crea y en el textbox

[<--v1c1ous-->]

Claro, es a modo de ejemplo nada mas, no se pueden asignar dos valores a uno solo.

Tenes muchas formas de obtener el source code de una web para despues utilizarlo desde el disco.

Con WinSocks:

Código [Seleccionar] Expandir

Winsock1.Connect URL, 80

Código [Seleccionar] Expandir

Private Sub Winsock1_Connect()
Winsock1.SendData "GET " & Text1.Text & " HTTP/1.1" & vbCrLf & _
"Host: " & b & "" & vbCrLf & _
"Accept: */*" & vbCrLf & _
"Accept-Language: en" & vbCrLf & _
"Connection: Keep-Alive" & vbCrLf & vbCrLf
End Sub

Con INET:

Código [Seleccionar] Expandir

MsgBox = Replace(Inet1.OpenURL("http://www.google.com.ar), vbLf, vbCrLf)