如何让 Win10 屏幕常亮?

之前求助过让安卓屏幕常亮,现在求助让 Win10 屏幕常亮的方法和工具。
系统设定30秒自动关闭屏幕。有时候需要屏幕常亮。

msdn 有指令,但我目前基础还在学,不懂得运用。

微软power toys

2 Likes

或者原始一点,模拟鼠标抖动

……?
不是应该在电源设置里面设置关闭屏幕时间吗?
题主发的MSDN应该是编程里面用到的代码吧,莫非是手搓大佬练习生?

http://www.softwareok.com/?seite=Microsoft/DontSleep

有设置30秒自动关闭屏幕,但有时候阅读需要屏幕常亮。因此我想通过软件来卡住,而不是改设置

AHK V2 29秒发送一次F10
SetTimer () => send("{F10}"), 29000

ahk v2 我见过很多次,是开始慢慢流行了吗?

未来在 v2 而不是 v1.1 ?

本身就是个小众的东西
目前V1还是主流吧
V2已经差不多十年了前段时间才进入beta.1
没进入之前的ALPHA都不向后兼容,更新一次可能就要改一部分代码
现在已经进入向后兼容的阶段了
我个人的脚本很少有依赖,加上自己一个大型脚本V2明显比V1快才切换过来的

维基上有写

AutoHotkey 1.0.* 和 AutoHotkey_H 已停止开发和维护,不建议使用。

依赖大量旧的代码库建议使用 AutoHotkey 1.1.*,因为目前绝大多数的代码和社区都是使用这个版本,这个版本仍在维护,仍然会添加少量的新功能和修复错误,用户可以等待迁移工具完善或者 v2 变成主流再迁移即可。

不依赖旧的代码库,愿意且能够同步改动代码的用户使用 AutoHotkey v2,能获得更一致的语法和更多的新功能。

AHK官方论坛真是个好东西
每个提问都有回复,虽然可能回复得慢一点,但是对我来说解决率100%
最重要是我用在线翻译的英文也能获得回复
一些切换过程中的困难也很快就解决了。
像维基上说的,语法更一致了。我一个1000行的脚本中只有 7 个%

1 Like

我正想回复这链接,提示已经有了,这个小工具就可以了。

V2 怎么安装。我搜了一圈没找到说法。下载的 v2 只有可执行文件和文档。不像 L 有安装包。

邪道方法是用V1的安装包,然后手动把exe文件替换成V2的

不过我用的都是便携的,没安装的
下载V2的EXE然后放到想要的位置
然后保存下面我转换过来的代码为 ahk 文件,比方说1.ahk
然后拖拽这个到V2的EXE上就行了

注意:这样你的V1脚本也会关联到这,可能会导致启动不了。

FileEncoding "UTF-8"

if ! A_IsAdmin and MsgBox("点击是为所有用户,否为当前用户",, "YesNo") = "Yes"
{
    if ! A_IsAdmin
        Run '*RunAs "' A_AhkPath '" /restart "' A_ScriptFullPath '"'
}

if ! A_IsAdmin
    RootKey :="HKCR\"
else
    RootKey := "HKCU\Software\Classes\"

if MsgBox("点击是安装,否卸载",, "YesNo") = "No"
{
    try RegDeleteKey RootKey "AutoHotkeyScript"
    try RegDeleteKey RootKey ".ahk"
    if FileExist(A_WinDir "\ShellNew\Template.ahk")
        try FileDelete A_WinDir "\ShellNew\Template.ahk"
    TrayTip "Uninstall complete", "AHK"
    ExitApp
}

;添加模板
RegWrite "Template.ahk", "REG_SZ", RootKey ".ahk\ShellNew","FileName"
RegWrite "AutoHotkeyScript", "REG_SZ", RootKey ".ahk"

;关联脚本
RegWrite "AutoHotkey 脚本", "REG_SZ",RootKey "AutoHotkeyScript"
RegWrite "AHK", "REG_SZ",RootKey "AutoHotkeyScript","FriendlyTypeName"
RegWrite "`"" A_AhkPath "`",1", "REG_SZ",RootKey "AutoHotkeyScript\DefaultIcon"
;运行
RegWrite "运行", "REG_SZ",RootKey "AutoHotkeyScript\Shell\Open"
RegWrite "`"" A_AhkPath "`" `"%1`" %*", "REG_SZ",RootKey "AutoHotkeyScript\Shell\Open\Command"
;编辑
RegWrite "编辑(&E)", "REG_SZ",RootKey "AutoHotkeyScript\Shell\Edit"
RegWrite "notepad `"%1`"", "REG_SZ",RootKey "AutoHotkeyScript\Shell\Edit\Command"
;编译
if FileExist(A_ScriptDir "\Compiler\Ahk2Exe.exe")
{
    RegWrite "编译", "REG_SZ",RootKey "AutoHotkeyScript\Shell\Compile"
    RegWrite "`"" A_ScriptDir "\Compiler\Ahk2Exe.exe`" /in `"%1`"", "REG_SZ",RootKey "AutoHotkeyScript\Shell\Compile\Command"
}
;拖拽支持
RegWrite "{86C86720-42A0-1069-A2E8-08002B30309D}", "REG_SZ",RootKey "AutoHotkeyScript\ShellEx\DropHandler"

if A_IsAdmin
{
    if ! FileExist(A_WinDir "\ShellNew")
        DirCreate A_WinDir "\ShellNew"
    if FileExist(A_WinDir "\ShellNew\Template.ahk")
        FileDelete A_WinDir "\ShellNew\Template.ahk"

    ;New file template
    FileAppend
    (
    "#SingleInstance force
    FileEncoding `"UTF-8`""
    ), A_WinDir "\ShellNew\Template.ahk"
}

TrayTip "安装完毕", "AHK"

更一致的语法?再也不用五分钟写完主体,两小时调试分号逗号百分号了吗:joy:

微软的powertoys几个月前更新的,自带一个叫做powertoys awake的小工具

逗号还是要管,百分号差不多没了,但是 “” 必需要有了。
= 变成比较符号, 赋值必需要用 := 了

i = test 
这种得写成  
i := "test"

总体来说更像编程语言了吧大概。
差不多99%的语句都变成函数了,可以直接调用,组合更方便了

arr := StrSplit(FileRead("D:\新建文本文档.txt"), "`n")
msgbox arr[1]

不过也有变量必需提前声明等要求了,不能像v1这样了

If !i
	i = set

这种需求不是很多工具么

https://www.appinn.com/awake-for-windows/

最简单的方法是去电源设置里设置

那可太好了,每次在写不写引号,写= 还是写 := 上也浪费了好多生命