Cerrar los puertos Com1, Com2, Com3 ...

[drakolive]

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

[byebye]

no entiendo que quieres decir con cerrar los puertos.

[aaronduran2]

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

Saludos.

[FaiF (A¥åHøRå)]

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

salu2 

[drakolive]

no entiendo como hacer esto

[FaiF (A¥åHøRå)]

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 (vb) [Seleccionar] Expandir

Dim i as integer = 0

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

salu2 

[ReViJa]

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 [Seleccionar] Expandir

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.