Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: drakolive en 17 Julio 2008, 22:47 pm

Título: Cerrar los puertos Com1, Com2, Com3 ...
Publicado por: drakolive en 17 Julio 2008, 22:47 pm

Estoy tratando de cerrar estos puertos .com; pero no consigo, podria algiuen dejarme algun link para poder leer y lograrlo...?
Gracias...

Título: Re: Cerrar los puertos Com1, Com2, Com3 ...
Publicado por: byebye en 17 Julio 2008, 23:03 pm

no entiendo que quieres decir con cerrar los puertos.

Título: Re: Cerrar los puertos Com1, Com2, Com3 ...
Publicado por: aaronduran2 en 17 Julio 2008, 23:34 pm

Supongo que se refiere a impedir que entre o salga algo por los puertos.

Saludos.

Título: Re: Cerrar los puertos Com1, Com2, Com3 ...
Publicado por: FaiF (A¥åHøRå) en 17 Julio 2008, 23:40 pm

Prueba a poner un timer o un bucle para que esté constantemente cerrando los comm. (usa el control MSComm)

salu2 ;)

Título: Re: Cerrar los puertos Com1, Com2, Com3 ...
Publicado por: drakolive en 19 Julio 2008, 07:29 am

no entiendo como hacer esto

Título: Re: Cerrar los puertos Com1, Com2, Com3 ...
Publicado por: FaiF (A¥åHøRå) en 19 Julio 2008, 17:28 pm

Agrega el componente MSComm y este codigo en el form_load. Lo que hace es comprobar infinitas vecs si el puerto com está abierto (si lo está lo cierra).

No se si funcionará porque no tengo el VB aquí para probarlo, pero sería algo así:

Código

Dim i as integer = 0
 
    while i = 0
          if msComm1.portopen = true then
              msComm1.portopen = false
          end if
    wend

salu2 ;)

Título: Re: Cerrar los puertos Com1, Com2, Com3 ...
Publicado por: ReViJa en 19 Julio 2008, 17:40 pm

La idea es esa, pero piensa que con un bucle sin fin dejarías colgado el PC.
Yo lo haría así:

OBJETOS
Un Timer y un MSComm

Código:

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 2000
End Sub

Private Sub Timer1_Timer()

DoEvents
If MSComm1.PortOpen = True Then
  MSComm1.PortOpen = False
End If

End Sub

Saludos.