vb2008で、URLが実在するものかどうか調べるには。

質問

こんにちは。いつもお世話になっています。

質問ですが、vb2008で、指定したURLが実在するものかどうか調べるには、どのようなコードを書けばよろしいでしょうか。

例えば、「http://www.yahoo.co.jp/」のように、実在するURLを入力後、プログラムを実行すると「True」を返し、「http://abcdefg.yahoo.co.jp/」のように、実在しないURLを入力後、プログラムを実行すると「False」を返す　といったような内容を提案して頂きたいです。

宜しくお願いします。

回答No.1

avanzato · ベストアンサー

こんにちは。
VB2008ではなくVBAでのコードですが参考までに。
Sub Sample()
　　Dim objIE As Object
　　Set objIE = CreateObject("InternetExplorer.application")
　　'objIE.Visible = True
　　objIE.Navigate "http://AAAA.yahoo.co.jp/"
　　Do While True
　　　　DoEvents
　　　　If objIE.ReadyState = 4 Then Exit Do
　　Loop
　　If Left(objIE.document.URL, 4) = "res:" Then
　　　　MsgBox ("存在しないアドレスです。")
　　Else
　　　　MsgBox ("サイトが表示されました。")
　　End If
End Sub

お礼

ご回答ありがとうございます。

CreateObject関数により、IEの機能を利用する方法ですね。
参考にさせて頂きます。

回答No.3

todo36

WebClientのサンプル
http://www.atmarkit.co.jp/fdotnet/dotnettips/817httpstatus/httpstatus.html

お礼

ご回答ありがとうございます。

WebClientで返ってきた定数で判断するのですね。
定数にもいろんな種類があり、C言語でのコードも記述されていたので、参考になりました。

回答No.2

Yune-Kichi

「実在する」の定義は何でしょうか。
アクセス可能かどうかであれば，例えばSystem.Net.WebClientクラスを使ってアクセスを試みて成功するかどうかで判別可能です。

お礼

ご回答ありがとうございます。

System.Net.WebClientについて勉強しながら、コードを書いていきたいと思います。