Hunger pain strikes me. I've not eaten in some time. It goes from the pit of my stomach to he back of my neck. When will I partake of the love my heart hungers for? I thought this was a bed and breakfast.
Speaking of hunger... I saw some recent pictures of you and find you painfully thin. Please eat more. I could give you ten pounds or so (I'm looking to lose them anyway) and should remedy the problem.:)
:( I'm thin? Ok, I'll do it, but if I get any fat jokes you will pay! Ok, so we will trade pounds? I can live with that, but first where are the pounds you are giving me coming from. I don't want to be a hippy or breasty man.
Hmmm. I think most of it would come from my thighs and then a little from my tummy and the back of my arms. But regardless of where it comes from you may distribute it wherever you like on your body.
Imports System.Net.WebClient
Imports System.Net
Imports System.Web
Imports System.Text.RegularExpressions
Imports System.IO
Module Module1
' Purpose: Get the external IP address of the computer. Using
' dyndns.org's checkip tool. This will work
' behind NAT routers.
' I: (none)
' O: external IP address
Function GetExternalIP() As String
Const IP_URL As String = "http://checkip.dyndns.org"
Dim strHTML As String, strIP As String
' Send the request and hopefully we'll get response.
' Try to parse out the IP address from the returned HTML
Try
Dim objWebReq As WebRequest = _
WebRequest.Create(IP_URL)
Dim objWebResp As WebResponse = _
objWebReq.GetResponse()
Dim streamResp As Stream = _
objWebResp.GetResponseStream()
Dim srResp As StreamReader = _
New StreamReader(streamResp, True)
strHTML = srResp.ReadToEnd()
Dim regexIP As Regex = _
New Regex("\b\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3}\b")
strIP = regexIP.Match(strHTML).Value
Return strIP
Catch ex As Exception
Console.WriteLine("Can't retrieve external IP: " + _
ex.Message)
Return Nothing
End Try
End Function
Sub Main()
Console.WriteLine(GetExternalIP())
End Sub
End Module
3 Comments:
Speaking of hunger... I saw some recent pictures of you and find you painfully thin. Please eat more. I could give you ten pounds or so (I'm looking to lose them anyway) and should remedy the problem.:)
:( I'm thin? Ok, I'll do it, but if I get any fat jokes you will pay! Ok, so we will trade pounds? I can live with that, but first where are the pounds you are giving me coming from. I don't want to be a hippy or breasty man.
Hmmm. I think most of it would come from my thighs and then a little from my tummy and the back of my arms. But regardless of where it comes from you may distribute it wherever you like on your body.
Post a Comment
<< Home