文章

; AutoHotkey代码测试助手

 

; AutoHotkey代码测试助手

 

  1. ;
  2. ;
  3. ; AutoHotkey代码测试助手
  4. ; 2024.10.04
  5. ;
  6. ; 用法:
  7. ; 第1步:复制需要测试的AutoHotkey脚本代码片段到此脚本的第50行尖括号段落分隔行内
  8. ; (最常测试的是窗口和控件的识别和操作)
  9. ; 第2步:双击运行此脚本
  10. ; 第3步:按快捷键F4测试此脚本中的代码片段并观察测试结果
  11. ; 第4步:按快捷键F5结束此脚本
  12. ; 第5步:在SciTE4AutoHotkey代码编辑器中按快捷键F5可以再次运行此脚本进行代码测试
  13. ; 由于选中的代码通常只有一行或者几行,
  14. ; 测试代码很少具有针对性,
  15. ; 不易混淆,提高了测试效果和效率.
  16. ;
  17. ; 专注于测试一行或者少量的几行代码更容易测试成功并且得到正确的代码语句
  18. ;
  19. ; 源代码下载网址:
  20. ; https://gitee.com/ds920/CodeTestHelper
  21. ; https://www.cnblogs.com/delphixx/p/15806255.html
  22. ;
  23. ; 设置环境变量
  24. #SingleInstance,force
  25. #Persistent
  26. #NoEnv
  27. #WinActivateForce
  28. ;~ #NoTrayIcon
  29. ;~ #Warn
  30. SetWorkingDir,%A_ScriptDir%
  31. DetectHiddenWindows,On
  32. SetTitleMatchMode,2
  33. ;
  34. ; 设置变量
  35. global SciTE_Path
  36. SciTE_Path:="D:\Program\AutoHotkey\SciTE"
  37. global TestAHK_Name
  38. global TestAHK_FullPath
  39. ;
  40. ; 创建热键
  41. Hotkey,F4,HotkeyF4
  42. Hotkey,F5,HotkeyF5
  43. MsgBox,0,,按F4测试代码片段-按F5退出此脚本,2
  44. ;
  45. return
  46. ;
  47. HotkeyF4()
  48. {
  49. 	; 请把需要测试的AutoHotkey代码片段复制到此脚本的第50行尖括号段落分隔行内
  50. 	; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  51. 	; Run,C:\Users\Administrator\AppData\Local\Feishu\Feishu.exe
  52. 	; WinWait, 飞书 ahk_class Chrome_WidgetWin_1 ahk_exe Feishu.exe
  53. 	WinActivate,ahk_exe Feishu.exe
  54. 	; WinActivate,飞书 ahk_class Chrome_WidgetWin_1 ahk_exe Feishu.exe
  55. 	; WinActivate,飞书
  56. 	
  58. 	; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  59. }
  60. ;
  61. HotkeyF5()
  62. {
  63. ExitApp
  64. }
  65. ;
  66. RemoveToolTip:
  67. 	ToolTip
  68. return
  97. ;
  98. ; MsgBox,Msg123
  99. ;
  100. ; 我会在空余时间用微软的 Visual Studio 2015 简体中文版中的 C++ 语言 和
  101. ; 简体中文汉化版 Embarcadero.Delphi.11.0.v28.0.42600.6491.Lite.v17.0 中的Pascal 语言
  102. ; 重新制作,重构,优化,测试,改进,分享,发布此"代码测试工具"
  103. ;
  104. ; 使得此"代码测试工具"能够辅助 AutoHotkey,AutoIT,
  105. ; C++(Visual Studio 2015 简体中文版),Pascal(Embarcadero.Delphi.11.0简体中文汉化版),
  106. ; Python,JAVA 和 C# 的代码编程制作开发科学研究测试部署.
  107. ; 常见的窗口PSY嗅探检测工具有:
  108. ;          001-星雨朝霞的AHKInfo 1.3.5
  109. ;          002-FindText()8.6- 屏幕抓字生成字库工具与找字函数——FeiYue
  110. ;          003-ViewWinzard 2.63
  111. ;          004-WindowSpy
  112. ;          005-AHK_Window_Info
  113. ;          006-Spy++
  114. ;          007-MacroCreator
  115. ;          008-AU3Record
  116. ;          009-AutoScriptWrite
  117. ;          010-PuloversMacroCreator
  118. /*
  119. ; 我常用的SetTimer循环操作代码结构
  120. ; ----- 1 -----
  121. #SingleInstance,Ignore
  122. #Persistent
  123. runwith("admin")
  124. loop,5
  125. {
  126. DetectHiddenWindows,On
  127. Sleep,5
  128. IfWinExist,7z-E-Mail-595076941@QQ.COM
  129. ExitApp
  130. }
  131. Gui, Show, Hide,7z-E-Mail-595076941@QQ.COM
  132. DetectHiddenWindows,On
  133. SetTitleMatchMode,2
  134. ; 启动7z安装程序
  135. SetTimer,SetupTimer,500
  136. return
  137. SetupTimer()
  138. {
  139. ; 1、如果程序没有运行则运行程序
  140. Process,Exist,7z2106.exe
  141. if (%ErrorLevel%=0)
  142. {
  143. IfExist,%A_ScriptDir%\7z2106.exe
  144. {
  145. Run,%A_ScriptDir%\7z2106.exe
  146. }
  147. else
  148. {
  149. MsgBox,找不到文件 %A_ScriptDir%\7z2106.exe
  150. return
  151. }
  152. }
  153. ControlSend, Button2,{Space}, 7-Zip 21.06 Setup ahk_class #32770 ahk_exe 7z2106.exe, Cancel
  154. Sleep,2000
  155. IfWinExist,7-Zip,installed
  156. {
  157. SetTimer,SetupTimer,Delete
  158. ControlSend, Button2,{Space}, 7-Zip 21.06 Setup ahk_class #32770 ahk_exe 7z2106.exe, Cancel
  159. MsgBox,,,已成功安装7-Zip软件,2
  160. ExitApp
  161. }
  162. }
  163. ; 非常感谢 RunWith() 函数作者 空
  164. ; 这个  RunWith() 函数解决了我的一大难题
  165. ; https://www.autoahk.com/archives/35533
  166. ; 强制自身进程以 管理员权限 或 普通权限 或 ANSI 或 U32 或 U64 版本运行。
  167. ; 例1: runwith("admin","u32") 强制自身以 u32 + 管理员权限 运行。
  168. ; 例2: runwith("","ansi")     强制自身以 ansi 版本运行（权限不变）。
  169. ; 例3: runwith("normal")      强制自身以 普通权限 运行（版本不变）。
  170. RunWith(RunAsAdmin:="Default", ANSI_U32_U64:="Default")
  171. {
  172. ; 格式化预期的模式
  173. switch, RunAsAdmin
  174. {
  175. case "Normal","Standard","No","0":		RunAsAdmin:=0
  176. case "Admin","Yes","1":								RunAsAdmin:=1
  177. case "Default":												RunAsAdmin:=A_IsAdmin
  178. default:															RunAsAdmin:=A_IsAdmin
  179. }
  180. switch, ANSI_U32_U64
  181. {
  182. case "A32","ANSI","A":								ANSI_U32_U64:="AutoHotkeyA32.exe"
  183. case "U32","X32","32":								ANSI_U32_U64:="AutoHotkeyU32.exe"
  184. case "U64","X64","64":								ANSI_U32_U64:="AutoHotkeyU64.exe"
  185. case "Default":												ANSI_U32_U64:="AutoHotkey.exe"
  186. default:															ANSI_U32_U64:="AutoHotkey.exe"
  187. }
  188. ; 获取传递给 “.ahk” 的用户参数（不是 /restart 之类传递给 “.exe” 的开关参数）
  189. for k, v in A_Args
  190. {
  191. if (RunAsAdmin=1)
  192. {
  193. ; 转义所有的引号与转义符号
  194. v:=StrReplace(v, "\", "\\")
  195. v:=StrReplace(v, """", "\""")
  196. ; 无论参数中是否有空格，都给参数两边加上引号
  197. ; Run       的内引号是 "
  198. ScriptParameters  .= (ScriptParameters="") ? """" v """" : A_Space """" v """"
  199. }
  200. else
  201. {
  202. ; 转义所有的引号与转义符号
  203. ; 注意要转义两次 Run 和 RunAs.exe
  204. v:=StrReplace(v, "\", "\\")
  205. v:=StrReplace(v, """", "\""")
  206. v:=StrReplace(v, "\", "\\")
  207. v:=StrReplace(v, """", "\""")
  208. ; 无论参数中是否有空格，都给参数两边加上引号
  209. ; RunAs.exe 的内引号是 \"
  210. ScriptParameters .= (ScriptParameters="") ? "\""" v "\""" : A_Space "\""" v "\"""
  211. }
  212. }
  213. ; 判断当前 exe 是什么版本
  214. if (!A_IsUnicode)
  215. RunningEXE:="AutoHotkeyA32.exe"
  216. else if (A_PtrSize=4)
  217. RunningEXE:="AutoHotkeyU32.exe"
  218. else if (A_PtrSize=8)
  219. RunningEXE:="AutoHotkeyU64.exe"
  220. ; 运行模式与预期相同，则直接返回。 ANSI_U32_U64="AutoHotkey.exe" 代表不对 ahk 版本做要求。
  221. if (A_IsAdmin=RunAsAdmin and (ANSI_U32_U64="AutoHotkey.exe" or ANSI_U32_U64=RunningEXE))
  222. return
  223. ; 如果当前已经是使用 /restart 参数重启的进程，则报错避免反复重启导致死循环。
  224. else if (RegExMatch(DllCall("GetCommandLine", "str"), " /restart(?!\S)"))
  225. {
  226. 预期权限:=(RunAsAdmin=1) ? "管理员权限" : "普通权限"
  227. 当前权限:=(A_IsAdmin=1)  ? "管理员权限" : "普通权限"
  228. ErrorMessage=
  229. (LTrim
  230. 预期使用: %ANSI_U32_U64%
  231. 当前使用: %RunningEXE%
  232. 预期权限: %预期权限%
  233. 当前权限: %当前权限%
  234. 程序即将退出。
  235. )
  236. MsgBox 0x40030, 运行状态与预期不一致, %ErrorMessage%
  237. ExitApp
  238. }
  239. else
  240. {
  241. ; 获取 AutoHotkey.exe 的路径
  242. SplitPath, A_AhkPath, , Dir
  243. if (RunAsAdmin=0)
  244. {
  245. ; 强制普通权限运行
  246. switch, A_IsCompiled
  247. {
  248. ; %A_ScriptFullPath% 必须加引号，否则含空格的路径会被截断。%ScriptParameters% 必须不加引号，因为构造时已经加了。
  249. ; 工作目录不用单独指定，默认使用 A_WorkingDir 。
  250. case, "1": Run, RunAs.exe /trustlevel:0x20000 "\"%A_ScriptFullPath%\" /restart %ScriptParameters%",, Hide
  251. default: Run, RunAs.exe /trustlevel:0x20000 "\"%Dir%\%ANSI_U32_U64%\" /restart \"%A_ScriptFullPath%\" %ScriptParameters%",, Hide
  252. }
  253. }
  254. else
  255. {
  256. ; 强制管理员权限运行
  257. switch, A_IsCompiled
  258. {
  259. ; %A_ScriptFullPath% 必须加引号，否则含空格的路径会被截断。%ScriptParameters% 必须不加引号，因为构造时已经加了。
  260. ; 工作目录不用单独指定，默认使用 A_WorkingDir 。
  261. case, "1": Run, *RunAs "%A_ScriptFullPath%" /restart %ScriptParameters%
  262. default: Run, *RunAs "%Dir%\%ANSI_U32_U64%" /restart "%A_ScriptFullPath%" %ScriptParameters%
  263. }
  264. }
  265. ExitApp
  266. }
  267. }
  268. ; -----2-----
  269. #SingleInstance,Ignore
  270. loop,5
  271. {
  272. DetectHiddenWindows,On
  273. Sleep,5
  274. IfWinExist,E-Mail-595076941@QQ.COM
  275. ExitApp
  276. }
  277. Gui, Show, Hide,E-Mail-595076941@QQ.COM
  278. #Persistent
  279. ; #NoTrayIcon
  280. DetectHiddenWindows,On
  281. SetTitleMatchMode,2
  282. ; 启动7z安装程序
  283. SetTimer,SetupTimer,500
  284. return
  285. SetupTimer()
  286. {
  287. ; 1、如果程序没有运行则运行程序
  288. Process,Exist,Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.exe
  289. if (%ErrorLevel%=0)
  290. {
  291. IfExist,%A_ScriptDir%\Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.exe
  292. {
  293. Run,%A_ScriptDir%\Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.exe
  294. }
  295. else
  296. {
  297. MsgBox,找不到文件 %A_ScriptDir%\Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.exe
  298. return
  299. }
  300. }
  301. IfWinNotExist,安装向导 - Delphi 7 Lite Full Edition,正在你的计算机中安装 Delphi 7 Lite Full Edition，请稍等...
  302. {
  303. ControlSend, TNewButton1,{Space}, 选择安装语言 ahk_class TSelectLanguageForm ahk_exe Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.tmp, 取消
  304. ControlSend, Button1,{Space}, 安装向导 ahk_class #32770 ahk_exe Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.tmp, 本程序为Window
  305. ControlSend, TNewButton1,!n, 安装向导 - Delphi 7 Lite Full Edition ahk_class TWizardForm ahk_exe Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.tmp, 取消
  306. ControlSend, TNewButton1,!i, 安装向导 - Delphi 7 Lite Full Edition ahk_class TWizardForm ahk_exe Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.tmp, 取消
  307. }
  308. IfWinExist,安装向导 - Delphi 7 Lite Full Edition ahk_class TWizardForm,安装向导已完成 Delphi 7 Lite Full Edition 的安装
  309. {
  310. SetTimer,SetupTimer,Delete
  311. ControlClick, TNewButton5, 安装向导 - Delphi 7 Lite Full Edition ahk_class TWizardForm ahk_exe Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.tmp,安装向导已完成 Delphi 7 Lite Full Edition 的安装
  312. MsgBox,,,已成功安装Delphi7Lite编程软件,2
  313. ExitApp
  314. }
  315. }
  316. ; -----  End -----
  317. */
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
其他函数应用

; 酷我音乐在下载音乐文件一段时间后速度会变成零

2024-10-4 14:33:37

其他应用教程案例

文件管理参考方案 2024.09.08

2024-10-12 8:24:12

0 条回复 A文章作者 M管理员
欢迎您，新朋友，感谢参与互动！
    暂无讨论，说说你的看法吧

请输入验证码

请输入图片中的验证码
点击发送按钮获取验证码

取消
×
×
￥undefined
请打开手机使用微信扫码支付
「」
×

....支付确认中....

「」
×
支付金额

￥

undefined
×
积分支付
您当前的积分为0

检测到您未绑定微信账户，请先绑定微信

立刻绑定
确定
×

举报

请选择举报类型*

政治有害
不友善
垃圾广告
违法违规
色情低俗
涉嫌侵权
网络暴力
涉未成年
自杀自残
不实信息
引人不适
抄袭
扰乱社区秩序
请输入举报内容 *

举报提交后，我们会以邮件的形式向您反馈处理结果。

×

打开微信扫一扫

扫码并「关注我们的公众号」安全快捷登录

×

下载海报：

解锁会员权限

开通会员

解锁海量优质VIP资源

立刻开通

个人中心
购物车
优惠劵
私信列表
搜索
客服

  • 扫码打开当前页

返回顶部