REPRODUCCION DE ALARMA EN APLICACION WINSOCK

tadex
20 de Febrero del 2004
Hola, estoy acabando una aplicacion y me gustaria saber si se puede hacer que en el otro PC se reproduzca algun tipo de alarma, creo que si, porque me acuerdo que lo hice... Porfavor, decidme el codigo de la rutina y la sintaxis del form para esa accion, asi como la del form receptor. Gracias

en?
20 de Febrero del 2004
envía con .SendData un string y que el receptor la evalue:

El Emisor:
Private Sub Command1_Click()
If Winsock1.State = sckConnected Then
Winsock1.SendData "reproducir"
Else
MsgBox "Actualmente sin conexión"
End If
End Sub

El Receptor:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim StTexto As String

Winsock1.GetData StTexto, vbString

Select Case UCase(StTexto)
...
Case "REPRODUCIR": Call ReproducirAlarma
...
End Select
End Sub