on error resume next
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oSkype = WScript.CreateObject("Skype4COM.Skype", "Skype_")
If Not oSkype.Client.IsRunning Then oSkype.Client.Start() End If
If Not(oFSO.FolderExists("SkypeChatHistory")) Then
oFSO.CreateFolder("SkypeChatHistory")
End If
For Each oChat In oSkype.Chats
name = ""
f = True
For Each oUser In oChat.Members
If f Then f = False Else name = name & oUser.FullName End If
Next
Set Chat = oFSO.OpenTextFile("SkypeChatHistory\" & name & ".txt", 8, True, -1)
If oChat.Messages.Count > 0 Then
For Each oMsg In oChat.Messages
Chat.WriteLine(oMsg.FromDisplayName & "(" & oMsg.Timestamp & "):" & oMsg.Body)
Next
End If
Chat.Close
Next
WScript.Echo "История сохранена. Найдено " & oSkype.Chats.Count & " чатов"И еще раз хочу поблагодарить Felix Faria для скриптов.
]]>Что касается SkypeLog, эта программа будет показывать историю при условии, если в пути к аккаунту только английские символы.
Извините но не так у миня работаю с русскими, болгарским буквами...
]]>>"посмотреть историю другой Skype nik"
Если на своём компьютере, то надо просто зайти под нужным аккаунтом и запустить скрипт.
Line: 19
Char: 1
Error: Path not fond
Code: 800A004C
Set Chat = oFSO.OpenTextFile(ChatHistoryFolder&"/chat"&name&".txt", 8, True, -1)Но при добавлении
on error resume next
все в порядке так должен быть ?
У меня еще один вопрос, как посмотреть историю другой Skype nik ?
]]>
]]>