HSPTV!掲示板

HSPでインターネットに接続できるかを確認するソフトを作成しようと思い、以下のスクリプトを組んだのですが、うまく動作しません。

どこが悪いですかね？（インターネットに接続していなくても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

そういう仕様です。
インターネットに接続しているかはyahooやgoogleなどのメジャーサイトに
接続できるかどうかで調べるのが現実的です。

>そういう仕様です。
インターネットに接続しているかはyahooやgoogleなどのメジャーサイトに
接続できるかどうかで調べるのが現実的です。

どうやって確認すればいいですか？

どうやってって普通に通信できるかどうか確認すればいいんですよ。
以下は一例

#include "hspsock.as"
sockopen 0,"www.yahoo.co.jp",80
if stat=0{
	mes "接続できました"
}else{
	mes "接続できませんでした"
}
sockclose 0

ありがとうございます。解決しました。