Scripting 执行此同步函数时，将错误获取为所需对象dictObj

上述函数中的dictObj对象未指向任何对象。 您必须创建要指向的对象的引用

例如： 如果要指向某一页，请使用以下语句： 设置dictObj=BrowsermicClass:=Browser，creationtime:=0。PagemicClass:=Page

可能作为参数传递到此函数的webObject/objDesc应该描述该对象。请查一下电话号码 声明一次

希望这能回答你的问题

谢谢， 欢迎光临。请拿着这本书看一看。这不是VB.NET代码。请使用正确的标签。

Sub sb_Web_Sync(webObject,objDesc)
    Set webObject = dictObj.Item(webObject)
    mercurytimers.Timer ("sb_Web_Sync").Start
    Do
        Services.ThinkTime 1
    Loop Until webObject.Object.readyState = "complete" and webObject.Object.documentElement.readyState = "complete"

    Do 
         Services.ThinkTime 1
    Loop Until webObject.Frame("html tag:=IFRAME","Class Name:=Frame","url:=about:blank").Exist(0) = false Or (mercurytimers.Timer ("sb_Web_Sync").ElapsedTime >=2000)

    mercurytimers.Timer ("sb_Web_Sync").Reset
    mercurytimers.Timer ("sb_Web_Sync").Stop
    Err.Clear
End Sub