#include "hspinet.as"
screen 0,640,480
title "ダウンロードのサンプル"
alloc buf,1024*1024
netinit ; プラグインの初期化
neturl "http://www.onionsoft.net/" ; ＵＲＬの指定（ファイル名は指定しちゃダメです…）
netdlname "index.txt" ; ダウンロード後のファイル名
netrequest "newg.html" ; ファイル名の指定（ここで指定する）
repeat ; ダウンロード処理…
redraw 0
exist "index.txt"
pos 0,0
syscolor 15 : boxf : syscolor 8
mes "だうんろーどちゅう…\n"+strsize+" BYTE"
redraw 1
netexec res
if res : break
await 50
loop
syscolor 15 : boxf : syscolor 8
netterm ; プラグインの開放
exec dir_cur,16 ; カレントディレクトリにファイルがあります
exist "index.txt"
fsize = strsize
if fsize = -1{
dialog "ダウンロードファイルが見つかりませんでした",1,"ERROR"
}
bload "index.txt",buf,fsize
if fsize ! strsize {
dialog "ダウンロードファイルが開けませんでした",1,"ERROR"
}
pos 0,10
objsize 640,480
listbox sel,0,buf
stop
その時点でのエラーを調べるには neterror 命令を使ってください。
あとＨＳＰにはワンキーヘルプといってデフォルトではＦ１を押すだけで
ヘルプが表示されますよ。スクリプトにneterrorっと記述してカーソルを
一番右端においてＦ１を押してみてください。
分からないことがあったらこれでチェックできます。
あと謎のエラーが発生した場合はメニューバーの
「ヘルプ」→ＨＳＰプログラムガイドを開くを選択して
４．HSPの基本動作概念 の項目の「エラーメッセージ 」を見てみるといいです。
それでも分からなかったときに質問してみるのがベターだと思いますよ。
♪独り言♪ （これ以下は無視していただいて結構です）
>※協力した方の名前はソフトウェアに記載する予定であります
今後こういう手で質問してみるのも手かと思ったりしていた（笑）
インターネット上にあるtxtファイルを読み込んで変数aに代入する方法
