samsinn

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible=0
ie.Navigate("about:blank")
ie.Navigate("http://www.qq.com")
delay(ie)
ie.Visible=1
wsh.quit
Sub delay(obj)
do while CInt(IE.Readystate or IE.busy)<> 4
WScript.Sleep 100
loop
End Sub
复制代码

把代码里的http://www.qq.com换成你要的网址即可

samsinn

回复 5# RuiIsRui


    我自己测试是没问题的，我的代码中的“第2行”是隐藏的状态打开网页，然后等待加载完毕“第6行”设置为显示