一键关闭屏幕

redapple2008

import ctypes
import time

user32 = ctypes.WinDLL('user32', use_last_error=True)

HWND_BROADCAST = 0xFFFF
WM_SYSCOMMAND = 0x0112
SC_MONITORPOWER = 0xF170
MONITOR_OFF = 2

def turn_off_screen():
    time.sleep(0.5)
    user32.PostMessageW(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF)

if __name__ == '__main__':
    turn_off_screen()

w60711

;; 無系統匣圖標
#NoTrayIcon
;; 請求管理員身分執行
#RequireAdmin


; 一鍵關閉螢幕 (AutoIt3)

Const $HWND_BROADCAST  = 0xFFFF
Const $WM_SYSCOMMAND   = 0x0112
Const $SC_MONITORPOWER = 0xF170
Const $MONITOR_OFF     = 2


Sleep(500) ; 等同 Python 的 time.sleep(0.5)


; 廣播關閉螢幕訊息
; 呼叫 user32.PostMessageW
DllCall("user32.dll", _
        "lresult", "PostMessageW", _
        "hwnd",  $HWND_BROADCAST, _
        "uint",  $WM_SYSCOMMAND, _
        "wparam", $SC_MONITORPOWER, _
        "lparam", $MONITOR_OFF)

w60711

;; 無系統匣圖標
#NoTrayIcon
;; 請求管理員身分執行
#RequireAdmin

; 一鍵關閉螢幕 (AutoIt3)

#include <WinAPISys.au3>


Const $WM_SYSCOMMAND   = 0x0112
Const $SC_MONITORPOWER = 0xF170
Const $MONITOR_OFF     = 2


; 廣播關閉螢幕訊息
_WinAPI_PostMessage($HWND_BROADCAST, $WM_SYSCOMMAND, $SC_MONITORPOWER, $MONITOR_OFF)

haijie1223

可以再把开也加上，1是开  2是关

redapple2008

haijie1223 发表于 2026-6-8 10:02
可以再把开也加上，1是开  2是关

移动鼠标或敲键盘就可以亮屏，你黑屏能点开？高手。

3131210

增加一个监听热键，随时可以开关

Func _ToggleMonitor($hwnd, $OnOff)
        Local Const $WM_SYSCOMMAND = 274
        Local Const $SC_MONITORPOWER = 61808
        _SendMessage($hwnd, $WM_SYSCOMMAND, $SC_MONITORPOWER, $OnOff)
        If @error Then
                MsgBox(0, "_ToggleMonitor", "_SendMessage Error: " & @error)
                Exit
        EndIf
EndFunc   ;==>_ToggleMonitor

haijie1223

redapple2008 发表于 2026-6-8 10:46
移动鼠标或敲键盘就可以亮屏，你黑屏能点开？高手。

这个要看场景需求，代码的运行，也不一定都是靠点。