TOP > プログラミング HSP関係 > ネット接続チェック

■ネット接続チェック


ソースファイルダウンロード→net_check.zip


01 02 03 04 05 06 07 08 09 10 11 12 13

#uselib "wininet.dll" #func InternetAttemptConnect "InternetAttemptConnect" int #func InternetGetConnectedState "InternetGetConnectedState" int,int #define ERROR_SUCCESS 0x00000000 ret=0 InternetGetConnectedState varptr(ret),0 // stat = 0 : ネットワークに接続できない // LANを切っている場合でも0が返る // stat = 1 : ネットワークに接続可能 if (stat==0):dialog "ネット接続できません。" : end if (stat==1):dialog "ネット接続できます。" : end stop


戻る
このページのURLをメールで送る