Установите web=CreateObject («InternetExplorer.Application»)
'установите ложным для того чтобы экспериментировать:
web.visible=True
стержень. Проводите «http://www.google.com»
Пока web.busy
wscript.sleep 100
Wend
URL= " http://www.yahoo.com "
Установите xml = CreateObject («MSXML2.XMLHTTP.3.0»)
xml. Открыто «ПОЛУЧИТЕ», URL, ложный
xml. Пошлите
resp = xml.responseText
'uncomment к эксперименту:
'web.quit
resp msgbox, vbInformation, «пожалуйста ударило CTRL+C для того чтобы скопировать это»
|