Hi Rob
You said that you needed some hints, well i can tell you about how you can get the IP address from a locan or remote address, and after that you can get to your own question.
'To get a Web address
Dim Index As Integer
Dim IP As IPHostEntry =Dns.GetHostByName ("
Dim IP() AS IPAddress = IP.AddressList
For Index = 0 To IP.GetUpperBound(0)
Console.Write("IP Address {0}: {1} ", Index, IP(Index).ToString)
Next
'To get the Ip of your Local Machin, you get the address from the DNS.
Dim LocalHost As String
Dim Index As Integer
LocalHost = Dns.GetHostName()
Dim IP As IPHostEntry = Dns.GetHostByName(LocalHost)
Dim IP() As IPAddress = IP.AddressList
For Index = 0 To IP.GetUpperBound(0)
IpTextBox.Text("IP Address {0}: {1} ", Index, IP(Index).ToString)
Next
I hope that this help you.