Regolare il web=CreateObject (“InternetExplorer.Application„)
'regolar falso per sperimentare:
web.visible=True
fotoricettore. Traversare “http://www.google.com„
Mentre web.busy
wscript.sleep 100
Wend
URL= " http://www.yahoo.com "
Regolare il xml = CreateObject (“MSXML2.XMLHTTP.3.0„)
xml. Aperto “OTTENERE„, URL, falso
xml. Trasmettere
resp = xml.responseText
'uncomment all'esperimento:
'web.quit
il resp del msgbox, vbInformation, “ha colpito prego CTRL+C per copiare questo„
|