#Requires -Version 5.1 <# Installer AdHoc Backup (GUI) - v1.3.8 - FIX definitivo accenti in GUI su PowerShell 5.1: questo file è salvato in UTF-8 **con BOM** - Mantiene: font Segoe UI, UseCompatibleTextRendering, auto-detect encoding per backup.conf, salvataggio UTF-8 no BOM - Solo 7zr.exe, install di Rclone & 7zr su "Installa", layout bin/conf, schedulazione, chiusura processi figli #> Add-Type -AssemblyName System.Windows.Forms Add-Type -AssemblyName System.Drawing Add-Type -AssemblyName System.IO.Compression.FileSystem # Abilita stile moderno WinForms [System.Windows.Forms.Application]::EnableVisualStyles() $ErrorActionPreference = 'Stop' # ------------------------------ HELPERS GRAFICI ------------------------------- function New-Point([object]$x,[object]$y) { try { return New-Object System.Drawing.Point ([int]$x), ([int]$y) } catch { return [System.Drawing.Point]::new([int]$x, [int]$y) } } function New-Size([object]$w,[object]$h) { try { return New-Object System.Drawing.Size ([int]$w), ([int]$h) } catch { return [System.Drawing.Size]::new([int]$w, [int]$h) } } function Set-Loc($ctrl,[object]$x,[object]$y){ $ctrl.Location = New-Point $x $y } function Set-Sz($ctrl,[object]$w,[object]$h){ $ctrl.Size = New-Size $w $h } # Abilita rendering compatibile (GDI+) su etichette/pulsanti/checkbox ecc. function Enable-TextRendering($container){ foreach($c in $container.Controls){ if ($c -and ($c.PSObject.Properties['UseCompatibleTextRendering'])){ $c.UseCompatibleTextRendering = $true } if ($c.Controls -and $c.Controls.Count -gt 0){ Enable-TextRendering $c } } } # ------------------------------ LOG ------------------------------------------- function New-LogTimestamp { (Get-Date).ToString('yyyy-MM-dd HH:mm:ss') } $global:LogFile = $null $global:LogTextBox = $null function Write-Log { param([Parameter(Mandatory)][string]$Message,[ValidateSet('INFO','ERR','WARN')] [string]$Level = 'INFO') $line = "[{0}][{1}] {2}" -f (New-LogTimestamp), $Level, $Message if ($global:LogTextBox) { try { $global:LogTextBox.AppendText("$line`r`n") } catch {} } if ($global:LogFile) { try { Add-Content -Path $global:LogFile -Value $line -Encoding UTF8 } catch {} } Write-Host $line } # ------------------------------ UTILS ----------------------------------------- function Ensure-Dir { param([Parameter(Mandatory)][string]$Path) if (-not (Test-Path -LiteralPath $Path)) { New-Item -ItemType Directory -Path $Path | Out-Null; Write-Log "Cartella creata: $Path" } else { Write-Log "Cartella già presente: $Path" } } function Start-Download { param([Parameter(Mandatory)][string]$Url,[Parameter(Mandatory)][string]$Dest) Write-Log "Scarico: $Url"; Write-Log "Destinazione: $Dest" [Net.ServicePointManager]::SecurityProtocol = [Net.SecurityProtocolType]::Tls12 -bor [Net.SecurityProtocolType]::Tls11 -bor [Net.SecurityProtocolType]::Tls try { Invoke-WebRequest -Uri $Url -OutFile $Dest -ErrorAction Stop Write-Log "Download completato."; return $true } catch { Write-Log "Invoke-WebRequest fallito: $($_.Exception.Message)" 'WARN' try { (New-Object System.Net.WebClient).DownloadFile($Url, $Dest); Write-Log "Download completato con WebClient (fallback)."; return $true } catch { Write-Log "Download fallito: $($_.Exception.Message)" 'ERR'; return $false } } } # Estrattore ZIP robusto (overwrite = true) function Expand-Zip { param([Parameter(Mandatory)][string]$ZipPath,[Parameter(Mandatory)][string]$DestDir) Write-Log "Estrazione ZIP: $ZipPath -> $DestDir" $zip = $null try { $zip = [System.IO.Compression.ZipFile]::OpenRead($ZipPath) foreach ($entry in $zip.Entries) { $targetPath = Join-Path $DestDir $entry.FullName $targetDir = Split-Path $targetPath -Parent if ([string]::IsNullOrEmpty($entry.Name)) { Ensure-Dir $targetPath } else { Ensure-Dir $targetDir [System.IO.Compression.ZipFileExtensions]::ExtractToFile($entry, $targetPath, $true) } } } finally { if ($zip) { $zip.Dispose() } } } function New-DailyOrWeeklyTask { param([Parameter(Mandatory)][string]$TaskName, [Parameter(Mandatory)][string]$ScriptPath, [Parameter(Mandatory)][string]$ConfigPath, [Parameter(Mandatory)][DateTime]$Time, [ValidateSet('DAILY','WEEKLY')] [string]$Schedule = 'DAILY', [ValidateSet('MON','TUE','WED','THU','FRI','SAT','SUN')] [string]$Day = 'MON', [switch]$Quiet) $psArgs = @('-NoProfile','-ExecutionPolicy','Bypass','-File',('"{0}"' -f $ScriptPath),'-Config',('"{0}"' -f $ConfigPath)) if ($Quiet) { $psArgs += '-Quiet' } $tr = 'powershell.exe ' + ($psArgs -join ' ') $st = $Time.ToString('HH:mm') $cmd = @('/Create','/SC',$Schedule,'/TN',('"{0}"' -f $TaskName),'/TR',('"{0}"' -f $tr),'/ST',$st,'/RL','HIGHEST','/F') if ($Schedule -eq 'WEEKLY') { $cmd += @('/D',$Day) } Write-Log "Creo/aggiorno attività pianificata: $TaskName ($Schedule) alle $st" try { schtasks.exe @cmd | Out-Null; Write-Log "Attività pianificata impostata."; return $true } catch { Write-Log "Creazione attività fallita: $($_.Exception.Message)" 'ERR'; return $false } } # ------------------------------ LAYOUT BIN/CONF ------------------------------- function Ensure-ToolsLayout { param([Parameter(Mandatory)][string]$Root) $binRoot = Join-Path $Root 'bin' $confRoot = Join-Path $binRoot 'conf' $rcloneDir= Join-Path $binRoot 'RClone' $sevenDir = Join-Path $binRoot '7Zip' Ensure-Dir $binRoot Ensure-Dir $confRoot Ensure-Dir $rcloneDir Ensure-Dir $sevenDir return @{ Bin=$binRoot; Conf=$confRoot; RClone=$rcloneDir; SevenZip=$sevenDir } } function Ensure-RcloneExe { param([Parameter(Mandatory)][string]$RcloneDir) $exe = Join-Path $RcloneDir 'rclone.exe' if (-not (Test-Path -LiteralPath $exe)) { $zip = Join-Path $RcloneDir 'rclone-current-windows-amd64.zip' if (Start-Download -Url 'https://downloads.rclone.org/rclone-current-windows-amd64.zip' -Dest $zip) { Expand-Zip -ZipPath $zip -DestDir $RcloneDir $found = Get-ChildItem -LiteralPath $RcloneDir -Recurse -Filter 'rclone.exe' | Select-Object -First 1 if ($found) { Copy-Item -LiteralPath $found.FullName -Destination $exe -Force } Get-ChildItem -LiteralPath $RcloneDir -Directory | Where-Object { $_.Name -like 'rclone-*' } | Remove-Item -Recurse -Force -ErrorAction SilentlyContinue Remove-Item -LiteralPath $zip -Force -ErrorAction SilentlyContinue } } return $exe } # === SOLO 7zr.exe ============================================================= function Ensure-SevenZipExe { param([Parameter(Mandatory)][string]$SevenZipDir) $exe = Join-Path $SevenZipDir '7zr.exe' if (-not (Test-Path -LiteralPath $exe)) { $url7zr = 'https://www.7-zip.org/a/7zr.exe' if (Start-Download -Url $url7zr -Dest $exe) { Write-Log "Installato 7-Zip minimal: $exe" } else { Write-Log "Impossibile installare 7-Zip (7zr.exe)." 'ERR' } } return $exe } # ------------------------------ CONF PARSER ----------------------------------- $global:ChildPids = New-Object System.Collections.ArrayList function Track-Child($p){ if ($p -and $p.Id) { [void]$global:ChildPids.Add($p.Id) } } $global:ConfUi = @{ Map = [ordered]@{} Order = @() Controls = @{} SourceLines = @() TempPath = Join-Path $env:TEMP 'adhoc_backup_conf_preview.conf' } function Is-BoolString([string]$s){ if ($null -eq $s) { return $false } switch ($s.Trim().ToLowerInvariant()) { 'true' {1};'false' {1};'1' {1};'0' {1};'yes' {1};'no' {1};'y' {1};'n' {1}; default {0} } } # Auto-detect encoding (UTF-8/UTF-16/ANSI). Preferisce UTF-8, ma cade su ANSI se necessario. function Read-FileAuto { param([Parameter(Mandatory)][string]$Path) $bytes = [System.IO.File]::ReadAllBytes($Path) if ($bytes.Length -ge 3 -and $bytes[0] -eq 0xEF -and $bytes[1] -eq 0xBB -and $bytes[2] -eq 0xBF) { $text = [System.Text.Encoding]::UTF8.GetString($bytes,3,$bytes.Length-3) } elseif ($bytes.Length -ge 2 -and $bytes[0] -eq 0xFF -and $bytes[1] -eq 0xFE) { $enc = [System.Text.Encoding]::Unicode $text = $enc.GetString($bytes,2,$bytes.Length-2) } elseif ($bytes.Length -ge 2 -and $bytes[0] -eq 0xFE -and $bytes[1] -eq 0xFF) { $enc = [System.Text.Encoding]::BigEndianUnicode $text = $enc.GetString($bytes,2,$bytes.Length-2) } else { $utf8Strict = New-Object System.Text.UTF8Encoding($false,$true) try { $text = $utf8Strict.GetString($bytes) } catch { $text = [System.Text.Encoding]::Default.GetString($bytes) } if ($text -match ([char]0xFFFD)) { # carattere di sostituzione presente => probabile encoding errato $alt = [System.Text.Encoding]::Default.GetString($bytes) $count1 = ($text.ToCharArray() | Where-Object { $_ -eq [char]0xFFFD }).Count $count2 = ($alt.ToCharArray() | Where-Object { $_ -eq [char]0xFFFD }).Count if ($count2 -lt $count1) { $text = $alt } } } return $text -split "`r?`n" } function Parse-BackupConf { param([Parameter(Mandatory)][string]$Path) $order = New-Object System.Collections.ArrayList $map = [ordered]@{} $lines = Read-FileAuto -Path $Path foreach ($line in $lines) { $trim = $line.Trim() if ($trim -eq '' -or $trim.StartsWith('#') -or $trim.StartsWith(';')) { [void]$order.Add(@{type='comment';text=$line}); continue } $idx = $trim.IndexOf('='); if ($idx -lt 1) { [void]$order.Add(@{type='raw';text=$line}); continue } $k = $trim.Substring(0,$idx).Trim(); $v = $trim.Substring($idx+1).Trim() $v = ($v -replace '(\s+)[#;].*$', '').Trim() if (($v.StartsWith('"') -and $v.EndsWith('"')) -or ($v.StartsWith("'") -and $v.EndsWith("'"))) { $v = $v.Substring(1,$v.Length-2) } $map[$k] = $v; [void]$order.Add(@{type='kv';key=$k}) } $global:ConfUi.Map=$map; $global:ConfUi.Order=$order; $global:ConfUi.SourceLines=$lines } function Save-BackupConf { param([Parameter(Mandatory)][string]$Path) if (-not $global:ConfUi.Map) { throw "Mappa configurazione non inizializzata." } $out = New-Object System.Collections.Generic.List[string] foreach ($entry in $global:ConfUi.Order){ if ($entry.type -eq 'kv'){ $k=$entry.key; $v=$global:ConfUi.Map[$k] if (Is-BoolString $v) { $v = ([string]$v).Trim().ToLowerInvariant(); if ($v -in @('1','yes','y')){$v='true'} elseif ($v -in @('0','no','n')){$v='false'} } $out.Add("$k=$v") } else { $out.Add($entry.text) } } foreach ($k in $global:ConfUi.Map.Keys){ if (-not ($global:ConfUi.Order | Where-Object { $_.type -eq 'kv' -and $_.key -eq $k })) { $out.Add("$k=$($global:ConfUi.Map[$k])") } } # UTF-8 no BOM $utf8NoBom = New-Object System.Text.UTF8Encoding($false) [System.IO.File]::WriteAllLines($Path, $out, $utf8NoBom) } # ------------------------------ DEFAULTS -------------------------------------- $defaultInstall = 'C:\polo\scripts' $defaultScriptUrl = 'https://gitea.poloinformatico.it/Mattia/Backup-AdHoc/raw/branch/main/AdHoc-Backup.ps1' $defaultConfUrl = 'https://gitea.poloinformatico.it/Mattia/Backup-AdHoc/raw/branch/main/backup.conf' # ------------------------------ UI -------------------------------------------- $form = New-Object System.Windows.Forms.Form $form.Text = 'Installer AdHoc Backup' $form.StartPosition = 'CenterScreen' $form.MaximizeBox = $true $form.FormBorderStyle = 'FixedDialog' # Font globale moderno con pieno supporto accenti $form.Font = New-Object System.Drawing.Font('Segoe UI', 9) Set-Sz $form 900 860 # Install path $lblInstall = New-Object System.Windows.Forms.Label $lblInstall.Text = 'Cartella di installazione'; Set-Loc $lblInstall 10 12; Set-Sz $lblInstall 200 20; $form.Controls.Add($lblInstall) $txtInstall = New-Object System.Windows.Forms.TextBox Set-Loc $txtInstall 10 32; Set-Sz $txtInstall 760 24; $txtInstall.Text = $defaultInstall; $form.Controls.Add($txtInstall) $btnBrowse = New-Object System.Windows.Forms.Button $btnBrowse.Text = 'Scegli...'; Set-Loc $btnBrowse 780 30; Set-Sz $btnBrowse 90 28; $form.Controls.Add($btnBrowse) # URLs $lblScriptUrl = New-Object System.Windows.Forms.Label; $lblScriptUrl.Text = 'Script URL'; Set-Loc $lblScriptUrl 10 64; Set-Sz $lblScriptUrl 150 22; $form.Controls.Add($lblScriptUrl) $txtScriptUrl = New-Object System.Windows.Forms.TextBox; Set-Loc $txtScriptUrl 10 84; Set-Sz $txtScriptUrl 860 24; $txtScriptUrl.Text = $defaultScriptUrl; $form.Controls.Add($txtScriptUrl) $lblConfUrl = New-Object System.Windows.Forms.Label; $lblConfUrl.Text = 'Config URL'; Set-Loc $lblConfUrl 10 116; Set-Sz $lblConfUrl 150 22; $form.Controls.Add($lblConfUrl) $txtConfUrl = New-Object System.Windows.Forms.TextBox; Set-Loc $txtConfUrl 10 136; Set-Sz $txtConfUrl 860 24; $txtConfUrl.Text = $defaultConfUrl; $form.Controls.Add($txtConfUrl) # Opzioni $grpOptions = New-Object System.Windows.Forms.GroupBox; $grpOptions.Text = 'Opzioni'; Set-Loc $grpOptions 10 170; Set-Sz $grpOptions 340 120; $form.Controls.Add($grpOptions) $chkForceConf = New-Object System.Windows.Forms.CheckBox; $chkForceConf.Text='Sovrascrivi config esistente (ForceConfig)'; Set-Loc $chkForceConf 10 20; Set-Sz $chkForceConf 300 24; $grpOptions.Controls.Add($chkForceConf) $chkNoRun = New-Object System.Windows.Forms.CheckBox; $chkNoRun.Text='Non avviare il backup ora (NoRun)'; Set-Loc $chkNoRun 10 45; Set-Sz $chkNoRun 300 24; $grpOptions.Controls.Add($chkNoRun) $chkQuiet = New-Object System.Windows.Forms.CheckBox; $chkQuiet.Text='Modalità silenziosa (Quiet)'; Set-Loc $chkQuiet 10 70; Set-Sz $chkQuiet 300 24; $grpOptions.Controls.Add($chkQuiet) # Schedulazione $grpSched = New-Object System.Windows.Forms.GroupBox; $grpSched.Text='Schedulazione'; Set-Loc $grpSched 360 170; Set-Sz $grpSched 510 160; $form.Controls.Add($grpSched) $chkSchedule = New-Object System.Windows.Forms.CheckBox; $chkSchedule.Text='Crea attività pianificata'; Set-Loc $chkSchedule 10 20; Set-Sz $chkSchedule 220 24; $chkSchedule.Checked=$true; $grpSched.Controls.Add($chkSchedule) $lblFreq = New-Object System.Windows.Forms.Label; $lblFreq.Text='Frequenza:'; Set-Loc $lblFreq 20 50; Set-Sz $lblFreq 80 24; $grpSched.Controls.Add($lblFreq) $cmbFreq = New-Object System.Windows.Forms.ComboBox; $cmbFreq.DropDownStyle='DropDownList'; [void]$cmbFreq.Items.Add('Giornaliera'); [void]$cmbFreq.Items.Add('Settimanale'); $cmbFreq.SelectedIndex=0; Set-Loc $cmbFreq 100 48; Set-Sz $cmbFreq 120 24; $grpSched.Controls.Add($cmbFreq) $lblDOW = New-Object System.Windows.Forms.Label; $lblDOW.Text='Giorno:'; Set-Loc $lblDOW 240 50; Set-Sz $lblDOW 60 24; $grpSched.Controls.Add($lblDOW) $cmbDOW = New-Object System.Windows.Forms.ComboBox; $cmbDOW.DropDownStyle='DropDownList' 'Lunedì (MON)','Martedì (TUE)','Mercoledì (WED)','Giovedì (THU)','Venerdì (FRI)','Sabato (SAT)','Domenica (SUN)' | ForEach-Object { [void]$cmbDOW.Items.Add($_) } $cmbDOW.SelectedIndex=0; Set-Loc $cmbDOW 300 48; Set-Sz $cmbDOW 180 24; $cmbDOW.Enabled=$false; $grpSched.Controls.Add($cmbDOW) $cmbFreq.Add_SelectedIndexChanged({ $cmbDOW.Enabled = ($cmbFreq.SelectedIndex -eq 1) }) $lblTime = New-Object System.Windows.Forms.Label; $lblTime.Text='Ora:'; Set-Loc $lblTime 20 85; Set-Sz $lblTime 40 24; $grpSched.Controls.Add($lblTime) $timePicker = New-Object System.Windows.Forms.DateTimePicker; $timePicker.Format=[System.Windows.Forms.DateTimePickerFormat]::Time; $timePicker.ShowUpDown=$true $tpDefault = Get-Date; $tpDefault = Get-Date -Hour 23 -Minute 0 -Second 0 $timePicker.Value = $tpDefault; Set-Loc $timePicker 60 82; Set-Sz $timePicker 100 24; $grpSched.Controls.Add($timePicker) $lblTask = New-Object System.Windows.Forms.Label; $lblTask.Text='Nome task:'; Set-Loc $lblTask 180 85; Set-Sz $lblTask 80 24; $grpSched.Controls.Add($lblTask) $txtTask = New-Object System.Windows.Forms.TextBox; Set-Loc $txtTask 260 82; Set-Sz $txtTask 230 24; $txtTask.Text='Backup_AdHoc'; $grpSched.Controls.Add($txtTask) # Argomenti extra $lblExtra = New-Object System.Windows.Forms.Label; $lblExtra.Text='Argomenti extra per AdHoc (es. -WhatIf)'; Set-Loc $lblExtra 10 340; Set-Sz $lblExtra 420 22; $form.Controls.Add($lblExtra) $txtExtra = New-Object System.Windows.Forms.TextBox; Set-Loc $txtExtra 10 362; Set-Sz $txtExtra 860 24; $form.Controls.Add($txtExtra) # ------------------------------ TAB: CONFIGURAZIONE --------------------------- $tabs = New-Object System.Windows.Forms.TabControl; Set-Loc $tabs 10 392; Set-Sz $tabs 860 230; $form.Controls.Add($tabs) $tabConfig = New-Object System.Windows.Forms.TabPage; $tabConfig.Text='Configurazione (backup.conf)'; [void]$tabs.TabPages.Add($tabConfig) $cfgPanel = New-Object System.Windows.Forms.Panel; Set-Loc $cfgPanel 10 10; Set-Sz $cfgPanel 830 150; $cfgPanel.AutoScroll=$true; $tabConfig.Controls.Add($cfgPanel) $btnReloadConf = New-Object System.Windows.Forms.Button; $btnReloadConf.Text='Ricarica da URL'; Set-Loc $btnReloadConf 10 170; Set-Sz $btnReloadConf 140 28; $tabConfig.Controls.Add($btnReloadConf) $btnSaveConf = New-Object System.Windows.Forms.Button; $btnSaveConf.Text='Salva in bin\\conf'; Set-Loc $btnSaveConf 160 170; Set-Sz $btnSaveConf 230 28; $tabConfig.Controls.Add($btnSaveConf) $btnRcloneConfig = New-Object System.Windows.Forms.Button; $btnRcloneConfig.Text='Configura rclone (console)'; Set-Loc $btnRcloneConfig 400 170; Set-Sz $btnRcloneConfig 200 28; $tabConfig.Controls.Add($btnRcloneConfig) function Build-ConfigUI { $cfgPanel.Controls.Clear(); $global:ConfUi.Controls = @{} $xLabel=10; $xCtrl=260; $y=10; $h=24 foreach ($k in $global:ConfUi.Map.Keys) { $key = [string]$k $v = $global:ConfUi.Map[$key] $lbl = New-Object System.Windows.Forms.Label; $lbl.Text=$key; $lbl.Tag=$key; Set-Loc $lbl $xLabel ($y+4); Set-Sz $lbl 240 $h; $cfgPanel.Controls.Add($lbl) if (Is-BoolString $v) { $chk = New-Object System.Windows.Forms.CheckBox $chk.Tag = $key $chk.Checked = (('1','true','yes','y') -contains ($v.ToString().ToLower())) Set-Loc $chk $xCtrl ($y+2); Set-Sz $chk 20 $h $chk.add_CheckedChanged({ param($sender,$args) try { $k2 = [string]$sender.Tag if (-not [string]::IsNullOrEmpty($k2)) { $global:ConfUi.Map[$k2] = if ($sender.Checked) { 'true' } else { 'false' } } } catch { Write-Log "Update booleano fallito: $($_.Exception.Message)" 'WARN' } }) $cfgPanel.Controls.Add($chk); $global:ConfUi.Controls[$key]=$chk } else { $tb = New-Object System.Windows.Forms.TextBox $tb.Tag = $key $tb.Text=$v; Set-Loc $tb $xCtrl $y; Set-Sz $tb 540 $h $tb.add_TextChanged({ param($sender,$args) try { $k2 = [string]$sender.Tag if (-not [string]::IsNullOrEmpty($k2)) { $global:ConfUi.Map[$k2] = $sender.Text } } catch { Write-Log "Update testo fallito: $($_.Exception.Message)" 'WARN' } }) $cfgPanel.Controls.Add($tb); $global:ConfUi.Controls[$key]=$tb } $y += 28 } Enable-TextRendering $cfgPanel } $btnReloadConf.Add_Click({ try { $temp = $global:ConfUi.TempPath if (Start-Download -Url $txtConfUrl.Text -Dest $temp) { Parse-BackupConf -Path $temp; Build-ConfigUI; Write-Log "backup.conf scaricato e caricato in editor: $temp" } } catch { Write-Log "Errore ricarica backup.conf: $($_.Exception.Message)" 'ERR' } }) $btnSaveConf.Add_Click({ try { $layout = Ensure-ToolsLayout -Root $txtInstall.Text $dest = Join-Path $layout.Conf 'backup.conf' Save-BackupConf -Path $dest Write-Log "backup.conf salvato in: $dest" } catch { Write-Log "Errore salvataggio backup.conf: $($_.Exception.Message)" 'ERR' } }) # Avvio rclone config in console dedicata $btnRcloneConfig.Add_Click({ try { $layout = Ensure-ToolsLayout -Root $txtInstall.Text $rcloneExe = Ensure-RcloneExe -RcloneDir $layout.RClone $rcloneConf = Join-Path $layout.Conf 'rclone.conf' $p = Start-Process -FilePath $rcloneExe -ArgumentList @('config','--config', $rcloneConf) -WorkingDirectory $layout.RClone -PassThru [void]$global:ChildPids.Add($p.Id) Write-Log "Avviato rclone config (PID=$($p.Id))" } catch { Write-Log "Errore avvio rclone config: $($_.Exception.Message)" 'ERR' } }) # ------------------------------ BOTTONI AZIONE -------------------------------- $btnInstall = New-Object System.Windows.Forms.Button; $btnInstall.Text='Installa'; Set-Loc $btnInstall 10 652; Set-Sz $btnInstall 120 32; $form.Controls.Add($btnInstall) $btnClose = New-Object System.Windows.Forms.Button; $btnClose.Text='Chiudi'; Set-Loc $btnClose 150 652; Set-Sz $btnClose 120 32; $form.Controls.Add($btnClose) # LOG $lblLog = New-Object System.Windows.Forms.Label; $lblLog.Text='Log'; Set-Loc $lblLog 10 692; Set-Sz $lblLog 50 22; $form.Controls.Add($lblLog) $txtLog = New-Object System.Windows.Forms.TextBox; Set-Loc $txtLog 10 712; Set-Sz $txtLog 860 100; $txtLog.Multiline=$true; $txtLog.ScrollBars='Vertical'; $txtLog.ReadOnly=$true; $form.Controls.Add($txtLog); $global:LogTextBox = $txtLog # ------------------------------ HANDLERS -------------------------------------- $btnBrowse.Add_Click({ $dlg = New-Object System.Windows.Forms.FolderBrowserDialog; $dlg.Description='Seleziona cartella di installazione'; if ($dlg.ShowDialog() -eq [System.Windows.Forms.DialogResult]::OK){ $txtInstall.Text=$dlg.SelectedPath } }) $btnInstall.Add_Click({ try { $btnInstall.Enabled = $false $root = $txtInstall.Text; Ensure-Dir $root $layout = Ensure-ToolsLayout -Root $root # Scarica/installa Rclone e SOLO 7zr.exe $rcloneExe = Ensure-RcloneExe -RcloneDir $layout.RClone if (-not (Test-Path -LiteralPath $rcloneExe)) { Write-Log "ATTENZIONE: rclone.exe non installato." 'WARN' } $sevenExe = Ensure-SevenZipExe -SevenZipDir $layout.SevenZip if (-not (Test-Path -LiteralPath $sevenExe)) { Write-Log "ATTENZIONE: 7-Zip (7zr.exe) non installato." 'WARN' } # Script principale $scriptPath = Join-Path $root 'AdHoc-Backup.ps1' if (-not (Start-Download -Url $txtScriptUrl.Text -Dest $scriptPath)) { throw "Impossibile scaricare lo script principale." } # backup.conf -> bin\conf\backup.conf $confPath = Join-Path $layout.Conf 'backup.conf' if ($global:ConfUi.Map) { Save-BackupConf -Path $confPath } else { if (-not (Start-Download -Url $txtConfUrl.Text -Dest $confPath)) { Write-Log "Attenzione: impossibile ottenere backup.conf; procedo senza." 'WARN' } } # Schedulazione if ($chkSchedule.Checked) { $schedule = if ($cmbFreq.SelectedIndex -eq 1) { 'WEEKLY' } else { 'DAILY' } $dowmap = @('MON','TUE','WED','THU','FRI','SAT','SUN'); $day=$dowmap[0]; if ($schedule -eq 'WEEKLY'){ $day=$dowmap[$cmbDOW.SelectedIndex] } [void](New-DailyOrWeeklyTask -TaskName $txtTask.Text -ScriptPath $scriptPath -ConfigPath $confPath -Time $timePicker.Value -Schedule $schedule -Day $day -Quiet:$chkQuiet.Checked) } # Avvio immediato if (-not $chkNoRun.Checked) { $args=@('-NoProfile','-ExecutionPolicy','Bypass','-File',"`"$scriptPath`"","-Config", "`"$confPath`"") if ($chkQuiet.Checked){ $args += '-Quiet' } if ($txtExtra.Text -and $txtExtra.Text.Trim() -ne ''){ $args += $txtExtra.Text.Trim().Split(' ') } $p=Start-Process -FilePath 'powershell.exe' -ArgumentList $args -PassThru; [void]$global:ChildPids.Add($p.Id); Write-Log "Esecuzione avviata (PID=$($p.Id))." } Write-Log "Installazione completata." } catch { Write-Log "Errore durante l'installazione: $($_.Exception.Message)" 'ERR' } finally { $btnInstall.Enabled = $true } }) $btnClose.Add_Click({ $form.Close() }) # Chiudi eventuali processi figli avviati dalla GUI $form.Add_FormClosed({ foreach ($cpid in $global:ChildPids) { try { $proc = Get-Process -Id $cpid -ErrorAction SilentlyContinue if ($proc) { $null = $proc.CloseMainWindow() Start-Sleep -Milliseconds 200 if (-not $proc.HasExited) { Stop-Process -Id $cpid -Force -ErrorAction SilentlyContinue } } } catch {} } }) # ------------------------------ AVVIO ----------------------------------------- $global:LogFile = Join-Path $env:TEMP "install-adhoc-backup_gui_$(Get-Date -Format 'yyyyMMdd_HHmmss').log" Write-Log "Log file: $global:LogFile" try { $temp = $global:ConfUi.TempPath if (Start-Download -Url $defaultConfUrl -Dest $temp) { Parse-BackupConf -Path $temp; Build-ConfigUI; Write-Log "backup.conf iniziale caricato da: $defaultConfUrl" } else { Write-Log "Non sono riuscito a scaricare il backup.conf iniziale." 'WARN' } } catch { Write-Log "Errore iniziale confer: $($_.Exception.Message)" 'ERR' } # Applica rendering compatibile a tutta la finestra Enable-TextRendering $form [void]$form.ShowDialog()