HSPTV!掲示板

ネット接続の有無をチェックするスクリプトをお願いします。

wininet.dllでInternetGetConnectedState　を使ってみましたが、
自宅にDNSサーバー、DHCPサーバーがあるため、Windowsのタスクバーにはインターネットアクセスとなっていても
実際には接続できないことがよくあります。

そこで、Pingを利用して、ネット確認をしようと思いましたが、よく分かりません。

repeat
wait 1000
Ping.exeやらを実行→無理なら音を鳴らし、OKなら何もしない
roop

みたいなのを作ってみたかったのですが、よく分かりません。
Ping以外の方法でネットの有無チェックをする方法がありましたらお願いします。

#uselib "wininet.dll"
#func InternetAttemptConnect "InternetAttemptConnect" int
#func InternetGetConnectedState "InternetGetConnectedState" int,int

ERROR_SUCCESS = 0x00000000

repeat
wait 1000
ret=0
InternetGetConnectedState varptr(ret),0
if stat = 0 :goto *ng
if stat = 1 :goto *ok
loop

*ok
	mes "接続OK"
	stop

*ng
	mes "接続NG"
	stop

これで言うと、ずっと接続OKの状態になっています。

ループ内で監視するならこうなるんじゃね

repeat
wait 1000
ret=0
InternetGetConnectedState varptr(ret),0
if stat = 0 :gosub *ng
if stat = 1 :gosub *ok
loop

*ok
	mes "接続OK"
	return
*ng
	mes "接続NG"
	return

切断されてるのに数分切断の検出が出来ない環境もあるらしい・・・

>>3　そうですね。ありがとうございます

>>1のPingの方法を教えてくださる方をお願いします。

びんずめ堂
pingプラグイン for HSP
http://www.binzume.net/software/forhsp.html

サプルに間違いがあったけど
> button "ping",GO
↓に変更
> button "ping",*GO