//Synchronise Objects function - another
Public Function fnSynchroniseObjects(objPage,objObjectToSynchronise,intWaitValue)
Dim blnResult
blnWaitProprtyValue=CBool(blnWaitProprtyValue)
intWaitValue=(Int(intWaitValue)*1000)
objPage.Sync
objObjectToSynchronise.WaitProperty "visible", True , intWaitValue
objObjectToSynchronise.WaitProperty "attribute/readyState", "complete", intWaitValue
End Function
No comments:
Post a Comment