death pax Posted March 3, 2006 Share Posted March 3, 2006 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 Link to comment Share on other sites More sharing options...
rambo3889 Posted March 3, 2006 Share Posted March 3, 2006 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! youre the best in town Fight! Link to comment Share on other sites More sharing options...
death pax Posted March 3, 2006 Author Share Posted March 3, 2006 no reason.. its part of my template... forgot to remove it Link to comment Share on other sites More sharing options...
jaenster Posted March 3, 2006 Share Posted March 3, 2006 Cool script its works fine -jaenster Link to comment Share on other sites More sharing options...
death pax Posted January 30, 2007 Author Share Posted January 30, 2007 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 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now