Hola, he estado intento algunas cosas para lograr lo que deseo pero sin buenos resultados ya que no soy muy entendido con este lenguaje.
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