TheFifthSparrow: Plane Old Land-ing

Wednesday, July 26, 2006

Plane Old Land-ing

I've touched down and I'm waiting for the plane to taxi in. What do I feel? Nothing. I feel no emotion. I feel as if I have landed in a barren land devoid of everything and anything. This is just part of my trip to complete myself. To finish the last piece of the puzzle to the key to the treasure map. Alaska is calling me again. Alaska is pulling me toward it. I can feel it. I need to go. I have to go. I have one month here to organize. Go!

1 Comments:

Lizzy Pratt said...: trips don't complete us, other people don't fix us. we are who we are whether we are in honduras, dr, new york, anchorage, budapest, bankok, san francisco...they're just places, experiences we have in a string of places we visit and things we experience in the lives we lead that weren't meant to end. learn to be where you are, appreciate the life you've been given to be there now, and petition your creator to give you the thing you can travel forever and never find on your own.; 5:52 AM

Post a Comment

<< Home

Name: beyondthestairs

View my complete profile

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

mesothelioma

TheFifthSparrow

Wednesday, July 26, 2006

Plane Old Land-ing

1 Comments:

About Me

Previous Posts