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

sig13

		Dim oDomX

		Do
			Wscript.echo "Loading " & lnk.outerText & "... " & lnk.href
			On Error Resume Next
			Set oDomX = WScript.GetObject(lnk.href)
			If Err.Number = 0 Then
				loadPage = WaitLoading(oDomX)
			Else
				Wscript.echo "ERR #" & CStr(Hex(Err.Number)) & " " & Err.Description
				Wscript.echo "Try again!!!"
				Err.clear
				loadPage = False
			End If
		loop While loadPage = False

		Dim fn
		fn = dirName & "\" & lnk.outerText & ".txt"
		Call WriteTextFile(fn, oDomX.body.outerText)
		Set oDomX = Nothing
复制代码

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

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

Spring

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