HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2012
0405
Suzukimlネット接続の有無をチェック4解決


Suzukiml

リンク

2012/4/5(Thu) 20:36:14|NO.45868

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

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

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

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

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



この記事に返信する


Suzukiml

リンク

2012/4/5(Thu) 20:37:23|NO.45869


#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の状態になっています。



暇人

リンク

2012/4/5(Thu) 21:03:52|NO.45871

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


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

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



Suzukiml

リンク

2012/4/5(Thu) 21:43:14|NO.45872

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

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



暇人

リンク

2012/4/5(Thu) 22:09:26|NO.45873

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

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



ONION software Copyright 1997-2021(c) All rights reserved.