Guardar Ip en .txt

[electrodev]

Hola alguien sabe como puedo guardar la ip de mi ordenador en un .txt con vb 6.0
Le estaria muy agradesido

[..:ALT3RD:..]

Pues mira no programo VB6, pero yo creo que es cuestión de logica, crea un textbox y un boton y haz que al presionar el boton, la info del textbox se guarde en un .txt. Lo que podrias hacer es mirar en google como se manejan archivos o como se crean en VB6 y de ahí podrias sacar tu respuesta.

Un salu2! y siento no poder ayudarte mas, pero como ya te he dicho no programo VB6

[BlackZeroX]

.
La consulta deberia ser como consulto mi IP local? IP Publica?

Te dejo un ejemplo muy facil que consulta la IP mediante mi Host (ya que retorna la IP sin HTML).

Código (vb) [Seleccionar] Expandir



Option Explicit

Const IPWAN         As String = "http://infrangelux.sytes.net/ScanX/?myipaddres=1"
Const PORT          As String = "[PORT]"
Const PORTOPEN      As String = "1"
Const PORTREQUEST   As String = "http://infrangelux.sytes.net/ScanX/?port=[PORT]&nohtml=1"

Private Sub Form_Load()
Dim oXML        As Object
Dim i           As Long
Dim sIPWAN      As String
Dim sRes        As String
    Set oXML = streamHTTP(IPWAN)
    sIPWAN = oXML.responseText
    Set oXML = Nothing  '   //  Release XMLHTTP
   
    For i = 1 To 1024
        Set oXML = streamHTTP(Replace$(PORTREQUEST, PORT, i))
        sRes = oXML.responseText
        If (Strings.StrComp(sRes, PORTOPEN, vbTextCompare) = 0) Then
            MsgBox "Puerto: " & i & " esta abierto en el HOST: " & sIPWAN
        End If
        Set oXML = Nothing  '   //  Release XMLHTTP
    Next
End Sub

Function streamHTTP(ByVal strDowload As String) As Object
Dim oXML                     As Object
    Set oXML = CreateObject("Microsoft.XMLHTTP")
    If Not (oXML Is Nothing) Then
        Call oXML.Open("GET", strDowload, 0)
        Call oXML.Send
    End If
Set streamHTTP = oXML
End Function



P.D.: Si solo quieres la IP local puede hacerlos con las APIS de los Sockets de Windows tal cual como en C/C++

Dulces Lunas!¡.

[kaiserr]

mmmm gracias por el codigo
a mi tyambien me va bien