普通权限添加开机自启动的方法

以下的StartupPath是开机自启的路径【默认为添加自身到开机自启】,也可自行修改指定目标为”C:\1.exe”或者”D:\2.ahk”

示例:

PowerBoot(“开机启动自身的VBS名称”, 3)   ; 延时3秒后启动此ahk

; 添加开机自启动,延时功能以秒为单位【vbs带if判断,即使目标不存在也不会报错】
PowerBoot(VBSFileName:="StartupVBS", Sleep:=0, StartupPath:="") {
    FileDelete, %A_StartMenu%\Programs\Startup\%VBSFileName%.vbs
    StartupPath := StartupPath="" ? A_ScriptFullPath : StartupPath
    FileAppend, Set shell=CreateObject("Wscript.Shell")`nSet fs=CreateObject("Scripting.FileSystemObject")`nif fs.FileExists("%StartupPath%") then`nWscript.Sleep 1000*%Sleep%`nshell.Run"""%StartupPath%"""`nend if, %A_StartMenu%\Programs\Startup\%VBSFileName%.vbs
    Return ErrorLevel
}

; 删除自启动
DeletePowerBoot(VBSFileName:="StartupVBS") {
	FileDelete, %A_StartMenu%\Programs\Startup\%VBSFileName%.vbs
}

; 检查开机自启动脚本路径是否正确匹配【正确返回0,错误返回1】
ExaminePowerBoot(VBSFileName:="StartupVBS", StartupPath:="") {
    FileRead, VBSContent, %A_StartMenu%\Programs\Startup\%VBSFileName%.vbs
    StartupPath := StartupPath="" ? A_ScriptFullPath : StartupPath
	Return InStr(VBSContent, StartupPath)=0 ? 1 : 0
}

 

检查开机自启项是否存在或正确的方法

if ExaminePowerBoot("演示开机自启") {
	MsgBox 0x40034, 开机自启已失效, 脚本路径改变,导致开机自启失效`n是否恢复开机自启功能?
	IfMsgBox Yes, {
		FileDelete, %A_StartMenu%\Programs\Startup\演示开机自启.vbs
		MsgBox % PowerBoot("演示开机自启")
	}
}

给TA捐赠
共{{data.count}}人
人已捐赠
AHKV1代码示例社区推荐近期更新

异步执行来防止线程阻塞的示例方法

2021-12-3 13:32:24

AHKV1AHKV2游戏社区推荐近期更新

【库 IMGUI】imgui界面库AutoHotKey语言绑定

2021-12-5 21:59:21

2 条回复 A文章作者 M管理员
  1. 1河许人

    还用vbs实现的?

    • dbgba

      嗯,我的情况将AHK放在自启文件夹启动不成功。VBS系统自带的,用VBS启动AHK没问题

个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索