Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Dim MobNum As String Dim objXmlHttp Dim strHTML As String Dim statusresponse As String MobNum = "+447977123456" objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") strHTML = "https://www.mysms.com/gateway/xyz.aspx?" & _ "&destination=" & MobNum & _ "&message=Foo" & _ ' resolve, connect, send, receive - in milliseconds objXmlHttp.setTimeouts(10000, 10000, 10000, 10000) objXmlHttp.open("GET", strHTML, False) objXmlHttp.send() statusresponse = objXmlHttp.ResponseText objXmlHttp = Nothing
Join the community of 500,000 technology professionals and ask your questions.