Ajustar o web=CreateObject (“InternetExplorer.Application”)
'ajustar falso para experimentar:
web.visible=True
correia fotorreceptora. Navegar “http://www.google.com”
Quando web.busy
wscript.sleep 100
Wend
URL= " http://www.yahoo.com "
Ajustar o xml = o CreateObject (“MSXML2.XMLHTTP.3.0”)
xml. Aberto “COMEÇ”, URL, falso
xml. Emitir
resp = xml.responseText
'uncomment à experiência:
'web.quit
o resp do msgbox, vbInformation, “bateu por favor CTRL+C para copiar este”
|