HSPTV!掲示板

大変申し訳ないんですが、どなたか回線状態をチェックする方法教えてください。
イメージとしては適当なサイトに（回線が早い）出力してウエートタイム内にバックがあるか
チェックすればできそうなんですが、ぐぐっても通信関係のソースを見つけられませんでした。
どうか先輩方の知恵とソース貸していただけたらうれしいです。
お待ちしております。

接続確認だけならsockopen命令だけでOKかと。

#include "hspsock.as"

	sockopen 0,"www.yahoo.co.jp",80
	
	if stat!=0{
		switch stat
			case 1
				dialog "TCP/IPがWindowsにインストールされていない"
				swbreak
			case 2
				dialog "ソケットの初期化に失敗した"
				swbreak
			case 3
				dialog "URLのサーバー名取得に失敗した"
				swbreak
			case 4
				dialog "サーバーに接続できなかった"
				swbreak
			default
				dialog "なんらかのエラーが発生しました"
				swbreak
		swend
		end
	}
	
	sockclose 0
	dialog "コネクションはOKです"

お〜〜〜〜〜
ありがとうございます＾＾
これ使えます。
回線が切断されていないか定期的にチェックしたいだけなので、これでいけます！！
ありがとうございました！！！

すみません・・・orz
実行ファイルにするとエラー３２が出るんですがどうしたらいいでしょうか？
エディーターではエラーでないのになぜでしょう？
教えてください。よろしくお願いします。

エラー32ですか？
エディタでは起動するようですから、
DLLファイルがない、エラー38の間違いなのでは？
もしそうなら、
"C:\Program Files\hsp32"からhspsock.dllを探して、
実行ファイルがあるフォルダにhspsock.dllをコピーしてみてください。

すみません・・・orz
hspsock.asを開いて見るべきでした・・。
てっきりhspsock.asはAPI関数処理していると思い込んでいたのが落とし穴でした。
hspsock.asの方でも

       #uselib "hspsock.dll" // <-------- これ・・・orz

       #func sockopen sockopen 4
       #func sockclose sockclose 0
       #func sockget sockget 1
       #func sockgetc sockgetc 1
       #func sockput sockput 6
       #func sockputc sockputc 2
       #func sockmake sockmake $10
       #func sockgetb sockgetb 1
       #func sockputb sockputb 1
       #func ipget ipget $10

       #func sockcheck sockcheck 0
       #func sockwait sockwait $10
       #func sockbye sockbye $100

と、hspsock.dllを呼び出してるって・・・。
日ごろAPIを自前で定義してること考えれば、hspsock.asいらないような・・。
直でDLL呼び出さばいいような・・・。
hspsock.dllの定義の仕様書とも言えないし・。（定義の仕様がコメされてない）
ただ、ソースの複雑化の対策にしか思えないし。
・・・。

すみません、愚痴って。

でも、先輩方の助言には本当に助かります！！！！
初心者な僕もがんばって人に助言ができるように、なれるようにがんばります！！

ありがとうございました＾＾

では失礼します。

DLL使用がお嫌でしたら拙作のモジュールをどうぞ。

「ＨＳＰ３のsock系互換モジュール、hspsock32」
http://scripttpircs.seesaa.net/article/111887260.html

HNがHNだったのでお勧めしませんでした。
最初からお勧めしてればよかったですね。