Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: The Keeper en 2 Octubre 2006, 06:12 AM

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.

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:

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:
Winsock1.Connect URL, 80

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:

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