REM /* REM ============================================================= REM 一键打包成exe.bat REM ============================================================= REM */ if exist "C:Program Files (x86)WinRARWinRAR.exe" ( "C:Program Files (x86)WinRARWinRAR.exe" a -ag_YYYY.MM.DD -iiconico.ico -m5 -r -sfx -z自解压脚本命令.txt SS-AutoHotkey.exe ..*.* )else ( "C:Program FilesWinRARWinRAR.exe" a -ag_YYYY.MM.DD -iiconico.ico -m5 -r -sfx -z自解压脚本命令.txt SS-AutoHotkey.exe ..*.* ) REM /* REM ============================================================= REM Silent_Setup_AHK.bat - 全自动静默安装并设置AutoHotkey和SciTE4AutoHotkey的批处理脚本 REM ============================================================= REM */ START "" "%~dp0"AutoHotkey_1.1.34.04_setup.exe /S /A32 /U32 /U64 /D=D:ProgAutoHotkey /WAIT REM 等待3秒钟，以便让AHK文件关联生效，使ahk脚本能够顺利运行 REM ping -n 3 127.0.0.1>nul 2>nul REM 设置AHK文件关联、汉化AHK文件右键菜单(运行脚本、编译脚本、编译脚本(GUI)、编辑脚本) REM 脚本说明： 此工具用来修改 AutoHotkey 脚本的右键菜单关联，适用于 AutoHotkey 安装版、绿色版。 REM 作者： 甲壳虫 REM 修改作者： 兔子 START "" "%~dp0"SciTE_Linked.exe EXIT
REM /* REM ============================================================= REM 一键打包成exe.bat REM ============================================================= REM */ if exist "C:Program Files (x86)WinRARWinRAR.exe" ( "C:Program Files (x86)WinRARWinRAR.exe" a -ag_YYYY.MM.DD -iiconico.ico -m5 -r -sfx -z自解压脚本命令.txt SS-AutoHotkey.exe ..*.* )else ( "C:Program FilesWinRARWinRAR.exe" a -ag_YYYY.MM.DD -iiconico.ico -m5 -r -sfx -z自解压脚本命令.txt SS-AutoHotkey.exe ..*.* ) REM /* REM ============================================================= REM Silent_Setup_AHK.bat - 全自动静默安装并设置AutoHotkey和SciTE4AutoHotkey的批处理脚本 REM ============================================================= REM */ START "" "%~dp0"AutoHotkey_1.1.34.04_setup.exe /S /A32 /U32 /U64 /D=D:ProgAutoHotkey /WAIT REM 等待3秒钟，以便让AHK文件关联生效，使ahk脚本能够顺利运行 REM ping -n 3 127.0.0.1>nul 2>nul REM 设置AHK文件关联、汉化AHK文件右键菜单(运行脚本、编译脚本、编译脚本(GUI)、编辑脚本) REM 脚本说明： 此工具用来修改 AutoHotkey 脚本的右键菜单关联，适用于 AutoHotkey 安装版、绿色版。 REM 作者： 甲壳虫 REM 修改作者： 兔子 START "" "%~dp0"SciTE_Linked.exe EXIT
unit PYIndexUnit; {*******************************************************} { 汉字-->拼音声母处理 v4.0 } { Developed by cyw(QQ: 26890954) } { 2013.9.13 All Right Reserved. } {*******************************************************} { 一、特点： 1、支持多音字，支持所有中国汉字(共20902个)，包括难字、生僻字、广东白话字、繁体字等所有计算机能显示的全部汉字。 例如：镕、啱、揾、叻、嘅、咁、門、長、發財、車、冇乜嘢。 2、同时支持Unicode和ANSI字符集。 3、支持Delphi6至DelphiXE系列的所有Delphi版本(最后一次测试是XE4)。 二、实现原理(Unicode)： 1、根据汉字的编码规则，汉字在Unicode的编码范围为$4E00至$9FA5(即:19968至40869, 共20902个汉字)。 2、对中国汉字字库中的每个汉字，扫描从互联网下载的较完整的拼音字库，找到每个汉字的全拼拼音 (包括多音，一个汉字最多4种读音)，并获取每个读音的声母(首字母), 生成汉字声母字典文件。 3、把声母字典文件中每个汉字的声母，按汉字字库的Unicode编码规则全部串在一起，由于一个汉字最多3种读音(有4种以上读音的 仅有"竓qfzygs, 竕sfzyg, 竡ygsb"三个生僻字, 仅取前三个读音)，为每个汉字预留3个字节空间，生成Unicode汉字声母表, 如本单元所定义的PartUnicode常量。 4、查找原理：要查找一个汉字在声母表中的对应位置，应使用以下公式计算得： 汉字声母索引 = (汉字Unicode编码 - 19968) * 3 + 1; //其中19968是指Unicode字符集中的第一个汉字位置; 3表示每个汉字预留的3个字节空间 三、实现原理(ANSI)： 1、根据汉字的编码规则，第一字节为区码(纵向)，第二字节为位码（横向）， 第一字节的范围是129-254，共126种，其中161-169段存放各种标点符号，254段为无效汉字，真正有效段为129-160,170-253，共116种。 第二字节的范围是64-254，其中127段为分隔符，不存在任何内容，真正有效段为64-126,128-254，共190种。 排除无效字符及标点符号后，有效的汉字库分为三部分： 1)第一部分(区:129-160 位:64-254[除127]) 32*190 =6080 2)第二部分(区:170-253 位:64-160[除127], 区253位156-160留空) 84*96-5=8059 3)第三部分(区:176-247 位:161-254, 区215位250-254留空) 72*94-5=6763 合计: 20902个汉字 2、按以上规则可生成三个部分的中国汉字字库，每个区码一行，每个位码一列。 3、同二(2)。 4、同二(3)，如本单元所定义的Part1..Part3常量。 5、查找原理：要查找一个汉字在声母表中的对应位置，应使用以下公式计算得： 汉字声母索引 = ((汉字区码 - 段落起始区码) * 位码长度 + 汉字位码 - 段落起始位码) * 3 + 1; //其中3表示每个汉字预留的3个字节空间 如汉字“啊”，其区位码分别是(176,161)，根据上述第1点所定义，属于第三部分汉字，理应在常量Part3中查找， 由于第三部分的位码范围是161-254，横向长度是94，即一行(一个区)有94个汉字，所以“啊”在Part3中的位置应该是： ((176-176) * 94 + 161 - 161) * 3 + 1 = 1，即Part3[1] = 'a'; 四、更新历史： 1、10.9.8 由于全拼输入法的拼音库太过全面，有部分多音字的第一个拼音却不是常用的拼音，导致汉字转声母有时不准确， 决定抛弃全拼输入法的拼音库，改为采用从互联网下载的较完整的拼音字库，重新生成汉字声母表。 2、10.12.27 上一次更新时是在Excel中编辑文件的，在Excel内替换右括号")"为空时，"Jun1)"替换后会变成"1-Jun"， Excel的奇怪现象，导致"军"字的声母变成数字"1"，类似的情况还有很多。本次更新全面修正此类问题，并且经检测发现99.9%以上的 多音字最多只有三个读音，仅"竓qfzygs, 竕sfzyg, 竡ygsb"三个生僻字有4种以上读音, 故声母表全部由4个字节改为预留3个字节， 上述三个僻字仅截取前三个读音的声母。 3、12.2.14 之前的版本按常用程度分为五个级别，但却漏了(区:170-175 位:64-160)一段汉字，合计漏了6*96=576个汉字未处理。今改为按汉字编码 分布规则，划分为三个部分（三段），共计20902个汉字，是迄今为止史上最完整的汉字字库。据此生成的Part1、Part2、Part3三个声母 常量也是最完整的汉字声母表。另外，从该版本起，开始支持Delphi2007-DelphiXE系列。 4、13.9.13 针对Unicode的编码规则，生成全新的Unicode原生汉字声母表，放弃以前把String转换为AnsiString的方法，由于少了转换步骤，所以理论上 在Delphi2009(或更高版本)时算法速度更优更快。同时使用编译指令兼容Delphi6-2007的非UniCode开发环境，这部分保留以前的算法。 } interface uses SysUtils; //--------------------------- 声明段 ------------------------------------------- //获取指定汉字的拼音索引字母，如：汉 = h。多音字返回多个声母，如：行 = hx function GetPYIndex(const OneWord: String; const OnlyOne: Boolean = False): String; //获取指定字符串的拼音索引字母（多音字总是取第一个音的声母)。如：中山大学 = zsdx function GetStrPYIndex(const Str: String): String; //获取字符串Str中与拼音声母字符串PYStr匹配的起始位置。如：PosPY('zsdx'，'我来自中山大学')，在Unicode环境中返回4，非Unicode环境返回7 function PosPY(const PYStr, Str: String): Integer; //判断字符串Str的拼音声母是否全部与PYStr相同。如：SamePY('zsdx', '中山大学') = True function SamePY(const PYStr, Str: String): Boolean; //获取字符串Str中拼音声母串与字符串SubStr拼音声母串匹配的起始位置。如：PosTextPY('纵声大笑', '我来自中山大学')，在Unicode环境中返回4，非Unicode环境返回7 function PosTextPY(const SubStr, Str: String): Integer; //判断字符串Str的拼音声母是否全部与字符串SubStr的拼音声母相同。如：SameTextPY('纵声大笑', '中山大学') = True function SameTextPY(const SubStr, Str: String): Boolean; //---------------------------- 实现段 ------------------------------------------ implementation const MaxPYLength = 3; //最大的拼音声母个数 {$IFDEF UNICODE} //Unicode汉字声母表 $4E00至$9FA5(即:19968至40869, 共20902个) PartUnicode = 'y dz k q s x n wm z s s x j bf y m g c c z qj p s s q b y c d s c d q l d y l y b s s j g y qp z j j f g c c l z zd n w d w z jd l j p f y ya n n j j t my y n z w z h f ly z p p ' +'q h g cs cs y y n mn j q y x x g d n n s n s j n j n s n n m l n r x y f s n gq n n n n qg z gjqg l l y j l n y z s s e c y k y y h q w j s s g g y x y q y jq t w k t j h y c '
https://mountainduck.io/
嗯，后台自动静默智能操作的脚本不会打扰用户当前的操作，不会影响到用户，让用户能够专注于当下正在进行的项目，我比较喜欢自己写的 MsgBox 或者 ToolTip 提示窗口，简洁明了。
https://www.autoahk.com/?p=44514
;-- 两次开关型循环
`:: (ok:=!ok) ? Go.Go("bbb") : Go.Go("ccc")
bbb:
; ToolTip,bbb
; Process,Exist,TotalCMD.exe
; if (%ErrorLevel%=0)
DetectHiddenWindows,On
SetTitleMatchMode,2
; IfWinNotExist,Total Commander or IfWinNotExist,ahk_class TTOTAL_CMD
IfWinNotActive,Total Commander or IfWinNotActive,ahk_class TTOTAL_CMD
{
;-----------------------------------
; Maye Lite 和 此脚本中的快捷键都一致相同的设置为 ` （ 即波浪键~，位于Esc键正下方，位于Tab键正上方 ）
; 搜索根目录中含有文件夹filter-file-with-totalcmd的磁盘分区
; 并用 Total Commander 10.52 简体中文增强版打开找到的文件夹
; 一旦找到文件夹后不在寻找其他磁盘分区
; Total Commander的右半边窗口的当前路径保持不变,只改变左半边的窗口的当前路径
; 此时只需要在 Total Commander 窗口中输入 "拼音首字母" 字符串序列就可以筛选过滤当前的文件列表
;-----------------------------------
DriveGet,DriveList,List
; loop,Parse,CDEFGHIJKLMNOPQRSTUVWXYZ
loop, Parse, DriveList
{
IfExist,%A_LoopField%:filter-file-with-totalcmd
{
IfExist,D:ProgTotalCMD/TotalCMD64.exe
{
Run,D:ProgTotalCMD/TotalCMD64.exe %A_LoopField%:filter-file-with-totalcmd
}
else
{
MsgBox,找不到文件 C:ProgTotalCMD/TotalCMD64.exe
ExitApp
; return
}
}
}
}
loop,3
{
WinGet, WinID, ID,Total Commander ahk_class TTOTAL_CMD
DllCall("SwitchToThisWindow", "UInt", WinID, "UInt", 1)
WinShow,Total Commander ahk_class TTOTAL_CMD
WinActivate,Total Commander ahk_class TTOTAL_CMD
WinMove,Total Commander ahk_class TTOTAL_CMD,,0,0,A_ScreenWidth,A_ScreenHeight
WinMaximize,Total Commander ahk_class TTOTAL_CMD
}
return
ccc:
; ToolTip,ccc
WinMinimize,Total Commander ahk_class TTOTAL_CMD
return
玩的快要成精了
SetTimer确实非常好用 可惜编译成exe后容易被某些杀毒软件误报误删误杀
我感觉用AutoHotkey操作网站文件时功能有点单薄了，我感觉操作网站文件应当采用Delphi或者C++或者JAVA或者Python
非常感谢您的回复和指教。
REM /* REM ============================================================= REM 一键打包成exe.bat REM ============================================================= REM */ if exist "C:Program Files (x86)WinRARWinRAR.exe" ( "C:Program Files (x86)WinRARWinRAR.exe" a -ag_YYYY.MM.DD -iiconico.ico -m5 -r -sfx -z自解压脚本命令.txt SS-AutoHotkey.exe ..*.* )else ( "C:Program FilesWinRARWinRAR.exe" a -ag_YYYY.MM.DD -iiconico.ico -m5 -r -sfx -z自解压脚本命令.txt SS-AutoHotkey.exe ..*.* ) REM /* REM ============================================================= REM Silent_Setup_AHK.bat - 全自动静默安装并设置AutoHotkey和SciTE4AutoHotkey的批处理脚本 REM ============================================================= REM */ START "" "%~dp0"AutoHotkey_1.1.34.04_setup.exe /S /A32 /U32 /U64 /D=D:ProgAutoHotkey /WAIT REM 等待3秒钟，以便让AHK文件关联生效，使ahk脚本能够顺利运行 REM ping -n 3 127.0.0.1>nul 2>nul REM 设置AHK文件关联、汉化AHK文件右键菜单(运行脚本、编译脚本、编译脚本(GUI)、编辑脚本) REM 脚本说明： 此工具用来修改 AutoHotkey 脚本的右键菜单关联，适用于 AutoHotkey 安装版、绿色版。 REM 作者： 甲壳虫 REM 修改作者： 兔子 START "" "%~dp0"SciTE_Linked.exe EXIT
REM /* REM ============================================================= REM 一键打包成exe.bat REM ============================================================= REM */ if exist "C:Program Files (x86)WinRARWinRAR.exe" ( "C:Program Files (x86)WinRARWinRAR.exe" a -ag_YYYY.MM.DD -iiconico.ico -m5 -r -sfx -z自解压脚本命令.txt SS-AutoHotkey.exe ..*.* )else ( "C:Program FilesWinRARWinRAR.exe" a -ag_YYYY.MM.DD -iiconico.ico -m5 -r -sfx -z自解压脚本命令.txt SS-AutoHotkey.exe ..*.* ) REM /* REM ============================================================= REM Silent_Setup_AHK.bat - 全自动静默安装并设置AutoHotkey和SciTE4AutoHotkey的批处理脚本 REM ============================================================= REM */ START "" "%~dp0"AutoHotkey_1.1.34.04_setup.exe /S /A32 /U32 /U64 /D=D:ProgAutoHotkey /WAIT REM 等待3秒钟，以便让AHK文件关联生效，使ahk脚本能够顺利运行 REM ping -n 3 127.0.0.1>nul 2>nul REM 设置AHK文件关联、汉化AHK文件右键菜单(运行脚本、编译脚本、编译脚本(GUI)、编辑脚本) REM 脚本说明： 此工具用来修改 AutoHotkey 脚本的右键菜单关联，适用于 AutoHotkey 安装版、绿色版。 REM 作者： 甲壳虫 REM 修改作者： 兔子 START "" "%~dp0"SciTE_Linked.exe EXIT
unit PYIndexUnit; {*******************************************************} { 汉字-->拼音声母处理 v4.0 } { Developed by cyw(QQ: 26890954) } { 2013.9.13 All Right Reserved. } {*******************************************************} { 一、特点： 1、支持多音字，支持所有中国汉字(共20902个)，包括难字、生僻字、广东白话字、繁体字等所有计算机能显示的全部汉字。 例如：镕、啱、揾、叻、嘅、咁、門、長、發財、車、冇乜嘢。 2、同时支持Unicode和ANSI字符集。 3、支持Delphi6至DelphiXE系列的所有Delphi版本(最后一次测试是XE4)。 二、实现原理(Unicode)： 1、根据汉字的编码规则，汉字在Unicode的编码范围为$4E00至$9FA5(即:19968至40869, 共20902个汉字)。 2、对中国汉字字库中的每个汉字，扫描从互联网下载的较完整的拼音字库，找到每个汉字的全拼拼音 (包括多音，一个汉字最多4种读音)，并获取每个读音的声母(首字母), 生成汉字声母字典文件。 3、把声母字典文件中每个汉字的声母，按汉字字库的Unicode编码规则全部串在一起，由于一个汉字最多3种读音(有4种以上读音的 仅有"竓qfzygs, 竕sfzyg, 竡ygsb"三个生僻字, 仅取前三个读音)，为每个汉字预留3个字节空间，生成Unicode汉字声母表, 如本单元所定义的PartUnicode常量。 4、查找原理：要查找一个汉字在声母表中的对应位置，应使用以下公式计算得： 汉字声母索引 = (汉字Unicode编码 - 19968) * 3 + 1; //其中19968是指Unicode字符集中的第一个汉字位置; 3表示每个汉字预留的3个字节空间 三、实现原理(ANSI)： 1、根据汉字的编码规则，第一字节为区码(纵向)，第二字节为位码（横向）， 第一字节的范围是129-254，共126种，其中161-169段存放各种标点符号，254段为无效汉字，真正有效段为129-160,170-253，共116种。 第二字节的范围是64-254，其中127段为分隔符，不存在任何内容，真正有效段为64-126,128-254，共190种。 排除无效字符及标点符号后，有效的汉字库分为三部分： 1)第一部分(区:129-160 位:64-254[除127]) 32*190 =6080 2)第二部分(区:170-253 位:64-160[除127], 区253位156-160留空) 84*96-5=8059 3)第三部分(区:176-247 位:161-254, 区215位250-254留空) 72*94-5=6763 合计: 20902个汉字 2、按以上规则可生成三个部分的中国汉字字库，每个区码一行，每个位码一列。 3、同二(2)。 4、同二(3)，如本单元所定义的Part1..Part3常量。 5、查找原理：要查找一个汉字在声母表中的对应位置，应使用以下公式计算得： 汉字声母索引 = ((汉字区码 - 段落起始区码) * 位码长度 + 汉字位码 - 段落起始位码) * 3 + 1; //其中3表示每个汉字预留的3个字节空间 如汉字“啊”，其区位码分别是(176,161)，根据上述第1点所定义，属于第三部分汉字，理应在常量Part3中查找， 由于第三部分的位码范围是161-254，横向长度是94，即一行(一个区)有94个汉字，所以“啊”在Part3中的位置应该是： ((176-176) * 94 + 161 - 161) * 3 + 1 = 1，即Part3[1] = 'a'; 四、更新历史： 1、10.9.8 由于全拼输入法的拼音库太过全面，有部分多音字的第一个拼音却不是常用的拼音，导致汉字转声母有时不准确， 决定抛弃全拼输入法的拼音库，改为采用从互联网下载的较完整的拼音字库，重新生成汉字声母表。 2、10.12.27 上一次更新时是在Excel中编辑文件的，在Excel内替换右括号")"为空时，"Jun1)"替换后会变成"1-Jun"， Excel的奇怪现象，导致"军"字的声母变成数字"1"，类似的情况还有很多。本次更新全面修正此类问题，并且经检测发现99.9%以上的 多音字最多只有三个读音，仅"竓qfzygs, 竕sfzyg, 竡ygsb"三个生僻字有4种以上读音, 故声母表全部由4个字节改为预留3个字节， 上述三个僻字仅截取前三个读音的声母。 3、12.2.14 之前的版本按常用程度分为五个级别，但却漏了(区:170-175 位:64-160)一段汉字，合计漏了6*96=576个汉字未处理。今改为按汉字编码 分布规则，划分为三个部分（三段），共计20902个汉字，是迄今为止史上最完整的汉字字库。据此生成的Part1、Part2、Part3三个声母 常量也是最完整的汉字声母表。另外，从该版本起，开始支持Delphi2007-DelphiXE系列。 4、13.9.13 针对Unicode的编码规则，生成全新的Unicode原生汉字声母表，放弃以前把String转换为AnsiString的方法，由于少了转换步骤，所以理论上 在Delphi2009(或更高版本)时算法速度更优更快。同时使用编译指令兼容Delphi6-2007的非UniCode开发环境，这部分保留以前的算法。 } interface uses SysUtils; //--------------------------- 声明段 ------------------------------------------- //获取指定汉字的拼音索引字母，如：汉 = h。多音字返回多个声母，如：行 = hx function GetPYIndex(const OneWord: String; const OnlyOne: Boolean = False): String; //获取指定字符串的拼音索引字母（多音字总是取第一个音的声母)。如：中山大学 = zsdx function GetStrPYIndex(const Str: String): String; //获取字符串Str中与拼音声母字符串PYStr匹配的起始位置。如：PosPY('zsdx'，'我来自中山大学')，在Unicode环境中返回4，非Unicode环境返回7 function PosPY(const PYStr, Str: String): Integer; //判断字符串Str的拼音声母是否全部与PYStr相同。如：SamePY('zsdx', '中山大学') = True function SamePY(const PYStr, Str: String): Boolean; //获取字符串Str中拼音声母串与字符串SubStr拼音声母串匹配的起始位置。如：PosTextPY('纵声大笑', '我来自中山大学')，在Unicode环境中返回4，非Unicode环境返回7 function PosTextPY(const SubStr, Str: String): Integer; //判断字符串Str的拼音声母是否全部与字符串SubStr的拼音声母相同。如：SameTextPY('纵声大笑', '中山大学') = True function SameTextPY(const SubStr, Str: String): Boolean; //---------------------------- 实现段 ------------------------------------------ implementation const MaxPYLength = 3; //最大的拼音声母个数 {$IFDEF UNICODE} //Unicode汉字声母表 $4E00至$9FA5(即:19968至40869, 共20902个) PartUnicode = 'y dz k q s x n wm z s s x j bf y m g c c z qj p s s q b y c d s c d q l d y l y b s s j g y qp z j j f g c c l z zd n w d w z jd l j p f y ya n n j j t my y n z w z h f ly z p p ' +'q h g cs cs y y n mn j q y x x g d n n s n s j n j n s n n m l n r x y f s n gq n n n n qg z gjqg l l y j l n y z s s e c y k y y h q w j s s g g y x y q y jq t w k t j h y c '