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.
sub main() Dim xmlhttp As WinHttp.WinHttpRequest Dim strArg As String Dim strMSG As String Dim StrURL As String Dim XMLResponse As String Dim strResponse As String dim i_str as string dim ch_i as integer ch_i = freefile() open "input_file.inp" for input as #ch_i ' this file will contains many lines of parameter to pass do while eof(ch_i) = false Line Input #ch_i, i_str StrURL = "https://www.target.com/srv.asp" strMSG = "?id1=HeathCheck&id2=123&id3=test" & i_str StrURL = StrURL & strMSG ' /* make sure strlURL contains the https and the url cmd. */ On Error GoTo err_posting Set xmlhttp = New WinHttp.WinHttpRequest xmlhttp.Open "POST", StrURL, False xmlhttp.SetRequestHeader "Host", "timeout-detecting-URL" ' /* set label in web log */ xmlhttp.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded" xmlhttp.Send (strMSG) 'Submit the transaction to the server gateway 'Wait for response XMLResponse = xmlhttp.ResponseText 'Retrieve the result Set xmlhttp = Nothing 'Destroy the object debug.print XMLResponse ' display the result loop finish: close ch_i exit sub err_posting: debug.print err.description exit sub end sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.