Jump to content
Sign in to follow this  
death pax

Messenger Plus Custom Sound Exporter

Recommended Posts

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

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  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...