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
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