投稿日 | : 2004/08/09(Mon) 11:20 |
投稿者 | : ももたろう |
Eメール | : |
URL | : |
タイトル | : Re: 試してみましたが |
下記方法で解決しました、ありがとうございました。
何故かは結局わかりませんでした。
> sURL1 = "http://www.bcap.co.jp/hanafusa/in.html"
> WebBrowser1.Navigate sURL1
'----ここから追加----
'1秒待つ
StartTime = timeGetTime
Do
DoEvents
Loop While (timeGetTime - StartTime < 1000)
'----ここまで----
> Do While WebBrowser1.Busy
> DoEvents
> Loop
>
> Do While WebBrowser1.Document.ReadyState <> "complete"
> DoEvents
> Loop
> Call check(1)
> End Sub