DaProgrammer Posted October 17, 2007 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
Mosquitos Posted October 18, 2007 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!
DaProgrammer Posted October 18, 2007 Author 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
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