enviar datos de visual basic a una pagina web

Iniciado por TheWarrior, 29 Agosto 2007, 23:27 PM

0 Miembros y 2 Visitantes están viendo este tema.

HaDeS, -

Hmm, probemos:
Código (vb) [Seleccionar]

Private Sub Form_Load()
Dim segViejo&, segNuevo&, Segundos As Byte
segViejo = Int(Timer)
segNuevo = 0
Ws.Connect "www.dequito.com", 80
Segundos = 0
Do
    If segViejo <> segNuevo Then
        segNuevo = segViejo
        Segundos = Segundos + 1
        If Segundos = 5 Then
            MsgBox "Imposible conectar"
            Exit Sub
        End If
    End If
    segViejo = Timer
    DoEvents
Loop Until Ws.State = sckConnected
MsgBox "Conectado con éxito"
End Sub

Lo que hace es un loop en el que comprueba si el estado del winsock es conectado, si es conectado muestra el mensaje de que se ha conectado con éxito, y si el estado no es conectado mientras se hace el bucle, comprueba si no han pasado mas de cinco segundos, lo puse arbitrario, porque creo que cinco segundos es mas o menos lo que debe tardar en realizarce la sola conexión, si te sale que es imposible conectarse, y con la página que diste quizas sea un error en una librería de código de tu compu, o reglas del firewall, en fin.
Si te conecta lo que queres decir es que no te está retornando el código html de la página. Para ello nos debemos fijar y seguir el protocolo:
GET /recurso HTTP/1.1
Host: www.dequito.com
Connection: Close

en visual:
Código (vb) [Seleccionar]

Private Sub Form_Load()
Dim segViejo&, segNuevo&, Segundos As Byte
Dim Request$
segViejo = Int(Timer)
segNuevo = 0
Ws.Connect "www.dequito.com", 80
Segundos = 0
Do
    If segViejo <> segNuevo Then
        segNuevo = segViejo
        Segundos = Segundos + 1
        If Segundos = 5 Then
            MsgBox "Imposible conectar"
            Exit Sub
        End If
    End If
    segViejo = Timer
    DoEvents
Loop Until Ws.State = sckConnected

Request = "GET /recurso HTTP/1.1" & vbCrLf & _
        "Host: www.dequito.com" & vbCrLf & _
        "Connection: Close" & vbCrLf & vbCrLf
Ws.SendData Request
End Sub

Todo el code y eso lo hice sin probar, así que puede que hayan errores, espero que no :P.
Mira haber si eso te sirve, sino es así, hace mucho publique acá un minimanual de este tipo de conexiones, quizas te sirva
Acá el link: http://foro.elhacker.net/index.php/topic,186798.0.html

Saludos

gracygracy

hola, necesito hacer un programa en Visual Basic, que me permita enviar desde una interfaz de usuario datos a un modulo wifi (conociendo su direccion IP). Por lo menos si en la interfaz presiono un boton, se enviara la cadena de caracteres 123456abcdef al modulo wifi, y si presiono otro boton se enviara otra cosa!... Alguien podria ayudarme con esto por favor!!!...

BlackZeroX

.
Que llevas dehcho, nos e hacen trabajos... sin dinero no vaila el perro.

Dulces Luans!¡.
The Dark Shadow is my passion.

Carloswaldo

Y además se hace un nuevo post, no se abre este tan viejo.