while(1)
{
FD_ZERO(&fds);
FD_SET(newcon,&fds);
FD_SET(STDIN_FILENO,&fds);
select(newcon+1,&fds,NULL,NULL,&intervalo);

if(FD_ISSET(newcon,&fds))
{
 while(((sizerec=recv(newcon,buffer,BUFFERSIZE,0))>0) 
  fwrite(buffer,sizeof(char),sizerec,stdout); 
}
if(FD_ISSET(STDIN_FILENO,&fds))
{
scanf("%[^\n]s",envbuffer); // asumimos un buffer muy grande
send(newcon,envbuffer,strlen(envbuffer),0);
}


}

dim dict
set dict=createobject("Scripting.Dictionary")
set ob1=createobject("wscript.shell")
cadena=inputbox("Cadena que buscará en las conexiones","","ESTABLISHED")
segundos=inputbox("Milisegundos que pasarán has volver a comprobar","","3000")
do
set program=ob1.exec("netstat -ano")
set tl=ob1.exec("tasklist")
tls=split(tl.stdout.readall,vbnewline)
	do
	linea=program.stdout.readline
		if (instr(linea,cadena)<>0) and not( dict.Exists(linea) ) then
		alinea=split(linea)

			for each elemento in alinea
				if isNumeric(elemento) then
					for each linea2 in tls
						if (instr(linea2," " & elemento & " ")<>0) then
						res=msgbox(linea & vbnewline & linea2,vbyesnocancel,"¿Cerrar?")
							if res=vbyes then
							set mata=ob1.exec("taskkill /F /pid " & elemento)
							msgbox mata.stdout.readall & vbnewline & mata.stderr.readall
							end if
							 if res=vbno then
							dict( linea ) = 0
							end if
							 if res=vbcancel then
							wscript.quit
							end if
							
						end if 
					next
				end if
			next
		end if
	loop until program.stdout.atendofstream
wscript.sleep cInt(segundos)

loop