Wer mag testen? Firefox4backup

Mira_Belle

Gibt nicht wirklich so viel dazu zu sagen.

Erstellt ein Backup!

Als erstes wird geprüft, ob der Firefox läuft,
wenn ja, lässt er sich beenden, wenn nein, dann beendet man das Tool.

Wenn der FF beendet wurde, dann öffnet sich ein Fenster, wo man das Backup hin haben möchte.
Des Weiteren kann in einer Checkbox angegeben werden, dass auch das Programmverzeichnis gesichert werden soll.

Probiert es mal aus.

Grundvoraussetzung ist aber, dass der Firefox ganz normal im Programmverzeichnis %ProgramFiles% installiert wurde
und dass sich das Profilverzeichnis unter %appdata%\Mozilla\Firefox\ befindet.

Daran arbeite ich noch.

Ansonsten bin ich für Verbesserungsvorschläge offen.

Nachtrag.

OK, der Name ist doof, aber Firesave wollte ich nicht nehmen und BackUp4Firefox fand ich jetzt auch nicht so prikelnd.
Vielleicht gibt es ja einen besseren Vorschlag?

---------------------------------------------------------------------------------------------------------------------------------------------------

Vergesst die EXE, nehmt das Skript und wer mit der Powershell umzugehen weis, bekommt das auch selber hin
aus einem PS1 eine EXE zu machen.

Aber mir ging es ja nie um die EXE selber, sondern um deren Funktion und die sind in dem Skript gegeben,

denn das ist/war ja die Grundlage!

StandingBill

Hallo Mira

Das Programm wurde hier 2 Mal gestartet. Firefox ist jeweils in den Standardpfaden installiert.

1. Windows 7, 32 Bit, Firefox 115.1.0
Folgende Fehlermeldung:

2. Windows 10 Pro, 32 Bit, Version 22H2, Firefox 127.0.2
Folgende Fehlermeldungen:

Grüße

Sören Hentzschel

Was genau ist der Anwendungsfall? Mal abgesehen davon, dass man kein Programm benötigt, um Ordner und Dateien zu sichern, arbeitet Mozilla an einer direkt in Firefox integrierten Backup-Lösung, die dafür sorgt, dass nur die relevanten Dateien gesichert, sensible Daten verschlüsselt und die Sicherung komprimiert wird. Das funktioniert plattformübergreifend und egal, wo Firefox installiert ist.

.DeJaVu

Kein Quellcode, kein Vertrauen, keine Nutzung. Und ich weiss, wovon ich rede.

Mira_Belle

Zitat von .DeJaVu

Kein Quellcode, kein Vertrauen, keine Nutzung. Und ich weiss, wovon ich rede.

Sorry.

Code

Add-Type -A System.Windows.Forms

#region Grundeinstellungen
  $7z    = "$env:ProgramFiles\7-zip\7zG.exe"
  $Reg   = "HKCU:\Software\FF_Backup"
  $Fonts = @(
    [Drawing.Font]::New("Microsoft Sans Serif",12)
    [Drawing.Font]::New("Microsoft Sans Serif",12,[Drawing.FontStyle]"Bold")
  )
  [Windows.Forms.Application]::EnableVisualStyles()
#endregion

# Funktion zur Anzeige des Hinweisfensters
function Show-FirefoxRunningDialog {
    $Form = [Windows.Forms.Form]@{Text = "Hinweis"; AutoSize = $true; StartPosition = 'CenterScreen'; Size = "100,100"; Padding = '10,10,10,10'; KeyPreview = $true }
    $Table = [Windows.Forms.TableLayoutPanel]@{Dock = 'Fill'; AutoSize = $true }
    $Flow = [Windows.Forms.FlowLayoutPanel]@{Anchor = 'Top'; AutoSize = $true; AutoSizeMode = 'GrowAndShrink' }

    $Label = [Windows.Forms.Label]@{Font = $Fonts[0]; Margin = '10,10,10,10'; AutoSize = $true; Text = "Firefox wird noch ausgeführt.

Soll Firefox beendet werden?" }

    $OKButton = [Windows.Forms.Button]@{Size = "120,40"; Text = "OK"; Font = $Fonts[1]; Margin = '10,10,10,10' }
    $OKButton.Add_Click({
        $Form.DialogResult = [System.Windows.Forms.DialogResult]::OK
        $Form.Close()
    })

    $CancelButton = [Windows.Forms.Button]@{Size = "120,40"; Text = "Abbrechen"; Font = $Fonts[1]; Margin = '10,10,10,10' }
    $CancelButton.Add_Click({
        $Form.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
        $Form.Close()
    })

    $Flow.Controls.Add($OKButton)
    $Flow.Controls.Add($CancelButton)
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('AutoSize'))
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Percent', 10))
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Absolute', 190))
    $Table.Controls.Add($Label, 0, 0)
    $Table.Controls.Add($Flow, 0, 1)
    $Table.SetColumnSpan($Flow, 3)

    $Form.Controls.Add($Table)
    return $Form.ShowDialog()
}

# Überprüfen, ob Firefox noch läuft und entsprechend handeln
if (Get-Process "Firefox" -ErrorAction SilentlyContinue) {
    $result = Show-FirefoxRunningDialog
    if ($result -eq [System.Windows.Forms.DialogResult]::OK) {
        Get-Process "Firefox" | Stop-Process
    } else {
        exit
    }
}

#region Fensterelemente
  $Form  = [Windows.Forms.Form]@{Text="Firefox4backup"; AutoSize=$true; StartPosition='CenterScreen'; Size="100,100"; Padding='10,10,10,10'; KeyPreview=$true}
  $Table = [Windows.Forms.TableLayoutPanel]@{Dock='Fill'; AutoSize=$true}
  $Flow  = [Windows.Forms.FlowLayoutPanel]@{Anchor='Top'; AutoSize=$true; AutoSizeMode='GrowAndShrink'}
 
  $Open  = [Windows.Forms.Button]@{Size="100,40"; Text="Speicherort"; Font=$Fonts[0]; Anchor='Left'}
 
  $Textbox  = @(
    [Windows.Forms.TextBox]@{Font=$Fonts[0]; Margin='10,10,0,10'; Size="150,30"; Dock='Fill'}
    [Windows.Forms.TextBox]@{Font=$Fonts[1]; Margin='0,10,10,10'; Dock='Fill'; Text=" \BackupFirefox\$(Get-Date -Format 'yyyy.MM.dd')";  Enabled=$false}
  )
  $Checkbox = @(
    [Windows.Forms.Checkbox]@{Text="Programmverzeichnis sichern";      AutoSize=$true; Font=$Fonts[0];Margin='10,10,0,10'}
    [Windows.Forms.Checkbox]@{Text="vorhandenen Ordner überschreiben"; AutoSize=$true; Font=$Fonts[0];Margin='10,0,10,10'; Visible=$false}
  )

  $HS = [Hashtable]::Synchronized(@{
    Run       = [Windows.Forms.Button]@{Size="120,40"; Text="Ausführen";       Font=$Fonts[1]; Margin='10,10,10,10'; Enabled=$false}
    SavePath  = $false
    overwrite = $true
  })
#endregion

#region Fensteranordnung
$Flow.Controls.Add($HS.Run)
[void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('AutoSize'))
[void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Percent', 10))
[void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Absolute', 190))
$Table.Controls.Add($Open, 0, 0)
$Table.Controls.Add($Textbox[0], 1, 0)
$Table.Controls.Add($Textbox[1], 2, 0)
$Table.Controls.Add($Checkbox[0], 0, 3)
$Table.Controls.Add($Checkbox[1], 0, 4)
$Table.Controls.Add($Flow, 0, 5)
$Table.SetColumnSpan($Checkbox[0], 3)
$Table.SetColumnSpan($Checkbox[1], 3)
$Table.SetColumnSpan($Flow, 3)

$Form.Controls.Add($Table)
#endregion

#region Runspace
  # Firefox-Status überwachen
  $RS = [powershell]::Create().AddScript({
      while ($true) {
          if (Get-Process "Firefox" -ErrorAction SilentlyContinue) {
              $HS.FirefoxRunning = $true
          } else {
              $HS.FirefoxRunning = $false
              $HS.Run.Enabled = $HS.SavePath -and $HS.overwrite
          }
      }
  })
  $RS.Runspace.SessionStateProxy.SetVariable('HS', $HS)
#endregion

#region Events
  $Form.Add_Load({
    $HS.handle = $RS.BeginInvoke()
    if (Test-Path $Reg) {
        $Textbox[0].Text = Get-ItemPropertyValue $Reg "(default)" -ErrorAction SilentlyContinue
    }
    [void]$this.ActivateControl($Checkbox[0])
  })
  $Form.Add_Closed({[void]$RS.Stop()})
  $Form.Add_KeyDown({
    switch ($_.KeyCode) {
      'Return' {$HS.Run.PerformClick()}
      'Escape' {$this.Hide()}
    }
  })

  $HS.Run.Add_Click({
    $this.TopLevelControl.Hide()
    $HS.Action = $true
    $HS.BackupCompleted = $true # Setze den Status auf true, wenn das Backup beginnt
    Set-ItemProperty -Path $Reg -Name "(default)" -Value $Textbox[0].Text.Replace('"', '') -Force
})

  $Textbox.Add_TextChanged({
    if ($this.Text -and (Test-Path $this.Text.Replace('"',''))) {
      $HS.SavePath = $true
      if (Test-Path (Join-Path $this.Text.Replace('"','') "BackupFirefox\$(get-date -Format "yyyy.MM.dd")")) {
        $Checkbox[1].Visible = $true
        $HS.overwrite = $false
      } else {
        $Checkbox[1].Visible = $false
        $HS.overwrite = $true
        $this.TopLevelControl.Size="100,100"
      }
    }
    else {$HS.SavePath = $false}
  })

  $Open.Add_Click({
    $Browse = [Windows.Forms.FolderBrowserDialog]@{
      RootFolder   = "MyComputer"
      SelectedPath = if ($HS.SavePath) {$Textbox.Text.Replace('"','')}
    }
    if ($Browse.ShowDialog() -eq 'ok') {$Textbox[0].Text = $Browse.SelectedPath}
  })
 
  $Checkbox[1].Add_CheckStateChanged({$HS.overwrite = $this.Checked})
#endregion

#region Ausführung
  [void]$Form.ShowDialog()
    $RS.Dispose()
#endregion

if ($HS.Action) {
  $LogPfad = Join-Path $Textbox[0].Text.Replace('"','') $Textbox[1].Text.SubString(1)
  if (Test-Path "$LogPfad\Profilverzeichnis.zip") {rm -force "$LogPfad\Profilverzeichnis.zip"}
  &$7z a -mx5 -bso0 -bsp1 "$LogPfad\Profilverzeichnis.zip" "$env:appdata\Mozilla\Firefox\Profiles" | out-string -stream | Select-String -Pattern "\d+(?=%)" -AllMatches |
    ForEach-Object { Write-Progress -Activity "Profilverzeichnis wird archiviert... " -PercentComplete ([int]$_.Matches.Value) -Status " "}
  if ($Checkbox[0].Checked) {
    if (Test-Path "$LogPfad\Programmverzeichnis.zip") {rm -force "$LogPfad\Programmverzeichnis.zip"}
    &$7z a -mx5 -bso0 -bsp1 "$LogPfad\Programmverzeichnis.zip" "$env:ProgramFiles\Mozilla Firefox" | out-string -stream | Select-String -Pattern "\d+(?=%)" -AllMatches |
      ForEach-Object { Write-Progress -Activity "Programmverzeichnis wird archiviert... " -PercentComplete ([int]$_.Matches.Value) -Status " "}
  }

  $date = Get-Date -Format "yyyy.MM.dd - HH.mm.ss"
  $datum = Get-Date -Format "dd.MM.yyyy"

  if (!(Test-Path ("$LogPfad\Sicherung am $date.txt"))) {
    $FF_Version = gp 'HKLM:\Software\Microsoft\Windows\CurrentVersion\Uninstall\*'| ? DisplayName -like "*firefox*"|select -Expand DisplayVersion
    $Logfile = (New-Item -Path "$LogPfad\Sicherung vom $datum.txt"  -ItemType File -Force).FullName 
      Add-Content $Logfile ("Diese Sicherung ist vom $(get-date -Format "dddd, dd. MMMM yyyy, HH:mm:ss") Uhr`n")
      Add-Content $Logfile ("Die gesicherte Firefox-Version ist: $FF_Version")    
      Add-Content $Logfile "`n`n"       
  }

  # Nachricht anzeigen
    Add-Type -AssemblyName System.Windows.Forms

  #region Grundeinstellungen
    $Fonts = @(
        [Drawing.Font]::New("Microsoft Sans Serif", 12)
        [Drawing.Font]::New("Microsoft Sans Serif", 12, [Drawing.FontStyle]::Bold)
    )
    [Windows.Forms.Application]::EnableVisualStyles()
  #endregion

  #region Fensterelemente
    $Form = [Windows.Forms.Form]@{Text = "Backup abgeschlossen"; AutoSize = $true; StartPosition = 'CenterScreen'; Size = "50,50"; Padding = '10,10,10,10'; KeyPreview = $true }
    $Table = [Windows.Forms.TableLayoutPanel]@{Dock = 'Fill'; AutoSize = $true }
    $Flow = [Windows.Forms.FlowLayoutPanel]@{Anchor = 'Top'; AutoSize = $true; AutoSizeMode = 'GrowAndShrink' }

    $Label = [Windows.Forms.Label]@{Font = $Fonts[0]; Margin = '10,10,10,10'; AutoSize = $true; Text = "Backup erfolgreich abgeschlossen." }

    $HS = @{Run = [Windows.Forms.Button]@{Size = "120,40"; Text = "OK"; Font = $Fonts[1]; Margin = '10,10,10,10'; Enabled = $true }}
  #endregion

  #region Fensteranordnung
    $Flow.Controls.Add($HS.Run)
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('AutoSize'))
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Percent', 10))
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Absolute', 190))
    $Table.Controls.Add($Label, 1, 0)
    $Table.Controls.Add($Flow, 0, 1)
    $Table.SetColumnSpan($Flow, 3)

    $Form.Controls.Add($Table)
  #endregion

  #region Button-Click-Event
    $HS.Run.Add_Click({
        $Form.Close()
    })
  #endregion

  #region Ausführung
    [void]$Form.ShowDialog()
  #endregion
}

Alles anzeigen

schlingo

Zitat von .DeJaVu

Kein Quellcode, kein Vertrauen, keine Nutzung.

Hallo

und vor allem

Zitat von Sören Hentzschel

dass man kein Programm benötigt, um Ordner und Dateien zu sichern

Gruß Ingo

Mira_Belle

StandingBill
HKCU:\Software\FF_Backup wird ja auch beim ersten Start angelegt, aber auch nur, wenn eine LW ausgewählt wurde.
Und 7-zip muss installiert sein, sorry.

Sören Hentzschel Bis dahin tut's das Tool. BackUp mit einem klick.

Wenn ich das alles zu Fuß machen will, dauert's länger.
Und ja, das komplette Profil mit allem drum und dran wird gesichert.
Habe auch schon daran gedacht, einen Excludeparameter einzubauen.

Das BackUp wird komprimiert und verschlüsseln sollte auch gehen, wenn ich es noch einbaue,

Aber gut, ist halt nicht plattformübergreifend.

Aber jeder fängt mal mit einer Fingerübung an.

Leute, hört doch bitte auf, über Sinn und/oder Zweck zu diskutieren.

Wenn ihr es nicht braucht, nicht haben wollt, ist das ok,
aber lasst mir doch einfach den Spaß und das gute Gefühl, wenn das Teil macht, was es soll.

Danke.

StandingBill

Ziemlich viel negative Energie hier.
Lasst sie doch ein Backuptool zusammenbasteln, wenn ihr das Spaß macht.

.DeJaVu

Ich würde behaupten, das ist das dein Backup-Powershell-Script mit einem NET-Wrapper, der es lediglich entpackt und startet. Kann sich jeder mit dnSpyEx anschauen.

Zitat von StandingBill

Ziemlich viel negative Energie hier.
Lasst sie doch ein Backuptool zusammenbasteln, wenn ihr das Spaß macht.

Zurecht. Es gibt Grundregeln, wenn man Software verbreiten will. Entweder ist es offen, dann hat es einen Quellcode, oder kommerziell, dann closed source. Hier trifft beides nicht zu. In dem Wrapper kann alles Mögliche enthalten sein. Und daher die extreme Abwertung. Du magst vielleicht Spass dran haben, dein System zu himmeln, die Fehlermeldungen sagen einfach nur, dass hier überhaupt nicht drüber nachgedacht wurde. Nicht mal der Hinweis auf 7zip war gegeben, sowas gehört einfach dabei. Dabei ist 7zip nicht mal das eigentliche Problem hier, auch wenn man die Windows-ZIP-Routine hätte auch nehmen können. Es ist einfach ganz schlechter Stil, nur eine EXE zu verbreiten, keine Beschreibung dabei, nada. Und dann auch noch eine miese Umsetzung mit Wrapper für PS.

startup

Zitat von Mira_Belle

Gibt nicht wirklich so viel dazu zu sagen.
Erstellt ein Backup!

Doch, ziemlich viel sogar. Aber ich will mich kurz fassen:

Falls ich eine Datensicherung von einem Browser/Mailprogramm brauche, kopiere ich mir den Profilordner; gleich, ob Firefox, weitere Browser oder ein Mailprogramm. Hilft das nicht, den kompletten Install-Ordner. Das geht bei Windows und auch Linux. Ansonsten siehe die Kommentare #3, 4 + 6. Wenn du unbedingt dir das System verhunzeln willst, dann mach deinen Weg. Aber solche Aussagen, die nerven (sorry!)

Zitat von Mira_Belle

Leute, hört doch bitte auf, über Sinn und/oder Zweck zu diskutieren.
Wenn ihr es nicht braucht, nicht haben wollt, ist das ok,
aber lasst mir doch einfach den Spaß und das gute Gefühl, wenn das Teil macht, was es soll.

Sinn und Zweck dieses Forums ist es wohl, anderen Usern zu helfen, nicht, um ihr System zu schrotten oder als Müllwagen zu nutzen. Meine Meinung zu deinen Empfehlungen.

Zitat von .DeJaVu

Zurecht. Es gibt Grundregeln, wenn man Software verbreiten will. Entweder ist es offen, dann hat es einen Quellcode, oder kommerziell, dann closed source. Hier trifft beides nicht zu.

So sehe ich das auch, und es gibt keinen Grund hier Nutzern eine Software schmackhaft zu machen, wenn die das BS schrottet, oder anderweitige Fehler sich einschleichen. Auch Nutzer, die hier mitlesen und nicht die "Profis" sind, die sollten bedacht und beachtet werden; gerade die, damit sie nicht auf Treu und Glauben irgendwas installieren und im Anschluss sagen, das habe ich von den Leuten im Firefox-Forum. Jeder hier hat auch eine Verantwortung, für das, was er schreibt und auch für seine Empfehlungen. Meine Meinung als Nutzer und Schreiber hier.

Mira_Belle

startup Du hast einen Narren an mir gefressen, oder?

Zitat von .DeJaVu

Ich würde behaupten, das ist das dein Backup-Powershell-Script mit einem NET-Wrapper, der es lediglich entpackt und startet. Kann sich jeder mit dnSpyEx anschauen.

Zitat von StandingBill

Ziemlich viel negative Energie hier.
Lasst sie doch ein Backuptool zusammenbasteln, wenn ihr das Spaß macht.

Zurecht. Es gibt Grundregeln, wenn man Software verbreiten will. Entweder ist es offen, dann hat es einen Quellcode, oder kommerziell, dann closed source. Hier trifft beides nicht zu. In dem Wrapper kann alles Mögliche enthalten sein. Und daher die extreme Abwertung. Du magst vielleicht Spass dran haben, dein System zu himmeln, die Fehlermeldungen sagen einfach nur, dass hier überhaupt nicht drüber nachgedacht wurde. Nicht mal der Hinweis auf 7zip war gegeben, sowas gehört einfach dabei. Dabei ist 7zip nicht mal das eigentliche Problem hier, auch wenn man die Windows-ZIP-Routine hätte auch nehmen können. Es ist einfach ganz schlechter Stil, nur eine EXE zu verbreiten, keine Beschreibung dabei, nada. Und dann auch noch eine miese Umsetzung mit Wrapper für PS.

Jetzt hör doch mal auf nur rumzustänkern. Ja, ich habe einen Fehler gemacht, habe aber gleich auf Deinen Hinweis
das zugrundeliegende Skript nachgereicht.

Und nein, wie ich schon schrieb, kein Profi! Habe mich wohl nicht an mir unbekannte Gepflogenheiten gehalten, sorry.

Wenn hier weiter nur gestänkert wird, lösche ich halt einfach alles wieder. So'n Scheiß muss ich mir nicht geben!

Und ich dachte, dass man mir hier eventuell unter die Arme greift, Hilfe anbietet und mich anleiten würde,
Dinge besser zu machen.

Stattdessen wird nur rumgenölt und rumgestänkert. Danke.

startup

Zitat von Mira_Belle

Du hast einen Narren an mir gefressen, oder?

Danke, sehr lieb gedacht, aber ich habe eine gut funktionierende und nette Beziehung, ohne Maskerade und Querelen. Die würde ich auch gerne behalten angenehme Nachtruhe dann mal - für heute.

Zitat von Mira_Belle

Stattdessen wird nur rumgenölt und rumgestänkert. Danke.

Genau deshalb: Schuster, bleib bei deinen Leisten n8

Mira_Belle

schlingo Danke für das Nachtreten! Hast Du fast 10 Minuten dafür gebraucht?

.DeJaVu Zwanzig Minuten Später immer noch am Schimpfen, obwohl ich Deiner "Bitte" nachgekommen bin.

startup Ja, sorry, die Beschreibung ist/war etwas dünn. Darüber hatte ich mir nicht wirklich Gedanken gemacht.

Wer PowerShellSkript lesen kann, weis was es tut.

Und ja, das Skript ist nicht perfekt, aber welche Software ist das schon?

Also in aller Klarheit, wenn ihr es so wollt, es ist eine Beta!
Benutzung auf eigene Gefahr!

Zitat von startup

Zitat von Mira_Belle

Stattdessen wird nur rumgenölt und rumgestänkert. Danke.

Genau deshalb: Schuster, bleib bei deinen Leisten n8

Das kann man aber auch ganz böse deuten! Aber Du hast ja einen Smilie dran gemacht. n8.
Aber wer nichts Neues ausprobiert, bleibt auf der Stelle und entwickelt sich nicht weiter.

Und wenn das alle so gemacht hätten, wir würden immer noch auf Bäumen leben.

geldhuegel

Wenn ich das zip herunterladen will, zeigt mir der Defender an, dass es einen Virus enthält und verweigert den Download!

Mira_Belle

Zitat von geldhuegel

Wenn ich das zip herunterladen will, zeigt mir der Defender an, dass es einen Virus enthält und verweigert den Download!

Lass das mit dem Zip mal, oben steht das PowerShellSkript. Das ist die Grundlage der im Zip enthaltenen EXE.

StandingBill

Eben habe ich die Exe mal spaßeshalber bei Virustotal hochgeladen.
Das Teil halten 24 von 74 Antivirenprogrammen für Malware.

Mira_Belle

Zitat von StandingBill

Eben habe ich die Exe mal spaßeshalber bei Virustotal hochgeladen.
Das Teil halten 24 von 74 Antivirenprogrammen für Malware.

Na dann würde ich mal schnell den Rechner runterfahren und von einem Bootstick starten und ihr überprüfen.

StandingBill

Spoiler anzeigen

Das wurde auch umgehend ausgeführt. Meine Super-Duper Antiviren CD hat keine Probleme gefunden.
Nur folgendes Logo erscheint jetzt kurz beim Hochfahren:

Schaut gut aus und hat sicher nichts zu bedeuten.

Hier kommt man nicht wirklich weit, wenn das Beta-Script als Powershell-Datei (PS1) ausgeführt wird.
Folgende Fehlermeldung:

Außerdem begrenzt diese notwendige Vorgehensweise und der Umstand, dass 7-Zip installiert sein muss, den potentiellen Anwenderkreis auf ein Minimum. Es bleibt also noch etwas zu tun.

Mira_Belle

StandingBill Erst einmal ein liches Danke für Dein testen.

Ja ich weiß, das mit dem 7-Zip ist schon irgendwie doof, aber (!) hat natürlich seine Gründe.
1. Mit dem im System vorhandenem ZIP dauert das Packen ewig.
2. Bekomme ich es nicht hin, so ein "schönes" Fenster mit Fortschrittsbalken zu generieren.

Aber wenn Du es Dir mal anschauen möchtest, bitte schön:

Code

Add-Type -A System.Windows.Forms

#region Grundeinstellungen

  $Reg   = "HKCU:\Software\FF_Backup"
  $Fonts = @(
    [Drawing.Font]::New("Microsoft Sans Serif",12)
    [Drawing.Font]::New("Microsoft Sans Serif",12,[Drawing.FontStyle]"Bold")
  )
  [Windows.Forms.Application]::EnableVisualStyles()
#endregion

# Funktion zur Anzeige des Hinweisfensters
function Show-FirefoxRunningDialog {
    $Form = [Windows.Forms.Form]@{Text = "Hinweis"; AutoSize = $true; StartPosition = 'CenterScreen'; Size = "100,100"; Padding = '10,10,10,10'; KeyPreview = $true }
    $Table = [Windows.Forms.TableLayoutPanel]@{Dock = 'Fill'; AutoSize = $true }
    $Flow = [Windows.Forms.FlowLayoutPanel]@{Anchor = 'Top'; AutoSize = $true; AutoSizeMode = 'GrowAndShrink' }

    $Label = [Windows.Forms.Label]@{Font = $Fonts[0]; Margin = '10,10,10,10'; AutoSize = $true; Text = "Firefox wird noch ausgeführt.

Soll Firefox beendet werden?" }

    $OKButton = [Windows.Forms.Button]@{Size = "120,40"; Text = "OK"; Font = $Fonts[1]; Margin = '10,10,10,10' }
    $OKButton.Add_Click({
        $Form.DialogResult = [System.Windows.Forms.DialogResult]::OK
        $Form.Close()
    })

    $CancelButton = [Windows.Forms.Button]@{Size = "120,40"; Text = "Abbrechen"; Font = $Fonts[1]; Margin = '10,10,10,10' }
    $CancelButton.Add_Click({
        $Form.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
        $Form.Close()
    })

    $Flow.Controls.Add($OKButton)
    $Flow.Controls.Add($CancelButton)
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('AutoSize'))
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Percent', 10))
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Absolute', 190))
    $Table.Controls.Add($Label, 0, 0)
    $Table.Controls.Add($Flow, 0, 1)
    $Table.SetColumnSpan($Flow, 3)

    $Form.Controls.Add($Table)
    return $Form.ShowDialog()
}

# Überprüfen, ob Firefox noch läuft und entsprechend handeln
if (Get-Process "Firefox" -ErrorAction SilentlyContinue) {
    $result = Show-FirefoxRunningDialog
    if ($result -eq [System.Windows.Forms.DialogResult]::OK) {
        Get-Process "Firefox" | Stop-Process
    } else {
        exit
    }
}

#region Fensterelemente
  $Form  = [Windows.Forms.Form]@{Text="Firefox4backup"; AutoSize=$true; StartPosition='CenterScreen'; Size="100,100"; Padding='10,10,10,10'; KeyPreview=$true}
  $Table = [Windows.Forms.TableLayoutPanel]@{Dock='Fill'; AutoSize=$true}
  $Flow  = [Windows.Forms.FlowLayoutPanel]@{Anchor='Top'; AutoSize=$true; AutoSizeMode='GrowAndShrink'}
 
  $Open  = [Windows.Forms.Button]@{Size="100,40"; Text="Speicherort"; Font=$Fonts[0]; Anchor='Left'}
 
  $Textbox  = @(
    [Windows.Forms.TextBox]@{Font=$Fonts[0]; Margin='10,10,0,10'; Size="150,30"; Dock='Fill'}
    [Windows.Forms.TextBox]@{Font=$Fonts[1]; Margin='0,10,10,10'; Dock='Fill'; Text=" \BackupFirefox\$(Get-Date -Format 'yyyy.MM.dd')";  Enabled=$false}
  )
  $Checkbox = @(
    [Windows.Forms.Checkbox]@{Text="Programmverzeichnis sichern";      AutoSize=$true; Font=$Fonts[0];Margin='10,10,0,10'}
    [Windows.Forms.Checkbox]@{Text="vorhandenen Ordner überschreiben"; AutoSize=$true; Font=$Fonts[0];Margin='10,0,10,10'; Visible=$false}
  )

  $HS = [Hashtable]::Synchronized(@{
    Run       = [Windows.Forms.Button]@{Size="120,40"; Text="Ausführen";       Font=$Fonts[1]; Margin='10,10,10,10'; Enabled=$false}
    SavePath  = $false
    overwrite = $true
  })
#endregion

#region Fensteranordnung
$Flow.Controls.Add($HS.Run)
[void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('AutoSize'))
[void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Percent', 10))
[void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Absolute', 190))
$Table.Controls.Add($Open, 0, 0)
$Table.Controls.Add($Textbox[0], 1, 0)
$Table.Controls.Add($Textbox[1], 2, 0)
$Table.Controls.Add($Checkbox[0], 0, 3)
$Table.Controls.Add($Checkbox[1], 0, 4)
$Table.Controls.Add($Flow, 0, 5)
$Table.SetColumnSpan($Checkbox[0], 3)
$Table.SetColumnSpan($Checkbox[1], 3)
$Table.SetColumnSpan($Flow, 3)

$Form.Controls.Add($Table)
#endregion

#region Runspace
  # Firefox-Status überwachen
  $RS = [powershell]::Create().AddScript({
      while ($true) {
          if (Get-Process "Firefox" -ErrorAction SilentlyContinue) {
              $HS.FirefoxRunning = $true
          } else {
              $HS.FirefoxRunning = $false
              $HS.Run.Enabled = $HS.SavePath -and $HS.overwrite
          }
      }
  })
  $RS.Runspace.SessionStateProxy.SetVariable('HS', $HS)
#endregion

#region Events
  $Form.Add_Load({
    $HS.handle = $RS.BeginInvoke()
    if (Test-Path $Reg) {
        $Textbox[0].Text = Get-ItemPropertyValue $Reg "(default)" -ErrorAction SilentlyContinue
    }
    [void]$this.ActivateControl($Checkbox[0])
  })
  $Form.Add_Closed({[void]$RS.Stop()})
  $Form.Add_KeyDown({
    switch ($_.KeyCode) {
      'Return' {$HS.Run.PerformClick()}
      'Escape' {$this.Hide()}
    }
  })

  $HS.Run.Add_Click({
    $this.TopLevelControl.Hide()
    $HS.Action = $true
    $HS.BackupCompleted = $true # Setze den Status auf true, wenn das Backup beginnt
    Set-ItemProperty -Path $Reg -Name "(default)" -Value $Textbox[0].Text.Replace('"', '') -Force
})

  $Textbox.Add_TextChanged({
    if ($this.Text -and (Test-Path $this.Text.Replace('"',''))) {
      $HS.SavePath = $true
      if (Test-Path (Join-Path $this.Text.Replace('"','') "BackupFirefox\$(get-date -Format "yyyy.MM.dd")")) {
        $Checkbox[1].Visible = $true
        $HS.overwrite = $false
      } else {
        $Checkbox[1].Visible = $false
        $HS.overwrite = $true
        $this.TopLevelControl.Size="100,100"
      }
    }
    else {$HS.SavePath = $false}
  })

  $Open.Add_Click({
    $Browse = [Windows.Forms.FolderBrowserDialog]@{
      RootFolder   = "MyComputer"
      SelectedPath = if ($HS.SavePath) {$Textbox.Text.Replace('"','')}
    }
    if ($Browse.ShowDialog() -eq 'ok') {$Textbox[0].Text = $Browse.SelectedPath}
  })
 
  $Checkbox[1].Add_CheckStateChanged({$HS.overwrite = $this.Checked})
#endregion

#region Ausführung
  [void]$Form.ShowDialog()
    $RS.Dispose()
#endregion


if ($HS.Action) {
  $LogPfad = Join-Path $Textbox[0].Text.Replace('"','') $Textbox[1].Text.SubString(1)
  
  if (Test-Path "$LogPfad\Profilverzeichnis.zip") {
    Remove-Item -Force "$LogPfad\Profilverzeichnis.zip"
  }

  Compress-Archive -Path "$env:appdata\Mozilla\Firefox\Profiles" -DestinationPath "$LogPfad\Profilverzeichnis.zip" -CompressionLevel Optimal
  Write-Progress -Activity "Profilverzeichnis wird archiviert... " -PercentComplete 100 -Status "Abgeschlossen"

  if ($Checkbox[0].Checked) {
  if (Test-Path "$LogPfad\Programmverzeichnis.zip") {
    Remove-Item -Force "$LogPfad\Programmverzeichnis.zip"
  }
    
  Compress-Archive -Path "$env:ProgramFiles\Mozilla Firefox" -DestinationPath "$LogPfad\Programmverzeichnis.zip" -CompressionLevel Optimal
  Write-Progress -Activity "Programmverzeichnis wird archiviert... " -PercentComplete 100 -Status "Abgeschlossen"
  }


  $date = Get-Date -Format "yyyy.MM.dd - HH.mm.ss"
  $datum = Get-Date -Format "dd.MM.yyyy"

  if (!(Test-Path ("$LogPfad\Sicherung am $date.txt"))) {
    $FF_Version = gp 'HKLM:\Software\Microsoft\Windows\CurrentVersion\Uninstall\*'| ? DisplayName -like "*firefox*"|select -Expand DisplayVersion
    $Logfile = (New-Item -Path "$LogPfad\Sicherung vom $datum.txt"  -ItemType File -Force).FullName 
      Add-Content $Logfile ("Diese Sicherung ist vom $(get-date -Format "dddd, dd. MMMM yyyy, HH:mm:ss") Uhr`n")
      Add-Content $Logfile ("Die gesicherte Firefox-Version ist: $FF_Version")    
      Add-Content $Logfile "`n`n"       
  }

  # Nachricht anzeigen
    Add-Type -AssemblyName System.Windows.Forms

  #region Grundeinstellungen
    $Fonts = @(
        [Drawing.Font]::New("Microsoft Sans Serif", 12)
        [Drawing.Font]::New("Microsoft Sans Serif", 12, [Drawing.FontStyle]::Bold)
    )
    [Windows.Forms.Application]::EnableVisualStyles()
  #endregion

  #region Fensterelemente
    $Form = [Windows.Forms.Form]@{Text = "Backup abgeschlossen"; AutoSize = $true; StartPosition = 'CenterScreen'; Size = "50,50"; Padding = '10,10,10,10'; KeyPreview = $true }
    $Table = [Windows.Forms.TableLayoutPanel]@{Dock = 'Fill'; AutoSize = $true }
    $Flow = [Windows.Forms.FlowLayoutPanel]@{Anchor = 'Top'; AutoSize = $true; AutoSizeMode = 'GrowAndShrink' }

    $Label = [Windows.Forms.Label]@{Font = $Fonts[0]; Margin = '10,10,10,10'; AutoSize = $true; Text = "Backup erfolgreich abgeschlossen." }

    $HS = @{Run = [Windows.Forms.Button]@{Size = "120,40"; Text = "OK"; Font = $Fonts[1]; Margin = '10,10,10,10'; Enabled = $true }}
  #endregion

  #region Fensteranordnung
    $Flow.Controls.Add($HS.Run)
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('AutoSize'))
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Percent', 10))
    [void]$Table.ColumnStyles.Add([Windows.Forms.ColumnStyle]::New('Absolute', 190))
    $Table.Controls.Add($Label, 1, 0)
    $Table.Controls.Add($Flow, 0, 1)
    $Table.SetColumnSpan($Flow, 3)

    $Form.Controls.Add($Table)
  #endregion

  #region Button-Click-Event
    $HS.Run.Add_Click({
        $Form.Close()
    })
  #endregion

  #region Ausführung
    [void]$Form.ShowDialog()
  #endregion
}

Alles anzeigen

Apropos 7-Zip, da wurde ja lieber gepoltert, als nachzufragen, warum die "7zG.exe" genutzt wurde.
Und Vorschläge kamen da natürlich auch keine, obwohl ich extra darum bat.

Also, wenn mir jemand mitteilen kann, bzw. möchte, wie ich dieses Manko beseitigen kann,
wäre ich echt glücklich und könnte an andere Baustellen des Skriptes gehen.

.DeJaVu

Das gesamte ps ist murks, wenn andere es nutzen wollen. Und in dieser Form ist nun mal nur bei dir fehlerfrei nutzbar. 7zg braucht noch eine dll, das merkt man aber nicht bei der Installation. Du musst noch so viel lernen, du kannst nicht 20 Jahre von anderen in ein ps2exe stecken und Heldin sein.

Es hätte bloss beim ps bleiben sollen, das kann sich jeder anpassen und hätte auch funktioniert.

Eines noch, weil das auch wichtig wäre.

List of Mozilla Trademarks

www.mozilla.org

Zitat

For all of the above Mozilla trademarks, sample attribution notices are as follows.
For example, if using the Firefox wordmark:
“Firefox is a trademark of the Mozilla Foundation in the U.S. and other countries.”
If using the Firefox logo:
"The Firefox logo is a trademark of the Mozilla Foundation in the U.S. and other countries.”

Falls du 7zip beilegen möchtest, selbiges.

Frequently Asked Questions (FAQ)

Wer mag testen? Firefox4backup

Ähnliche Themen

userChrome.js Scripte für den Fuchs (Diskussion)

Firefox verfälscht Worte

Nur die Anzeige der Ordner/Lesezeichenanzahl in einer anderen Farbe darstellen