TCPStartup()
$ip='192.168.1.4'
$listen=TCPListen($ip,4444)

Do
	$socket=TCPAccept($listen)
	$data=TCPRecv($socket,1342177280)

Until $data<>''
$op=FileOpen('khang.jpg',18)
FileWrite($op,$data)