[RESOLVED] Simple Service Status?

[TCarter]

Hello all,

I have been racking my brain for a few days now trying to think of a simple way to do this, looked up examples, but havnt quite found what im looking for.

I am looking for a simple way of seeing if a service is either online or off.


Service = Web Based.


For example,

if www.gixxerpc.com is accessible then return the code: ok
if its not, then return the code: "down"

I was thinking of basically having a text file looking for a .txt file on the said server that said "ok", because if it was down, then it'd return the html code saying it cant be viewed. Which would result in the 'else', and Id know if its down.


However, the reason why id like to go against this, is so I can set it up to ping specific ports/ip's without having to upload a specific file.



Thank you for your help in advance

[samtheman]

Public Function IsConnectionAvailable() As Boolean
    ' Returns True if connection is available 
    ' Replace www.yoursite.com with a site that
    ' is guaranteed to be online - perhaps your 
    ' corporate site, or microsoft.com
    Dim objUrl As New System.Uri("http://www.yahoo.com/")
    ' Setup WebRequest
    Dim objWebReq As System.Net.WebRequest
    objWebReq = System.Net.WebRequest.Create(objUrl)
    Dim objResp As System.Net.WebResponse
    Try
        ' Attempt to get response and return True
        objResp = objWebReq.GetResponse
        objResp.Close()
        objWebReq = Nothing
        Return True
    Catch ex As Exception
        ' Error, exit and return False
        objResp.Close()
        objWebReq = Nothing
        Return False
    End Try

[TCarter]

Works beautifully, had to change some things.


Had to return the "objresp.close()" and the "objwebreq = nothing" from the catch ex as exception part. But all works perfect. Thank you.