├── .github └── ISSUE_TEMPLATE │ └── new-version-available.md ├── .gitignore ├── AHK ├── Compile.ahk ├── EnableUIAccess2AHK.ahk ├── Lib │ ├── Cert.ahk │ ├── Crypt.ahk │ ├── SignFile.ahk │ └── SystemTime.ahk └── Setup.ahk ├── OneQuick Launcher.ahk ├── README.md ├── icon ├── 1.ico ├── 2.ico ├── 3.ico └── 4.ico ├── lang ├── cn.ini └── en.ini ├── script ├── JSON.ahk ├── OneQuick.Core.ahk ├── OneQuick.ahk ├── OneQuick.feature.default.yaml ├── OneQuick.setting.default.yaml ├── Yaml.ahk ├── update_list.json ├── user_guide.ahk └── version.yaml ├── tool └── ABOUT.txt └── 安装说明.txt /.github/ISSUE_TEMPLATE/new-version-available.md: -------------------------------------------------------------------------------- 1 | --- 2 | name: New Version Available 3 | about: New Version Available 4 | 5 | --- 6 | 7 | AHK版已停止更新，请使用新版 https://onequick.org/ 8 | 微软应用商店搜索OneQuick即可获得 9 | New Version available in Microsoft Store！ 10 | -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | /_bkp 2 | /archive 3 | /data 4 | /tool 5 | !/tool/ABOUT.txt 6 | 7 | *.rar 8 | *.zip 9 | *.bat 10 | *.exe 11 | *.lnk 12 | 13 | config.ini 14 | OneQuick.Ext.ahk 15 | OneQuick.feature.yaml 16 | -------------------------------------------------------------------------------- /AHK/Compile.ahk: -------------------------------------------------------------------------------- 1 | /* 2 | @author: XJK 3 | @github: https://github.com/XUJINKAI/OneQuick 4 | */ 5 | 6 | compile_ahk(target, icon="") 7 | { 8 | splitpath, a_ahkpath, , ahk_dir 9 | Ahk2Exe := ahk_dir "\Compiler\Ahk2Exe.exe" 10 | u32bin := ahk_dir "\Compiler\Unicode 32-bit.bin" 11 | if not FileExist(Ahk2Exe) 12 | MsgBox, can't find Compiler\Ahk2Exe.exe 13 | else if not FileExist(u32bin) 14 | MsgBox, can't find Compiler\Unicode 32-bit.bin 15 | Else 16 | { 17 | if(icon=="") { 18 | run, %Ahk2Exe% /in "%target%" /bin "%u32bin%" 19 | } 20 | else { 21 | run, %Ahk2Exe% /in "%target%" /icon "%icon%" /bin "%u32bin%" 22 | } 23 | } 24 | } -------------------------------------------------------------------------------- /AHK/EnableUIAccess2AHK.ahk: -------------------------------------------------------------------------------- 1 | /* 2 | EnableUIAccess.ahk v1.01 by Lexikos 3 | 4 | USE AT YOUR OWN RISK 5 | 6 | Enables the uiAccess flag in an application's embedded manifest 7 | and signs the file with a self-signed digital certificate. If the 8 | file is in a trusted location (A_ProgramFiles or A_WinDir), this 9 | allows the application to bypass UIPI (User Interface Privilege 10 | Isolation, a part of User Account Control in Vista/7). It also 11 | enables the journal playback hook (SendPlay). 12 | 13 | Command line params (mutually exclusive): 14 | JK：自动修改autohotkey.exe 15 | //SkipWarning - don't display the initial warning 16 | //"" "" - attempt to run silently using the given file(s) 17 | 18 | This script and the provided Lib files may be used, modified, 19 | copied, etc. without restriction. 20 | 21 | */ 22 | 23 | #NoEnv 24 | 25 | #Include 26 | #Include 27 | #Include 28 | #Include 29 | 30 | ; Command line args: 31 | ; JK 对ahk.exe 32 | para1 = %1% 33 | silent := para1=="/S" 34 | 35 | m(msg) 36 | { 37 | if(silent) { 38 | return 39 | } 40 | msgbox ,,OneQuick, % msg 41 | } 42 | 43 | in_file := A_AhkPath 44 | out_file := A_AhkPath 45 | 46 | if Crypt.IsSigned(in_file) 47 | { 48 | ; JK 49 | m("Already enabled.") 50 | ExitApp 51 | } 52 | 53 | ; if (in_file = "") 54 | ; MsgBox 49,, 55 | ; (Join 56 | ; This script enables the selected AutoHotkey.exe to bypass restrictions 57 | ; imposed by UIPI, a component of UAC in Windows Vista and 7. To do this 58 | ; it modifies an attribute in the file's embedded manifest and signs the 59 | ; file using a self-signed digital certificate, which is then installed 60 | ; in the local machine's Trusted Root Certification Authorities store.`n 61 | ; `n 62 | ; THE RESULTING EXECUTABLE MAY BE UNUSABLE ON ANY SYSTEM WHERE THIS 63 | ; CERTIFICATE IS NOT INSTALLED.`n 64 | ; `n 65 | ; Continue at your own risk. 66 | ; ) 67 | if(!silent) 68 | { 69 | MsgBox 49,, 70 | ( 71 | 启用UIAccess可以让OneQuick对管理员权限程序起作用， 72 | 以后如果要卸载Autohotkey，可以运行AutoHotkey_Install.exe选择卸载选项。 73 | ) 74 | ifMsgBox Cancel 75 | ExitApp 76 | } 77 | 78 | if !A_IsAdmin 79 | { 80 | if (in_file = "") 81 | in_file := "SkipWarning" 82 | cmd = "%A_ScriptFullPath%" 83 | if !A_IsCompiled 84 | { ; Use A_AhkPath in case the "runas" verb isn't registered for ahk files. 85 | cmd = "%A_AhkPath%" %cmd% 86 | } 87 | Run *RunAs %cmd% "RUNAS",, UseErrorLevel 88 | ExitApp 89 | } 90 | 91 | if (in_file = "" || in_file = "SkipWarning") 92 | { 93 | ; Find AutoHotkey installation. 94 | RegRead InstallDir, HKEY_LOCAL_MACHINE, SOFTWARE\AutoHotkey, InstallDir 95 | if ErrorLevel && A_PtrSize=8 96 | RegRead InstallDir, HKLM, SOFTWARE\Wow6432Node\AutoHotkey, InstallDir 97 | 98 | ; Let user confirm or select file(s). 99 | FileSelectFile in_file, 1, %InstallDir%\AutoHotkey.exe 100 | , Select Source File, Executable Files (*.exe) 101 | if ErrorLevel 102 | ExitApp 103 | FileSelectFile out_file, S16, %in_file% 104 | , Select Destination File, Executable Files (*.exe) 105 | if ErrorLevel 106 | ExitApp 107 | user_specified_files := true 108 | } 109 | 110 | ; Convert short paths to long paths. 111 | Loop %in_file%, 0 112 | in_file := A_LoopFileLongPath 113 | if (out_file = "") ; i.e. only one file was given via command line. 114 | out_file := in_file 115 | else 116 | Loop %out_file%, 0 117 | out_file := A_LoopFileLongPath 118 | 119 | if Crypt.IsSigned(in_file) 120 | { 121 | ; JK 122 | m("UIAccess enabled.") 123 | ExitApp 124 | } 125 | 126 | if user_specified_files && !IsTrustedLocation(out_file) 127 | { 128 | MsgBox 49,, 129 | (LTrim Join`s 130 | The path you have selected is not a trusted location. If you choose 131 | to continue, the uiAccess attribute will be set but will not have 132 | any effect until the file is moved to a trusted location. Trusted 133 | locations include \Program Files\ and \Windows\System32\. 134 | ) 135 | ifMsgBox Cancel 136 | ExitApp 137 | } 138 | 139 | if (in_file = out_file) 140 | { 141 | ; The following should typically work even if the file is in use: 142 | bak_file := in_file "~" A_Now ".bak" 143 | FileMove %in_file%, %bak_file%, 1 144 | if ErrorLevel 145 | Fail("Failed to rename selected file.") 146 | in_file := bak_file 147 | } 148 | FileCopy %in_file%, %out_file%, 1 149 | if ErrorLevel 150 | Fail("Failed to copy file to destination.") 151 | 152 | 153 | ; Set the uiAccess attribute in the file's manifest to "true". 154 | if !EXE_uiAccess_set(out_file, true) 155 | Fail("Failed to set uiAccess attribute in manifest.") 156 | 157 | 158 | ; Open the current user's "Personal" certificate store. 159 | my := Cert.OpenStore(Cert.STORE_PROV_SYSTEM, 0, Cert.SYSTEM_STORE_CURRENT_USER, "wstr", "My") 160 | if !my 161 | Warn("Failed to open 'Personal' certificate store.") 162 | 163 | ; Locate "AutoHotkey" certificate created by a previous run of this script. 164 | ahk_cert := my.FindCertificates(0, Cert.FIND_SUBJECT_STR, "wstr", "AutoHotkey")[1] 165 | 166 | if !ahk_cert 167 | { 168 | ; Create key container. 169 | cr := Crypt.AcquireContext("AutoHotkey", 0, Crypt.PROV_RSA_FULL, Crypt.NEWKEYSET) 170 | if !cr 171 | Fail("Failed to create 'AutoHotkey' key container.") 172 | 173 | ; Generate key for certificate. 174 | key := cr.GenerateKey(Crypt.AT_SIGNATURE, 1024, Crypt.EXPORTABLE) 175 | 176 | ; Create simple certificate name. 177 | cn := new Cert.Name({CommonName: "AutoHotkey"}) 178 | 179 | ; Set end time to 10 years from now. 180 | end_time := SystemTime.Now() 181 | end_time.Year += 10 182 | 183 | ; Create certificate using the parameters created above. 184 | ahk_cert := cr.CreateSelfSignCertificate(cn, 0, end_time) 185 | if !ahk_cert 186 | Fail("Failed to create 'AutoHotkey' certificate.") 187 | 188 | ; Add certificate to current user's "Personal" store so they won't 189 | ; need to create it again if they need to update the executable. 190 | if !(my.AddCertificate(ahk_cert, Cert.STORE_ADD_NEW)) 191 | Warn("Failed to add certificate to 'Personal' store.") 192 | ; Proceed even if above failed, since it probably doesn't matter. 193 | 194 | ; Attempt to install certificate in trusted store. 195 | root := Cert.OpenStore(Cert.STORE_PROV_SYSTEM, 0, Cert.SYSTEM_STORE_LOCAL_MACHINE, "wstr", "Root") 196 | if !(root && root.AddCertificate(ahk_cert, Cert.STORE_ADD_USE_EXISTING)) 197 | { 198 | if (%True% != "Silent") 199 | MsgBox 49,, 200 | (LTrim Join`s 201 | Failed to install certificate. If you continue, the executable 202 | may become unusable until the certificate is manually installed. 203 | This can typically be done via Digital Signatures tab on the 204 | file's Properties dialog. 205 | ) 206 | ifMsgBox Cancel 207 | ExitApp 208 | } 209 | 210 | key.Dispose() 211 | cr.Dispose() 212 | } 213 | 214 | ; Sign the file. 215 | if !SignFile(out_file, ahk_cert, "AutoHotkey") 216 | Fail("Failed to sign file.") 217 | 218 | 219 | ; In interactive mode, if not overwriting the original file, offer 220 | ; to create an additional context menu item for AHK files. 221 | if (user_specified_files && in_file != out_file) 222 | { 223 | RegRead uiAccessVerb, HKCR, AutoHotkeyScript\Shell\uiAccess\Command 224 | if ErrorLevel 225 | { 226 | MsgBox 3,, Register "Run Script with UI Access" context menu item? 227 | ifMsgBox Yes 228 | { 229 | RegWrite REG_SZ, HKCR, AutoHotkeyScript\Shell\uiAccess 230 | ,, Run with UI Access 231 | RegWrite REG_SZ, HKCR, AutoHotkeyScript\Shell\uiAccess\Command 232 | ,, "%out_file%" "`%1" `%* 233 | } 234 | ifMsgBox Cancel 235 | ExitApp 236 | } 237 | } 238 | 239 | 240 | ; IsTrustedLocation 241 | ; Returns true if path is a valid location for uiAccess="true". 242 | IsTrustedLocation(path) 243 | { 244 | ; http://msdn.microsoft.com/en-us/library/bb756929 245 | ; MSDN: "\Program Files\ and \windows\system32\ are currently the 246 | ; two allowable protected locations." 247 | ; However, \Program Files (x86)\ also appears to be allowed. 248 | if InStr(path, A_ProgramFiles "\") = 1 249 | return true 250 | if InStr(path, A_WinDir "\System32\") = 1 251 | return true 252 | 253 | ; On 64-bit systems, if this script is 32-bit, A_ProgramFiles is 254 | ; %ProgramFiles(x86)%, otherwise it is %ProgramW6432%. So check 255 | ; the opposite "Program Files" folder: 256 | EnvGet other, % A_PtrSize=8 ? "ProgramFiles(x86)" : "ProgramW6432" 257 | if (other != "" && InStr(path, other "\") = 1) 258 | return true 259 | 260 | return false 261 | } 262 | 263 | 264 | ; EXE_uiAccess_set 265 | ; Sets the uiAccess attribute in an executable file's manifest. 266 | ; file - Path of file. 267 | ; value - New value; must be boolean (0 or 1). 268 | EXE_uiAccess_set(file, value) 269 | { 270 | ; Load manifest from EXE file. 271 | xml := ComObjCreate("Msxml2.DOMDocument") 272 | xml.async := false 273 | xml.setProperty("SelectionLanguage", "XPath") 274 | xml.setProperty("SelectionNamespaces" 275 | , "xmlns:v1='urn:schemas-microsoft-com:asm.v1' " 276 | . "xmlns:v3='urn:schemas-microsoft-com:asm.v3'") 277 | if !xml.load("res://" file "/#24/#1") 278 | { 279 | ; This will happen if the file doesn't exist or can't be opened, 280 | ; or if it doesn't have an embedded manifest. 281 | ErrorLevel := "load" 282 | return false 283 | } 284 | 285 | ; Check if any change is necessary. If the uiAccess attribute is 286 | ; not present, it is effectively "false": 287 | node := xml.selectSingleNode("/v1:assembly/v3:trustInfo/security" 288 | . "/requestedPrivileges/requestedExecutionLevel") 289 | if ((node && node.getAttribute("uiAccess") = "true") = value) 290 | { 291 | ErrorLevel := "already set" 292 | return true 293 | } 294 | 295 | ; The follow "IF" section should be unnecessary for AutoHotkey_L. 296 | if !node 297 | { 298 | ; Get assembly node, which should always exist. 299 | if !last := xml.selectSingleNode("/v1:assembly") 300 | { 301 | ErrorLevel := "invalid manifest" 302 | return 0 303 | } 304 | for _, name in ["trustInfo", "security", "requestedPrivileges" 305 | , "requestedExecutionLevel"] 306 | { 307 | if !(node := last.selectSingleNode("*[local-name()='" name "']")) 308 | { 309 | static NODE_ELEMENT := 1 310 | node := xml.createNode(NODE_ELEMENT, name 311 | , "urn:schemas-microsoft-com:asm.v3") 312 | last.appendChild(node) 313 | } 314 | last := node 315 | } 316 | ; Since the requestedExecutionLevel node didn't exist before, 317 | ; we must have just created it. Although this attribute *might* 318 | ; not actually be required, it seems best to set it: 319 | node.setAttribute("level", "asInvoker") 320 | } 321 | 322 | ; Set the uiAccess attribute! 323 | node.setAttribute("uiAccess", value ? "true" : "false") 324 | 325 | ; Retrieve XML text. 326 | xml := RTrim(xml.xml, "`r`n") 327 | 328 | ; Convert to UTF-8. 329 | VarSetCapacity(data, data_size := StrPut(xml, "utf-8") - 1) 330 | StrPut(xml, &data, "utf-8") 331 | 332 | ; 333 | ; Replace manifest resource. 334 | ; 335 | 336 | hupd := DllCall("BeginUpdateResource", "str", file, "int", false) 337 | if !hupd 338 | { 339 | ErrorLevel := "BeginUpdateResource" 340 | return false 341 | } 342 | 343 | ; Res type RT_MANIFEST (24), resource ID 1, language English (US) 344 | r := DllCall("UpdateResource", "ptr", hupd, "ptr", 24, "ptr", 1 345 | , "ushort", 1033, "ptr", &data, "uint", data_size) 346 | 347 | if !DllCall("EndUpdateResource", "ptr", hupd, "int", !r) 348 | { 349 | ErrorLevel := "EndUpdateResource" 350 | return false 351 | } 352 | if !r ; i.e. above succeeded only in discarding the failed changes. 353 | { 354 | ErrorLevel := "UpdateResource" 355 | return false 356 | } 357 | ; Success! 358 | ErrorLevel := 0 359 | return true 360 | } 361 | 362 | 363 | Fail(msg) 364 | { 365 | if (%True% != "Silent") 366 | MsgBox 16,, %msg%`n`nErrorLevel: %ErrorLevel%`nA_LastError: %A_LastError% 367 | ExitApp 368 | } 369 | 370 | Warn(msg) 371 | { 372 | msg .= " (Err " ErrorLevel "; " A_LastError ")`n" 373 | OutputDebug %msg% 374 | FileAppend %msg%, * 375 | } -------------------------------------------------------------------------------- /AHK/Lib/Cert.ahk: -------------------------------------------------------------------------------- 1 | class Cert 2 | { 3 | ; Encoding Types 4 | static X509_ASN_ENCODING := 0x00000001 5 | , PKCS_7_ASN_ENCODING := 0x00010000 6 | 7 | ; Certificate Information Flags (CERT_INFO_*) 8 | static INFO_VERSION_FLAG := 1 9 | , INFO_SERIAL_NUMBER_FLAG := 2 10 | , INFO_SIGNATURE_ALGORITHM_FLAG := 3 11 | , INFO_ISSUER_FLAG := 4 12 | , INFO_NOT_BEFORE_FLAG := 5 13 | , INFO_NOT_AFTER_FLAG := 6 14 | , INFO_SUBJECT_FLAG := 7 15 | , INFO_SUBJECT_PUBLIC_KEY_INFO_FLAG := 8 16 | , INFO_ISSUER_UNIQUE_ID_FLAG := 9 17 | , INFO_SUBJECT_UNIQUE_ID_FLAG := 10 18 | , INFO_EXTENSION_FLAG := 11 19 | 20 | ; Certificate Comparison Functions (CERT_COMPARE_*) 21 | static COMPARE_MASK := 0xFFFF 22 | , COMPARE_SHIFT := (_ := 16) 23 | , COMPARE_ANY := 0 24 | , COMPARE_SHA1_HASH := 1 25 | , COMPARE_NAME := 2 26 | , COMPARE_ATTR := 3 27 | , COMPARE_MD5_HASH := 4 28 | , COMPARE_PROPERTY := 5 29 | , COMPARE_PUBLIC_KEY := 6 30 | , COMPARE_HASH := Cert.COMPARE_SHA1_HASH 31 | , COMPARE_NAME_STR_A := 7 32 | , COMPARE_NAME_STR_W := 8 33 | , COMPARE_KEY_SPEC := 9 34 | , COMPARE_ENHKEY_USAGE := 10 35 | , COMPARE_CTL_USAGE := Cert.COMPARE_ENHKEY_USAGE 36 | , COMPARE_SUBJECT_CERT := 11 37 | , COMPARE_ISSUER_OF := 12 38 | , COMPARE_EXISTING := 13 39 | , COMPARE_SIGNATURE_HASH := 14 40 | , COMPARE_KEY_IDENTIFIER := 15 41 | , COMPARE_CERT_ID := 16 42 | , COMPARE_CROSS_CERT_DIST_POINTS := 17 43 | , COMPARE_PUBKEY_MD5_HASH := 18 44 | , COMPARE_SUBJECT_INFO_ACCESS := 19 45 | 46 | ; dwFindType Flags (CERT_FIND_*) 47 | static FIND_ANY := Cert.COMPARE_ANY << _ 48 | , FIND_SHA1_HASH := Cert.COMPARE_SHA1_HASH << _ 49 | , FIND_MD5_HASH := Cert.COMPARE_MD5_HASH << _ 50 | , FIND_SIGNATURE_HASH := Cert.COMPARE_SIGNATURE_HASH << _ 51 | , FIND_KEY_IDENTIFIER := Cert.COMPARE_KEY_IDENTIFIER << _ 52 | , FIND_HASH := Cert.FIND_SHA1_HASH 53 | , FIND_PROPERTY := Cert.COMPARE_PROPERTY << _ 54 | , FIND_PUBLIC_KEY := Cert.COMPARE_PUBLIC_KEY << _ 55 | , FIND_SUBJECT_NAME := (Cert.COMPARE_NAME << _) | Cert.INFO_SUBJECT_FLAG 56 | , FIND_SUBJECT_ATTR := (Cert.COMPARE_ATTR << _) | Cert.INFO_SUBJECT_FLAG 57 | , FIND_ISSUER_NAME := (Cert.COMPARE_NAME << _) | Cert.INFO_ISSUER_FLAG 58 | , FIND_ISSUER_ATTR := (Cert.COMPARE_ATTR << _) | Cert.INFO_ISSUER_FLAG 59 | , FIND_SUBJECT_STR := (Cert.COMPARE_NAME_STR_W << _) | Cert.INFO_SUBJECT_FLAG 60 | , FIND_ISSUER_STR := (Cert.COMPARE_NAME_STR_W << _) | Cert.INFO_ISSUER_FLAG 61 | , FIND_KEY_SPEC := Cert.COMPARE_KEY_SPEC << _ 62 | , FIND_ENHKEY_USAGE := Cert.COMPARE_ENHKEY_USAGE << _ 63 | , FIND_CTL_USAGE := Cert.FIND_ENHKEY_USAGE 64 | , FIND_SUBJECT_CERT := Cert.COMPARE_SUBJECT_CERT << _ 65 | , FIND_ISSUER_OF := Cert.COMPARE_ISSUER_OF << _ 66 | , FIND_EXISTING := Cert.COMPARE_EXISTING << _ 67 | , FIND_CERT_ID := Cert.COMPARE_CERT_ID << _ 68 | , FIND_CROSS_CERT_DIST_POINTS := Cert.COMPARE_CROSS_CERT_DIST_POINTS << _ 69 | , FIND_PUBKEY_MD5_HASH := Cert.COMPARE_PUBKEY_MD5_HASH << _ 70 | , FIND_SUBJECT_INFO_ACCESS := Cert.COMPARE_SUBJECT_INFO_ACCESS << _ 71 | 72 | ; Certificate Store Provider Types (CERT_STORE_PROV_*) 73 | static STORE_PROV_MSG := 1 74 | , STORE_PROV_MEMORY := 2 75 | , STORE_PROV_FILE := 3 76 | , STORE_PROV_REG := 4 77 | , STORE_PROV_PKCS7 := 5 78 | , STORE_PROV_SERIALIZED := 6 79 | , STORE_PROV_FILENAME_A := 7 80 | , STORE_PROV_FILENAME_W := 8 81 | , STORE_PROV_FILENAME := Cert.STORE_PROV_FILENAME_W 82 | , STORE_PROV_SYSTEM_A := 9 83 | , STORE_PROV_SYSTEM_W := 10 84 | , STORE_PROV_SYSTEM := Cert.STORE_PROV_SYSTEM_W 85 | , STORE_PROV_COLLECTION := 11 86 | , STORE_PROV_SYSTEM_REGISTRY_A := 12 87 | , STORE_PROV_SYSTEM_REGISTRY_W := 13 88 | , STORE_PROV_SYSTEM_REGISTRY := Cert.STORE_PROV_SYSTEM_REGISTRY_W 89 | , STORE_PROV_PHYSICAL_W := 14 90 | , STORE_PROV_PHYSICAL := Cert.STORE_PROV_PHYSICAL_W 91 | , STORE_PROV_LDAP_W := 16 92 | , STORE_PROV_LDAP := Cert.STORE_PROV_LDAP_W 93 | , STORE_PROV_PKCS12 := 17 94 | 95 | ; Certificate Store open/property flags (low-word; CERT_STORE_*) 96 | static STORE_NO_CRYPT_RELEASE_FLAG := 0x0001 97 | , STORE_SET_LOCALIZED_NAME_FLAG := 0x0002 98 | , STORE_DEFER_CLOSE_UNTIL_LAST_FREE_FLAG := 0x0004 99 | , STORE_DELETE_FLAG := 0x0010 100 | , STORE_UNSAFE_PHYSICAL_FLAG := 0x0020 101 | , STORE_SHARE_STORE_FLAG := 0x0040 102 | , STORE_SHARE_CONTEXT_FLAG := 0x0080 103 | , STORE_MANIFOLD_FLAG := 0x0100 104 | , STORE_ENUM_ARCHIVED_FLAG := 0x0200 105 | , STORE_UPDATE_KEYID_FLAG := 0x0400 106 | , STORE_BACKUP_RESTORE_FLAG := 0x0800 107 | , STORE_READONLY_FLAG := 0x8000 108 | , STORE_OPEN_EXISTING_FLAG := 0x4000 109 | , STORE_CREATE_NEW_FLAG := 0x2000 110 | , STORE_MAXIMUM_ALLOWED_FLAG := 0x1000 111 | 112 | ; Certificate System Store Flag Values (high-word; CERT_SYSTEM_STORE_*) 113 | static SYSTEM_STORE_MASK := 0xFFFF0000 114 | , SYSTEM_STORE_RELOCATE_FLAG := 0x80000000 115 | , SYSTEM_STORE_UNPROTECTED_FLAG := 0x40000000 116 | ; Location of the system store: 117 | , SYSTEM_STORE_LOCATION_MASK := 0x00FF0000 118 | , SYSTEM_STORE_LOCATION_SHIFT := (_ := 16) 119 | ; Registry: HKEY_CURRENT_USER or HKEY_LOCAL_MACHINE 120 | , SYSTEM_STORE_CURRENT_USER_ID := 1 121 | , SYSTEM_STORE_LOCAL_MACHINE_ID := 2 122 | ; Registry: HKEY_LOCAL_MACHINE\Software\Microsoft\Cryptography\Services 123 | , SYSTEM_STORE_CURRENT_SERVICE_ID := 4 124 | , SYSTEM_STORE_SERVICES_ID := 5 125 | ; Registry: HKEY_USERS 126 | , SYSTEM_STORE_USERS_ID := 6 127 | ; Registry: HKEY_CURRENT_USER\Software\Policies\Microsoft\SystemCertificates 128 | , SYSTEM_STORE_CURRENT_USER_GROUP_POLICY_ID := 7 129 | ; Registry: HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\SystemCertificates 130 | , SYSTEM_STORE_LOCAL_MACHINE_GROUP_POLICY_ID := 8 131 | ; Registry: HKEY_LOCAL_MACHINE\Software\Microsoft\EnterpriseCertificates 132 | , SYSTEM_STORE_LOCAL_MACHINE_ENTERPRISE_ID := 9 133 | , SYSTEM_STORE_CURRENT_USER := (Cert.SYSTEM_STORE_CURRENT_USER_ID << _) 134 | , SYSTEM_STORE_LOCAL_MACHINE := (Cert.SYSTEM_STORE_LOCAL_MACHINE_ID << _) 135 | , SYSTEM_STORE_CURRENT_SERVICE := (Cert.SYSTEM_STORE_CURRENT_SERVICE_ID << _) 136 | , SYSTEM_STORE_SERVICES := (Cert.SYSTEM_STORE_SERVICES_ID << _) 137 | , SYSTEM_STORE_USERS := (Cert.SYSTEM_STORE_USERS_ID << _) 138 | , SYSTEM_STORE_CURRENT_USER_GROUP_POLICY := (Cert.SYSTEM_STORE_CURRENT_USER_GROUP_POLICY_ID << _) 139 | , SYSTEM_STORE_LOCAL_MACHINE_GROUP_POLICY := (Cert.SYSTEM_STORE_LOCAL_MACHINE_GROUP_POLICY_ID << _) 140 | , SYSTEM_STORE_LOCAL_MACHINE_ENTERPRISE := (Cert.SYSTEM_STORE_LOCAL_MACHINE_ENTERPRISE_ID << _) 141 | 142 | ; Certificate name types (CERT_NAME_*) 143 | static NAME_EMAIL_TYPE := 1 144 | , NAME_RDN_TYPE := 2 145 | , NAME_ATTR_TYPE := 3 146 | , NAME_SIMPLE_DISPLAY_TYPE := 4 147 | , NAME_FRIENDLY_DISPLAY_TYPE := 5 148 | , NAME_DNS_TYPE := 6 149 | , NAME_URL_TYPE := 7 150 | , NAME_UPN_TYPE := 8 151 | ; Certificate name flags 152 | , NAME_ISSUER_FLAG := 0x00000001 153 | , NAME_DISABLE_IE4_UTF8_FLAG := 0x00010000 154 | , NAME_STR_ENABLE_PUNYCODE_FLAG := 0x00200000 155 | 156 | ; dwAddDisposition values (CERT_STORE_ADD_*) 157 | static STORE_ADD_NEW := 1 158 | , STORE_ADD_USE_EXISTING := 2 159 | , STORE_ADD_REPLACE_EXISTING := 3 160 | , STORE_ADD_ALWAYS := 4 161 | , STORE_ADD_REPLACE_EXISTING_INHERIT_PROPERTIES := 5 162 | , STORE_ADD_NEWER := 6 163 | , STORE_ADD_NEWER_INHERIT_PROPERTIES := 7 164 | 165 | ; 166 | ; Static Methods 167 | ; 168 | 169 | OpenStore(pStoreProvider, dwMsgAndCertEncodingType, dwFlags, ParamType="Ptr", Param=0) 170 | { 171 | hCertStore := DllCall("Crypt32\CertOpenStore" 172 | , "ptr", pStoreProvider 173 | , "uint", dwMsgAndCertEncodingType 174 | , "ptr", 0 ; hCryptProv 175 | , "uint", dwFlags 176 | , ParamType, Param) 177 | if hCertStore 178 | hCertStore := new this.Store(hCertStore) 179 | return hCertStore 180 | } 181 | 182 | GetStoreNames(dwFlags) 183 | { 184 | static cb := RegisterCallback("Cert_GetStoreNames_Callback", "F") 185 | global Cert 186 | DllCall("Crypt32\CertEnumSystemStore", "uint", dwFlags 187 | , "ptr", 0, "ptr", &(names := []), "ptr", cb) 188 | return names 189 | } 190 | 191 | 192 | ; 193 | ; Certificate Name 194 | ; 195 | class Name 196 | { 197 | __New(Props) 198 | { 199 | static Fields := { 200 | (Join, 201 | CommonName: "CN" 202 | LocalityName: "L" 203 | Organization: "O" 204 | OrganizationalUnit: "OU" 205 | Email: "E" 206 | Country: "C" 207 | State: "ST" 208 | StreetAddress: "STREET" 209 | Title: "T" 210 | GivenName: "G" 211 | Initials: "I" 212 | Surname: "SN" 213 | Doman: "DC" 214 | )} 215 | static CERT_X500_NAME_STR := 3, Q := """" ; For readability. 216 | 217 | if IsObject(Props) 218 | { 219 | ; Build name string from caller-supplied object. 220 | name_string := "" 221 | for field_name, field_code in Fields 222 | { 223 | if Props.HasKey(field_name) 224 | { 225 | if (name_string != "") 226 | name_string .= ";" 227 | name_string .= field_code "=" Q RegExReplace(Props[field_name], Q, Q Q) Q 228 | } 229 | } 230 | } 231 | else 232 | name_string := Props 233 | 234 | Loop 2 235 | { 236 | if A_Index=1 237 | { ; First iteration: retrieve required size. 238 | pbEncoded := 0 239 | cbEncoded := 0 240 | } 241 | else 242 | { ; Second iteration: retrieve encoded name. 243 | this.SetCapacity("data", cbEncoded) 244 | pbEncoded := this.GetAddress("data") 245 | } 246 | global Cert 247 | if !DllCall("Crypt32\CertStrToName" 248 | , "uint", Cert.X509_ASN_ENCODING 249 | , "str", name_string 250 | , "uint", CERT_X500_NAME_STR 251 | , "ptr", 0 ; Reserved 252 | , "ptr", pbEncoded 253 | , "uint*", cbEncoded 254 | , "str*", ErrorString) 255 | { 256 | ErrorLevel := ErrorString 257 | return false 258 | } 259 | } 260 | this.SetCapacity("blob", A_PtrSize*2) ; CERT_NAME_BLOB 261 | NumPut(pbEncoded, NumPut(cbEncoded, this.p := this.GetAddress("blob"))) 262 | } 263 | } 264 | 265 | 266 | ; 267 | ; Certificate Store 268 | ; 269 | class Store 270 | { 271 | FindCertificates(dwFindFlags, dwFindType, FindParamType="ptr", FindParam=0) 272 | { 273 | global Cert 274 | hStore := this.h 275 | , dwCertEncodingType := Cert.X509_ASN_ENCODING | Cert.PKCS_7_ASN_ENCODING 276 | , ctx := new Cert.Context(0) 277 | , certs := [] 278 | while ctx.p := DllCall("Crypt32\CertFindCertificateInStore" 279 | , "ptr", hStore 280 | , "uint", dwCertEncodingType 281 | , "uint", dwFindFlags 282 | , "uint", dwFindType 283 | , FindParamType, FindParam 284 | , "ptr", ctx.p ; If non-NULL, this context is freed. 285 | , "ptr") 286 | { 287 | ; Each certificate context must be duplicated since the next 288 | ; call will free it. 289 | certs.Insert(ctx.Duplicate()) 290 | } 291 | ctx.p := 0 ; Above freed it already. 292 | return certs 293 | } 294 | 295 | AddCertificate(Certificate, dwAddDisposition) 296 | { 297 | if !DllCall("Crypt32\CertAddCertificateContextToStore" 298 | , "ptr", this.h 299 | , "ptr", Certificate.p 300 | , "uint", dwAddDisposition 301 | , "ptr*", pStoreContext) 302 | return 0 303 | global Cert 304 | return pStoreContext ? new Cert.Context(pStoreContext) : 0 305 | } 306 | 307 | __New(handle) 308 | { 309 | this.h := handle 310 | } 311 | 312 | __Delete() 313 | { 314 | if this.h && DllCall("Crypt32\CertCloseStore", "ptr", this.h, "uint", 0) 315 | this.h := 0 316 | } 317 | 318 | static Dispose := Cert.Store.__Delete ; Alias 319 | } 320 | 321 | 322 | ; 323 | ; Certificate Context 324 | ; 325 | class Context 326 | { 327 | __New(ptr) 328 | { 329 | this.p := ptr 330 | } 331 | 332 | __Delete() 333 | { 334 | if this.p && DllCall("Crypt32\CertFreeCertificateContext", "ptr", this.p) 335 | this.p := 0 336 | } 337 | 338 | ; CertGetNameString 339 | ; http://msdn.microsoft.com/en-us/library/aa376086 340 | GetNameString(dwType, dwFlags=0, pvTypePara=0) 341 | { 342 | if !this.p 343 | return 344 | cc := DllCall("Crypt32\CertGetNameString", "ptr", this.p, "uint", dwType, "uint", dwFlags, "ptr", pvTypePara, "ptr", 0, "uint", 0) 345 | if cc <= 1 ; i.e. empty string. 346 | return 347 | VarSetCapacity(name, cc*2) 348 | DllCall("Crypt32\CertGetNameString", "ptr", this.p, "uint", dwType, "uint", dwFlags, "ptr", pvTypePara, "str", name, "uint", cc) 349 | return name 350 | } 351 | 352 | ; CertDuplicateCertificateContext 353 | ; http://msdn.microsoft.com/en-us/library/aa376045 354 | Duplicate() 355 | { 356 | return this.p && (p := DllCall("Crypt32\CertDuplicateCertificateContext", "ptr", this.p)) 357 | ? new this.base(p) : p 358 | } 359 | 360 | static Dispose := Cert.Context.__Delete ; Alias 361 | } 362 | 363 | 364 | ; 365 | ; Error Detection 366 | ; 367 | __Get(name) 368 | { 369 | ListLines 370 | MsgBox 16,, Attempt to access invalid property Cert.%name%. 371 | Pause 372 | } 373 | } 374 | 375 | 376 | ; 377 | ; Internal 378 | ; 379 | 380 | Cert_GetStoreNames_Callback(pvSystemStore, dwFlags, pStoreInfo, pvReserved, pvArg) 381 | { 382 | Object(pvArg).Insert(StrGet(pvSystemStore, "utf-16")) 383 | return true 384 | } -------------------------------------------------------------------------------- /AHK/Lib/Crypt.ahk: -------------------------------------------------------------------------------- 1 | class Crypt 2 | { 3 | ; Provider Types 4 | static PROV_RSA_FULL := 1 5 | , PROV_RSA_SIG := 2 6 | , PROV_DSS := 3 7 | , PROV_FORTEZZA := 4 8 | , PROV_MS_EXCHANGE := 5 9 | , PROV_SSL := 6 10 | , PROV_STT_MER := 7 ; <= XP 11 | , PROV_STT_ACQ := 8 ; <= XP 12 | , PROV_STT_BRND := 9 ; <= XP 13 | , PROV_STT_ROOT := 10 ; <= XP 14 | , PROV_STT_ISS := 11 ; <= XP 15 | , PROV_RSA_SCHANNEL := 12 16 | , PROV_DSS_DH := 13 17 | , PROV_EC_ECDSA_SIG := 14 18 | , PROV_EC_ECNRA_SIG := 15 19 | , PROV_EC_ECDSA_FULL := 16 20 | , PROV_EC_ECNRA_FULL := 17 21 | , PROV_DH_SCHANNEL := 18 22 | , PROV_SPYRUS_LYNKS := 20 23 | , PROV_RNG := 21 24 | , PROV_INTEL_SEC := 22 25 | , PROV_REPLACE_OWF := 23 ; >= XP 26 | , PROV_RSA_AES := 24 ; >= XP 27 | 28 | ; CryptAcquireContext - dwFlags 29 | ; http://msdn.microsoft.com/en-us/library/aa379886 30 | static VERIFYCONTEXT := 0xF0000000 31 | , NEWKEYSET := 0x00000008 32 | , DELETEKEYSET := 0x00000010 33 | , MACHINE_KEYSET := 0x00000020 34 | , SILENT := 0x00000040 35 | , CRYPT_DEFAULT_CONTAINER_OPTIONAL := 0x00000080 36 | 37 | ; CryptGenKey - dwFlag 38 | ; http://msdn.microsoft.com/en-us/library/aa379941 39 | static EXPORTABLE := 0x00000001 40 | , USER_PROTECTED := 0x00000002 41 | , CREATE_SALT := 0x00000004 42 | , UPDATE_KEY := 0x00000008 43 | , NO_SALT := 0x00000010 44 | , PREGEN := 0x00000040 45 | , ARCHIVABLE := 0x00004000 46 | , FORCE_KEY_PROTECTION_HIGH := 0x00008000 47 | 48 | ; Key Types 49 | static AT_KEYEXCHANGE := 1 50 | , AT_SIGNATURE := 2 51 | 52 | ; 53 | ; METHODS 54 | ; 55 | 56 | AcquireContext(Container, Provider, dwProvType, dwFlags) 57 | { 58 | if DllCall("Advapi32\CryptAcquireContext" 59 | , "ptr*", hProv 60 | , "ptr", Container ? &Container : 0 61 | , "ptr", Provider ? &Provider : 0 62 | , "uint", dwProvType 63 | , "uint", dwFlags) 64 | { 65 | if (dwFlags & this.DELETEKEYSET) 66 | ; Success, but hProv is invalid in this case. 67 | return 1 68 | ; Wrap it up so it'll be released at some point. 69 | return new this.Context(hProv) 70 | } 71 | return 0 72 | } 73 | 74 | IsSigned(FilePath) 75 | { 76 | return DllCall("Crypt32\CryptQueryObject" 77 | , "uint", CERT_QUERY_OBJECT_FILE := 1 78 | , "wstr", FilePath 79 | , "uint", CERT_QUERY_CONTENT_FLAG_PKCS7_SIGNED_EMBED := 1<<10 80 | , "uint", CERT_QUERY_FORMAT_FLAG_BINARY := 2 81 | , "uint", 0 82 | , "uint*", dwEncoding 83 | , "uint*", dwContentType 84 | , "uint*", dwFormatType 85 | , "ptr", 0 86 | , "ptr", 0 87 | , "ptr", 0) 88 | } 89 | 90 | ; 91 | ; Error Detection 92 | ; 93 | __Get(name) 94 | { 95 | ListLines 96 | MsgBox 16,, Attempt to access invalid property Crypt.%name%. 97 | Pause 98 | } 99 | 100 | ; 101 | ; CLASSES 102 | ; 103 | 104 | class _Handle 105 | { 106 | __New(handle) 107 | { 108 | this.h := handle 109 | } 110 | 111 | __Delete() 112 | { 113 | this.Dispose() 114 | } 115 | } 116 | 117 | class Context extends Crypt._Handle 118 | { 119 | GenerateKey(KeyType, KeyBitLength, dwFlags) 120 | { 121 | if DllCall("Advapi32\CryptGenKey" 122 | , "ptr", this.h 123 | , "uint", KeyType 124 | , "uint", (KeyBitLength << 16) | dwFlags 125 | , "ptr*", hKey) 126 | { 127 | global Crypt 128 | return new Crypt.Key(hKey) 129 | } 130 | return 0 131 | } 132 | 133 | CreateSelfSignCertificate(NameObject, StartTime, EndTime) 134 | { 135 | ctx := DllCall("Crypt32\CertCreateSelfSignCertificate" 136 | , "ptr", this.h 137 | , "ptr", IsObject(NameObject) ? NameObject.p : NameObject 138 | , "uint", 0, "ptr", 0, "ptr", 0 139 | , "ptr", IsObject(StartTime) ? StartTime.p : StartTime 140 | , "ptr", IsObject(EndTime) ? EndTime.p : EndTime 141 | , "ptr", 0, "ptr") 142 | global Cert 143 | return ctx ? new Cert.Context(ctx) : 0 144 | } 145 | 146 | Dispose() 147 | { 148 | if this.h && DllCall("Advapi32\CryptReleaseContext", "ptr", this.h, "uint", 0) 149 | this.h := 0 150 | } 151 | } 152 | 153 | class Key extends Crypt._Handle 154 | { 155 | Dispose() 156 | { 157 | if this.h && DllCall("Advapi32\CryptDestroyKey", "ptr", this.h) 158 | this.h := 0 159 | } 160 | } 161 | } -------------------------------------------------------------------------------- /AHK/Lib/SignFile.ahk: -------------------------------------------------------------------------------- 1 | SignFile(File, CertCtx, Name) 2 | { 3 | VarSetCapacity(wfile, 2 * StrPut(File, "utf-16")), StrPut(File, &wfile, "utf-16") 4 | VarSetCapacity(wname, 2 * StrPut(Name, "utf-16")), StrPut(Name, &wname, "utf-16") 5 | cert_ptr := IsObject(CertCtx) ? CertCtx.p : CertCtx 6 | 7 | VarSetCapacity(file_info, A_PtrSize*3, 0) ; SIGNER_FILE_INFO 8 | NumPut(3*A_PtrSize, file_info, 0) 9 | NumPut(&wfile, file_info, A_PtrSize) 10 | 11 | VarSetCapacity(dwIndex, 4, 0) 12 | 13 | VarSetCapacity(subject_info, A_PtrSize*4, 0) ; SIGNER_SUBJECT_INFO 14 | NumPut(A_PtrSize*4, subject_info, 0) 15 | NumPut(&dwIndex, subject_info, A_PtrSize) ; MSDN: "must be set to zero" in this case means "must be set to the address of a field containing zero". 16 | NumPut(SIGNER_SUBJECT_FILE:=1, subject_info, A_PtrSize*2) 17 | NumPut(&file_info, subject_info, A_PtrSize*3) 18 | 19 | VarSetCapacity(cert_store_info, A_PtrSize*4, 0) ; SIGNER_CERT_STORE_INFO 20 | NumPut(A_PtrSize*4, cert_store_info, 0) 21 | NumPut(cert_ptr, cert_store_info, A_PtrSize) 22 | NumPut(SIGNER_CERT_POLICY_CHAIN:=2, cert_store_info, A_PtrSize*3) 23 | 24 | VarSetCapacity(cert_info, 8+A_PtrSize*2, 0) ; SIGNER_CERT 25 | NumPut(8+A_PtrSize*2, cert_info, 0, "uint") 26 | NumPut(SIGNER_CERT_STORE:=2, cert_info, 4, "uint") 27 | NumPut(&cert_store_info, cert_info, 8) 28 | 29 | VarSetCapacity(authcode_attr, 8+A_PtrSize*3, 0) ; SIGNER_ATTR_AUTHCODE 30 | NumPut(8+A_PtrSize*3, authcode_attr, 0, "uint") 31 | NumPut(false, authcode_attr, 4, "int") ; fCommercial 32 | NumPut(true, authcode_attr, 8) ; fIndividual 33 | NumPut(&wname, authcode_attr, 8+A_PtrSize) 34 | 35 | VarSetCapacity(sig_info, 8+A_PtrSize*4, 0) ; SIGNER_SIGNATURE_INFO 36 | NumPut(8+A_PtrSize*4, sig_info, 0, "uint") 37 | NumPut(CALG_SHA1:=0x8004, sig_info, 4, "uint") 38 | NumPut(SIGNER_AUTHCODE_ATTR:=1, sig_info, 8) 39 | NumPut(&authcode_attr, sig_info, 8+A_PtrSize) 40 | 41 | hr := DllCall("MSSign32\SignerSign" 42 | , "ptr", &subject_info 43 | , "ptr", &cert_info 44 | , "ptr", &sig_info 45 | , "ptr", 0 ; pProviderInfo 46 | , "ptr", 0 ; pwszHttpTimeStamp 47 | , "ptr", 0 ; psRequest 48 | , "ptr", 0 ; pSipData 49 | , "uint") 50 | 51 | return 0 == (ErrorLevel := hr) 52 | } -------------------------------------------------------------------------------- /AHK/Lib/SystemTime.ahk: -------------------------------------------------------------------------------- 1 | /* 2 | SystemTime - Wrapper for Win32 SYSTEMTIME Structure 3 | http://msdn.microsoft.com/en-us/library/ms724950 4 | 5 | Usage Examples: 6 | 7 | ; Create structure from string. 8 | st := SystemTime.FromString(A_Now) 9 | 10 | ; Shortcut: 11 | st := SystemTime.Now() 12 | 13 | ; Update values. 14 | st.FromString(A_Now) 15 | 16 | ; Retrieve components. 17 | year := st.Year 18 | month := st.Month 19 | weekday := st.DayOfWeek 20 | day := st.Day 21 | hour := st.Hour 22 | minute := st.Minute 23 | second := st.Second 24 | ms := st.Milliseconds 25 | 26 | ; Set or perform math on component. 27 | st.Year += 10 28 | 29 | ; Create structure to receive output from DllCall. 30 | st := new SystemTime 31 | DllCall("GetSystemTime", "ptr", st.p) 32 | MsgBox % st.ToString() 33 | 34 | ; Fill external structure. 35 | st := SystemTime.FromPointer(externalPointer) 36 | st.FromString(A_Now) 37 | 38 | ; Convert external structure to string. 39 | MsgBox % SystemTime.ToString(externalPointer) 40 | 41 | */ 42 | 43 | class SystemTime 44 | { 45 | FromString(str) 46 | { 47 | if this.p 48 | st := this 49 | else 50 | st := new this 51 | if !(p := st.p) 52 | return 0 53 | FormatTime wday, %str%, WDay 54 | wday -= 1 55 | FormatTime str, %str%, yyyy M '%wday%' d H m s '0' 56 | Loop Parse, str, %A_Space% 57 | NumPut(A_LoopField, p+(A_Index-1)*2, "ushort") 58 | return st 59 | } 60 | 61 | FromPointer(pointer) 62 | { 63 | return { p: pointer, base: this } ; Does not call __New. 64 | } 65 | 66 | ToString(st = 0) 67 | { 68 | if !(p := (st ? (IsObject(st) ? st.p : st) : this.p)) 69 | return "" 70 | VarSetCapacity(s, 28), s := SubStr("000" NumGet(p+0, "ushort"), -3) 71 | Loop 6 72 | if A_Index != 2 73 | s .= SubStr("0" NumGet(p+A_Index*2, "ushort"), -1) 74 | return s 75 | } 76 | 77 | Now() 78 | { 79 | return this.FromString(A_Now) 80 | } 81 | 82 | __New() 83 | { 84 | if !(this.SetCapacity("struct", 16)) 85 | || !(this.p := this.GetAddress("struct")) 86 | return 0 87 | NumPut(0, NumPut(0, this.p, "int64"), "int64") 88 | } 89 | 90 | __GetSet(name, value="") 91 | { 92 | static fields := {Year:0, Month:2, DayOfWeek:4, Day:6, Hour:8 93 | , Minute:10, Second:12, Milliseconds:14} 94 | if fields.HasKey(name) 95 | return value="" 96 | ? NumGet( this.p + fields[name], "ushort") 97 | : NumPut(value, this.p + fields[name], "ushort") 98 | } 99 | static __Get := SystemTime.__GetSet 100 | static __Set := SystemTime.__GetSet 101 | } -------------------------------------------------------------------------------- /AHK/Setup.ahk: -------------------------------------------------------------------------------- 1 | /* 2 | @author: XJK 3 | @github: https://github.com/XUJINKAI/OneQuick 4 | */ 5 | #NoTrayIcon 6 | #SingleInstance force 7 | #Include, Compile.ahk 8 | SetWorkingDir, %A_ScriptDir% 9 | 10 | para1 = %1% 11 | para2 = %2% 12 | silent := para1=="/S" 13 | callback := para2 14 | 15 | if not A_IsCompiled 16 | { 17 | compile_ahk(A_ScriptName) 18 | ExitApp 19 | } 20 | 21 | if(!silent) 22 | { 23 | msg = Install Autohotkey? `n`n安装Autohotkey吗? 24 | msgbox, 0x24,, % msg 25 | IfMsgBox, NO 26 | { 27 | ExitApp 28 | } 29 | } 30 | 31 | if(!A_IsAdmin) 32 | { 33 | Run *RunAs %A_ScriptFullPath% /S "%para2%",, UseErrorLevel 34 | ExitApp 35 | } 36 | 37 | ; run installer silent 38 | RunWait, AutoHotkey_Install.exe /S,, UseErrorLevel 39 | 40 | ; enable UIAccess 41 | RunWait, Autohotkey.exe EnableUIAccess2AHK.ahk /S,, UseErrorLevel 42 | 43 | if(callback!="") 44 | { 45 | Run, %callback%,, UseErrorLevel 46 | } 47 | else 48 | { 49 | msgbox, 0x20,, Autohotkey Installed. 50 | } 51 | ExitApp -------------------------------------------------------------------------------- /OneQuick Launcher.ahk: -------------------------------------------------------------------------------- 1 | /* 2 | @author: XJK 3 | @github: https://github.com/XUJINKAI/OneQuick 4 | */ 5 | 6 | #NoTrayIcon 7 | #SingleInstance force 8 | #Include, AHK\compile.ahk 9 | SetWorkingDir, %A_ScriptDir% 10 | 11 | ProgramName = "OneQuick" 12 | program_icon := "icon/1.ico" 13 | OneQuickAHKPath := "script/OneQuick.ahk" 14 | AHK_installer := "AHK\setup.exe" 15 | 16 | if not A_IsCompiled 17 | { 18 | compile_ahk(A_ScriptName, program_icon) 19 | ExitApp 20 | } 21 | 22 | Run, AutoHotkey.exe %OneQuickAHKPath%, , UseErrorLevel 23 | if ErrorLevel = Error 24 | { 25 | Gosub, SUB_AHK_INSTALL 26 | } 27 | ExitApp 28 | 29 | SUB_AHK_INSTALL: 30 | msg = Install Autohotkey?`n`n安装Autohotkey吗? 31 | msgbox, 0x24,, % msg 32 | IfMsgBox, NO 33 | { 34 | ExitApp 35 | } 36 | 37 | RunWait, %AHK_installer% /S "%A_ScriptFullPath%",, UseErrorLevel 38 | if ErrorLevel = ERROR 39 | { 40 | MsgBox, 0x30, %ProgramName%, Run %AHK_installer% ERROR. 41 | ExitApp 42 | } 43 | 44 | MsgBox, 0x0, , autohotkey installing... 45 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | 新版已上架微软应用商店，此版停止更新支持。 2 | ======================== 3 | 4 | 官网：[http://onequick.org/](http://onequick.org/?f=gh_ahk) 5 | ======================== 6 | 7 | OneQuick 是一款基于autohotkey的windows快捷工具。 8 | 独创的屏幕边缘操作、文本快速搜索功能；还有剪贴板历史纪录、窗口操作菜单等一系列实用功能，操作windows也能如此爽快。 9 | OneQuick也为扩展代码留下了足够的空间，你可以基于OneQuick提供的大量函数开发自己的ahk脚本。 10 | 11 | OneQuick is an Autohotkey script, it is both a convenient tool and an ahk library. 12 | It provides clipboard manager, screen border operation, window operation, quick menu, etc. 13 | It's also a useful library to write your own ahk code. 14 | 15 | 例：快速调整音量 16 | ![screenLT](http://i.imgur.com/mKVXXmU.gif) 17 | 18 | 19 | 安装 20 | ------------------------ 21 | 到下载最新的压缩包，解压执行**OneQuick Launcher.exe** 即可。 22 | _OneQuick基于[AHK][AHK]，如果没有安装的话会先安装AHK。_ 23 | 24 | 25 | 帮助 & 文档 26 | ------------------------ 27 | 关于如何配置功能与开发，请[查看这里][DOCUMENT] 28 | 29 | 30 | 默认功能 31 | ------------------------ 32 | - **剪贴板增强 · clipboard** 33 | ctrl + shift + x：打开剪贴板记录 34 | ctrl + shift + c：复制并打开操作列表 35 | ctrl + shift + v：直接打开操作列表 36 | 37 | 在操作列表中: 38 | TAB: 粘贴 39 | 空格: 执行当前内容 (可以是网址、命令行、甚至b站av号) 40 | 字母按键: 使用搜索引擎搜索当前内容 (如b为百度，g为google，m为豆瓣电影等) 41 | 数字按键: 切换浏览器 (修改OneQuick内部默认的浏览器) 42 | 你也可以将当前的内容加入到收藏夹或删除 43 | 44 | - **屏幕边缘操作 · screen border** 45 | 46 | **左上角 · LT** 47 | 滚轮/单击滚轮：音量大小/静音 48 | shift + 滚轮：屏幕亮度 49 | 右键：窗口操作菜单 50 | 51 | **右上角 · RT** 52 | 滚轮/单击滚轮：歌曲上一首/下一首/播放或暂停 53 | 右键：用户自定义菜单（[如何扩展菜单][ext_rt_menu]） 54 | 55 | **左边框 & 右边框 · L-R** 56 | 滚轮：翻页 57 | shift + 滚轮：翻页x5 58 | ctrl + shift + 滚轮：翻到第一页/最后一页 59 | 60 | **上边框 · T** 61 | 滚轮：标签页切换 62 | 63 | **下边框 · B** 64 | 滚轮/单击滚轮：(win10) 虚拟桌面切换/查看(win+tab键) 65 | 66 | - **应用增强 · app enhance** 67 | ctrl+w 关闭记事本 68 | chrome 标签滚轮切换 69 | 使用sublime时，按win+E 打开当前正在编辑的文件所在的目录 70 | 71 | - **快捷键 · hotkey** 72 | **win + Z：显示功能菜单（GreatMenu）** 73 | **ctrl + alt + R：打开Command Run窗口** ([可执行的命令说明][run_function]) 74 | win + 鼠标右键：弹出当前窗口的操作菜单 75 | shift + 滚轮：翻页 76 | win + T：当前窗口最前端 77 | win + N：打开系统记事本 78 | win + shift + L：立刻锁定计算机并关闭屏幕 79 | ctrl + shift + alt + R：重新启动OneQuick 80 | 81 | - **其他** 82 | 左键单击OneQuick托盘图标可以暂停程序运行； 83 | 右键单击OneQuick托盘图标可打开OneQuick菜单，设置自启动，打开脚本目录，或AHK帮助文件等； 84 | 85 | 86 | Q&A 87 | ------------------------ 88 | 89 | - #### OneQuick的由来？ 90 | OneQuick开始于2014年初，最初只是自用，经历过几次大的重写，断断续续，到2015年左右成型。用到现在又快一年了，在这一年中，我发现我已经离不开OneQuick了，当临时使用别人的电脑时，会因为没有相关的快捷设置而无所适从。将OneQuick发布出来，也是作为自己研究生生涯的纪念。 91 | 92 | - #### OneQuick对某些程序失效？ 93 | 运行/AHK/EnableUIAccess2AHK.ahk 即可。 94 | （需要Autohotkey安装在系统目录中，此方法针对UWP或管理员权限程序。） 95 | 96 | - #### 修改 OneQuick 默认的文本编辑器？ 97 | 参考[这里][ext_default_editor] 98 | 99 | - #### 让OneQuick支持更多ahk功能，如快速输入字符串？ 100 | 参考[这里][ext_ahk_code] 101 | 102 | - #### 执行b站av号是怎么回事？ 103 | OneQuick可以“执行”【"av"+数字】格式的字串。 104 | 比如，按ctrl + shift + c 复制 `av314` 并弹出菜单后，再按空格即可打开相应视频。 105 | 扩展类似的功能可以参考[这里][run_function] 106 | 107 | - #### 剪贴板只能保存文本记录？ 108 | 是的，OneQuick的剪贴板记录暂不支持图片等内容。不过，只要不利用OneQuick的剪贴板记录切换内容，系统剪贴板就不会受到影响。 109 | 110 | - #### 卸载Autohotkey提示无权限？ 111 | 可以运行AHK/AutoHotkey_Install.exe选择uninstall卸载。 112 | 113 | 联系 114 | ------------------------ 115 | 作者：http://xujinkai.net/ 116 | 117 | 版权 · License 118 | ------------------------ 119 | 修改、分享请注明作者信息。 120 | > XJK: https://github.com/XUJINKAI 121 | 122 | 以GPL协议发布。 123 | 124 | [AHK]: https://autohotkey.com/ 125 | [DOCUMENT]: https://github.com/XUJINKAI/OneQuick/wiki 126 | [ext_rt_menu]: https://github.com/XUJINKAI/OneQuick/wiki/OneQuick.Ext.ahk#扩展屏幕右上角右键菜单 127 | [ext_default_editor]: https://github.com/XUJINKAI/OneQuick/wiki/OneQuick.Ext.ahk#设置默认编辑器 128 | [ext_ahk_code]: https://github.com/XUJINKAI/OneQuick/wiki/OneQuick.Ext.ahk#定义额外的快捷键 129 | [run_function]: https://github.com/XUJINKAI/OneQuick/wiki/run_function 130 | 131 | ------------------------ 132 | ##### FROM OTHER PROJECT 133 | JSON: https://github.com/cocobelgica/AutoHotkey-JSON 134 | YAML：https://github.com/HotKeyIt/Yaml 135 | ICON: http://www.iconarchive.com/show/flatastic-1-icons-by-custom-icon-design.html, http://www.iconarchive.com/show/flatastic-2-icons-by-custom-icon-design.html 136 | -------------------------------------------------------------------------------- /icon/1.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/XUJINKAI/OneQuick.AHK-legacy/1d369893f3c38e5589ceeba6fda400659020b099/icon/1.ico -------------------------------------------------------------------------------- /icon/2.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/XUJINKAI/OneQuick.AHK-legacy/1d369893f3c38e5589ceeba6fda400659020b099/icon/2.ico -------------------------------------------------------------------------------- /icon/3.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/XUJINKAI/OneQuick.AHK-legacy/1d369893f3c38e5589ceeba6fda400659020b099/icon/3.ico -------------------------------------------------------------------------------- /icon/4.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/XUJINKAI/OneQuick.AHK-legacy/1d369893f3c38e5589ceeba6fda400659020b099/icon/4.ico -------------------------------------------------------------------------------- /lang/cn.ini: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/XUJINKAI/OneQuick.AHK-legacy/1d369893f3c38e5589ceeba6fda400659020b099/lang/cn.ini -------------------------------------------------------------------------------- /lang/en.ini: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/XUJINKAI/OneQuick.AHK-legacy/1d369893f3c38e5589ceeba6fda400659020b099/lang/en.ini -------------------------------------------------------------------------------- /script/JSON.ahk: -------------------------------------------------------------------------------- 1 | /* Class: JSON 2 | * JSON lib for AutoHotkey 3 | * License: 4 | * WTFPL [http://wtfpl.net/] 5 | * Requirements: 6 | * AutoHotkey v1.1.17+ 7 | * Others: 8 | * Github URL: https://github.com/cocobelgica/AutoHotkey-JSON 9 | * Email: cocobelgica@gmail.com 10 | * Last Update: 02/15/2015 (MM/DD/YYYY) 11 | */ 12 | class JSON 13 | { 14 | /* Method: parse 15 | * Deserialize a string containing a JSON document to an AHK object. 16 | * Syntax: 17 | * json_obj := JSON.parse( ByRef src [ , jsonize := false ] ) 18 | * Parameter(s): 19 | * src [in, ByRef] - String containing a JSON document 20 | * jsonize [in] - If true, objects {} and arrays [] are wrapped as 21 | * JSON.object and JSON.array instances respectively. 22 | */ 23 | parse(ByRef src, jsonize:=false) 24 | { 25 | args := jsonize ? [ JSON.object, JSON.array ] : [] 26 | key := "", is_key := false 27 | stack := [ tree := [] ] 28 | is_arr := { (tree): 1 } 29 | next := """{[01234567890-tfn" 30 | pos := 0 31 | while ( (ch := SubStr(src, ++pos, 1)) != "" ) 32 | { 33 | if InStr(" `t`n`r", ch) 34 | continue 35 | if !InStr(next, ch) 36 | { 37 | ln := ObjMaxIndex(StrSplit(SubStr(src, 1, pos), "`n")) 38 | col := pos - InStr(src, "`n",, -(StrLen(src)-pos+1)) 39 | 40 | msg := Format("{}: line {} col {} (char {})" 41 | , (next == "") ? ["Extra data", ch := SubStr(src, pos)][1] 42 | : (next == "'") ? "Unterminated string starting at" 43 | : (next == "\") ? "Invalid \escape" 44 | : (next == ":") ? "Expecting ':' delimiter" 45 | : (next == """") ? "Expecting object key enclosed in double quotes" 46 | : (next == """}") ? "Expecting object key enclosed in double quotes or object closing '}'" 47 | : (next == ",}") ? "Expecting ',' delimiter or object closing '}'" 48 | : (next == ",]") ? "Expecting ',' delimiter or array closing ']'" 49 | : [ "Expecting JSON value(string, number, [true, false, null], object or array)" 50 | , ch := SubStr(src, pos, (SubStr(src, pos)~="[\]\},\s]|$")-1) ][1] 51 | , ln, col, pos) 52 | 53 | throw Exception(msg, -1, ch) 54 | } 55 | 56 | is_array := is_arr[obj := stack[1]] 57 | 58 | if i := InStr("{[", ch) 59 | { 60 | val := (proto := args[i]) ? new proto : {} 61 | is_array? ObjInsert(obj, val) : obj[key] := val 62 | ObjInsert(stack, 1, val) 63 | 64 | is_arr[val] := !(is_key := ch == "{") 65 | next := is_key ? """}" : """{[]0123456789-tfn" 66 | } 67 | 68 | else if InStr("}]", ch) 69 | { 70 | ObjRemove(stack, 1) 71 | next := stack[1]==tree ? "" : is_arr[stack[1]] ? ",]" : ",}" 72 | } 73 | 74 | else if InStr(",:", ch) 75 | { 76 | is_key := (!is_array && ch == ",") 77 | next := is_key ? """" : """{[0123456789-tfn" 78 | } 79 | 80 | else 81 | { 82 | if (ch == """") 83 | { 84 | i := pos 85 | while (i := InStr(src, """",, i+1)) 86 | { 87 | val := SubStr(src, pos+1, i-pos-1) 88 | StringReplace, val, val, \\, \u005C, A 89 | if (SubStr(val, 0) != "\") 90 | break 91 | } 92 | if !i ? (pos--, next := "'") : 0 93 | continue 94 | 95 | pos := i 96 | 97 | StringReplace, val, val, \/, /, A 98 | StringReplace, val, val, \", ", A 99 | StringReplace, val, val, \b, `b, A 100 | StringReplace, val, val, \f, `f, A 101 | StringReplace, val, val, \n, `n, A 102 | StringReplace, val, val, \r, `r, A 103 | StringReplace, val, val, \t, `t, A 104 | 105 | i := 0 106 | while (i := InStr(val, "\",, i+1)) 107 | { 108 | if (SubStr(val, i+1, 1) != "u") ? (pos -= StrLen(SubStr(val, i)), next := "\") : 0 109 | continue 2 110 | 111 | ; \uXXXX - JSON unicode escape sequence 112 | xxxx := Abs("0x" . SubStr(val, i+2, 4)) 113 | if (A_IsUnicode || xxxx < 0x100) 114 | val := SubStr(val, 1, i-1) . Chr(xxxx) . SubStr(val, i+6) 115 | } 116 | 117 | if is_key 118 | { 119 | key := val, next := ":" 120 | continue 121 | } 122 | } 123 | 124 | else 125 | { 126 | val := SubStr(src, pos, i := RegExMatch(src, "[\]\},\s]|$",, pos)-pos) 127 | 128 | static null := "" ; for #Warn 129 | if InStr(",true,false,null,", "," . val . ",", true) ; if var in 130 | val := %val% 131 | else if (Abs(val) == "") ? (pos--, next := "#") : 0 132 | continue 133 | 134 | val := val + 0, pos += i-1 135 | } 136 | 137 | is_array? ObjInsert(obj, val) : obj[key] := val 138 | next := obj==tree ? "" : is_array ? ",]" : ",}" 139 | } 140 | } 141 | 142 | return tree[1] 143 | } 144 | /* Method: stringify 145 | * Serialize an object to a JSON formatted string. 146 | * Syntax: 147 | * json_str := JSON.stringify( obj [ , indent := "" ] ) 148 | * Parameter(s): 149 | * obj [in] - The object to stringify. 150 | * indent [in] - Specify string(s) to use as indentation per level. 151 | */ 152 | stringify(obj:="", indent:="", lvl:=1) 153 | { 154 | if IsObject(obj) 155 | { 156 | if (ObjGetCapacity(obj) == "") ; COM,Func,RegExMatch,File,Property object 157 | throw Exception("Object type not supported.", -1, Format("