Hola amigos estoy haciendo un pequeño sistemita extra que quiero integrar a mi sistema de stock mas adelante. lo que hace es comprobar en internet cual es el ip actual "no local" sino la ip publica.
Tengo este codigo que me funciona muy bien.
Public Function ExternalIP2() As String
On Error GoTo Error_Section
Dim strURL() As Variant ' URLs de donde btener la dirección IP
Dim lngURL As Long ' Contador para recorrer las URL en el array strURL
Dim objWinHttpRequest As Object ' Solicitud WinHttp
Dim Result As Variant ' Resultado de la función
strURL = Array("http://api.externalip.net/ip/", "http://automation.whatismyip.com/n09230945.asp", "http://www.show-my-ip.com/")
Set objWinHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
On Error Resume Next
For lngURL = LBound(strURL) To UBound(strURL)
objWinHttpRequest.Open "GET", strURL(lngURL)
objWinHttpRequest.send
Result = objWinHttpRequest.responseText
If Result Like "*.*.*.*" Then
Exit For
Else
End If
Next lngURL
On Error GoTo Error_Section
Exit_Section:
On Error GoTo 0
Set objWinHttpRequest = Nothing
ExternalIP2 = Result
Exit Function
Error_Section:
Result = Err.Description
Resume Exit_Section
End Function
Private Sub Command1_Click()
Label1.Caption = ExternalIP2
End Sub
Después de obtener el ip lo guardo en un txt y subo a DropBox o a mi pagina Web.
Después lo que quiero es leer lo que se subio en la web o en el DropBox pero no me esta funcionando me trae en blanco.
http://leandroascierto.com/foro/index.php?topic=1945.msg10879#msg10879http://leandroascierto.com/foro/index.php?topic=1260.msg6928#msg6928http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/19.htmLo mas raro es que en en una maquina virtual con WinXP SP3 funciona de lujo.
Yo Tengo Win7 64 SP1 y aca no me funciona lo de leer o bajar archivo desde vb6
Se que ya existe este tema pero para no revivir post viejo me decidi a crear otro nuevo.
