DaProgrammer Posted October 17, 2007 Share Posted October 17, 2007 (edited) a little tool to backup and restore your profile when formatting alot like i do.doesn't work with multiple profiles, im too tired at 02:00 AM to do it LOLif u want to give the new folder a cool firefox icon uncomment the comented lines and change "D:\My Documents\Downloads\FF_Earth.ico" to whatever u want.nice place to find icons is :http://www.wstaylor.net/http://iconpacks.mozdev.org/i suggest the former.expandcollapse popup#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=..\Downloads\FF_Earth.ico #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Allow_Decompile=n #AutoIt3Wrapper_AU3Check_Stop_OnWarning=y #AutoIt3Wrapper_Run_Tidy=y #AutoIt3Wrapper_Run_Obfuscator=y #Obfuscator_Parameters=/sf=1 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** Opt("TrayIconHide", 1) $Dir = IniRead(@AppDataDir & "\Mozilla\Firefox\profiles.ini", "Profile0", "path", "") $Dir = StringReplace($Dir, "/", "\") GUICreate("FireFox Profile Manager", 250, 110, -1, -1, "", 0x00000080) $Button_Backup = GUICtrlCreateButton("Backup", 10, 10, 230, 30) $Button_Restore = GUICtrlCreateButton("Restore", 10, 50, 230, 30) GUISetState() While 1 While 1 $msg = GUIGetMsg() Switch $msg Case - 3 Exit Case $Button_Backup $File = FileSelectFolder("Select a location to save your Profile", "", 3, @MyDocumentsDir) If @error Then ExitLoop If DirCopy(@AppDataDir & "\Mozilla\Firefox\" & $Dir, $File, 1) Then FileInstall("D:\My Documents\Downloads\FF_Earth.ico", $File & "\folder.ico", 1) ;~ IniWrite($File & "\Desktop.ini", ".ShellClassInfo", "IconFile", $File & "\folder.ico") ;~ IniWrite($File & "\Desktop.ini", ".ShellClassInfo", "IconIndex", "0") ;~ FileSetAttrib($File & "\Desktop.ini", "+HS") ;~ FileSetAttrib($File, "+S") ;~ FileSetAttrib($File & "\folder.ico", "+HS") MsgBox(0, "FireFox Profile", "Profile Saved") Exit Else MsgBox(16, "FireFox Profile", "There was a problem saving your Profile") ExitLoop EndIf Case $Button_Restore $File = FileSelectFolder("Select a location to Load your Profile", "", 0, @MyDocumentsDir) If @error Then ExitLoop If DirCopy($File, @AppDataDir & "\Mozilla\Firefox\" & $Dir, 1) Then MsgBox(0, "FireFox Profile", "Profile Restored") Exit Else MsgBox(16, "FireFox Profile", "There was a problem restoring your Profile") ExitLoop EndIf EndSwitch WEnd WEnd Edited October 18, 2007 by DaProgrammer Link to comment Share on other sites More sharing options...
Mosquitos Posted October 18, 2007 Share Posted October 18, 2007 a little tool to backup and restore your profile when formatting alot like i do. doesn't work with multiple profiles, im too tired at 02:00 AM to do it LOL if u want to give the new folder a cool firefox icon uncomment the comented lines and change "D:\My Documents\Downloads\FF_Earth.ico" to whatever u want. nice place to find icons is : http://www.wstaylor.net/ http://iconpacks.mozdev.org/ i suggest the former. expandcollapse popup#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=..\Downloads\FF_Earth.ico #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Allow_Decompile=n #AutoIt3Wrapper_AU3Check_Stop_OnWarning=y #AutoIt3Wrapper_Run_Tidy=y #AutoIt3Wrapper_Run_Obfuscator=y #Obfuscator_Parameters=/sf=1 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** Opt("TrayIconHide", 1) $Dir = IniRead(@AppDataDir & "\Mozilla\Firefox\profiles.ini", "Profile0", "path", "") $Dir = StringReplace($Dir, "/", "\") GUICreate("FireFox Profile Manager", 250, 110, -1, -1, "", 0x00000080) $Button_Backup = GUICtrlCreateButton("Backup", 10, 10, 230, 30) $Button_Restore = GUICtrlCreateButton("Restore", 10, 50, 230, 30) GUISetState() While 1 While 1 $msg = GUIGetMsg() Switch $msg Case - 3 Exit Case $Button_Backup $File = FileSelectFolder("Select a location to save your Profile", "", 3, @MyDocumentsDir) If @error Then ExitLoop If DirCopy(@AppDataDir & "\Mozilla\Firefox\" & $Dir, $File, 1) Then FileInstall("D:\My Documents\Downloads\FF_Earth.ico", $File & "\folder.ico", 1) ;~ IniWrite($File & "\Desktop.ini", ".ShellClassInfo", "IconFile", $File & "\folder.ico") ;~ IniWrite($File & "\Desktop.ini", ".ShellClassInfo", "IconIndex", "0") ;~ FileSetAttrib($File & "\Desktop.ini", "+HS") ;~ FileSetAttrib($File, "+S") ;~ FileSetAttrib($File & "\folder.ico", "+HS") MsgBox(0, "FireFox Profile", "Profile Saved") Exit Else MsgBox(16, "FireFox Profile", "There was a problem saving your Profile") ExitLoop EndIf Case $Button_Restore $File = FileSelectFolder("Select a location to Load your Profile", "", 0, @MyDocumentsDir) If @error Then ExitLoop If DirCopy($File, @AppDataDir & "\Mozilla\Firefox\" & $Dir, 1) Then MsgBox(0, "FireFox Profile", "Profile Restored") Exit Else MsgBox(16, "FireFox Profile", "There was a problem restoring your Profile") ExitLoop EndIf EndSwitch WEnd WEnd Works great 1 suggestion, Can you put all the folders and files into a zipfile? Like this extension of firefox FEBE Sapiente vince, rex, noli vincere ferro! Link to comment Share on other sites More sharing options...
DaProgrammer Posted October 18, 2007 Author Share Posted October 18, 2007 LOL i downloaded FEBE and its nice but too many options LOL got lost there. i can use 7zip but it will reqire Dll's and stuff, and i prefer to keep my progs as single files. if u want search the forum for "zip" and u will quickly find a couple of results, just download the dll and change my script abit. besides if u create a folder called myprofile.zip and give it a nice FireFox icon it looks zipped anyways LOL 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