NandaS Posted September 12, 2012 Share Posted September 12, 2012 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 More sharing options...
FireFox Posted September 12, 2012 Share Posted September 12, 2012 Hi, Forum search? #include "Skype.au3" ConsoleWrite("MoodText: " & _Skype_UserGetMoodText("userid_here") & @CrLf) Skype UDF link in my signature. Br, Firefox. Link to comment Share on other sites More sharing options...
NandaS Posted September 12, 2012 Author Share Posted September 12, 2012 I didn't know that it was MoodText, my English is a shame. Here in Brazil is another word and autoit is something new to us. Thnks a lot. Link to comment Share on other sites More sharing options...
NandaS Posted September 17, 2012 Author Share Posted September 17, 2012 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 More sharing options...
FireFox Posted September 17, 2012 Share Posted September 17, 2012 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 More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now