Messenger Plus Custom Sound Exporter

[death pax]

A Little Scrap i cooked up today ^.^

expandcollapse popup

; ----------------------------------------------------------------------------
; ExportPlusSounds.au3
; AutoIt Version: 3.1.1
; Author:        Death Pax <death_pax@msn.com
;
; Script Function:
;   Export Custom Messenger Plus Sounds
;
; ----------------------------------------------------------------------------

; Script Start - Add your code below here
#include <GuiConstants.au3>
dim $Folder
dim $file
dim $logfile
dim $Successful
dim $size
if @OSTYPE <> "WIN32_NT" Then
MsgBox(16,"Error","This Script only Supports Windows NT Operating Systems(NT/2000/XP)")
EndIf
$Folder=FileSelectFolder("Select Destination Folder","",1)
$logfile=FileOpen($Folder&"\MsgPlusExport.log",10)
FileWriteLine($logfile,"Initiating Exporting Sequence")
if FileChangeDir("C:\Documents and Settings\All Users\Application Data\Messenger Plus!\Custom Sounds")<> 1 Then
    msgbox(-1,"","Workingdir not changed correctly")
EndIf
$size = DirGetSize("C:\Documents and Settings\All Users\Application Data\Messenger Plus!\Custom Sounds",1)
$Successful=1
FileWriteLine($logfile,"Exporting "&$size[1]&" files.")
For $i= 1 to $size[1]
    $var = RegEnumKey("HKEY_CURRENT_USER\Software\Patchou\MsgPlus2\Nobody\CustSounds", $i)
    $Name=RegRead("HKEY_CURRENT_USER\Software\Patchou\MsgPlus2\Nobody\CustSounds\"&$var,"Name")
    If @error <> 0 then ExitLoop
    Filecopy(@workingdir&"\#"&$var&".dat",$Folder&"\"&$name&".mp3",9)
    $Successful=$Successful+1
    FileWriteLine($logfile,"Exporting (file #"&$i&"/"&$size[1]&")"&@workingdir&"\#"&$var&".dat"&"->"&$Folder&"\"&$name&".mp3 Successful!")
Next
Exit

[rambo3889]

Looks nice ( Havent tested it yet) Why have the guiconstants with i cant see any guis

[death pax]

no reason.. its part of my template... forgot to remove it

[jaenster]

Cool script its works fine

[death pax]

Not sure that its needed, but since i needed to export sounds again.. and with the advent of msg plus live.... an updated exporter to work with plus live

CODE

; ----------------------------------------------------------------------------

; ExportPlusSounds.au3

; AutoIt Version: v3.2.1.14 (beta)

; Author: Death Pax <death_pax@msn.com

;

; Script Function:

; Export Custom Messenger Plus Sounds

;

; ----------------------------------------------------------------------------

; Script Start - Add your code below here

dim $Folder

dim $file

dim $logfile

dim $Successful

dim $size

if @OSTYPE <> "WIN32_NT" Then

MsgBox(16,"Error","This Script only Supports Windows NT Operating Systems(NT/2000/XP)")

EndIf

$Folder=FileSelectFolder("Select Destination Folder","",1)

$logfile=FileOpen($Folder&"\MsgPlusExport.log",10)

FileWriteLine($logfile,"Initiating Exporting Sequence")

if FileChangeDir("C:\Documents and Settings\All Users\Application Data\Messenger Plus!\Custom Sounds")<> 1 Then

msgbox(-1,"","Workingdir not changed correctly")

EndIf

$size = DirGetSize("C:\Documents and Settings\All Users\Application Data\Messenger Plus!\Custom Sounds",1)

$Successful=1

FileWriteLine($logfile,"Exporting "&$size[1]&" files.")

For $i= 1 to $size[1]

$var = RegEnumKey("HKEY_CURRENT_USER\Software\Patchou\Messenger Plus! Live\GlobalSettings\CustSounds", $i)

$Name=RegRead("HKEY_CURRENT_USER\Software\Patchou\Messenger Plus! Live\GlobalSettings\CustSounds\"&$var,"Name")

If @error <> 0 then ExitLoop

Filecopy(@workingdir&"\#"&$var&".dat",$Folder&"\"&$name&".mp3",9)

$Successful=$Successful+1

FileWriteLine($logfile,"Exporting (file #"&$i&"/"&$size[1]&")"&@workingdir&"\#"&$var&".dat"&"->"&$Folder&"\"&$name&".mp3 Successful!")

Next

Exit