Что нового
Автор:
Фильтры

VBScript -> Autoit (*.au3)

A

armenxxx1

Продвинутый
Сообщения
155
Репутация
56
Привет вы можете мне помочь, хочется это сценарий

VBScript

Код: 
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 & " чатов"

перевести на Autoit (*.au3)
 
Garrett

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Код: 
$oSkype = ObjCreate("Skype4COM.Skype")

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

If Not FileExists("SkypeChatHistory") Then
    DirCreate("SkypeChatHistory")
EndIf
 
For $oChat In $oSkype.Chats
	
	$sName = ""
	$f = True
	
	For $oUser In $oChat.Members
		If $f Then 
			$f = False 
		Else 
			$sName = $sName & $oUser.FullName 
		EndIf
	Next
 
	$hFile = FileOpen("SkypeChatHistory\" & $sName & ".txt", 1)
	If $oChat.Messages.Count > 0 Then
		For $oMsg In $oChat.Messages
			FileWriteLine($hFile, $oMsg.FromDisplayName & "(" & $oMsg.Timestamp & "):" & $oMsg.Body)
		Next
	EndIf
	FileClose($hFile)
Next

ConsoleWrite("История сохранена. Найдено " & $oSkype.Chats.Count & " чатов" & @CRLF)
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
M Настройка редактора для Autoit (и других ЯП) Инструменты и справка по AutoIt 6
W Сравнение скорости Python и AutoIt Общие вопросы по AutoIt 1
BlagoYar Процессы Можно ли узнать через AutoIt - почему завершается процесс? Общие вопросы по AutoIt 6
S VBScript -> Autoit (*.au3) (Изъять программЫ из панели задач) Общие вопросы по AutoIt 9
W [RegExp] Конвертация RegExp из VBScript в Autoit Регулярные выражения и прочее 14
Похожие темы
Настройка редактора для Autoit (и других ЯП)
Сравнение скорости Python и AutoIt
Процессы Можно ли узнать через AutoIt - почему завершается процесс?
VBScript -> Autoit (*.au3) (Изъять программЫ из панели задач)
[RegExp] Конвертация RegExp из VBScript в Autoit
Верх