チャットのなやみ - HSPTV!掲示板

こんにちは。
質問が２つあります。
１）チャットの送信する部分をどうしたらいいかわかりません。
２台のコンピュータでやりましたが、できません。(XPとVistaだから？)
以下テストです。



#include "hspsock.as"
#pack "hspsock.as"
#packopt name "hirosechat"
	screen 0,500,500
	title "HIROSECHAT - by JHS"
	ipget
	username=""
	sdim username,10
*name
	cls
	mes "名前（半角で10文字まで）：":input username
	button "参加",*start
	stop
*start
	cls
	mes username
	chat=""
	mes "半角で40文字までで文を入力して下さい。"
	input chat,300,,40
	button "発言",*write
	button "リセット",*reset
	button  "退出",*name
	note=""
		sdim note,20000
	exist "chat.txt"
	if strsize != -1{
		notesel note
		noteload "chat.txt"
		noteadd note,0,1
	}
	mesbox note,300,300,0,20000
	repeat
	sockget hatugen,64,0//発言を受信
	if stat == 0{
		notesel note
		noteadd hatugen,0,0
		notesave "chat.txt"
	}
	await 1
	loop
	stop
*write
	hatugen=""+username+"＞"+chat+"＞"+gettime(0)+gettime(1)+gettime(2)+""
	sockput ""+hatugen+"",0//上の行の内容を送信
	notesel note
	noteadd hatugen,0,0
	notesel note
	notesave "chat.txt"
	objprm 4,note
	stop
*reset
	chat=""
	objprm 3,chat
	stop

２）↑のスクリプトをHSPLetで動作させたんですが、エラーが出てしまいます。

だれか解決策教えて下さい。
長くなりすみません。