test6.hsp

sample\hspinet\test6.hsp » Plain Format

#include "hspinet.as"

	;
	;	ファイルの取得(メモリ上に取得)
	;
	;	SP3掲示板(HSPTV!)のキーワード「使い方」メニューを指定し、結果を取得します
	;

	netinit
	if stat : dialog "ネット接続できません。" : end

	;	URLを指定
	neturl "http://hsp.tv/play/"

	;	GET形式でCGIにパラメーターを渡す
	netrequest_get "pforum.php?mode=about"

	mes "DOWNLOAD 開始"

*main
	;	結果待ちのためのループ
	netexec res
	if res > 0 : goto *comp
	if res < 0 : goto *bad
	await 50
	goto *main

*bad
	;	エラー
	neterror estr
	mes "ERROR "+estr
	stop

*comp
	;	完了
	mes "DOWNLOAD 完了"

	sdim orgbuf,$4000	; オリジナルのデータ
	sdim buf,$4000		; HSP文字列のデータ

	netgetv orgbuf

	nkfcnv buf,orgbuf	; HSP文字列に変換する
	mesbox buf,640,400,1

	stop