投稿日	： 2004/08/04(Wed) 13:37
投稿者	： ももたろう
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: ホームページのリンク先が切れてるか確認できるか？

自己レスです。
下記コードで解決しました。
（効率のいいやり方があったら教えて下さい。）

If sURL <> "" Then
    lblURL.Caption = sURL       'URL表示
    WebBrowser1.Navigate sURL   'ホームページ表示
            
    '15秒待つ
    StartTime = timeGetTime
    Do
        DoEvents
    Loop While (timeGetTime - StartTime < 15000)
            
    Text1.Text = WebBrowser1.Document.body.innerHTML    'HTMLソースを文字列として取出す
    If InStr(Text1.Text, "ファイルが見つかりません") <> 0 _
        Or InStr(Text1.Text, "ページを表示できません") <> 0 _
        Or InStr(Text1.Text, "ページが見つかりません") <> 0 Then
        xlSheet.Range("D" & i).Interior.ColorIndex = 3  '赤
    ElseIf InStr(Text1.Text, "URLがかわりました") <> 0 _
        Or InStr(Text1.Text, "URL変更") <> 0 _
        Or InStr(Text1.Text, "ページは移動") <> 0 _
        Or InStr(Text1.Text, "URLに移動") <> 0 Then
        xlSheet.Range("D" & i).Interior.ColorIndex = 1  '黄
    End If
End If

★ - ホームページのリンク先が切れてるか確認で.. - ももたろう 08/04-10:26No.9915
• Re: ホームページのリンク先が切れてるか確.. - ももたろう 08/04-13:37 No.9916
  • ちょっと気になったので・・・ - kamurin 08/04-19:00 No.9921
    • Re: ちょっと気になったので・・・ - ももたろう 08/06-10:22 No.9942
      • Re^2: ちょっと気になったので・・・ - 花ちゃん 08/06-11:41 No.9945
        • Re^3: ちょっと気になったので・・・ - ももたろう 08/06-14:40 No.9951
          • Re^4: WebBrowser1.ReadyState - ももたろう 08/06-17:04 No.9957
            • Re^5: WebBrowser1.ReadyState - 花ちゃん 08/06-17:20 No.9959
              • Re6:WebBrowser1・・・ - ももたろう 08/06-17:54 No.9960
      • 試してみましたが - 花ちゃん 08/06-18:53 No.9961
        • Re: 試してみましたが - ももたろう 08/09-11:20 No.9978