¡Me han descubierto!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Wsk_DataArrival(ByVal bytesTotal As Long)
Dim dat As String
Wsk.GetData dat, vbString
End Sub
Private Sub cmdConnect_Click()
With Wsk
.Close
.RemoteHost = TxIP
.RemotePort = TxPort
.Connect
End With
End Sub
Private Sub cmdSend_Click()
Wsk.SendData TxSend
End Sub
Private Sub Wsk_DataArrival(ByVal bytesTotal As Long)
Dim dat As String
Wsk.GetData dat, vbString
End Sub
Private Sub cmdClose_Click()
Wsk.Close
End Sub
Private Sub cmdListen_Click()
With Wsk
.Close
.LocalPort = TxPort
.Listen
End With
End Sub
Private Sub cmdSend_Click()
Wsk.SendData TxSend
TxLog = TxLog & "Servidor : " & TxSend & vbCrLf
TxSend = ""
End Sub
Private Sub Wsk_ConnectionRequest(ByVal requestID As Long)
Wsk.Close
Wsk.Accept requestID
End Sub
Private Sub Wsk_DataArrival(ByVal bytesTotal As Long)
Dim dat As String
Wsk.GetData dat, vbString
TxLog = TxLog & "Client : " & dat & vbCrLf
End Sub