Imprimir Página - Obtener datos de Internet

Título: Obtener datos de Internet
Publicado por: The Keeper en 2 Octubre 2006, 06:12 am

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!!!!

Título: Re: Obtener datos de Internet
Publicado por: <--v1c1ous--> en 2 Octubre 2006, 06:34 am

Usando el control INET.

Código:

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:

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

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

Título: Re: Obtener datos de Internet
Publicado por: The Keeper en 2 Octubre 2006, 06:51 am

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

Título: Re: Obtener datos de Internet
Publicado por: <--v1c1ous--> en 2 Octubre 2006, 07:04 am

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:

Winsock1.Connect URL, 80

Código:

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:

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: The Keeper en 2 Octubre 2006, 06:12 am