do you run your own webserver?
if so, and it supports PHP, just put this in a file,
PHP Code:
<?php
if (getenv("HTTP_X_FORWARDED_FOR") == "") {
// It Isnt A Proxy
echo getenv("REMOTE_ADDR");
}else{
// It Is A Proxy, Get the real EXTERNAL ip
echo getenv("HTTP_X_FORWARDED_FOR");
}
?>
and use the INet control to collect that instead,
it will only have to say do this:
VB Code:
' Just incase theres a error getting the IP from the php file etc
On Error GoTo ErrorSub:
' Get the IP Address Here
Dim MyIP As String
MyIP = INet1.OpenURL("http://Your-Server.com/Your-PHP-File.php")
' Do wotever wiv ur IP Address
MsgBox MyIP
' Stop it reporting an error if it isnt an error, by cutting off here.
Exit Sub
ErrorSub:
' If theres a problem connecting to the server
' the Err.Description = "Connection Timed Out"
Msgbox Err.Description
It would be way easier :P