异地远程一键全自动静默安装 AutoHotkey_1.1.33.09

第1步：用RaiDrive_1.8.0或者FlashFXP（不支持WebDAV）或者FileZilla_Pro(不能编辑文档表格后自动上传)或者WinSCP（传输速度慢）或者CrossFTP异地远程动态域名解析连接映射 Synology群晖的DS1821+网络附属存储器并下载AutoHotkey全自动静默安装包（用7-Zip SFX Tool打包而成的单文件可执行压缩全自动静默安装包）。

第2步：在需要安装AutoHotkey的 Windows 10 LTSC 电脑上双击已经下载好的AutoHotkey全自动静默安装包。

第3步：测试右键菜单（新建AutoHotkey脚本和编辑、编译、运行脚本）、测试AHK文件类型关联（双击AHK脚本文件时能否正确执行脚本）

_Silent_Install_AutoHotkey.bat

REM SynologyDS1821Plus:/PCSoftware/AutoHotkey/_Silent_Install_AutoHotkey.bat
MKDIR D:/green/AutoHotkey/Compiler/
MKDIR D:/green/AutoHotkey/SciTE/
MKDIR D:/green/AutoHotkey/SciTE/Tools/
MKDIR D:/green/AutoHotkey/RightMenuSetup/
%~dp0Robocopy/Robocopy.exe  %~dp0Compiler/ D:/green/AutoHotkey/Compiler/  /e /mt /r:3 /w:3  *.*
%~dp0Robocopy/Robocopy.exe  %~dp0SciTE/ D:/green/AutoHotkey/SciTE/  /e /mt /r:3 /w:3  *.*
REM D:/green/AutoHotkey/SciTE/Tools/AHKInfo 1.3.5;Pulover's Macro Creator;AutoScriptWriter;Au3Record;FileLocatorPro;eXeScope;7-Zip SFX Tool;爱码源码仓库
%~dp0Robocopy/Robocopy.exe  %~dp0RightMenuSetup/ D:/green/AutoHotkey/RightMenuSetup/  /e /mt /r:3 /w:3  *.*
START %~dp0AutoHotkey_1.1.33.09_setup.exe  /S /A32 /U32 /U64 /D=D:/green/AutoHotkey/
START %~dp0RightMenuSetup/RightMenuSetup.ahk

RightMenuSetup.ahk

/*
AutoHotkey 版本: 1.x
操作系统:    WinXP
作者:        甲壳虫<jdchenjian@gmail.com>
博客:        http://hi.baidu.com/jdchenjian
脚本说明：   此工具用来修改 AutoHotkey 脚本的右键菜单关联，适用于 AutoHotkey 安装版、绿色版。
脚本版本：   2009-01-21

修改作者：	兔子
更新说明：
2010.01.09	之前某个时间，修改AHK路径、编辑器路径、编译器路径，默认全部在当前目录下寻找
2010.01.09	去掉默认在新建菜单的勾
2010.06.21	如果SCITE为默认编辑器，则复制个人配置文件“SciTEUser.properties”到%USERPROFILE%
2010.06.25	修正因#NoEnv使%USERPROFILE%变量直接引用无效
2016.04.18	删除“2010.06.21”的改动
*/

; --- 20190207 晓亮修改 ---
;~ 重要说明:请用斜杠符号替换本文中的美元符号$之后再执行

#NoEnv
#SingleInstance, force
SendMode Input
SetWorkingDir %A_ScriptDir%

; 版本(仅用于显示）
Script_Version=v1.0.3.2

; AutoHotkey 原版的相关信息写在注册表HKCR主键中，
; 尝试是当前用户否有权操作该键，如果无权操作HKCR键（受限用户），
; 可通过操作注册表HKCU键来实现仅当前用户关联AHK脚本。
IsLimitedUser:=0
RegWrite, REG_SZ, HKCR, .test
if ErrorLevel
	IsLimitedUser:=1
RegDelete, HKCR, .test
if ErrorLevel
	IsLimitedUser:=1

if IsLimitedUser=0 ; 非受限用户操作HKCR键
{
	RootKey=HKCR
	Subkey=
}
else ; 受限用户操作HKCU键
{
	RootKey=HKCU
	Subkey=Software$Classes$ ; <-- 为简化后面的脚本，此子键须以“

rdquo;结尾

}
; 检查是否存在AHK注册表项

RegRead, FileType, %RootKey%, %Subkey%.ahk

if FileType<>

{

	RegRead, value, %RootKey%, %Subkey%%FileType%$Shell$Open$Command ;AHK路径

	AHK_Path:=PathGetPath(value)

	RegRead, value, %RootKey%, %Subkey%%FileType%$Shell$Edit$Command ;编辑器路径

	Editor_Path:=PathGetPath(value)

	RegRead, value, %RootKey%, %Subkey%%FileType%$Shell$Compile$Command ;编译器路径

	Compiler_Path:=PathGetPath(value)

	RegRead, Template_Name, %RootKey%, %Subkey%.ahk$ShellNew, FileName ;模板文件名

}

else

	FileType=AutoHotkeyScript
if AHK_Path=

{

	IfExist, %A_ScriptDir%$AutoHotkey.exe

		AHK_path=%A_ScriptDir%$AutoHotkey.exe

}
if Editor_Path=

{

	IfExist, %A_ScriptDir%$SciTE$SciTE.exe

		Editor_Path=%A_ScriptDir%$SciTE$SciTE.exe

}
if Compiler_Path=

{

	IfExist, %A_ScriptDir%$Compiler$Ahk2Exe.exe

		Compiler_Path=%A_ScriptDir%$Compiler$Ahk2Exe.exe

}
if Template_Name=

	Template_Name=Template.ahk
; --- 20190207 晓亮修改 ---

;设置AHK默认文件夹为  D:$green$AutoHotkey

AHK_path=D:$green$AutoHotkey$AutoHotkeyU32.exe

Editor_Path=D:$green$AutoHotkey$SciTE$SciTE.exe

Compiler_Path=D:$green$AutoHotkey$Compiler$Ahk2Exe.exe
Gui, Add, Tab, x10 y10 w480 h250 Choose1, 设置|说明

	Gui, Tab, 1

		Gui, Add, GroupBox, x20 y40 w460 h50 , “运行脚本”关联的 AutoHotkey

		Gui, Add, Edit, x35 y60 w340 h20 vAHK_Path, %AHK_path%

		Gui, Add, Button, x385 y60 w40 h20 gFind_AHK, 浏览
		Gui, Add, GroupBox, x20 y100 w460 h50 , “编辑脚本”关联的编辑器

		Gui, Add, Edit, x35 y120 w340 h20 vEditor_Path, %Editor_Path%

		Gui, Add, Button, x385 y120 w40 h20 gChoose_Editor, 浏览

		Gui, Add, Button, x430 y120 w40 h20 gDefault_Editor, 默认
		Gui, Add, GroupBox, x20 y160 w460 h50 , “编译脚本”关联的编译器

		Gui, Add, Edit, x35 y180 w340 h20 vCompiler_Path, %Compiler_Path%

		Gui, Add, Button, x385 y180 w40 h20 gChoose_Compiler, 浏览

		Gui, Add, Button, x430 y180 w40 h20 gDefault_Compiler, 默认
		Gui, Add, Checkbox, x35 y230 w270 h20 gNew_Script vNew_Script, 右键“新建”菜单中增加“AutoHotkey 脚本”

		Gui, Add, Button, x310 y230 w80 h20 vEdit_Template gEdit_Template, 编辑脚本模板

		Gui, Add, Button, x400 y230 w80 h20 vDelete_Template gDelete_Template, 删除脚本模板
	Gui, Tab, 2

		Gui, Font, bold

		Gui, Add, Text,, AutoHotkey 脚本关联工具  ScriptSetting %Script_Version%

		Gui, Font

		Gui, Font, CBlue underline

		Gui, Add, Text, gWebsite, 作者：甲壳虫 <jdchenjian@gmail.com>`n`n博客：http://hi.baidu.com/jdchenjian

		Gui, Font

		Gui, Add, Text, w450, 此工具用来修改 AutoHotkey 脚本的右键菜单关联，适用于 AutoHotkey 安装版、绿色版。

		Gui, Add, Text, w450, 您可以用它来修改默认脚本编辑器、编译器，修改默认的新建脚本模板。设置后，在右键菜单中添加“运行脚本”、“编辑脚本”、“编译脚本”和“新建 AutoHotkey 脚本”等选项。

		Gui, Add, Text, w450, 要取消脚本的系统关联，请按“卸载”。注意：卸载后您将无法通过双击来运行脚本，也不能通过右键菜单来启动脚本编辑器...
Gui, Tab

Gui, Add, Button, x100 y270 w60 h20 Default gInstall, 设置

Gui, Add, Button, x200 y270 w60 h20 gUninstall, 卸载

Gui, Add, Button, x300 y270 w60 h20 gCancel, 取消
Gui, Show, x250 y200 h300 w500 CEnter, ScriptSetting %Script_Version%

GuiControl, Disable, Edit_Template ; 使“编辑脚本模板”按钮无效

IfNotExist, %A_WinDir%$ShellNew$%Template_Name%

	GuiControl, Disable, Delete_Template ; 使“删除脚本模板”按钮无效
; 当鼠标指向链接时，指针变成手形

hCurs:=DllCall("LoadCursor","UInt",NULL,"Int",32649,"UInt") ;IDC_HAND

OnMessage(0x200,"WM_MOUSEMOVE")
; --- 20190207 晓亮修改 ---

goto,Install

return
; 改变鼠标指针为手形

WM_MOUSEMOVE(wParam,lParam)

{

	global hCurs

	MouseGetPos,,,,ctrl

	if ctrl in static2

		DllCall("SetCursor","UInt",hCurs)

	return

}

return
GuiClose:

GuiEscape:

Cancel:

	ExitApp
	; 查找 AutoHotkey 主程序

Find_AHK:

	Gui +OwnDialogs

	FileSelectFile, AHK_Path, 3, , 查找 AutoHotkey.exe, AutoHotkey.exe

	if AHK_Path<>

		GuiControl,,AHK_Path, %AHK_Path%

	gosub Default_Compiler

return
; 选择脚本编辑器

Choose_Editor:

	Gui +OwnDialogs

	FileSelectFile, Editor_Path, 3, , 选择脚本编辑器, 程序(*.exe)

	if Editor_Path<>

		GuiControl,,Editor_Path, %Editor_Path%

return
; 默认脚本编辑器

Default_Editor:

	IfExist, %A_ScriptDir%$SciTE$SciTE.exe

		Editor_Path=%A_ScriptDir%$SciTE$SciTE.exe

	else ifExist, %A_WinDir%$system32$notepad.exe

			Editor_Path=%A_WinDir%$system32$notepad.exe

	GuiControl,, Editor_Path, %Editor_Path%

return
; 选择脚本编译器

Choose_Compiler:

	Gui +OwnDialogs

	FileSelectFile, Compiler_Path, 3, , 选择脚本编译器, 程序(*.exe)

	if Compiler_Path<>

		GuiControl,,Compiler_Path, %Compiler_Path%

return
; 默认脚本编译器

Default_Compiler:

	GuiControlGet, AHK_Path

	SplitPath, AHK_Path, ,AHK_Dir

	IfExist, %AHK_Dir%$Compiler$Ahk2Exe.exe

	{

		Compiler_Path=%AHK_Dir%$Compiler$Ahk2Exe.exe

		GuiControl,, Compiler_Path, %Compiler_Path%

	}

return
; 设置

Install:

	Gui, Submit

	IfNotExist, %AHK_Path%

	{

		MsgBox, 16, ScriptSetting %Script_Version%, AutoHotkey 路径错误 ！

		return

	}
	IfNotExist, %Editor_Path%

	{

		MsgBox, 16, ScriptSetting %Script_Version%, 编辑器路径错误 ！

		return

	}
	IfNotExist, %Compiler_Path%

	{

		MsgBox, 16, ScriptSetting %Script_Version%, 编译器路径错误 ！

		return

	}
	; 写入注册表

	RegWrite, REG_SZ, %RootKey%, %Subkey%.ahk,, %FileType%

	if New_Script=1

	{

		RegWrite, REG_SZ, %RootKey%, %Subkey%.ahk$ShellNew, FileName, %Template_Name%

		IfNotExist, %A_WinDir%$ShellNew$%Template_Name%

			gosub Create_Template

	}

	else

	{

		; --- 20190207 晓亮修改 ---

		; --- 此处不要删除右键新建ahk文件的菜单所以注释掉此代码

		;RegDelete, %RootKey%, %Subkey%.ahk$ShellNew

		IfExist, %A_WinDir%$ShellNew$%Template_Name%

			gosub Delete_Template

	}
	RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%,, AutoHotkey 脚本

	RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%$DefaultIcon,, %AHK_Path%`,1

	RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%$Shell,, Open

	RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%$Shell$Open,, 运行脚本

	RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%$Shell$Open$Command,, "%AHK_Path%" "`%1" `%*

	RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%$Shell$Edit,, 编辑脚本

	RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%$Shell$Edit$Command,, "%Editor_Path%" "`%1"

	RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%$Shell$Compile,, 编译脚本

	IfInString, Compiler_Path, Ahk2Exe.exe

		RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%$Shell$Compile$Command,, "%Compiler_Path%" /in "`%1"

	else

		RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%$Shell$Compile$Command,, "%Compiler_Path%" "`%1"
/*		新版的scite不需要将“SciTEUser.properties”放在“USERPROFILE”目录下了

if Editor_Path=%A_ScriptDir%$SciTE$SciTE.exe

{

EnvGet,USERPROFILE,USERPROFILE

FileCopy,%A_ScriptDir%$SciTE$SciTEUser.properties,%USERPROFILE%$SciTEUser.properties,1

}

*/
	;MsgBox, 64, ScriptSetting %Script_Version%, 设置完毕 ！

	ExitApp
	; 卸载

Uninstall:

	; --- 20190207 晓亮修改 ---

	;MsgBox, 36, ScriptSetting %Script_Version%

	;, 注意：卸载后您将无法通过双击来运行脚本，也不能通过右键菜单来启动脚本编辑器...`n`n确定要取消 AHK 脚本的系统关联吗 ？

	;IfMsgBox, Yes

	;{

	;RegDelete, %RootKey%, %Subkey%.ahk

	;RegDelete, %RootKey%, %Subkey%%FileType%

	;gosub Delete_Template

	;ExitApp

	;}

return
; 编辑脚本模板

Edit_Template:

	GuiControlGet, Editor_Path

	IfNotExist, %Editor_Path%

	{

		MsgBox, 64, ScriptSetting %Script_Version%, 脚本编辑器路径错误 ！

		return

	}

	IfNotExist, %A_WinDir%$ShellNew$%Template_Name%

		gosub Create_Template

	Run, %Editor_Path% %A_WinDir%$ShellNew$%Template_Name%

return
; 使编辑脚本模板按钮有效/无效

New_Script:

	GuiControlGet, New_Script

	if New_Script=0

		GuiControl, Disable, Edit_Template

	else

		GuiControl, Enable, Edit_Template

return
; 新建脚本模板

Create_Template:

	GuiControlGet, AHK_Path

	FileGetVersion, AHK_Ver, %AHK_Path%
	FileAppend,

	(

/*

AutoHotkey 版本: %AHK_Ver%

操作系统:    %A_OSVersion%

作者:        %A_UserName%

网站:        http://www.AutoHotkey.com

脚本说明：

脚本版本：   v1.0

*/
#NoEnv

SendMode Input

SetWorkingDir `%A_ScriptDir`%
	), %A_WinDir%$ShellNew$%Template_Name%
	GuiControl, Enable, Delete_Template ; 使“删除脚本模板”按钮有效

return
; 删除脚本模板

Delete_Template:
	; --- 20190207 晓亮修改 ---

	;MsgBox, 36, ScriptSetting %Script_Version%

	;	, 要删除当前的 AHK 脚本模板吗 ？`n`n脚本模板被删除后，仍可通过本工具重建模板。

	;IfMsgBox, Yes

	;FileDelete, %A_WinDir%$ShellNew$%Template_Name%

	;GuiControl, Disable, Delete_Template ; 使“删除脚本模板”按钮无效

return
; 打开网站

Website:

	Run, http://hi.baidu.com/jdchenjian

return
; 从注册表值字符串中提取路径

PathGetPath(pSourceCmd)

{

	local Path, ArgsStartPos = 0

	if (SubStr(pSourceCmd, 1, 1) = """")

		Path := SubStr(pSourceCmd, 2, InStr(pSourceCmd, """", False, 2) - 2)

	else

	{

		ArgsStartPos := InStr(pSourceCmd, " ")

		if ArgsStartPos

			Path := SubStr(pSourceCmd, 1, ArgsStartPos - 1)

		else

			Path = %pSourceCmd%

	}

	return Path

}

再加一句复制 AutoHotkey_CN.chm 中文帮助文件的命令语句快捷键 F1 确实很好用啊 !!!

%~dp0Robocopy/Robocopy.exe %~dp0/ D:/green/AutoHotkey/ /e /mt /r:3 /w:3 AutoHotkey_CN.chm

///////////////////////////////////////////////////////////////////////////////////////////////////////////////

REM SynologyDS1821Plus:/PCSoftware/AutoHotkey/_Silent_Install_AutoHotkey.bat
MKDIR D:/green/AutoHotkey/Compiler/
MKDIR D:/green/AutoHotkey/SciTE/
MKDIR D:/green/AutoHotkey/SciTE/Tools/
MKDIR D:/green/AutoHotkey/RightMenuSetup/
%~dp0Robocopy/Robocopy.exe %~dp0/ D:/green/AutoHotkey/ /e /mt /r:3 /w:3 AutoHotkey_CN.chm
%~dp0Robocopy/Robocopy.exe %~dp0Compiler/ D:/green/AutoHotkey/Compiler/ /e /mt /r:3 /w:3 *.*
%~dp0Robocopy/Robocopy.exe %~dp0SciTE/ D:/green/AutoHotkey/SciTE/ /e /mt /r:3 /w:3 *.*
REM D:/green/AutoHotkey/SciTE/Tools/AHKInfo 1.3.5;Pulover’s Macro Creator;AutoScriptWriter;Au3Record;FileLocatorPro;eXeScope;7-Zip SFX Tool;爱码源码仓库
%~dp0Robocopy/Robocopy.exe %~dp0RightMenuSetup/ D:/green/AutoHotkey/RightMenuSetup/ /e /mt /r:3 /w:3 *.*
START %~dp0AutoHotkey_1.1.33.09_setup.exe /S /A32 /U32 /U64 /D=D:/green/AutoHotkey/
START %~dp0RightMenuSetup/RightMenuSetup.ahk

4 条回复 A文章作者 M管理员

更换删除

aahkA全球宏观交易者

21年7月12日

再加一句复制 AutoHotkey_CN.chm 中文帮助文件的命令语句快捷键 F1 确实很好用啊 !!!

%~dp0Robocopy/Robocopy.exe %~dp0/ D:/green/AutoHotkey/ /e /mt /r:3 /w:3 AutoHotkey_CN.chm

///////////////////////////////////////////////////////////////////////////////////////////////////////////////

REM SynologyDS1821Plus:/PCSoftware/AutoHotkey/_Silent_Install_AutoHotkey.bat
MKDIR D:/green/AutoHotkey/Compiler/
MKDIR D:/green/AutoHotkey/SciTE/
MKDIR D:/green/AutoHotkey/SciTE/Tools/
MKDIR D:/green/AutoHotkey/RightMenuSetup/
%~dp0Robocopy/Robocopy.exe %~dp0/ D:/green/AutoHotkey/ /e /mt /r:3 /w:3 AutoHotkey_CN.chm
%~dp0Robocopy/Robocopy.exe %~dp0Compiler/ D:/green/AutoHotkey/Compiler/ /e /mt /r:3 /w:3 *.*
%~dp0Robocopy/Robocopy.exe %~dp0SciTE/ D:/green/AutoHotkey/SciTE/ /e /mt /r:3 /w:3 *.*
REM D:/green/AutoHotkey/SciTE/Tools/AHKInfo 1.3.5;Pulover’s Macro Creator;AutoScriptWriter;Au3Record;FileLocatorPro;eXeScope;7-Zip SFX Tool;爱码源码仓库
%~dp0Robocopy/Robocopy.exe %~dp0RightMenuSetup/ D:/green/AutoHotkey/RightMenuSetup/ /e /mt /r:3 /w:3 *.*
START %~dp0AutoHotkey_1.1.33.09_setup.exe /S /A32 /U32 /U64 /D=D:/green/AutoHotkey/
START %~dp0RightMenuSetup/RightMenuSetup.ahk
aahkA全球宏观交易者

21年7月12日

手动双击运行RightMenuSetup.ahk能够正确添加编辑和编译ahk的鼠标右键菜单；
但是批处理脚本中运行RightMenuSetup.ahk却不能添加编辑和编译ahk的鼠标右键菜单；
真是一个非常奇怪非常神奇的错误。

REM SynologyDS1821Plus:/PCSoftware/AutoHotkey/_Silent_Install_AutoHotkey.bat
MKDIR D:/green/AutoHotkey/
MKDIR D:/green/AutoHotkey/Compiler/
MKDIR D:/green/AutoHotkey/SciTE/
MKDIR D:/green/AutoHotkey/SciTE/Tools/
%~dp0Robocopy/Robocopy.exe %~dp0/ D:/green/AutoHotkey/ /e /mt /r:3 /w:3 AutoHotkey_CN.chm
%~dp0Robocopy/Robocopy.exe %~dp0Compiler/ D:/green/AutoHotkey/Compiler/ /e /mt /r:3 /w:3 *.*
%~dp0Robocopy/Robocopy.exe %~dp0SciTE/ D:/green/AutoHotkey/SciTE/ /e /mt /r:3 /w:3 *.*
REM D:/green/AutoHotkey/SciTE/Tools/AHKInfo 1.3.5;Pulover’s Macro Creator;AutoScriptWriter;Au3Record;FileLocatorPro;eXeScope;7-Zip SFX Tool;爱码源码仓库
%~dp0Robocopy/Robocopy.exe %~dp0RightMenuSetup/ D:/green/AutoHotkey/ /e /mt /r:3 /w:3 *.*
START %~dp0AutoHotkey_1.1.33.09_setup.exe /S /A32 /U32 /U64 /D=D:/green/AutoHotkey/
D:
CD /green/AutoHotkey/
D:/green/AutoHotkey/RightMenuSetup.ahk
exit
user14586 赤贫lv0

22年4月17日

不错，学习了
aahkA全球宏观交易者

22年9月29日

我的AutoHotkey_v1.1编程环境部署自动静默安装包是_https://ds920.lanzouy.com/iS8Gm0ck5wmh_可能含有病毒或者木马_如果不喜欢请删除文件__我的腾讯QQ电子邮箱地址是 595076941@qq.com