2017-03-10 2 views
-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 
+0

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

답변

0

dictObj 객체가 어떤 객체도 가리키고 있지 않습니다. 의도하는 대상에 대한 참조를 만들어야합니다.

예를 들어

: ("micClass = 브라우저", "CREATIONTIME = 0") 설정 dictObj = 브라우저 : 당신이 어떤 페이지를 가리 키도록하려는 경우 다음 아래 문을 사용합니다. 페이지 ("micClass : = 페이지 ")

아마도이 함수에 매개 변수로 전달 된 webObject/objDesc에는 설명 된 개체가 있어야합니다. 전화 번호 을 한 번 확인하십시오.

희망 사항이 귀하의 질문에 대한 답변입니다.

감사합니다. Nandana