Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
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.
|VB6 Compile Compatibility Issue||4||122|
|SQL VB connection works in one PC and doesn't in another||15||74|
|Child Form in front||4||57|
|VB6 calling COM DLL written in Visual Studio 2003||6||15|