vbs中使用InternetExplorer.Application出错解决方案

'显式声明所有变量
Option Explicit

Dim oShell, oIE, address, fso, file, url

set oShell = WScript.CreateObject ("WScript.Shell")
set fso = WScript.CreateObject ("Scripting.FileSystemObject")
set oIE = Wscript.CreateObject ("InternetExplorer.Application" , "UMU_")

'设置浏览器的属性
oIE.Toolbar = True
oIE.Visible = True
oIE.Height = 800
oIE.Width = 800
oIE.Silent = True

if fso.fileExists ("url.txt") then 
    '持续进行
    while true

        set file = fso.OpenTextFile ("url.txt", 1) '以只读方式打开

        while not file.AtEndOfStream
            '一行一行的读取url地址
            url = file.ReadLine
            oIE.Navigate url
            
            while oIE.busy    
                WScript.Sleep 1000 '每隔1秒钟检查
            wend

        wend
        
        file.Close

    wend

else 
    WScript.echo "url.txt file does't exists !"
end if

'消息响应函数
sub UMU_OnQuit ()
    WScript.Quit
end sub