Indetectables

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..