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


Z  2004-07-17 01:06:41  No: 114868

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

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

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


Z  2004-07-17 01:08:23  No: 114869

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


へたっぴーず  2004-07-17 07:57:37  No: 114870

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


へたっぴーず  2004-07-17 08:09:47  No: 114871

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


Z  2004-07-19 00:55:38  No: 114872

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加