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
答案 0 :(得分:0)
上面的函数中的dictObj对象没有指向任何对象。 您必须创建对您想要指向的对象的引用。
例如: 如果您打算指向某个页面,请使用以下语句: 设置dictObj =浏览器(" micClass:=浏览器","创建时间:= 0")。页面(" micClass:= Page")
作为参数传递给此函数的webObject / objDesc可能应该包含所描述的对象。请检查通话 陈述一次。
希望这会回答你的问题。
谢谢, 南达