Jump to content

_IsDown()


FuryCell
 Share

Recommended Posts

MsgBox(0, "", _IsDown("www.google.com"))
Func _IsDown($sURL)
    $Read = BinaryToString(InetRead("http://downforeveryoneorjustme.com/" & $sURL, 1))
    Select
        Case StringInStr($Read, "looks down from here.")
            Return True ; Site is down
        Case StringInStr($Read, "is up.")
            Return False ; Site is up
        Case Else
            Return SetError(1, 0, True) ; Invalid data (maybe $sURL was invalid?)
    EndSelect
EndFunc   ;==>_IsDown

HKTunes:Softpedia | GoogleCodeLyricToy:Softpedia | GoogleCodeRCTunes:Softpedia | GoogleCodeMichtaToolsProgrammer n. - An ingenious device that turns caffeine into code.
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...