ネット接続の検出

Top　＞　役立つ！？パーツ集　＞　ネット接続の検出

DEF_DLL InternetGetConnectedState(int, int):Bool:WinInet.dll

Dim flags
Ifb InternetGetConnectedState(flags, 0) Then
	MsgBox("ネットワークに接続されています。")
Else
	MsgBox("ネットワークに接続されていません。")
EndIf

この機能を実現するためにはWindowsAPIを利用することが必要になってきます。
APIについては、できることが多すぎてそれだけで本ができるくらいですので、必要な物だけをちょこちょこと使っていきたいと思います。
また、注意点として「ネットワークに接続した」＝「インターネットに接続した」ではないことに留意してください。
たとえばモデムやルータ等の接続が切れていたとしても、ハブ等つながれている機器の電源さえ入っていれば「接続されています」となってしまいます。

b-click

かゆいところに手が届くUWSCプログラミング　2006
当サイトの内容を広めていただくのは結構ですが、丸パクリやうみうみ屋さんにご迷惑をおかけするような使い方を禁止します。