MessageStatus.vbs

This script logs chat text messages.

Copyright � 2004-2006 Skype Limited. Licensed under BSD license.

'// Create a Skype4COM object:
Set oSkype = CreateObject("Skype4COM.Skype")

'// Connect events:
WScript.ConnectObject oSkype, "Skype_"

'// Connect to Skype API:
oSkype.Attach

'// Loop and sleep:
Do While True 
  WScript.Sleep(60000)
Loop

'// Chat message status events:
Public Sub Skype_MessageStatus(ByRef aMsg, ByVal aStatus)
 
  If (aStatus = oSkype.Convert.TextToChatMessageStatus("RECEIVED") Or _
      aStatus = oSkype.Convert.TextToChatMessageStatus("SENT")) And _
      aMsg.Type = oSkype.Convert.TextToChatMessageType("SAID") Then 
      
      WScript.Echo ">Message " & aMsg.Id & " " & aMsg.FromHandle & " said " & aMsg.Body
  End If
   
End Sub