#cs ----------------------------------------------------------------------------
testing alert new messages.
#ce ----------------------------------------------------------------------------
;// Create a Skype4COM object:
$oSkype = ObjCreate("Skype4COM.Skype")
$oSkypeEvent = ObjEvent($oSkype,"Skype_")
$oError = ObjEvent("AutoIt.Error","MyErrFunc")
;// Start the Skype client:
If Not $oSkype.Client.IsRunning Then
$oSkype.Client.Start()
EndIf
;// Verify that a user is signed in and online before continuing
While 1
If $oSkype.CurrentUserStatus = $oSkype.Convert.TextToUserStatus("ONLINE") Then
ExitLoop
Else
$oSkype.ChangeUserStatus($oSkype.Convert.TextToUserStatus("ONLINE"))
EndIf
Sleep(1000)
WEnd
;// The AttachmentStatus event handler monitors attachment status and automatically attempts to reattach to the API following loss of connection:
Func Skype_AttachmentStatus($aStatus)
MsgBox(0,"","Attachment status " & $oSkype.Convert.AttachmentStatusToText($aStatus))
If $aStatus = $oSkype.Convert.TextToAttachmentStatus("AVAILABLE") Then
$oSkype.Attach()
EndIf
EndFunc
;// messagebox Message received from "user"
Func Skype_MessageStatus($aMsg, $aStatus)
if ($aStatus = $oSkype.Convert.TextToChatMessageStatus("RECEIVED")) and _
$aMsg.Type = $oSkype.Convert.TextToChatMessageType("SAID") Then
MsgBox(0,"","Message " & $aMsg.Id & " " & $aMsg.FromHandle & " said " & $aMsg.Body)
;MsgBox(0,"","Total missed message count: " & $oSkype.MissedMessages.Count)
EndIf
EndFunc
While 1
sleep(1000)
WEnd
I now have this, which works pretty good. the next thing is need is that it triggers on a word or chatgroup.
