Placer le web=CreateObject (« InternetExplorer.Application »)
'placer faux pour expérimenter :
web.visible=True
Web. Diriger « http://www.google.com »
Tandis que web.busy
wscript.sleep 100
Wend
URL= " http://www.yahoo.com "
Placer le xml = le CreateObject (« MSXML2.XMLHTTP.3.0 »)
xml. Ouvert « OBTENIR », URL, faux
xml. Envoyer
resp = xml.responseText
'uncomment à l'expérience :
'web.quit
le resp de msgbox, vbInformation, « a frappé CTRL+C svp pour copier ceci »
|