#include "Hspsock.as"

screen 0,400,500,0
sdim ch,10000
sdim coment,1024
name="匿名希望"

pos 0,25
mesbox ch,400,300,0,10000
input coment,330,30,1024
pos 0,0
input info ,200,25,1024
ipget
pos 0,370
mes "IP="+refstr
pos 200,0
button "接続" ,*conect
stop



;通信情報
*conect
pos 0,400
adr=""+info

port=999
mes "ポート"+port+"で接続を待っています..."
sockmake 0,port
if stat : dialog "Socket error": goto *bye
sockopen 1,adr,port
mes "接続しました"

pos 330,325
objsize 70,30
button "送信" ,*send
stop