#include "winsock.as"

	;select( fd+1 , &fdset , NULL , NULL , &timeout ); 
	fdset.0=1
	fdset.1=sock

	ll_getptr fdset
	ll_ret _p

	_prm=1,_p,0,0

	ll_getptr _p2
	ll_ret _p
	_prm.4=_p


	;初期化
	WSAStartup 0x0202
	if stat :mes "err!":stop


	;自分のホスト名＆IPを調べてみる
	ws_gethostname myhost,1024
	if stat :mes "err!":stop

	ws_gethostbyname addr,myhost

	ws_inet_ntoa myip,addr
	mes "My address "+myhost+":"+myip



	;HTTPでお喋り
	host="www.k-k.yi.org"
	port=80

	;IPを調べる
	ws_gethostbyname addr,"k-k.yi.org"

	;ソケット作成
	ws_socket sock,PF_INET,SOCK_STREAM
	if stat :mes "socket err!":stop
	;mes "socket:"+sock


	;アドレスデータ作成？
	dim addrdat,16
	wpoke addrdat,0,PF_INET
	poke addrdat,2,port>>8
	poke addrdat,3,port
	wpoke addrdat,4,addr
	wpoke addrdat,6,addr>>16

	;接続
	ws_connect sock,addrdat,16
	if stat :mes "connect err!":stop

	s="GET / HTTP/1.0\n\n"
	strlen l,s
	ws_send sock,s,l
	;mes "send size:"+stat

	sdim buf,655360
	sdim s,1024
	size=0
	;受信
	repeat
		wait 10
		ws_recv sock,s,256
		if stat<=0 :break
		size+=stat
		buf+=s
		title ""+size
	loop
	mes buf

	;ソケットを閉じる
	ws_closesocket sock
	mes "ok"

	;解放
	WSACleanup
stop