// Send sub
char SendStr(char s,char *b){if(Write(s,b,StrLen(b))<0)return -2;
WaitWriteComplete(s);return 0;}

// 
GetIPaddress(char *get_ipaddress){
	char *get_recbuf;
	char soc;
	int	len;
	
	soc=CreateSocket(1);
	if(soc<0){
		PrStr("Soc?");
		goto err;
	}
	if(Connect(soc,GetHostByName(Server),80)<0){
		PrStr("Svr?");
		goto err;
	}
//	PrStr("Connect\r\n");
	
	if(SendStr(soc, Send_buf)<0){
		PrStr("SendErr?");
		goto err;
	}

	if((len=Read(soc,2000))<0){
		PrStr("RecvErr?");
		goto err;
	}
	get_recbuf=GetReceiveBuffer(soc,1);
//	PrStr(get_recbuf+130);	
	BufCopy(get_ipaddress, get_recbuf+130, 16);
//	PrStr(get_ipaddress);
	MemoryFree(get_recbuf);
//	Sleep(1000);
	
err:
 	CloseSocket(soc);
 	
}
