si, le tengo puesto Val, pero como esta inyectado en procesos de system32, creo que aveces algunas funciones no terminan de funcionar bien, por que aveces no me salen los decimales y aveces si... al final tendre que hacer un Left(data,4) y a tomar viento xD

buscare otro metodo para sacar la ram

el localizador de ips, es una api de [Enlace externo eliminado para invitados] para obtener las ciudades.

aaein90 escribió:si, le tengo puesto Val, pero como esta inyectado en procesos de system32, creo que aveces algunas funciones no terminan de funcionar bien, por que aveces no me salen los decimales y aveces si... al final tendre que hacer un Left(data,4) y a tomar viento xD

buscare otro metodo para sacar la ram

el localizador de ips, es una api de [Enlace externo eliminado para invitados] para obtener las ciudades.

Yo siempre he usado GeoIP, pero claro siempre que lo he usado fue con PHP, no se como será con VB6.

//Regards.

Con vb6 coje un servidor y te lo retorne.

saludos

aqui os dejo la funcion del geoip, de ip-api.com

formload: webbrowser1.navigate "ip-api.com/php/ & "80.25.25.25"

y en el evento

Public Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim lol() As String
Dim Data As String
Data = WebBrowser1.Document.documentElement.OuterHTMl
lol = Split(Data, Chr(34))
If lol(39) = vbNullString Then
MsgBox "Esta direccion ip no se puede localizar.", vbExclamation, "Error al localizar"
Exit Sub
MsgBox "El usuario vive en: " & lol(23) & " su pais corresponde es: " & lol(7), vbApplicationModal
CiudadStr = ""
WebBrowser1.Quit
Exit Sub
End If
If lol(39) = vbNullString Then
Exit Sub
End If
CiudadStr = ""
MsgBox "IP Localizada con exito", vbInformation, "Operacion realizada"
WebBrowser1.Quit
End Sub

aaein90 escribió:aqui os dejo la funcion del geoip, de ip-api.com

formload: webbrowser1.navigate "ip-api.com/php/ & "80.25.25.25"

y en el evento

Public Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim lol() As String
Dim Data As String
Data = WebBrowser1.Document.documentElement.OuterHTMl
lol = Split(Data, Chr(34))
If lol(39) = vbNullString Then
MsgBox "Esta direccion ip no se puede localizar.", vbExclamation, "Error al localizar"
Exit Sub
MsgBox "El usuario vive en: " & lol(23) & " su pais corresponde es: " & lol(7), vbApplicationModal
CiudadStr = ""
WebBrowser1.Quit
Exit Sub
End If
If lol(39) = vbNullString Then
Exit Sub
End If
CiudadStr = ""
MsgBox "IP Localizada con exito", vbInformation, "Operacion realizada"
WebBrowser1.Quit
End Sub

¿Por que no mandas una simple Request? Te ahorras añadir el WebBrowser.

//Regards.

Este RAT esta hecho en base al ejemplo de Leandro Ascierto:
[Enlace externo eliminado para invitados]

Igual muy bueno como lo has progresado, falto los creditos a el por la base..