Hola alguien sabe como puedo guardar la ip de mi ordenador en un .txt con vb 6.0
Le estaria muy agradesido
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
.
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).
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!¡.
mmmm gracias por el codigo
a mi tyambien me va bien :)