Jump to content
Sign in to follow this  
death pax

Messenger Plus Custom Sound Exporter

Recommended Posts

death pax

A Little Scrap i cooked up today ^.^

; ----------------------------------------------------------------------------
; 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

Share this post


Link to post
Share on other sites
rambo3889

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


My Scripts:Radioblog Club Music DownloaderOther stuff:Fun movieIm serious read the help file it helps :PFight 'Till you drop. Never stop, You Cant give up. Til you reach the top Fight! youÂ’re the best in town Fight!

Share this post


Link to post
Share on other sites
death pax

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

Share this post


Link to post
Share on other sites
jaenster

Cool script :o its works fine


-jaenster

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.