pcbnet2を初めて使ったので結構適当です(笑)
エラー処理はいい加減です。
とりあえず送信は出来ているのでOK!?
#include "pcbnet2.as"
//http://www.futomi.com/lecture/form/index.html
//http://www.futomi.com/cgi-bin/lecture/form/posttest.cgi
tcpopen id,"www.futomi.com",80
if stat:dialog "初期化エラー":end
repeat 100
tcpiscon id
if stat : break
wait 10
loop
if stat!1 {
dialog "接続に失敗しました。",1
tcpclose id
end
}
string ="POST /cgi-bin/lecture/form/posttest.cgi HTTP/1.1\n"
string+="User-Agent: HSP ver3.1\n"
string+="Host: www.futomi.com\n"
string+="Content-Type: application/x-www-form-urlencoded\n"
string+="Content-Length: 14\n"
string+="\n"
string+="hsp=31&tmp=hsp"
tcpput string,id
if stat:dialog "送信エラー ("+stat+")":end
repeat 100
tcpfail id
if stat:break
wait 1
loop
sdim s,4096
tcpget s,4096,id
//UTF-8で返答がきたのでブラウザで開いてみる
notesel s
notesave "tmp.html"
exec "tmp.html",16
tcpshut id
tcpclose id
stop