vbs

' Create an HTTP object

myURL = "http://www.google.com"

Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )

' Download the specified URL

objHTTP.Open "GET", myURL, False

objHTTP.Send

intStatus = objHTTP.Status

If intStatus = 200 Then

WScript.Echo " " & intStatus & " A OK " +myURL

Else

WScript.Echo "OOPS" +myURL

End If

--------------------------------

get content

' Create an HTTP object

myURL = "http://costycnc.it"

Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )

' Download the specified URL

objHTTP.Open "Get", myURL, False

objHTTP.Send

intStatus = objHTTP.ResponseText

msgbox intStatus

'find text in source

txt=InStr(intStatus,"div")

msgbox txt

===================================

https://blog.kissmetrics.com/how-to-read-source-code/

chrome CTRL+U

in browser : "view-source:www.google.com"