Script to check if websites are running

If you have one or more websites online, you would not want to check their online status every morning, you would like to create a script that will check this for you.
We have thought of this and created this ASP.NET script that will read the websites from a file and then check the status for each.

 

<%@ Page Language=”VB” MasterPageFile=”MasterPage.master” AutoEventWireup=”false” title=”Software courses!” %>
<%@ Import Namespace=”System.Io” %>

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) handles me.load
if not page.isPostBack then
dim dr as new streamReader(“websites.txt”)
txtSites.text = dr.ReadToEnd
dr.close
dr.dispose
end if

end Sub

Protected Sub btnDone_click(ByVal sender As Object, ByVal e As ImageClickEventArgs) handles btnDone.click
dim websites() as string
lblMessage.text =””
websites = txtSites.text.Split(new char(){vbCrlf})
if websites.length>0
for i as integer=0 to websites.length-1
lblMessage.text += websites(i)
if websites(i).trim”” then
IF CheckWebsiteExists(websites(i).trim) then
lblMessage.text += ” – up and running”
else
lblMessage.text += ” – down”
end if
lblMessage.text += “

end if
next
end if
End Sub

Private Function CheckWebsiteExists(ByRef website As String) As Boolean
‘check url
If website = “” Then Return True
Dim netCall As System.Net.HttpWebRequest
Try
netCall = System.Net.HttpWebRequest.Create(website)
Catch ex1 As Exception
If Not website.Contains(“http”) Then
While website.StartsWith(“/”)
website = Right(website, website.Length – 1)
End While
website = “http://&#8221; & website
End If
Try
netCall = System.Net.HttpWebRequest.Create(website)
Catch ex As Exception

End Try
End Try

Dim resp As System.Net.HttpWebResponse = Nothing
Try
resp = netCall.GetResponse()
If resp.StatusCode = System.Net.HttpStatusCode.OK Then
‘MsgBox(“Found file”)
End If
Catch
If resp Is Nothing Then
lblError.Text = “Specified URL was not found! Please re-check the URL address!”
lblError.Visible = True
Return False
End If
If resp.StatusCode = System.Net.HttpStatusCode.NotFound Then
lblError.Text = “Specified URL was not found! Please re-check the URL address!”
lblError.Visible = True
Return False
End If
End Try
Return True
End Function

<asp:Content ID=”Content3″ ContentPlaceHolderID=”ContentPlaceHolder2″ Runat=”Server”>
Please enter the websites to check in the textbox below separated by enter (one on each line) and press done!
<br />
<asp:textbox runat=”server” id=”txtSites” textMode=”MultiLine” height=”400px” width=”500px” />
<br />
<asp:imagebutton runat=”server” id=”btnDone” imageUrl=”images/done.png” ToolTip=”Start” />
<br />
<asp:label runat=”server” id=”lblMessage” text=”” cssClass=”SubTitle” />
<asp:label runat=”server” id=”lblError” text=”” cssclass=”ErrorText” />
</div>
</asp:Content>

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s