Как получить последнее сообщение из skype

[Arei]

Как получить последние сообщения из skype принятые от человека?

 

[Ganibal95]

Если присмотрется то в папке есть вся история. Но помоему она защифрованна! :(

 

[Garrett]

Arei [?]

Как получить последние сообщения из skype принятые от человека?

Dim $oChat
Dim $iTimestamp = 0
Dim $sChatName= ''

$oSkype = ObjCreate("Skype4COM.Skype")

If Not $oSkype.Client.IsRunning Then 
	$oSkype.Client.Start() 
EndIf

For $i = 1 To $oSkype.ActiveChats.Count
	
	$oChat = $oSkype.ActiveChats($i)
	
	If $oChat.ActivityTimestamp > $iTimestamp Then 
		$iTimestamp = $oChat.ActivityTimestamp
		$sChatName = $oChat.Name
	EndIf
	ConsoleWrite('Last Active chat name: ' & $sChatName & @CRLF)

	$oChat = $oSkype.Chat($sChatName)
	ConsoleWrite('Last Message:' & $oChat.RecentMessages($oChat.RecentMessages.Count).Body & @CRLF)
Next

 

[Viktor1703]

Не работает на новой версии Skype а точнее в версии 5.5.0.114

>Running:(3.3.6.1):D:\Program Files\AutoIt3\autoit3.exe "D:\Documents and Settings\Admin\Рабочий стол\AutoIt v3 Script.au3"    
D:\Documents and Settings\Admin\??????? ????\AutoIt v3 Script.au3 (7) : ==> Variable must be of type "Object".:
If Not $oSkype.Client.IsRunning Then
If Not $oSkype^ ERROR

 

[Arei]

вот что написало Last Message:㯲


Добавлено:

Сообщение автоматически объединено: 1 Сен 2011

у меня работает.


Добавлено:

Сообщение автоматически объединено: 1 Сен 2011

я наверное не правильно выразился, просто хочу сделать, свой вывод сообщения на экран, надо ловить что написали, по всем контактам, штука как выскакивает при новом сообщении.

 

[Viktor1703]

А есть другой способ, не через COM объекты, просто на новых версиях скайпа этот пример вылетает, через ControlGetText() вообще ни возвращается ни чего...

 

[Arei]

OffTopic:
т.е не от активного, а от пассивного, от всех