Código de Visual Basic - Obtener IP Publica VB6

Imágen de perfil
Val: 208
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Obtener IP Publica VB6gráfica de visualizaciones


Visual Basic

Publicado el 12 de Junio del 2017 por Rodolfo (6 códigos)
8.475 visualizaciones desde el 12 de Junio del 2017
Recién salido del horno, me mate buscando y luego de casi tirar la toalla puede mesclar códigos y deducciones y aca por fin esta. Mas simple imposible !!!! para empezar a poder enviar la IP publica a un server para que los usuarios puedan acceder al sistema sin necesidad de utilizar NO-IP

1.0
estrellaestrellaestrellaestrellaestrella(4)

Actualizado el 13 de Agosto del 2017 (Publicado el 12 de Junio del 2017)gráfica de visualizaciones de la versión: 1.0
8.476 visualizaciones desde el 12 de Junio del 2017
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
Public Function IP_Publica() As String
Dim cTemp As String
Dim arTemp() As String
Dim url As String
Dim IP As String
IP = "c:\ip.txt"
'URL = "http://miip.es"
url = "http://www.cualesmiip.com"
'URL = "http://myip.es" 'AUN NO FUNCIONA
If Dir(IP) <> "" Then Kill IP
Call URLDownloadToFile(0, url, IP, 0, 0)
If Dir(IP) <> "" Then
  cTemp = CreateObject("Scripting.FileSystemObject").OpenTextFile(IP).ReadAll
  If url = "http://miip.es" Then
    If InStr(cTemp, "<h2>") > 0 Then
      arTemp = Split(Replace(cTemp, "</h2>", "<h2>"), "<h2>")
      IP_Publica = Trim(Right(arTemp(1), Len(arTemp(1)) - 9))
    End If
  ElseIf url = "http://www.cualesmiip.com" Then
    If InStr(cTemp, "Cual es mi IP Tu IP real es ") > 0 Then
      arTemp = Split(Replace(cTemp, " (", "Cual es mi IP Tu IP real es "), "Cual es mi IP Tu IP real es ")
      IP_Publica = Trim(arTemp(1))
    End If
  ElseIf url = "http://myip.es" Then
    If InStr(cTemp, "<aside>") > 0 Then
      arTemp = Split(Replace(cTemp, "</aside>", "<aside>"), "<aside>")
      IP_Publica = Trim(Right(arTemp(1), Len(arTemp(1)) - 9))
    End If
  End If
  Kill IP
End If
End Function



Comentarios sobre la versión: 1.0 (4)

27 de Junio del 2017
estrellaestrellaestrellaestrellaestrella
No ha dejado ningún comentario
Responder
Ranking Muñoz
27 de Julio del 2017
estrellaestrellaestrellaestrellaestrella
Si aun sirve de algo yo lo resolví con un microsoft internet tranfer control sp6 ( inet ),

MsgBox Inet1.OpenURL("https://api.ipify.org/")

claro, la evaluacion de varios servircios es excelente si uno se cae, otro dara el resultado, gracias..!
Responder
Imágen de perfil
30 de Julio del 2017
estrellaestrellaestrellaestrellaestrella
Muchas gracias por el aporte, todo sirve y mas si contribuimos entre todos para poder resolver problemas. Y con esa intencion fue que escribi asi el codigo si se cae uno se puede utilizar otro.
Responder
Marco Rojas
10 de Julio del 2019
estrellaestrellaestrellaestrellaestrella
Muy buen aporte, se agradece...
Responder

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s4020