Obtain your IP by accessing remote web site.

by xyr0x (7 Submissions)
Category: Internet/HTML
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Fri 21^st July 2006
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
xyr0x

Rate Obtain your IP by accessing remote web site.



'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

Download this snippet Add to My Saved Code

Obtain your IP by accessing remote web site. Comments

No comments have been posted about Obtain your IP by accessing remote web site.. Why not be the first to post a comment about Obtain your IP by accessing remote web site..

Obtain your IP by accessing remote web site.

Obtain your IP by accessing remote web site. Comments

Post your comment

Difficulty