test6.hsp

sample\hspinet\test6.hsp » Plain Format

#include "hspinet.as"

	;
	;	ファイルの取得(メモリ上に取得)
	;
	;	旧HSP3掲示板(onionsoft.net)のキーワード検索メニューを指定し、結果を取得します
	;

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

	;	URLを指定
	neturl "http://www.onionsoft.net/hsp/beta/"

	;	GET形式でCGIにパラメーターを渡す
	netrequest_get "betabbs.cgi?mode=find&page=0&list="

	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 完了"

	netgetv buf
	mesbox buf,640,400,1

	stop