欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

vbs中使用internetexplorer.application出错解决方案

更新时间: 2014-01-05 01:52:53 责任编辑: Author_N1

 

vbs中使用InternetExplorer.Application出错
有以下代码,不知什么原因运行一阵后,会出现:

脚本:...
行:26
字符:4
错误:请求的资源在使用中
代码:800700AA
源:(null)

的错误

为什么会出现这个错误啊,大家帮帮忙

VBScript code

'显式声明所有变量
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




url中的存储的是:
www.xunlei.com
www.sina.com



--参考方法--
http://www.baidu.com/s?wd=%C7%EB%C7%F3%B5%C4%D7%CA%D4%B4%D4%DA%CA%B9%D3%C3%D6%D0

To 2L:
没出错的时候,err.number是0,走else分支……
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:53
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2480/
本文WWW.DOC100.NET DOC100.NET版权所有。