Wer mag testen? Firefox4backup

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 = "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 = "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 = "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'}

$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) {
    # Sicherungsordner erstellen, falls dieser nicht existiert
    $BackupPath = $Textbox[0].Text.Replace('"','')
    $LogPfad = Join-Path $BackupPath $Textbox[1].Text.SubString(1)

    if (-not (Test-Path -Path $LogPfad)) {
        New-Item -ItemType Directory -Path $LogPfad -Force
    }

    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 NoCompression
    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 NoCompression
        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
}