vbscript脚本重置错误

我有一个无法解决的问题， 对于专家来说，解决方案可能非常简单。 虽然我还没有设法让它工作，即使在现有的帮助下 在stackoverflow和其他一些脚本论坛上发表文章

所以我的目标是让我的简单脚本，我用它作为演示来重置 不管发生什么错误，它都会自食其果。 我已经尝试过“下一步出错恢复”，但这只是让我的电脑 一次又一次地启动IE

所以我的目标是在出现错误后让脚本继续运行。 如果我想问任何人我的问题，请让我知道，我会改变它或板自己视情况而定

我的剧本：

做 “出错时继续下一步”

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = 1
objIE.FullScreen=True
objIE.Navigate "About:Blank"



Do Until VarType(objIE) = 9
    WScript.Sleep 4000
    objIE.Navigate "local URL"

    WScript.Sleep 6000
    objIE.Navigate "local URL"

        WScript.Sleep 10000
    objIE.Navigate "URL"


        WScript.Sleep 8000
        objIE.Navigate "URL"

        WScript.Sleep 8000
        objIE.Navigate "URL"

                      WScript.Sleep 12000
        objIE.Navigate "URL"

        WScript.Sleep 10000
        objIE.Navigate "URL"

        WScript.Sleep 14000
        objIE.Navigate "URL"

            WScript.Sleep 14000
        objIE.Navigate "URL"


Loop

---

循环

此脚本未结束，必须终止wscript进程才能停止它。 它检查系统上所有正在运行的进程的iexplore；如果找不到internet explorer，脚本将启动一个新实例。如果找到iexplore，它将发送导航命令

On Error Resume Next 

Do While true
If Check() = true Then
    WScript.Sleep 4000
    objIE.Navigate "local URL"

    WScript.Sleep 6000
    objIE.Navigate "local URL"

    WScript.Sleep 10000
    objIE.Navigate "URL"

    WScript.Sleep 8000
    objIE.Navigate "URL"

    WScript.Sleep 8000
    objIE.Navigate "URL"

    WScript.Sleep 12000
    objIE.Navigate "URL"

    WScript.Sleep 10000
    objIE.Navigate "URL"

    WScript.Sleep 14000
    objIE.Navigate "URL"

    WScript.Sleep 14000
    objIE.Navigate "URL"
End If
If Check() = false Then
    'Start Iexplore and direct it to blank page
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = 1
    objIE.FullScreen=True
    objIE.Navigate "About:Blank"
End If


Loop

'Check to see if IEXPLORE is running
Function Check()
Dim objWMIService, objProcess, colProcess
Dim strComputer, strList
strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process")

For Each objProcess in colProcess
    If (inStr(objProcess.Name, "iexplore")) then
        Check = true
    Else
        Check = false
    End If
Next
End Function

---

在VarTypeobjIE=9之前，您想用Do实现什么？在我的设置中，objIE的VarType是8字符串，因为objIE将其名称Windows Internet Explorer作为默认属性返回。你可以用msgboxobjie试试。谢谢你的评论，如果我做了一些不寻常的事情，我很抱歉。我不是一个专家，你看，'9'代表InternetExplorer9，这将是应用程序的版本，不是吗？我认为'do until vartyp'行是为了使循环工作。然而，循环运行不需要它。从Do开始，在下面几行中输入语句，如果要显示意图，则以循环或True结束。现在循环将永远运行。如果OERN没有帮助，那么请详细描述您的问题，因为当前的描述不清楚。编辑：te脚本刷新的原因是每次都达到最大线程数，在此，也可以创建一个循环计数器，让它关闭IE对象并再次启动。这样就不会出现内存耗尽的问题。