• Home
 · 
• Internet/HTML
 · 
• Obtain your IP by accessing remote web site.

Obtain your IP by accessing remote web site.

Obtain your IP by accessing remote web site.

API Declarations



xyr0x



Rate Obtain your IP by accessing remote web site.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Revised to work properly on Friday, July 21st, 2006.
'For use in the opensource community
'don't say I ``NEVER" Give out code... you goon.
'contact: [email protected]
'AIM: ixi xyr0x ixi
'peace.

Private Sub MYIP_Click()
stat1.Text = ""
remoteip.Text = ""
Call ReqIP
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub ReqIP()
Dim rIP As String
On Error Resume Next
DoEvents
If Inet1.OpenURL Then
rIP = Inet1.OpenURL("http://pchelplive.com/ip.php")
remoteip.Text = rIP
remoteip.Text = Replace(remoteip, Chr(10), "")
stat1.Text = "IP has been acquired, and able to connect to the net"
Else
If Inet1.RequestTimeout Then
stat1.Text = "IP Can't be acquired. Please check your firewall settings"
Else
If Inet1.StillExecuting Then
stat1.Text = "Please wait until IP address has been Obtained!"
End If
End If
End If
End Sub