Skype4COM - Set MoodText

[FireFox]

Hi,

Skype4COM docs here

I want to set the MoodText but I havnt found the function to set it

Here is an example to get it :

$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

Thanks for anyhelp.

Cheers, FireFox.

[Ealric]

HRESULT UserMood([in] IUser *pUser,[in] BSTR MoodText)

This event is caused by a change in the mood text of the user.

Parameters:

[in] pUser contains the interface pointer for the User object.

[in] MoodText contains the new mood text.

Found with GoogleHack

http://www.google.com/search?hl=en&q=+...mp;aq=f&oq=

[FireFox]

@Ealric

Thanks, I will try it as soon as I can

Cheers, FireFox.

[FireFox]

I tried the function, but I can't get it to work...

expandcollapse popup

$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()
$User = $oSkype.CurrentUser ;Get Current User | this doesn't work (wrong function name call perhaps)
MsgBox(64, 'Skype4COM', $User)
$oSkype.UserMood($User, 'new text mood') ;Set MoodText | this doesn't work...

;https://developer.skype.com/Docs/Skype4COMLib/_ISkypeEvents
;HRESULT UserMood([in] IUser *pUser,[in] BSTR MoodText)
;This event is caused by a change in the mood text of the user.
;[in] pUser contains the interface pointer for the User object.
;[in] MoodText contains the new mood text.

;-------------------------------------------------------------------------------------------------

MsgBox(64,'Skype4COM',$oSkype.CurrentUserProfile.MoodText) ;Read 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

Thanks for anyhelp....

Cheers, FireFox.

Edited February 13, 2009 by FireFox

[MyTech]

Hi,

Skype4COM docs here

I want to set the MoodText but I havnt found the function to set it

Here is an example to get it :

$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

Thanks for anyhelp.

Cheers, FireFox.

I Posted Skype Moodtext changing to Current Itunes Song

http://www.autoitscript.com/forum/index.ph...21334&st=15