gistfile1.vb

    Public Function checksite(ByVal site As String)
        Dim request As HttpWebRequest
        Dim response As HttpWebResponse = Nothing
        Dim reader As StreamReader
        Dim output As String
        Try
            request = DirectCast(WebRequest.Create("http://downforeveryoneorjustme.com/" & site), HttpWebRequest)
            response = DirectCast(request.GetResponse, HttpWebResponse)
            reader = New StreamReader(response.GetResponseStream())
            output = reader.ReadToEnd()
            If output.Contains("It's just you.") Then
                Return site & " appears up to me."
            Else
                Return site & " is down :(."
            End If
        Finally
            If Not response Is Nothing Then response.Close()
        End Try
    End Function