nu3dell
Осваивающий
- Сообщения
- 139
- Репутация
- 24
есть такой пример
Сюда подходят Away,online,offline,Invisible! Но не могу понят что надо для Do Not Disturb, так вот может кто то занет что надо для
Код:
$oSkype = ObjCreate('Skype4COM.Skype')
$oSkypeEvent = ObjEvent($oSkype,'Skype_')
$oError = ObjEvent('AutoIt.Error','MyErrFunc')
If Not $oSkype.Client.IsRunning Then
$oSkype.Client.Start()
EndIf
While 1
Sleep(250)
If $oSkype.CurrentUserStatus = $oSkype.Convert.TextToUserStatus('ONLINE') Then
ExitLoop
Else
$oSkype.ChangeUserStatus($oSkype.Convert.TextToUserStatus('ONLINE'))
EndIf
WEnd
$oSkype.Attach()
MsgBox(64,'Skype4COM',$oSkype.CurrentUserProfile.MoodText)
Func Skype_AttachmentStatus($aStatus)
MsgBox(64,'Skype4COM','Attachment status ' & $oSkype.Convert.AttachmentStatusToText($aStatus))
If $aStatus = $oSkype.Convert.TextToAttachmentStatus('AVAILABLE') Then
$oSkype.Attach()
EndIf
EndFunc
Func MyErrFunc()
ConsoleWrite('Skype4COM Error !' & @CRLF)
EndFunc
Сюда подходят Away,online,offline,Invisible! Но не могу понят что надо для Do Not Disturb, так вот может кто то занет что надо для
