Jump to content

Help with Skype


NandaS
 Share

Recommended Posts

Hi

I'm trying to do a program that needs a information about my friends profile in Skype. It's not age, sex etc etc... It's about that memo box where we writes our feelings and it goes directly to Skype Home ;)

Years ago we could use the Skype's find to search a word in this profile. Now a days we only can find words in contacts. I've tried it in vbs but there is no reference to it, neither in autoit. Any help?

Link to comment
Share on other sites

5 days and my program is not working yet at all. I can perform a search in mood text of one contact. Example:

Func find ()
$Mood = GUICtrlRead ($Input4)
$profile = _Skype_UserGetMoodText($Mood)
msgbox ("", "", $profile)
EndFunc

Very simple to find the mood text of someone... but and if i want to do a serch in all my Skype's friends? I was finding some information in Skype.au3 about $sUserHandle = all but i can't implement this to my program. Look that i´m trying to find in every mood texts of my Skype's friends a word... exemple: let's find the word "Skype" in all user's mood.

Link to comment
Share on other sites

Hi,

Here you go :

#include "Skype.au3"

Local $aContacts = _Skype_ProfileGetContacts(), $sContact_FullName = "", $sContact_MoodText = ""
Local $sKeyWord = "Skype"

For $iContact = 1 To $aContacts[0] - 1
    $sContact_MoodText = _Skype_UserGetMoodText($aContacts[$iContact])

    If StringInStr($sContact_MoodText, $sKeyWord) Then
        $sContact_FullName = _Skype_UserGetFullName($aContacts[$iContact])

        ConsoleWrite("found " & $sKeyWord & " in " & $sContact_FullName & "'s moodtext: " & $sContact_MoodText & @CrLf)
    EndIf
Next

Br, FireFox.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...