VBS中GetObject 0x800A0007内存不足，如何修正？

sig13

1.                 Dim oDomX
   
2. 
   
3.                 Do
   
4.                         Wscript.echo "Loading " & lnk.outerText & "... " & lnk.href
   
5.                         On Error Resume Next
   
6.                         Set oDomX = WScript.GetObject(lnk.href)
   
7.                         If Err.Number = 0 Then
   
8.                                 loadPage = WaitLoading(oDomX)
   
9.                         Else
   
10.                                 Wscript.echo "ERR #" & CStr(Hex(Err.Number)) & " " & Err.Description
    
11.                                 Wscript.echo "Try again!!!"
    
12.                                 Err.clear
    
13.                                 loadPage = False
    
14.                         End If
    
15.                 loop While loadPage = False
    
16. 
    
17.                 Dim fn
    
18.                 fn = dirName & "" & lnk.outerText & ".txt"
    
19.                 Call WriteTextFile(fn, oDomX.body.outerText)
    
20.                 Set oDomX = Nothing

复制代码

在错误处理那里，一般的错误都可以重新载入就好了，但是要是发生了“0x800A0007 内存不足”就会一直报这个错误，不能恢复。

想问一下，要怎么操作，才可以跳过这个错误，继续处理？

Spring

在代码开头的地方加一行
On Error Resume Next
试试。