Visual Basic - Conexion a una URL

Life is soft - evento anual de software empresarial
 
Vista:

Conexion a una URL

Publicado por Mariano Rabioglio (1 intervención) el 20/11/2001 09:59:04
Hola a todos! Alguien sabe o tiene algun codigo (si es posible sencillo)
para conectarse, enviar y recibir datos de una URL? Muchas gracias a todos.
Saludos.

Mariano Rabioglio.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Conexion a una URL

Publicado por maCo (1 intervención) el 20/11/2001 20:11:08
utiliza el ocx winsock

y para conectarte a una url po haras por el puerto 80

winsock.connect servidor,80

en el evento conectar pones la extencion que quieras

como winsock.sendata "GET \index.html" & vbcrlf & "HTTP\1.0" & VBCRLF & VBCRLF

y en el evento data arrival recibiras los datos que el servidor te envie como el codigo fuente de la pagina.

spero te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Conexion a una URL

Publicado por david (111 intervenciones) el 21/11/2001 13:24:59
Crea un formulario y un label que se llame url donde le pones de caption el nombre de la pagina.

Option Explicit

#If Win32 Then

Private Declare Function ShellExecute Lib _
"shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

#Else

Private Declare Function ShellExecute Lib _
"shell.dll" _
(ByVal hwnd As Integer, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Integer) As Integer

#End If

Private Const SW_SHOWNORMAL = 1

Private Sub Label1_Click()

End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub URL_Click()

Dim iret As Long

' open URL into the default internet browser

iret = ShellExecute(Me.hwnd, _
vbNullString, _
"http://www.lapaginaquequieras.es", _
vbNullString, _
"c:\", _
SW_SHOWNORMAL)

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar