Como obtener datos de una web desde vb?

[TyKo]

Hola! Aqui mi pregunta... Me gustaria saber como se hace de obtener datos de una web en concreto... Es decir, imaginemos... El programa entra a:
www.whereismyip.com
y obtiene la cadena (supongo que sera una cadena) donde se muestra tu IP...

Espero que me puedan ayudar!
Saludos!

[Mad Antrax]

Es facil, pero dinos antes para que lo vas a usar...

Si lo quieres para visitar una web del tipo "cualesmiip" o "showmyip", etc... lo unico que tienes que hacer es:

1) winsock.connect url,80
2) buscar un patrón que te situe delante de la IP, en el código fuente
3) con las funciones InStr y Mid sacas la IP

El código te dejo que lo pienses tú, además creo recordar que hay algo ya programado en este foro usando la web de no-ip.com para ver la IP pública

Suerte

[TyKo]

No entiendo a que te refieres con esto:

2) buscar un patrón que te situe delante de la IP, en el código
fuente

Lo voy a usar porque estoy creando un troyano (de conexion directa, no inversa) y lo que quiero es que cuando se ejecute el server se me envie la IP ya sea subiendola a un FTP o por eMail...

Saludos!
GRacias!

[Mad Antrax]

Aquí lo tienes, te dejo el código y el source adjunto:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    WS.Close
    WS.Connect "checkip.dyndns.org", 80
End Sub

Private Sub WS_Connect()
    Label1.Caption = "Conectado!"
    WS.SendData "GET / HTTP/1.1" & vbCrLf & vbCrLf
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
    Dim Datos() As String
   
    WS.GetData Buffer, vbString
    If InStr(Buffer, "Current IP") <> 0 Then
        Datos = Split(Buffer, "<")
        Datos = Split(Datos(6), ":")
        Label1.Caption = Trim(Datos(1))
    Else
        Label1.Caption = "IP no encontrada"
    End If
End Sub

Private Sub WS_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    On Error Resume Next
    Label1.Caption = "Error!"
    MsgBox Number & " - " & Description
End Sub


Saludos!!

[TyKo]

Umm, muy bueno! Muchas gracias! Me pondre a estudiar comop aplicarlo a otras webs...!
Saludos! y... Muchas gracias!