Что нового

VBScript -> Autoit (*.au3)

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

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

armenxxx1

Продвинутый
Сообщения
155
Репутация
56
Большое спасибо Garrett
 
Верх