<? if($funcion=="1"){ $soc=fsockopen("Tu_cliente_Vb","Puerto_de servidor_Vb"); print "&soc=$soc"; } if($funcion=="2"){ fputs($soc,$txt); } if($funcion=="3"){ fclose($soc); } ?>