Skip to content

Instantly share code, notes, and snippets.

/*
Change Log:
v1.12 (2017-01-18) - Fixed OnExit not exiting
v1.11 (2017-01-17) - Added an internal function Ensure_Admin_And_Compiled()
v1.10 (2015-10-22) - Added support for sending characters that needs to press {shift} key, such as "@" or "A".
v1.00 (2015-07-25)
Dependency files:
WinRing0_v1.3.1.19.zip -- https://drive.google.com/file/d/0B7yNOlCgfluzMTE2UFc2ZHp5Z1E/view?usp=sharing
; GLOBAL SETTINGS ===============================================================================================================
;#Warn
#NoEnv
#SingleInstance Force
SetBatchLines -1
; ===============================================================================================================================
OnExit, ExitProcess
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0" xmlns:v3="urn:schemas-microsoft-com:asm.v3">
<assemblyIdentity
version="1.1.00.00"
name="AutoHotkey"
type="win32"
/>
<dependency>
<dependentAssembly>
<assemblyIdentity
import ctypes
xcgui=ctypes.windll.LoadLibrary("XCGUI.dll")
#user=ctypes.windll.LoadLibrary("user32.dll")
print(xcgui)
#print(user)
#//窗口样式----------------------------
#/// @defgroup groupWindowStyle 炫彩窗口样式
#/// @ingroup macroDefine
/*
Functions:
CreateByArray(outputFile, arr)
CreateByHLV(outputFile, HLV, Obj_LV_Colors := "", IncludeLvHeader := false)
HLV - Listview hwnd
Obj_LV_Colors - Created by using 'New LV_Colors(HLV)'
ChangeLog:
v1.05 (2017-8-17) - Added "Column AutoFit"; Added .xls file support
v1.04 (2016-12-9) - 'IncludeLvHeader' option now doesn't need to change default listview
v1.03 (2016-12-9) - Added support for LV_Colors's AlternateRows/AlternateCols
; utf8_to_utf16.lsp
; http://www.newlispfanclub.alh.net/forum/viewtopic.php?f=9&t=3656&p=18353#p18353
;
; Example:
; (import "user32.dll" "MessageBoxW")
; (MessageBoxW 0 (utf8->16 "中文") (utf8->16 "title") 0)
(constant 'SIZEOF_WCHAR 2) ; assumption
(constant 'CP_UTF8 65001)
@tmplinshi
tmplinshi / HookMsg.ahk
Last active February 13, 2016 20:55
监测非 AHK 窗口的 WM_COMMAND 消息 -- http://ahkscript.org/boards/viewtopic.php?f=5&t=9948&p=55524
; 此脚本会在记事本中新增一个菜单 "testing",并且通过 hook.dll 能够检测到菜单的点击(WM_COMMAND 消息)
; hook.dll 下载地址: https://www.autoitscript.com/forum/applications/core/interface/file/attachment.php?id=7166
#NoEnv
#SingleInstance Force
SetBatchLines, -1
Run, Notepad,,, pid
WinWait, % (WinTitle := "ahk_pid " pid)
; WBImg v1.02 (2015-11-29)
/*
Description: Get WebBrowser image without redownloading.
Limitations: * Require IE9+
* Cross-Origin image is not supported
---------------------------------------------
Methods:
ToBase64Url(ByRef base64Url, imgEle, mimeType := "", jpegQuality := "", naturalSize := False)
ToHBitmap(imgEle, mimeType := "", jpegQuality := "", naturalSize := False)
; WinHttpRequest.ahk
; https://gist.github.com/tmplinshi/a74c7f0cc7f1510ce0ad
; v1.06 (2018-07-12) - 增加默认 User-Agent
; v1.05 (2017-09-07) - 增加 DetectCharset 选项
; v1.04 (2017-08-29) - 增加自动使用响应头的编码
; v1.03 (2016-01-18) - 增加“加载 gzip.dll 失败”提示,防止忘记复制 gzip.dll 到脚本目录。
; v1.02 (2015-12-26) - 修复在 XP 系统中解压 gzip 数据失败的问题。
; v1.01 (2015-12-07)
/*
@tmplinshi
tmplinshi / quricol.ahk
Last active July 7, 2022 14:55
用 quricol32.dll 生成二维码
; quricol32.dll -- https://perevoznyk.wordpress.com/2013/09/11/quricol-2-0-qr-code-generator/
; ============================= Examples =============================
/*
quricol_GeneratePNG("output.png", "Test String")
*/
/*
; -===== GetPNG =====-
If quricol_GetPNG("Test String", bufferSize, buffer) {