VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日: 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


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- Web Forum -