【初心者】Webサーるのは？

---

はじめまして。Ｚです。
質問します。

指定したHPのサーバが稼動しているかどうか調べるには、
どうすればよろしいでしょうか？

たとえば、http://www.xxx.oo.jp/  というＨＰがあったとします。
このＨＰを公開しているWebサーバが稼動しているかどうかを調べたいのです。
簡単に言いますと  http://www.xxx.oo.jp/  このＨＰが今見れるか見れないかをＶＢを使って調べることは可能でしょうか？
教えてください。お願いします。

編集 削除

---

すいません；；
間違ってエンター押してしまいました。

編集 削除

---

Wininet.dllを利用したサンプルを書いてみます。へたっぴですが、よろしくお願いします(^^;。

Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal Agent As String, ByVal AccessType As Long, ByVal ProxyName As String, ByVal ProxyBypass As String, ByVal Flags As Long) As Long
Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternet As Long, ByVal Url As String, ByVal Headers As Long, ByVal HeadersSize As Long, ByVal Flags As Long, ByVal Context As Long) As Long
Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInternet As Long) As Long
Const INTERNET_OPEN_TYPE_PRECONFIG As Long = 0
Const INTERNET_FLAG_RELOAD As Long = &H80000000

Sub Test()
Dim hInternet As Long, hInetUrl As Long
hInternet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
hInetUrl = InternetOpenUrl(hInternet, "http://www.xxx.oo.jp/", 0, 0, INTERNET_FLAG_RELOAD, 0)
If hInetUrl <> 0 Then
    MsgBox "稼動してます(^^;"
Else
    MsgBox "稼動してません(ToT)"
EndIf
InternetCloseHandle hInetUrl
InternetCloseHandle hInternet
End Sub

編集 削除

---

すいません。右側に大きくはみでてしまいました。
画面の幅で折り返されると思っていたもので。発言に不慣れなへたっぴーず(笑)
ところで、私のサンプル、稼動しているときはいいですけど、稼動してないときは
反応が無いですね。フリーズしたようになってしまいます。これは回避できるような気がします。(InternetSetOption)
必要に応じて組み込んでみてください。

編集 削除

---

ご指導ありがとうございます＾＾
また何かあったら質問させてください；；
では。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。