どこが悪いですかね?(インターネットに接続していなくてもLANに接続しているだけで接続していますになってしまいます)
#uselib "wininet.dll" #func InternetAttemptConnect "InternetAttemptConnect" int #func InternetGetConnectedState "InternetGetConnectedState" int,int ERROR_SUCCESS = 0x00000000 title "Internet" buffer ID,200,50 ret=0 InternetGetConnectedState varptr(ret),0 if stat = 0 :mes "ネットワークに接続できないか、LANの電源が入っていません。" if stat = 1 :goto *iok *iok InternetAttemptConnect 0 if stat=ERROR_SUCCESS{ dialog"インターネットに接続可能",0,"メッセージ" } end