הצעת ייעול | שהמסך לא יכבה בעת פעילות התוכנה

[צבי דורש ציון]

אני חושב שכדאי שיהיה הגדרה כזו אם זה אפשרי, שהמסך לא יכבה אם התוכנה עכשיו ברקע.
תודה רבה!
(באנדרואיד אני יודע שיש אפליקציות שאפשר להגדיר בהם ככה, אני משער שגם בווינדוס יש משהו כזה)

[דאנציג]

@צבי-דורש-ציון
מצטרף.
תועלת גדולה כשלומדים שלא צריך לעשות פעולה כדי להעיר את המסך.

[יאיר דניאל]

הנה תוכנה קטנה ממש (GPT ּ ג'מיני), שרצה ברקע ושומרת שבעת עבודה על אוצריא - המסך לא יכבה.
היא נמצאת במגש, ואפשר בכל רגע נתון לכבות ולסגור אותה משם, או ממנהל המשימות.
בכבוד!

אוצריא - שומר מסך.exe

• התוכנה מזהה אם אוצריא פתוח ברקע, אם כן - המסך לא נכבה בכלל, אם לא - המסך עובד כרגיל.
• יש אפשרות להפעיל ולכבות את התוכנה, גם בלי לסגור אותה.
• יש אפשרות שהתוכנה תפעל עם עליית המחשב - באופן אוטומטי.
• יש בועת מידע אם התוכנה מופעלת/נכבית - בכדי שתדעו בדיוק מה הסטטוס שלה.
• התוכנה רצה ברקע, ופועלת משורת המשימות.

אשמח להערות!

קוד פאוורשיל - למי שמעניין אותו איך זה עובד:

# 1. הגדרות וטעינת ספריות
$ErrorActionPreference = 'SilentlyContinue'
[void][System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
[void][System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")

# מניעת הרצה כפולה
if ((Get-Process -Name ([System.Diagnostics.Process]::GetCurrentProcess().Name)).Count -gt 1) { exit }

# פונקציית המערכת למניעת שינה
$sig = '[DllImport("kernel32.dll")] public static extern uint SetThreadExecutionState(uint esFlags);'
$win32 = Add-Type -MemberDefinition $sig -Name "Win32Sleep" -Namespace "Win32" -PassThru

# משתני מצב
$script:ManualOverride = $true
$ExePath = [System.Diagnostics.Process]::GetCurrentProcess().MainModule.FileName
$RegPath = "HKCU:\Software\Microsoft\Windows\CurrentVersion\Run"
$AppName = "OtzariaNoSleep"
$FullTitle = "אוצריא - שומר מסך"

# 2. יצירת ה-Tray Icon
$notifyIcon = New-Object System.Windows.Forms.NotifyIcon
$notifyIcon.Icon = [System.Drawing.Icon]::ExtractAssociatedIcon($ExePath)
$notifyIcon.Visible = $true
$notifyIcon.Text = $FullTitle

# 3. פונקציית עדכון מצב - שקטה לחלוטין
function Update-SleepState {
    param($ForceOff = $false)
    $IsRunning = Get-Process -Name "otzaria" -ErrorAction SilentlyContinue
    
    if ($ForceOff -or (-not $script:ManualOverride) -or (-not $IsRunning)) {
        [void][Win32.Win32Sleep]::SetThreadExecutionState([uint32]2147483648)
    } else {
        [void][Win32.Win32Sleep]::SetThreadExecutionState([uint32]2147483651)
    }
}

# 4. תפריט קליק ימני - הודעות מפורשות לשינוי ידני
$contextMenu = New-Object System.Windows.Forms.ContextMenu
$toggleMenu = New-Object System.Windows.Forms.MenuItem("מניעת שינה פעילה", {
    $script:ManualOverride = -not $script:ManualOverride
    $this.Checked = $script:ManualOverride
    Update-SleepState
    
    if ($script:ManualOverride) {
        $notifyIcon.ShowBalloonTip(3000, $FullTitle, "מניעת שינה הופעלה.", [System.Windows.Forms.ToolTipIcon]::Info)
    } else {
        $notifyIcon.ShowBalloonTip(3000, $FullTitle, "מניעת שינה כובתה - המחשב יחזור לישון.", [System.Windows.Forms.ToolTipIcon]::Warning)
    }
})
$toggleMenu.Checked = $true

$startupMenu = New-Object System.Windows.Forms.MenuItem("הפעל עם עליית המחשב", {
    if ($this.Checked) { Remove-ItemProperty $RegPath $AppName }
    else { Set-ItemProperty $RegPath $AppName "`"$ExePath`"" }
    $this.Checked = -not $this.Checked
})
$startupMenu.Checked = $null -ne (Get-ItemProperty $RegPath $AppName -ErrorAction SilentlyContinue)

$exitMenu = New-Object System.Windows.Forms.MenuItem("יציאה", {
    Update-SleepState -ForceOff $true
    $notifyIcon.Visible = $false
    Stop-Process -Id $PID -Force
})

[void]$contextMenu.MenuItems.Add($toggleMenu)
[void]$contextMenu.MenuItems.Add($startupMenu)
[void]$contextMenu.MenuItems.Add("-")
[void]$contextMenu.MenuItems.Add($exitMenu)
$notifyIcon.ContextMenu = $contextMenu

# 5. טיימר בדיקה שקט
$timer = New-Object System.Windows.Forms.Timer -Property @{Interval = 10000}
$timer.Add_Tick({ Update-SleepState })
$timer.Start()

# 6. לוגיקת הודעת הפעלה - תיקון
# אם עברו יותר מ-60 שניות מאז שהווינדוס עלה, סימן שהפעלת את זה ידנית
$BootTime = (Get-CimInstance Win32_OperatingSystem).LastBootUpTime
$SecondsSinceBoot = (New-TimeSpan -Start $BootTime -End (Get-Date)).TotalSeconds

if ($SecondsSinceBoot -gt 60) {
    $notifyIcon.ShowBalloonTip(3000, $FullTitle, "התוכנה הופעלה ומוכנה.", [System.Windows.Forms.ToolTipIcon]::Info)
}

Update-SleepState
[System.Windows.Forms.Application]::Run()