Sign in to follow this  
Followers 0
death pax

Messenger Plus Custom Sound Exporter

5 posts in this topic

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



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

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

Share this post


Link to post
Share on other sites

Cool script :o its works fine


-jaenster

Share this post


Link to post
Share on other sites

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  
Followers 0