-2
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
환영합니다. [둘러보기]를 가지고 [ask]를보세요. 이것은'VB.NET' 코드가 아닙니다. 올바른 태그를 사용하십시오. – Bugs