F8我的Excel文件
F8我的Excel文件
D:\请不要删除\请不要编辑\电脑本地D盘实时单向备份到飞牛零刻Basic存储池\本人文件\F8我的Excel文件\
D:\请不要删除\请不要编辑\电脑本地D盘实时单向备份到飞牛零刻Basic存储池\本人文件\F8我的Excel文件\Config.txt
\请不要删除\请不要编辑\电脑本地D盘实时单向备份到飞牛零刻Basic存储池\本人文件\F8我的Excel文件\F8我的Excel文件.xlsx
D:\请不要删除\请不要编辑\电脑本地D盘实时单向备份到飞牛零刻Basic存储池\本人文件\F8我的Excel文件\按快捷键F8打开我的F8我的Excel文件.ahk
; D:\请不要删除\请不要编辑\电脑本地D盘实时单向备份到飞牛零刻Basic存储池\本人文件\F8我的Excel文件\按快捷键F8打开我的F8我的Excel文件.ahk
; 请在电脑启动时用Maye Lite和此AutoHotkey脚本同时自动设置打开我的F8我的Excel文件的快捷键为F8
; 由于批处理脚本无法用鼠标拖放应用程序固定到Windows任务栏；
; 所以我写了这个AutoHotkey脚本，用于集中存放和备份电脑文件；
; 文件分类整理保存实现专一专注，集中统一。
; 此脚本的优点主要有:
; 1、编译成exe文件后可以拖放固定到任务栏
; 2、编译成exe文件后可以发送快捷方式到Windows电脑桌面
; 3、编译成exe文件后可以复制快捷方式到酷呆桌面 1.1.0.0 的映射盒子中
; 4、编译成exe文件时可以自定义图标(.ico文件)
; 5、绿色免安装,可以用7z压缩包自解压制作工具Fc-SysCeo.Com制作成单文件便携应用程序
; 6、不依赖其他运行库,单个exe,干干净净(AutoHotkey脚本就是好用)
; 7、快捷键热键F8,一键打开Excel工作簿,方便快捷
; 8、F8我的Excel文件所在路径配置保存在文本文件 Config.txt 中，可随时修改，
; U盘盘符改变时无需修改配置，依然可以打开F8我的Excel文件
; 9、可以手动创建快捷方式实现开机时自动启动此脚本(运行批处理脚本打开启动文件夹)
; 运行环境 AutoHotkey_1.1.37.02_setup.exe
; ========================================
#NoTrayIcon
; /* ; 设置互斥体,阻止脚本重复运行
Single(flag) { ;,返回1为重复,返回0为第一个运行
DllCall("CreateMutex", "Ptr",0, "int",0, "str", "Ahk_Single_" flag)
return A_LastError=0xB7 ? true : false
}
;使用案例,脚本改名都没用,照样只能运行一个.
#SingleInstance,Off ;关闭自带互斥功能
if (Single("[email protected]")) { ;独一无二的字符串用于识别脚本,或者称为指纹?
MsgBox,16,提示,程序已启动!`n请按快捷键F8打开F8我的Excel文件,2
ExitApp
}
; */
; ========================================
; 设置此脚本的一些默认参数
; #SingleInstance,force ;在此脚本已经运行时跳过对话框并自动替换旧实例，再次运行, 效果类似于 Reload 命令.
#Persistent ;让脚本持续运行(即直到用户关闭或遇到 ExitApp).
#NoEnv ;不检查空变量是否为环境变量(推荐所有新脚本使用).
SendMode Input ;让 Send 与 SendInput 同义. 由于其卓越的速度和可靠性, 推荐新脚本使用
SetWorkingDir %A_ScriptDir% ;改变脚本的当前工作目录为脚本所在的文件
DetectHiddenWindows,On ;设置脚本可以 "看见" 隐藏的窗口.
SetTitleMatchMode,2 ; 2: 窗口标题的任意位置包含 WinTitle 才能匹配.
; ========================================
; 设置打开我的文件夹的快捷键为 F8
Hotkey,F8,OpenMyWorkBook
return
; ========================================
; 定义打开我的F8我的Excel文件的标签子程序.
OpenMyWorkBook:
; 检查是否存在开机自动启动项配置文本文件，如果没有就创建一个示范配置文本文件。
IniPath := A_ScriptDir "\Config.txt"
IfNotExist,% IniPath
{
; 配置文件内容,此处只用于演示举例，你可以通过修改Config.txt的文件内容来指定F8我的Excel文件。
configContent =
(
\请不要删除\请不要编辑\电脑本地D盘实时单向备份到飞牛零刻Basic存储池\本人文件\F8我的Excel文件\F8我的Excel文件.xlsx
)
; 写入配置文件
; 为了支持中文文件夹目录,在文件末尾处追加(写入)
; 文本(如果有必要, 首先创建文件).指定编码或编码页,
; 例如 UTF-8, UTF-16 或 CP936.如果文件包含 UTF-8 或
; UTF-16 字节顺序标记(BOM), 则忽略此参数和默认编码.
FileAppend, % configContent,% IniPath, UTF-8
; FileCreateDir,D:\我的文件夹\GoodSync-v10实时单向备份到飞牛NAS
}
; ========================================
; 在所有本地磁盘中搜索查找F8我的Excel文件 ,如果找到则打开F8我的Excel文件
FileRead, OutputVar,% IniPath
ifFindedFile:=false
DriveGet,DriveList,List ; 获取电脑中所有驱动器盘符,返回一串字母
loop,Parse,DriveList ; 循环解析字符串，从一个字符串中获取每次一个子字符串(片段).
{
; 检查当前循环驱动器盘符下是否存在F8我的Excel文件
IfExist,%A_LoopField%:%OutputVar%
{
; 如果已经找到F8我的Excel文件则打开找到的F8我的Excel文件,不再继续寻找.
Run,%A_LoopField%:%OutputVar%
ifFindedFile:=true
}
}
if(ifFindedFile=false)
{
MsgBox,没有找到文件 %A_LoopField%:%OutputVar%
}
; FileCreateDir,D:\我的文件夹\GoodSync-v10实时单向备份到飞牛NAS
return
; ========================================
; 运行批处理脚本打开启动文件夹
; rem D:\APP\AutoRun\Program\打开所有用户启动文件夹.bat
; start "" "shell:common startup"
; exit
; rem D:\APP\AutoRun\Program\打开当前用户启动文件夹.bat
; start "" "shell:startup"
; exit
; ========================================
; 添加注册表项目,设置开机自动运行此脚本
; Run,Reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v OpenMyFolder-1 /t REG_SZ /d "D:\APP\打开我的文件夹\打开我的文件夹.exe" /f
; Run,Reg add HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v OpenMyFolder-2 /t REG_SZ /d "D:\APP\打开我的文件夹\打开我的文件夹.exe" /f
; Run,regedit.exe /s "D:\APP\打开我的文件夹\SetAutoRun.Reg"
; ========================================
; 设置开机自动运行此脚本的注册表导入文件
; Windows Registry Editor Version 5.00
; [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
; "OpenMyFolder-3"="\"D:\\APP\\打开我的文件夹\\打开我的文件夹.exe\" "
; [HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
; "OpenMyFolder-4"="\"D:\\APP\\打开我的文件夹\\打开我的文件夹.exe\" "
D:\APP\AutoRun\开机自动启动项.txt
; D:\APP\AutoRun\开机自动启动项.txt 配置文件
D:\APP\MasterSeeker\_SetHotkey-TCMS.exe
Notepad.exe
Calc.exe
D:\APP\MayeLite\MayeLite2.exe
D:\APP\TotalCMD\TotalCMD.exe
D:\APP\FastCopy\FastCopy.bat
D:\APP\Coodesker\Coodesker.exe
D:\APP\QQ\QQ.exe
D:\APP\Dexpot\Dexpot.exe
C:\Program Files\zspace\极空间.exe
C:\Program Files (x86)\滴答清单\TickTick.exe
C:\Program Files\ynote-desktop\有道云笔记.exe
C:\app\GoodSync\x64\GoodSync2Go.exe
D:\APP\USBSafelyRemove\inst.bat
D:\APP\FSCapture\_FSCapture.exe
D:\请不要删除\请不要编辑\电脑本地D盘实时单向备份到飞牛零刻Basic存储池\本人文件\F8我的Excel文件\按快捷键F8打开我的F8我的Excel文件.exe
D:\APP\AutoRun\Program\AutoRun.bat
REM D:\APP\AutoRun\Program\AutoRun.bat 开机自动启动批处理脚本文件
@echo off
cd /d D:\APP\AutoRun\Program\
start D:\APP\AutoRun\Program\AutoHotkeyA32.exe D:\APP\AutoRun\Program\AutoRun.ahk
exit
D:\APP\AutoRun\Program\AutoRun.ahk
; D:\APP\AutoRun\Program\AutoRun.ahk 开机自动启动AHK脚本文件
; 开机自动启动项
; ======================================================================
; 1. 检测是否已拥有管理员权限
if !A_IsAdmin {
; 2. 无权限时，以管理员身份重启脚本
MsgBox, 本脚本需要管理员权限才能运行，即将请求授权...
Run *RunAs "%A_ScriptFullPath%" ; *RunAs 是提权关键参数
ExitApp ; 退出当前非管理员进程
}
; ======================================================================
; 添加快捷方式到所有用户开始菜单程序启动文件夹,设置开机自动运行此脚本
; ==============================
; 仅需修改这2个参数！
; ==============================
TargetProgram := "D:\APP\AutoRun\Program\AutoRun.bat" ; 要自启的程序完整路径
ShortcutName := "AutoRun-1.lnk" ; 快捷方式名称（必须带.lnk后缀）
; ==============================
; 可选配置（按需修改）
; ==============================
AllUsers := true ; false=仅当前用户（无需管理员），true=所有用户（需管理员）
; ==============================
; 核心执行代码（无需修改）
; ==============================
; 获取启动文件夹路径
StartupFolder := AllUsers ? A_ProgramData "\Microsoft\Windows\Start Menu\Programs\Startup" : A_AppData "\Microsoft\Windows\Start Menu\Programs\Startup"
ShortcutPath := StartupFolder "\" ShortcutName
; 验证目标程序是否存在
if !FileExist(TargetProgram) {
MsgBox, 错误：找不到程序！`n路径：%TargetProgram%, 0x10 ; 0x10=错误图标
ExitApp
}
; 所有用户模式需要管理员权限，自动提权
if AllUsers && !A_IsAdmin {
Run *RunAs "%A_ScriptFullPath%" ; 以管理员身份重启脚本
ExitApp
}
; 创建快捷方式（通过WScript.Shell COM对象）
try {
Shell := ComObjCreate("WScript.Shell")
Link := Shell.CreateShortcut(ShortcutPath)
Link.TargetPath := TargetProgram ; 目标程序路径
Link.WorkingDirectory := FileGetDirectory(TargetProgram) ; 工作目录（程序所在文件夹）
Link.Save() ; 保存快捷方式
; MsgBox, 快捷方式创建成功！`n位置：%StartupFolder%`n名称：%ShortcutName%, 0x40 ; 0x40=信息图标
} catch e {
; MsgBox, 创建失败！`n错误：%Message%, 0x10
}
; ======================================================================
; 添加快捷方式到当前用户开始菜单程序启动文件夹,设置开机自动运行此脚本
; ==============================
; 仅需修改这2个参数！
; ==============================
TargetProgram := "D:\APP\AutoRun\Program\AutoRun.bat" ; 要自启的程序完整路径
ShortcutName := "AutoRun-2.lnk" ; 快捷方式名称（必须带.lnk后缀）
; ==============================
; 可选配置（按需修改）
; ==============================
AllUsers := false ; false=仅当前用户（无需管理员），true=所有用户（需管理员）
; ==============================
; 核心执行代码（无需修改）
; ==============================
; 获取启动文件夹路径
StartupFolder := AllUsers ? A_ProgramData "\Microsoft\Windows\Start Menu\Programs\Startup" : A_AppData "\Microsoft\Windows\Start Menu\Programs\Startup"
ShortcutPath := StartupFolder "\" ShortcutName
; 验证目标程序是否存在
if !FileExist(TargetProgram) {
MsgBox, 错误：找不到程序！`n路径：%TargetProgram%, 0x10 ; 0x10=错误图标
ExitApp
}
; 所有用户模式需要管理员权限，自动提权
if AllUsers && !A_IsAdmin {
Run *RunAs "%A_ScriptFullPath%" ; 以管理员身份重启脚本
ExitApp
}
; 创建快捷方式（通过WScript.Shell COM对象）
try {
Shell := ComObjCreate("WScript.Shell")
Link := Shell.CreateShortcut(ShortcutPath)
Link.TargetPath := TargetProgram ; 目标程序路径
Link.WorkingDirectory := FileGetDirectory(TargetProgram) ; 工作目录（程序所在文件夹）
Link.Save() ; 保存快捷方式
; MsgBox, 快捷方式创建成功！`n位置：%StartupFolder%`n名称：%ShortcutName%, 0x40 ; 0x40=信息图标
} catch e {
; MsgBox, 创建失败！`n错误：%Message%, 0x10
}
; 辅助函数：获取文件所在目录
FileGetDirectory(Path) {
SplitPath, Path, , OutDir
return OutDir
}
; ======================================================================
; 添加注册表项目,设置开机自动运行此脚本
Run,Reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v AutoRun-3 /t REG_SZ /d "D:\APP\AutoRun\Program\AutoRun.bat" /f
Run,Reg add HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v AutoRun-4 /t REG_SZ /d "D:\APP\AutoRun\Program\AutoRun.bat" /f
Run,regedit.exe /s "D:\APP\AutoRun\Program\AutoRun.Reg"
; ======================================================================
; 设置互斥体,阻止脚本重复运行
Single(flag) { ;,返回1为重复,返回0为第一个运行
DllCall("CreateMutex", "Ptr",0, "int",0, "str", "Ahk_Single_" flag)
return A_LastError=0xB7 ? true : false
}
#SingleInstance,Off ;关闭自带互斥功能
if (Single("276193850")) { ;独一无二的字符串用于识别脚本,或者称为指纹?
; MsgBox,16,提示,程序已启动!`n请勿重复运行
ExitApp
}
; ======================================================================
; 检查是否存在开机自动启动项配置文本文件，如果没有就创建一个示范配置文本文件。
IniPath := A_ScriptDir "\..\开机自动启动项.txt"
IfNotExist,% IniPath
{
; 配置文件内容
configContent =
(
; D:\APP\AutoRun\开机自动启动项.txt 配置文件
D:\APP\TotalCMD\_SetHotkey-TCEV.exe
Notepad.exe
Calc.exe
D:\APP\MayeLite\MayeLite.exe
D:\APP\TotalCMD\TotalCMD.exe
D:\APP\FastCopy\FastCopy.bat
D:\APP\Coodesker\Coodesker.exe
D:\APP\QQ\QQ.exe
D:\APP\Dexpot\Dexpot.exe
C:\Program Files\zspace\极空间.exe
C:\Program Files (x86)\滴答清单\TickTick.exe
C:\Program Files\ynote-desktop\有道云笔记.exe
C:\app\GoodSync\x64\GoodSync2Go.exe
)
; 写入配置文件
; 为了支持中文文件夹目录,在文件末尾处追加(写入)
; 文本(如果有必要, 首先创建文件).指定编码或编码页,
; 例如 UTF-8, UTF-16 或 CP936.如果文件包含 UTF-8 或
; UTF-16 字节顺序标记(BOM), 则忽略此参数和默认编码.
FileAppend, % configContent,% IniPath, UTF-8
}
; ======================================================================
; 逐行读取文本文件的内容, 每次读取一行并运行读到的程序。
loop, Read,% IniPath
{
loop, Parse, A_LoopReadLine, % A_Tab
{
IfExist,% A_LoopField
{
SplitPath,% A_LoopField, OutFileName, OutDir
SetWorkingDir,%OutDir%
Run,% A_LoopField
}
}
}
; ======================================================================
; 等待30秒钟，让互斥体存在30秒钟，阻止另外的脚本重复运行
Sleep,30000
ExitApp
D:\APP\AutoRun\Program\AutoRun.reg
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
"AutoRun-5"="\"D:\\APP\\AutoRun\\Program\\AutoRun.bat\" "
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
"AutoRun-6"="\"D:\\APP\\AutoRun\\Program\\AutoRun.bat\" "
https://www.autoahk.com/archives/53484
https://chuna2.787528.xyz/delphixx/p/19480852
chuna2.787528.xyz/delphixx
浙公网安备 33010602011771号