I'm writing an app that returns a client's IP when they click a link to
my IP in AIM. I have the app listening on port 80, and then after they
click the link I press a command button that puts a label's caption as
their IP. It works when I test it locally, but not if someone else
tries it.
The code is:
Private Sub cmdCheck_Click( )
'Set caption as remote IP
lblIP.Caption = wskListener.Rem oteHostIP
End Sub
Private Sub Form_Load()
'Set up to listen
wskListener.Loc alPort = "80"
wskListener.Lis ten
End Sub
'cmdCheck is a command button
'lblIP is a label
'wskListener is a Winsock control
I launch the app, and then in AIM I create a hyperlink w/ the URL as my
IP. When I click the link myself in AIM, and then press the command
button in the app, it returns my IP. However, if someone else clicks
the link, the label caption just becomes "".
I'm using a router, but no proxy. As the hyperlink URL I've tried
using the IP I get from ipconfig (from a command prompt) and the IP I
get from IPChicken.com. Anyone know what the problem is.
my IP in AIM. I have the app listening on port 80, and then after they
click the link I press a command button that puts a label's caption as
their IP. It works when I test it locally, but not if someone else
tries it.
The code is:
Private Sub cmdCheck_Click( )
'Set caption as remote IP
lblIP.Caption = wskListener.Rem oteHostIP
End Sub
Private Sub Form_Load()
'Set up to listen
wskListener.Loc alPort = "80"
wskListener.Lis ten
End Sub
'cmdCheck is a command button
'lblIP is a label
'wskListener is a Winsock control
I launch the app, and then in AIM I create a hyperlink w/ the URL as my
IP. When I click the link myself in AIM, and then press the command
button in the app, it returns my IP. However, if someone else clicks
the link, the label caption just becomes "".
I'm using a router, but no proxy. As the hyperlink URL I've tried
using the IP I get from ipconfig (from a command prompt) and the IP I
get from IPChicken.com. Anyone know what the problem is.