Hola todos!!

Tiene alguien alguna herramienta o utilitario que se pueda utilizar como programa escucha o programa demonio en VB.

Saludos.

Algo tipo Servicio de Windows quieres decir?

Salu2...

Podría ser, aunque pudiera ser un aplicativo desarrollado en cualquier otro lenguaje, lo que necesito es un utilitario que permita escuhar u puerto (serial por ejemplo) y que en el momento de recibir un cambio de estado me ejecute un programa.

Saludos

COMM Control puedes enviar y recibir señales por el puerto serial...
saludos

como dijo Nano-rosario, el control COMM es el que permite recibir y enviar datos desde el puerto db-9, para "escuchar", use el evento OnComm para recibir el dato necesario y luego la API ShellExecute para abrir el programa que necesita.

Iniciado por Néstor Acevedo

como dijo Nano-rosario, el control COMM es el que permite recibir y enviar datos desde el puerto db-9, para "escuchar", use el evento OnComm para recibir el dato necesario y luego la API ShellExecute para abrir el programa que necesita.

DB-9 es la sigla abreviada para referirse al modelo de conector físico. En realidad es un puerto Serial RS-232 que de hecho en muchos PC de los 90 se encontraba en conectares de 9 y 25 pines (dB9 y DB25).

El Evento OnComm no Recive el dato, solo sirve para saber cuando llego un dato al buffer asignado al puerto serial, tambien permite refrescar las señales de control de la comunicación (como el RTS). Para leer el dato se usa el input del control COMM.
Con respecto a un único programa que sirva para escuchar todos los puertos no conosco ninguno, ya que debido a las difrencias en los tipos de puertos, se necesitas distintos controles para poder acceder a ellos (COMM, WinSockt, etc). Sin contar que muchas veces se usan para propositos distintos.

Pero para recibir datos, como lo configuro el db9. Si me pueden poner un pequeño ejemplo.

Aparentemente, el control 'COMM' tiene una funcionalidad parecida a 'Winsock'. Es decir, cuando al buffer llegue un dato, se te va a disparar el evento '_OnComm', a partir de ahí, tenes que volcar en una variable tuya los datos del buffer y evaluarla para hacer algo con eso..
Imagino que sería algo asi:

Código:

Private Sub miDB9_OnComm()

Dim miDato as Variant
miDB9.GetData miDato

If miDato = "datos validos" Then
 'ejecutar algo
End If
End Sub