最简单关闭显示器的方法，高手莫笑，菜鸟请进

acetaohai123 · 发表于 2011-12-7 14:07:19

虽然是直接抄的帮助文档，但我相信肯定还有很多菜鸟和我一样不知道，所以还是发一下比较好。

#include <SendMessage.au3>

;利用Sendmessage可以关闭monitor

_Main()

Func _Main()
        Local Const $Off = 2, $On = -1

        Opt("WinTitleMatchMode", 4)
        Local $hwnd = WinGetHandle('classname=Progman')
        ;关闭显示器和打开显示器
        _ToggleMonitor($hwnd, $Off)
        ;三秒后打开显示器
        Sleep(3000)
        _ToggleMonitor($hwnd, $On)
EndFunc   ;==>_Main

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

user3000 · 发表于 2011-12-7 16:45:15

支持分享精神!
顶一个!

那片叶子 · 发表于 2011-12-9 08:57:36

学习一下，论坛越发的好

asdasdasd · 发表于 2011-12-14 17:38:18

呵呵，我都还不知道呢，谢谢你的帮助文件分享~！

ybbhkyga · 发表于 2011-12-15 10:02:22

菜鸟就是我谢谢分享.

xlj310 · 发表于 2011-12-16 23:45:51

晕哦，你就是在帮助文件里截了段例子就贴过来了，这样也行？

765058729 · 发表于 2011-12-17 12:48:59

就这我也看不懂

novajo · 发表于 2011-12-18 03:21:40

不是很懂关键是哪些? 可以详细分享吗

chenzhi1210 · 发表于 2012-1-16 13:29:37

非常感谢楼主分享！支持你！

wher · 发表于 2012-2-26 23:07:37

谢谢楼主分享

infinite.starry · 发表于 2012-2-27 14:02:50

我得研究研究,感謝分享.

ak47gglllk · 发表于 2014-6-30 09:58:07

感谢，感谢，非常感谢

tjbcjb · 发表于 2014-6-30 10:47:04

感谢分享，学习中

mxcjmn · 发表于 2014-6-30 17:54:44

呵呵，有点取巧啊。不过只要能达到目标就OK了。

		自动登录	找回密码
密码			加入

[原创] 最简单关闭显示器的方法，高手莫笑，菜鸟请进