Public ACTUAL_IP As String
Public IP_Source As String

frmServer.Socket(0).LocalIP

ACTUAL_IP

IP_Source = "org"
ACTUAL_IP = GetActualServerIP

''''''''''''''''''''''''''''''''''''''''''''
' Function written from scratch by: GIAKEN '
''''''''''''''''''''''''''''''''''''''''''''
Public Function GetActualServerIP() As String
Dim RetryValue As Long

    Load frmServer.INet(1)
   
Retry:
   
    'after 2 seconds time the request out
    frmServer.INet(RetryValue).RequestTimeout = 2
   
    Select Case IP_Source
        Case "org"
            Call SetStatus("Retrieving actual IP from whatismyip.org...")
           
            On Error Resume Next
            GetActualServerIP = frmServer.INet(RetryValue).OpenURL("http://whatismyip.org", icString)
            On Error GoTo ErrHandler
           
        Case "com"
            Call SetStatus("Retrieving actual IP from whatismyip.com...")
           
            On Error Resume Next
            GetActualServerIP = frmServer.INet(RetryValue).OpenURL("http://whatismyip.com/automation/n09230945.asp", icString)
            On Error GoTo ErrHandler
           
    End Select
   
    'if the IP is blank, then handle it as an error
    If LenB(GetActualServerIP) = 0 Then GoTo ErrHandler
   
    Call SetStatus("Successfully retrieved actual IP.")
    Exit Function

ErrHandler:

    'clear the RTE error just in case so we can properly continue
    Err.Clear
   
    Call SetStatus("Failed to retrieve actual IP address: timed out.")
   
    frmServer.INet(RetryValue).Cancel
    RetryValue = RetryValue + 1
   
    If RetryValue <= 1 Then
        ' since we failed, we'll retry with another method
        If IP_Source = "org" Then
            IP_Source = "com"
        Else
            IP_Source = "org"
        End If
        GoTo Retry
    End If
   
    'couldn't get the actual IP, so just use the local one...
    GetActualServerIP = frmServer.Socket(0).LocalIP
   
End Function