VB6 IP Problem

[BlackOut]

Hey guys,,

I have a little problem. I'm writing an App in VB6.
In this app, I need the program to find out the internet IP of the pc it's running on.

I have no clue how to do this, im pretty advanced in VB6, and ive googled for an hour but cant find anything.


Plz help me out?

Thanks in advance,
zephy

[Amahdy]

you should depend on a third party web page or like that, because the internet ip is only known by the router or any server that accept incoming request from this router, so the sequence will be : the webpage recive the ip, you download the webpage and parse it to get the ip.
for dial-up it's vey easy as you may know ... it's exactly like getting the local ip for lan network.

[Amahdy]

try this :

http://www.vbcode.com/Asp/showzip.as...zip&theID=7697

[BlackOut]

try this :

http://www.vbcode.com/Asp/showzip.as...zip&theID=7697

404 file not found, Thats what im looking for though

HELP?

[jggtz]

Maybe this attachment helps you

[Hack]

Just put a Winsock control on your form and do

Text1.Text = Winsock1.LocalIP

[Amahdy]

**Hack I didin't know you, I think it's a new member here lol

well BlackOut I'm afraid but the page opens here so try again maybe the server was down yesterday..
jggtz : what about sharing the source code ?
Hack : winsock can't help because it will return the local network IP not the internet IP, actually the PC can't know byitself it's internet IP, but the router do, so we need just interact with the router or any webserver to get the IP, doing that from a webpage maybe be a valid solution.

[Hack]

IP of the pc it's running on.

This to me says local IP.

[Amahdy]

before IP there is internet :
...internet IP of the pc ...

[jggtz]

Another one :
To get IP Address for the router that you're behind
I found over internet and I haven't tested yet

Option Explicit
' Add Microsoft Internet Transfer Control

Dim pubIPA As String, pos1 As Long, pos2 As Long, str As String

Private Sub Form_Load()
str = Inet1.OpenURL("http://vbnet.mvps.org/resources/tools/getpublicip.shtml", icString)
pos1 = InStr(str, "var ip =")
pos1 = InStr(pos1 + 1, str, "'", vbTextCompare) + 1
pos2 = InStr(pos1 + 1, str, "'", vbTextCompare)
pubIPA = Mid$(str, pos1, pos2 - pos1)
MsgBox pubIPA, vbInformation
Unload Me
End Sub

[Amahdy]

Yes this is the another solution of depending on a third-party webpage, like the one used here :
"http://vbnet.mvps.org/resources/tools/getpublicip.shtml"

just open it in your browser it should diplay your IP somehow, use the inet to download it then parse it and extract the ip from it...

[Sabotaz]

I have exactly what u want

http://www.vbforums.com/showthread.php?t=469768

This works exelent

I hope it helps u...