Deseo que la "funcion" c.SendMessagese envie con un retraso de X segundos. Espero me puedan ayudar con esto, por mientras seguiré investigando. Gracias por su ayuda.
Código:
Private Sub oSkype_MessageStatus(pMessage As ChatMessage, Status As TChatMessageStatus) Handles oSkype.MessageStatus If Status = TChatMessageStatus.cmsReceived Or Status = TChatMessageStatus.cmsSent Then Dim msg As String = pMessage.Body Dim c As Chat = pMessage.Chat If msg.StartsWith(Trigger) Then LstBox.Items.Add(DateTime.Now.ToLongTimeString() + ":" + "command " + "'" + msg + "'" + "form " + pMessage.Sender.Handle) msg = msg.Remove(0, 1).ToLower c.SendMessage("Esto no es un comando1") c.SendMessage("Esto no es un comando2") c.SendMessage("Esto no es un comando3") c.SendMessage("Esto no es un comando4") End If End If End Sub