You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 lines
249 B
11 lines
249 B
4 years ago
|
Set sh = WScript.CreateObject("WScript.Shell")
|
||
|
Set http = CreateObject("Msxml2.ServerXMLHTTP")
|
||
|
|
||
|
do while 1
|
||
|
http.Open "GET","https://www.google.com",0
|
||
|
http.send()
|
||
|
if http.status=200 Then
|
||
|
msgbox http.responsetext
|
||
|
end if
|
||
|
WScript.Sleep 5000
|
||
|
loop
|