Vbscript 使用Navigate2时出现未指定的错误代码80004005
好的,我已经更新了整个线程。我的文本文件上有4个URL,前2个或3个打开,但在打开第4个时,我的代码出现如下错误:Vbscript 使用Navigate2时出现未指定的错误代码80004005,vbscript,Vbscript,好的,我已经更新了整个线程。我的文本文件上有4个URL,前2个或3个打开,但在打开第4个时,我的代码出现如下错误: Windows Script Host Script: [file path] Line: 23 Char: 3 Error: Unspecified error Code: 80004005 Source: (null) 就我所知: Option Explicit ' Constants Const ForReading = 1 Const navOpenInNewTab =
Windows Script Host
Script: [file path]
Line: 23
Char: 3
Error: Unspecified error
Code: 80004005
Source: (null)
就我所知:
Option Explicit
' Constants
Const ForReading = 1
Const navOpenInNewTab = 2048
Dim oIE, filename, fso, f
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = True
filename = "C:\StartIt\urls.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename, ForReading)
Do Until f.AtEndOfStream
If f.Line = 1 Then
oIE.Navigate2 removeDelimiter(f.ReadLine)
Else
oIE.Navigate2 removeDelimiter(f.ReadLine), navOpenInNewTab ' This is line 23
End if
Loop
Set oIE = Nothing
f.Close
WScript.Quit
' Methods
Function removeDelimiter(s)
If Right(s, 1) = "," Then
removeDelimiter = Left(s, Len(s) - 1)
Else
removeDelimiter = s
End If
End Function
什么东西没有按预期工作?使用
Navigate2
调用,您应该有一个无限循环(因为您从未将文件读到底),但除此之外,它应该可以自动工作。好的,我已经添加了更新的代码。现在错误显示为“未指定错误:代码80004005
该行的内容是什么?