Что нового

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

Arei

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

Ganibal95

GreenBytes
Сообщения
876
Репутация
239
Если присмотрется то в папке есть вся история. Но помоему она защифрованна! :(
 

Garrett

Модератор
Локальный модератор
Сообщения
3 999
Репутация
964
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

AutoIT Гуру
Сообщения
1 535
Репутация
411
Не работает на новой версии 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
 
Автор
A

Arei

Скриптер
Сообщения
938
Репутация
115
вот что написало Last Message:㯲


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

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


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

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

Viktor1703

AutoIT Гуру
Сообщения
1 535
Репутация
411
А есть другой способ, не через COM объекты, просто на новых версиях скайпа этот пример вылетает, через ControlGetText() вообще ни возвращается ни чего...
 
Автор
A

Arei

Скриптер
Сообщения
938
Репутация
115
OffTopic:
т.е не от активного, а от пассивного, от всех :scratch:
 
Верх