Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
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
Не работает на новой версии 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
я наверное не правильно выразился, просто хочу сделать, свой вывод сообщения на экран, надо ловить что написали, по всем контактам, штука как выскакивает при новом сообщении.
А есть другой способ, не через COM объекты, просто на новых версиях скайпа этот пример вылетает, через ControlGetText() вообще ни возвращается ни чего...