スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

WEB:完全に表示されるまで待つ

関連キーワード:webbrowser, ReadyState

’-- mySleep関数で使っているGetTickCount関数 --
Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub test()
Dim web As WebBrowser
Set web = form.web
web.Navigate "http://www.***"
Call myWebStay(web)
End Sub

Private Function myWebStay(web As WebBrowser) As String

Do Until web.Busy = False
DoEvents
Loop
Do Until Not web.Document Is Nothing
DoEvents
Loop
Do Until web.Document.ReadyState = "complete"
DoEvents
Loop
'念のため200ミリ秒待つ
Call mySleep(200)
myWebStay = web.LocationURL

End Function

Sub mySleep(ms As Long)
Dim tm As Long
tm = GetTickCount() + ms
Do While GetTickCount() < tm
DoEvents
Debug.Print GetTickCount
Loop
End Sub

スポンサーサイト

トラックバック

コメント

コメントを残す

Secret



上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。