08-19-2012, 04:55 AM
You should add this to it so it will show the external IP this is something i cooked up a while back for a server app
Code
[code2=vbnet]Public ExternalIP As String
Private Sub GetIp()
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.pbaproductions.com/ip.php")
Dim response As System.Net.HttpWebResponse = request.GetResponse
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
Dim regsource As String = sr.ReadToEnd
ExternalIP = regsource
End Sub[/code2]
Code
[code2=vbnet]Public ExternalIP As String
Private Sub GetIp()
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.pbaproductions.com/ip.php")
Dim response As System.Net.HttpWebResponse = request.GetResponse
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
Dim regsource As String = sr.ReadToEnd
ExternalIP = regsource
End Sub[/code2]
Website: <!-- m --><a class="postlink" href="http://www.PBAProductions.com">http://www.PBAProductions.com</a><!-- m -->
E-Mail: <!-- e --><a href="mailtoatrick@AriSystems.Org">Patrick@AriSystems.Org</a><!-- e -->
Skype: Qwaxer
Youtube: Qwaxer
E-Mail: <!-- e --><a href="mailtoatrick@AriSystems.Org">Patrick@AriSystems.Org</a><!-- e -->
Skype: Qwaxer
Youtube: Qwaxer