AutoHotkey v3.0-alpha.1 - Switching to JavaScript (not really)

[lexikos]

[Edit on 02 April 2021: See page 2 for clarification.]

I have decided to bring the seemingly endless development of AutoHotkey v2 alpha to a close. It has been almost exactly 10 years since the release of v2.0-a001. My interest in AutoHotkey development has dropped off repeatedly, and there have been times I've decided to officially retire from the community, maybe handing over the lead to someone else. But lack of motivation caused inaction at all levels, and here I still am.

In the meantime, other scripting and programming languages have made interesting developments. Mainstream languages tend to have considerably more developers driving them, larger communities, and more learning resources. To keep AutoHotkey alive long term, I think it best that the program's core functionality be decoupled from its unique scripting language, and be made available to mainstream scripting and programming languages.

With that in mind, AutoHotkey v3.0-alpha.1 implements JavaScript in place of AutoHotkey's original language (which I've always thought of as unnamed). I chose JavaScript because Windows 10 includes a reasonably modern JavaScript engine (the one used by legacy Edge) with a very easy to use hosting API. Although legacy Edge has been discontinued, development continues on the open source ChakraCore engine. Future builds will optionally utilize ChakraCore.

Most functions from v2.0-a129 are available (but not all tested), including:

Spoiler

blockInput callbackCreate callbackFree caretGetPos click clipWait comCall comObjActive comObjArray comObjConnect comObjCreate comObject comObjFlags comObjGet comObjQuery comObjType comObjValue controlAddItem controlChooseIndex controlChooseString controlClick controlDeleteItem controlFindItem controlFocus controlGetChecked controlGetChoice controlGetClassNN controlGetEnabled controlGetExStyle controlGetFocus controlGetHwnd controlGetIndex controlGetItems controlGetPos controlGetStyle controlGetText controlGetVisible controlHide controlHideDropDown controlMove controlSend controlSendText controlSetChecked controlSetEnabled controlSetExStyle controlSetStyle controlSetText controlShow controlShowDropDown coordMode detectHiddenText detectHiddenWindows dirCopy dirCreate dirDelete dirExist dirMove dirSelect dllCall download driveEject driveGetCapacity driveGetFilesystem driveGetLabel driveGetList driveGetSerial driveGetSpaceFree driveGetStatus driveGetStatusCD driveGetType driveLock driveSetLabel driveUnlock edit editGetCurrentCol editGetCurrentLine editGetLine editGetLineCount editGetSelectedText editPaste envGet envSet exitApp fileAppend fileCopy fileCreateShortcut fileDelete fileEncoding fileExist fileGetAttrib fileGetShortcut fileGetSize fileGetTime fileGetVersion fileInstall fileMove fileOpen fileRead fileRecycle fileRecycleEmpty fileSelect fileSetAttrib fileSetTime format formatTime getKeyName getKeySC getKeyState getKeyVK groupActivate groupAdd groupClose groupDeactivate guiCtrlFromHwnd guiFromHwnd hotIf hotIfWinActive hotIfWinExist hotIfWinNotActive hotIfWinNotExist hotkey hotstring iL_Add iL_Create iL_Destroy imageSearch iniDelete iniRead iniWrite inputBox keyHistory keyWait listHotkeys listViewGetContent loadPicture menuFromHandle menuSelect monitorGet monitorGetCount monitorGetName monitorGetPrimary monitorGetWorkArea mouseClick mouseClickDrag mouseGetPos mouseMove msgBox numGet numPut onClipboardChange onError onExit onMessage outputDebug pause pixelGetColor pixelSearch postMessage processClose processExist processSetPriority processWait processWaitClose random randomSeed regDelete regDeleteKey regRead regWrite reload run runAs runWait send sendEvent sendInput sendLevel sendMessage sendMode sendPlay sendText setCapslockState setControlDelay setDefaultMouseSpeed setKeyDelay setMouseDelay setNumlockState setRegView setScrollLockState setStoreCapsLockMode setTimer setTitleMatchMode setWinDelay setWorkingDir shutdown sleep soundBeep soundGetInterface soundGetMute soundGetName soundGetVolume soundPlay soundSetMute soundSetVolume splitPath statusBarGetText statusBarWait strGet strPut suspend sysGet sysGetIPAddresses thread toolTip traySetIcon trayTip winActivate winActivateBottom winActive winClose winExist winGetClass winGetClientPos winGetControls winGetControlsHwnd winGetCount winGetExStyle winGetID winGetIDLast winGetList winGetMinMax winGetPID winGetPos winGetProcessName winGetProcessPath winGetStyle winGetText winGetTitle winGetTransColor winGetTransparent winHide winKill winMaximize winMinimize winMinimizeAll winMinimizeAllUndo winMove winMoveBottom winMoveTop winRedraw winRestore winSetAlwaysOnTop winSetEnabled winSetExStyle winSetRegion winSetStyle winSetTitle winSetTransColor winSetTransparent winShow winWait winWaitActive winWaitClose winWaitNotActive

Because JavaScript has no language feature equivalent to ByRef, the following functions return an object with a property for each output parameter (which should be omitted from the parameter list when calling the function):

Spoiler

caretGetPos: {x, y} -> false if no caret
controlGetPos: {x, y, width, height}
fileGetShortcut: {target, dir, args, description, icon, iconNum, runState}
imageSearch: {x, y} -> false if not found
loadPicture: {imageType, handle}
monitorGet, monitorGetWorkArea: {left, top, right, bottom}
mouseGetPos: {x, y, win, control}
pixelSearch: {x, y} -> false if not found
runWait: {pid, exitCode} /* but Run returns pid directly */
splitPath: {name, dir, ext, nameNoExt, drive}
winGetClientPos, winGetPos: {x, y, width, height}
Gui.prototype.getPos, Gui.prototype.getClientPos, Gui.Control.prototype.getPos: {x, y, width, height}

The following functions are excluded because they are redundant or AutoHotkey-specific:

Spoiler

Abs ACos ASin ATan BufferAlloc Ceil Chr Cos Critical DateAdd DateDiff Exception Exit Exp Floor GetMethod HasBase HasMethod HasProp InStr IsAlnum IsAlpha IsDigit IsFloat IsInteger IsLabel IsLower IsNumber IsObject IsSet IsSpace IsTime IsUpper IsXDigit ListLines ListVars Ln Log LTrim Max Min Mod ObjAddRef ObjBindMethod ObjFromPtr ObjFromPtrAddRef ObjGetBase ObjGetCapacity ObjHasOwnProp ObjOwnPropCount ObjOwnProps ObjPtr ObjPtrAddRef ObjRelease ObjSetBase ObjSetCapacity Ord RegExMatch RegExReplace Round RTrim Sin Sort Sqrt StrCompare StrLen StrLower StrPtr StrReplace StrSplit StrUpper SubStr Tan Trim Type VarSetStrCapacity

Most built-in variables are available. These are not: A_IsCritical, A_Index, A_Loop..., A_Space, A_Tab, A_ThisFunc

These classes are available: ClipboardAll, File, Gui, InputHook, Menu, MenuBar


Loops

Loop Parse has no replacement; JavaScript has enough ways to parse strings. Loop Files and Loop Reg are replaced with functions which accept a callback. Ideally they would be replaced with functions which return an iterator (to use with for (x of y)), but the nature of their implementation makes that difficult.

loopFiles(pattern, mode, callback);
loopFiles(pattern, callback);

callback(file) is called for each file. file has the following properties: attrib, dir, ext, fullPath, name, path, shortName, shortPath, size, timeAccessed, timeCreated, timeModified

loopReg(keyName, mode, callback);
loopReg(keyName, callback);

callback(regItem) is called for each key or value. regItem has the following properties: name, type, key, timeModified


Directives

Supported directives are translated to either a function or a property. Some are not relevant, not implemented, or already had equivalent functions in AutoHotkey. The rest are described below.

include(path);

Evaluates the file in global scope, at run time. There is no *i option, but try-catch can be used, and it can be called conditionally, like any other function. As with #Include, it has no effect if called a second time for the same path (which is resolved to a full path and case corrected internally).

installKeybdHook();
installMouseHook();
persistent();

Direct replacements for the corresponding directives.

singleInstance(mode);

Scripts are not single-instance by default, as the script needs to run in order to override default behaviour. singleInstance(mode) accepts the case-insensitive mode strings 'force' (the default if omitted), 'ignore' and 'prompt'.

hotkey.inputLevel
hotkey.maxThreadsBuffer
hotkey.maxThreadsPerHotkey
hotkey.useHook

These properties directly replace the corresponding directives; of course, being properties and not directives, their values can be retrieved or changed at runtime. As before, these settings only affect the default options for newly created hotkey variants.


Other Additions

collectGarbage();

Takes out the trash immediately (but usually the trash takes itself out anyway).


Using the Program

How to run, mostly as before:

• Drag-drop a script onto the exe.
• Run the exe directly; running AutoHotkey32.exe will load AutoHotkey32.jk (or js) if present; otherwise it will show a file selection dialog. The default script name depends on the exe name, as before, so you may rename the exe if you wish to have it run something else by default.
• Use the command line as before (but /Debug and /validate are not implemented).

General Remarks

The current JavaScript runtime has some limitations:

• It requires Windows 10.
• Attempting to load the older JScript engine used by IE11 (such as with a WebBrowser ActiveX control) may cause the program to become unstable. I think this is because Microsoft does not support loading both chakra.dll and jscript9.dll into one process.
• ES6 modules are not supported.

Implementing ChakraCore might lift these limitations.

Function names are in lower camel case, while classes and built-in variables are in upper camel case (a.k.a. PascalCase).

Use A_IconHidden = false in place of #NoTrayIcon. The icon is not shown if this is used within 100ms of starting the script.

JavaScript destructuring assignments can be used with functions which return an object; e.g. let {x, y} = mouseGetPos();.

Instead of a Buffer, use a JavaScript ArrayBuffer, typed array or DataView.

DllCall and ComCall are available and mostly unchanged, but may be unsafe with regard to pointers on x64, as JavaScript does not support the full 64-bit integer range. Output parameters are not fully implemented, but ptr parameters can be used instead (e.g. with a single-element typed array such as new Uint32Array(1)).

Support for promises/async/await is not yet implemented.


Download

Note: The included script registers or unregisters the .jk file type with the current exe, for extremely simple setup. Run AutoHotkey32.exe, or drag-drop AutoHotkey32.jk onto AutoHotkey64.exe to register with that exe.


Examples

Simple hotkey

Code: Select all

// Use fat arrow functions for simple one-line hotkeys.
hotkey('#+n', hk => run('notepad'));
// Use a named function for readability.
hotkey('#n', openNotepad);

function openNotepad() {
    if (winExist('ahk_exe notepad.exe'))
        winActivate();
    else
        run('notepad.exe');
}

Simple hotkey with reusable function

Code: Select all

// Alternative example, reusing code.
hotkey('#n', hk => openOrActivate('notepad.exe'));
hotkey('#w', openOrActivate.bind(null, 'wordpad.exe')); // bind's usage here is a little different to AutoHotkey.

function openOrActivate(exe) {
    if (winExist('ahk_exe '+exe))
        winActivate();
    else
        run(exe);
}

Simple hotstring

Code: Select all

// Basic auto-replace hotstring.
hotstring('::btw', 'by the way');

// This hotstring replaces "]d" with the current date and time.
hotstring(':*:]d', function() {
    sendInput(formatTime("", "M/d/yyyy h:mm tt"));  // It will look like 9/1/2005 3:53 PM
});

loopReg

Code: Select all

// Example: Registry loop.
try {
    loopReg(String.raw`HKCR\AutoHotkeyScript\Shell`, 'K', function(reg) {
        const description = regRead(undefined, undefined, reg.name); // undefined in JS is equivalent to omitting in AHK.
        const message =
`Current item: ${description}

${JSON.stringify(reg)}

Continue?`;
        if (msgBox(message, 'loopReg example', 'y/n') == 'No')
            throw loopReg; // Currently throwing is the only way to break the loop early.
    });
} catch (thrown) {
    if (thrown != loopReg)
        throw thrown;
}

Gui and loopFiles

Code: Select all

// Example: Gui and loopFiles.
const loopFileKeys = ['attrib', 'dir', 'ext', 'fullPath', 'name', 'path', 'shortName', 'shortPath', 'size', 'timeAccessed', 'timeCreated', 'timeModified'];
// Make a Gui with a ListView - standard stuff so far.
const fileGui = new Gui();
const listView = fileGui.add('ListView', 'w1000 h700', loopFileKeys);
// For each file in the script directory...
loopFiles(A_ScriptDir + '\\*', 'FDR', file =>
    // map is used to create an array of values from an array of keys, object (file) and key (k),
    // then the ...rest operator is used to expand the array into the parameter list.
    listView.add('', ...loopFileKeys.map(k => file[k]))
);
listView.modifyCol();
listView.modifyCol(1, 'AutoHdr');
fileGui.show();

Clipboard hotkey "factory" function using closures

Code: Select all

// Example: Make new sets of independent copy-paste hotkeys.

newCopyPaste('^+1', '^1'); // Press ^1 to paste the value copied with ^+1.
newCopyPaste('^+2', '^2');

const CLIPBOARD_COPY_TIMEOUT = 1; // Seconds to wait for ^c to copy something.
const CLIPBOARD_PASTE_PERIOD = 0.1; // Seconds to sleep after ^v before reverting clipboard.

function newCopyPaste(copyKey, pasteKey) {
    hotkey(copyKey, setClipboardTemp.bind(null, '', function() {
        // copyKey has been pressed and clipboard has been reset to ''.
        send('^c');
        if (!clipWait(CLIPBOARD_COPY_TIMEOUT, true))
            return;
        // Something was copied, so bind the new content to our paste key.
        hotkey(pasteKey, setClipboardTemp.bind(null, new ClipboardAll(), function() {
            // pasteKey was pressed and clipboard has been set to the bound content.
            send('^v');
            // Must usually wait a little to let ^v be processed.
            sleep(CLIPBOARD_PASTE_PERIOD * 1000);
        }));
    }));
    hotkey(pasteKey, _ => ''); // Make it do nothing initially.
}

// Temporarily puts value on the clipboard and calls callback.
function setClipboardTemp(value, callback) {
    const saved = new ClipboardAll();
    A_Clipboard = value;
    const result = callback();
    A_Clipboard = saved;
    return result;
}

[laozhhaiJohn]

非常赞成发新版。人气确实有待提高。

[boiler]

But it’s not April 1st yet.

[joedf]

But it’s not April 1st yet.

Gasp!

waow.

[Chunjee]

Thank you for never giving up lexikos.


Very Cool!

[SKAN]

Never saw this coming

[gregster]

But it’s not April 1st yet.

In lexikos' timezone it was.

[boiler]

In lexikos' timezone it was.

I was thinking that might be the case, but I (mistakenly, apparently) thought he was in the US for some reason.

[gregster]

In lexikos' timezone it was.

I was thinking that might be the case, but I (mistakenly, apparently) thought he was in the US for some reason.

Well, afaik, lexikos is from Australia.

[boiler]

I'm sure you're right. I had no basis.

[Nextron]

That's elaborate. That woke me up quick! Here's me thinking that working from home would keep me safe from pranks.

My interest in AutoHotkey development has dropped off repeatedly, and there have been times I've decided to officially retire from the community,

Considering the best lies contain some truth, this lingers even after considering the date. Then again, I'm still a content at v1.1.

[SKAN]

Panda AV deleted 32bit .exe quoting unnamed virus. Had to restore it from quarantine.
Its fine online though.
https://www.virustotal.com/gui/file/d7c21e00c5727036460ccd837be93888c6c7b1c34c70b32d1254d154e571b433/detection

My first successful jk script

Code: Select all

msgBox("Hello World");

[Ragnar]

Definitely an interesting project. Moreover, the provided examples seem to work. The only thing I'm unsure of is whether this is actually an elaborate April Fool's joke or not

[OpalMonkey]

The only thing I'm unsure of is whether this is actually an elaborate April Fool's joke or not

If it is a joke, it's so elaborate and deadpan. And if it's true, it seems like a sudden change of course. But the fact that it's functional and actually feels like it could make sense is really messing with me. It's got me split. Every time I think I'm sure it's one way or the other, a bit of doubt creeps in.

If it's a joke, it's the best I've seen in ages. And if it's not, it's a very interesting turn of events. You're great, lexikos, but this is messing with my head T_T

[joedf]

Well at first, looking the decompiled source... I thought there's some legitimacy?

AutoHotkey(32|64).exe ahk script source

AutoHotkey_3.0-alpha.1\AutoHotkey32.exe:

Code: Select all

; <COMPILER: v1.1.33.05>
JKVersion := '3.0-alpha.1'
#Requires AutoHotkey v2.0-a128+
functions_use_lowercase_initial_letter := true
allow_wildcard_in_include := false
default_script_name := RegExReplace(A_ScriptName, '\.[^\.]*$', '.j?')
class JsRT
{
static Call()
{
throw Error("This class is abstract. Use JsRT.IE() or JSRT.Edge() to initialize.", -1)
}
static IE()
{
if !this._hmod := DllCall("LoadLibrary", "str", "jscript9", "ptr")
throw Error("Failed to load jscript9.dll", -1)
if DllCall("jscript9\JsCreateRuntime", "int", 0, "int", -1, "ptr", 0, "ptr*", &runtime:=0) != 0
throw Error("Failed to initialize JsRT", -1)
DllCall("jscript9\JsCreateContext", "ptr", runtime, "ptr", 0, "ptr*", &context:=0)
return this._Initialize("jscript9", runtime, context)
}
static Edge()
{
if !this._hmod := DllCall("LoadLibrary", "str", "chakra", "ptr")
throw Error("Failed to load chakra.dll", -1)
if DllCall("chakra\JsCreateRuntime", "int", 0, "ptr", 0, "ptr*", &runtime:=0) != 0
throw Error("Failed to initialize JsRT", -1)
DllCall("chakra\JsCreateContext", "ptr", runtime, "ptr*", &context:=0)
return this._Initialize("chakra", runtime, context)
}
static _Initialize(dll, runtime, context)
{
this._dll := dll
this._runtime := runtime
this._context := context
this._ImportAPI()
DllCall(dll "\JsSetCurrentContext", "ptr", context)
this._sources := Map()
this._sources.CaseSense := 'Off'
this._sources['eval'] := 0
return this._dsp := this.FromJs(this.JsGetGlobalObject())
}
static _ImportAPI()
{
API := '
        (
            JsAddRef(ptr ref, uint* return count)
            JsBooleanToBool(ptr valref, char* return bool)
            JsCallFunction(ptr function, ptr arguments, ushort argumentCount, ptr* return valref)
            JsCollectGarbage(ptr runtime)
            JsCreateError(ptr message, ptr* return valref)
            JsCreateExternalObject(ptr data, ptr finalizeCallback, ptr* return valref)
            JsCreateFunction(ptr nativeGetCb, ptr callbackState, ptr* return valref)
            JsCreateTypeError(ptr message, ptr* return valref)
            JsGetAndClearException(ptr* return valref)
            JsGetArrayBufferStorage(ptr arrayBuffer, ptr* buf, int* byteCount)
            JsGetDataViewStorage(ptr dataView, ptr* buf, int* byteCount)
            JsGetExternalData(ptr object, ptr* return)
            JsGetGlobalObject(ptr* return valref)
            JsGetOwnPropertyNames(ptr object, ptr* return valref)
            JsGetOwnPropertySymbols(ptr object, ptr* return valref)
            JsGetProperty(ptr object, ptr propertyId, ptr* return valref)
            JsGetPropertyIdFromName(str name, ptr* return propId)
            JsGetPrototype(ptr object, ptr* return valref)
            JsGetTypedArrayStorage(ptr typedArray, ptr* buf, int* byteCount, int* arrayType, int* elemSize)
            JsGetUndefinedValue(ptr* return undefined)
            JsGetValueType(ptr value, int* return)
            JsHasException(char* return bool)
            JsHasExternalData(ptr object, char* return bool)
            JsIdle(uint* return nextIdleTick)
            JsInstanceOf(ptr object, ptr constructor, char* return bool)
            JsParseScript(wstr script, ptr sourceContext, wstr sourceUrl, ptr* return valref)
            JsPointerToString(ptr stringValue, uptr stringLength, ptr* return valref)
            JsProjectWinRTNamespace(wstr namespace)
            JsRelease(ptr ref, uint* return count)
            JsRunScript(wstr script, ptr sourceContext, wstr sourceUrl, ptr* return valref)
            JsSetException(ptr exception)
            JsSetExternalData(ptr object, ptr data)
            JsSetObjectBeforeCollectCallback(ptr ref, ptr callbackState, ptr callback)
            JsSetProperty(ptr object, ptr propertyId, ptr value, char useStrictRules)
            JsSetPrototype(ptr object, ptr proto)
            JsValueToVariant(ptr valref, ptr variant)
            JsVariantToValue(ptr variant, ptr* return valref)
)'
static kernel32 := DllCall("GetModuleHandle", "str", "kernel32", "ptr")
static GPA := DllCall.Bind(DllCall("GetProcAddress", "ptr", kernel32, "astr", "GetProcAddress", "ptr"), "ptr", , "astr", , "ptr")
Loop Parse API, '`n'
{
if !RegExMatch(A_LoopField, "^(\w+)\((.*)\)$", &m)
{
MsgBox "DEBUG: Fatal error in JsRT API declarations, line " A_Index
ExitApp
}
funcname := m.1
argtypes := RegExReplace(m.2, '(?<=^|,) *(\w+(?: *\*|[Pp](?= ))?) *+([\w ]*?) *(?=,|$)', '$1,$2')
argtypes := StrSplit(argtypes, ',', ' ')
if !(pfn := GPA(this._hmod, funcname))
throw Error('Failed to load JsRT function "' funcname '" from DLL "' this._dll '"')
api := {ptr: pfn, name: funcname}
if argtypes.Length && argtypes[-1] ~= '^return\b'
api.return := argtypes.Length
Loop argtypes.Length // 2
argtypes.Delete A_Index * 2
this.%funcname% := (api.HasProp('return') ? CallApiRet : CallApi)
.Bind( , api, argtypes*)
}
CallApi(thisJsRT, api, args*)
{
if errorCode := DllCall(api.ptr, args*)
this._ThrowApiError api.name, errorCode
}
CallApiRet(thisJsRT, api, args*)
{
args[api.return] := &(retval := 0)
if errorCode := DllCall(api.ptr, args*)
this._ThrowApiError api.name, errorCode
return retval
}
}
static _ThrowApiError(apiName, errorCode)
{
if errorCode = 0x30001 || errorCode = 0x30002
throw this.FromJs(this.JsGetAndClearException())
throw (this.Error)(Format("Call to {1} failed with error 0x{2:x}", apiName, errorCode), -1, errorCode)
}
static __Delete()
{
this._dsp := ""
if dll := this._dll
{
DllCall(dll "\JsSetCurrentContext", "ptr", 0)
DllCall(dll "\JsDisposeRuntime", "ptr", this._runtime)
}
DllCall("FreeLibrary", "ptr", this._hmod)
}
static FromJs(valref)
{
ref := ComObject(0x400C, (var := BufferAlloc(24, 0)).ptr)
this.JsValueToVariant(valref, var)
return (val := ref[], ref[] := 0, val)
}
static ToJs(val)
{
ref := ComObject(0x400C, (var := BufferAlloc(24, 0)).ptr)
ref[] := val
valref := this.JsVariantToValue(var)
ref[] := 0
return valref
}
static SourceContext(filename)
{
if !this._sources.has(filename)
this._sources[filename] := this._sources.Count
return this._sources[filename]
}
static RunFile(filename, readOpt:="")
{
this.JsRunScript(FileRead(filename, readOpt), this.SourceContext(filename), filename)
}
static Eval(code)
{
return this.FromJs(this.JsRunScript(code, 0, "eval"))
}
class Error extends Error
{
}
}
GetCommandLineArgs() {
if !ptr := DllCall("shell32\CommandLineToArgvW", "ptr", DllCall("GetCommandLineW", "ptr"), "int*", &nargs:=0, "ptr")
throw MemoryError()
try {
args := []
loop nargs
args.Push StrGet(NumGet(ptr, (A_Index-1)*A_PtrSize, "ptr"), "UTF-16")
return args
}
finally DllCall("LocalFree", "ptr", ptr)
}
#NoTrayIcon
#SingleInstance Off
OnError ErrorMsg
A_AllowMainWindow := true
PatchMenus
ParseCommandLine
ParseCommandLine() {
global default_script_encoding := "UTF-8"
global J_Args := GetCommandLineArgs()
global is_restart := false
global ErrorStdOut := false
drop_jk_ahk := !A_IsCompiled
J_Args.RemoveAt 1
while J_Args.Length {
if J_Args[1] ~= 'i)^/r(?:estart)$'
is_restart := true
else if J_Args[1] ~= 'i)^/cp\d+$'
default_script_encoding := SubStr(J_Args[1], 2)
else if J_Args[1] ~= 'i)^/ErrorStdOut(?:=|$)'
ErrorStdOut := FileOpen('**', 'w', SubStr(J_Args[1], 14))
else if J_Args[1] ~= 'i)^/Debug(?:=|$)' && drop_jk_ahk
{}
else if drop_jk_ahk && J_Args[1] ~= 'i)(?:[\\/]|^)\Q' A_ScriptName '\E$'
drop_jk_ahk := false
else
break
J_Args.RemoveAt 1
}
if !J_Args.Length {
for prefix in ['', A_MyDocuments '\'] {
Loop Files prefix default_script_name {
jkfile := A_LoopFileFullPath
break 2
}
}
if !IsSet(&jkfile) {
jkfile := FileSelect("1", default_script_name, "Select Script File", "Script Files (*.jk;*.js)")
if jkfile = ""
ExitApp
}
}
else if !(J_Args[1] ~= '[*?<>"]') {
Loop Files J_Args.RemoveAt(1)
jkfile := A_LoopFileFullPath
}
if !IsSet(&jkfile) {
MsgBox "Script file not found.",, "IconX"
ExitApp
}
global J_ScriptFullPath := jkfile
}
WinSetTitle jktitle := J_ScriptFullPath ' - AutoHotkey v' JKVersion, A_ScriptHwnd
if is_restart
TerminatePreviousInstance 'Reload'
SplitPath J_ScriptFullPath, &J_ScriptName, &J_ScriptDir
A_IconTip := A_ScriptName := J_ScriptName
SetWorkingDir J_ScriptDir
undefined := ComObject(0,0), null := ComObject(9,0)
jsTrue := ComObject(0xB, -1), jsFalse := ComObject(0xB, 0)
AdjustFuncName := functions_use_lowercase_initial_letter
? n => RegExReplace(n, '^[A-Z]+', '$l0') : n => n
AdjustPropName := AdjustFuncName
AdjustMethodName := AdjustFuncName
AdjustClassName := n => n
js := JsRT.Edge()
MIN_SAFE_INTEGER := js.Number.MIN_SAFE_INTEGER
MAX_SAFE_INTEGER := js.Number.MAX_SAFE_INTEGER
AddAhkObjects js
IsSet(&D) ? js.D := WrapBif(D) : %'D'% := _ => ""
loading_script := true
StartupIconTimer true
JsRT.RunFile J_ScriptFullPath, default_script_encoding
ErrorStdOut := false
loading_script := false
StartupIconTimer
AddAhkObjects(scope) {
defProp := scope.Object.defineProperty
Hotkey := _Hotkey
Boolean(r) => r ? jsTrue : jsFalse
functions := "
(Join`s
!Abs !ACos !ASin !ATan BlockInput !BufferAlloc CallbackCreate CallbackFree
CaretGetPos !Ceil !Chr Click ClipWait ComCall ComObjActive ComObjArray
ComObjConnect ComObjCreate ComObject ComObjFlags ComObjGet ComObjQuery
ComObjType ComObjValue ControlAddItem ControlChooseIndex ControlChooseString
ControlClick ControlDeleteItem ControlFindItem ControlFocus ControlGetChecked
ControlGetChoice ControlGetClassNN ControlGetEnabled ControlGetExStyle
ControlGetFocus ControlGetHwnd ControlGetIndex ControlGetItems ControlGetPos
ControlGetStyle ControlGetText ControlGetVisible ControlHide ControlHideDropDown
ControlMove ControlSend ControlSendText ControlSetChecked ControlSetEnabled
ControlSetExStyle ControlSetStyle ControlSetText ControlShow ControlShowDropDown
CoordMode !Cos !Critical !DateAdd !DateDiff DetectHiddenText DetectHiddenWindows
DirCopy DirCreate DirDelete DirExist DirMove DirSelect DllCall Download
DriveEject DriveGetCapacity DriveGetFilesystem DriveGetLabel DriveGetList
DriveGetSerial DriveGetSpaceFree DriveGetStatus DriveGetStatusCD DriveGetType
DriveLock DriveSetLabel DriveUnlock Edit EditGetCurrentCol EditGetCurrentLine
EditGetLine EditGetLineCount EditGetSelectedText EditPaste EnvGet EnvSet
!Exception !Exit ExitApp !Exp FileAppend FileCopy FileCreateShortcut FileDelete
FileEncoding FileExist FileGetAttrib FileGetShortcut FileGetSize FileGetTime
FileGetVersion FileInstall FileMove FileOpen FileRead FileRecycle
FileRecycleEmpty FileSelect FileSetAttrib FileSetTime !Floor Format FormatTime
GetKeyName GetKeySC GetKeyState GetKeyVK !GetMethod GroupActivate GroupAdd
GroupClose GroupDeactivate GuiCtrlFromHwnd GuiFromHwnd !HasBase !HasMethod !HasProp
HotIf HotIfWinActive HotIfWinExist HotIfWinNotActive HotIfWinNotExist Hotkey
Hotstring IL_Add IL_Create IL_Destroy ImageSearch IniDelete IniRead IniWrite
InputBox !InStr !IsAlnum !IsAlpha !IsDigit !IsFloat !IsInteger !IsLabel !IsLower
!IsNumber !IsObject !IsSet !IsSpace !IsTime !IsUpper !IsXDigit KeyHistory KeyWait
ListHotkeys !ListLines !ListVars ListViewGetContent !Ln LoadPicture !Log !LTrim !Max
MenuFromHandle MenuSelect !Min !Mod MonitorGet MonitorGetCount MonitorGetName
MonitorGetPrimary MonitorGetWorkArea MouseClick MouseClickDrag MouseGetPos
MouseMove MsgBox NumGet NumPut !ObjAddRef !ObjBindMethod !ObjFromPtr
!ObjFromPtrAddRef !ObjGetBase !ObjGetCapacity !ObjHasOwnProp !ObjOwnPropCount
!ObjOwnProps !ObjPtr !ObjPtrAddRef !ObjRelease !ObjSetBase !ObjSetCapacity
OnClipboardChange OnError OnExit OnMessage !Ord OutputDebug Pause PixelGetColor
PixelSearch PostMessage ProcessClose ProcessExist ProcessSetPriority ProcessWait
ProcessWaitClose Random RandomSeed RegDelete RegDeleteKey !RegExMatch
!RegExReplace RegRead RegWrite Reload !Round !RTrim Run RunAs RunWait Send
SendEvent SendInput SendLevel SendMessage SendMode SendPlay SendText
SetCapslockState SetControlDelay SetDefaultMouseSpeed SetKeyDelay SetMouseDelay
SetNumlockState SetRegView SetScrollLockState SetStoreCapsLockMode SetTimer
SetTitleMatchMode SetWinDelay SetWorkingDir Shutdown !Sin Sleep !Sort SoundBeep
SoundGetInterface SoundGetMute SoundGetName SoundGetVolume SoundPlay
SoundSetMute SoundSetVolume SplitPath !Sqrt StatusBarGetText StatusBarWait
!StrCompare StrGet !StrLen !StrLower !StrPtr StrPut !StrReplace !StrSplit !StrUpper
!SubStr Suspend SysGet SysGetIPAddresses !Tan Thread ToolTip TraySetIcon TrayTip
!Trim !Type !VarSetStrCapacity WinActivate WinActivateBottom WinActive WinClose
WinExist WinGetClass WinGetClientPos WinGetControls WinGetControlsHwnd
WinGetCount WinGetExStyle WinGetID WinGetIDLast WinGetList WinGetMinMax
WinGetPID WinGetPos WinGetProcessName WinGetProcessPath WinGetStyle WinGetText
WinGetTitle WinGetTransColor WinGetTransparent WinHide WinKill WinMaximize
WinMinimize WinMinimizeAll WinMinimizeAllUndo WinMove WinMoveBottom WinMoveTop
WinRedraw WinRestore WinSetAlwaysOnTop WinSetEnabled WinSetExStyle WinSetRegion
WinSetStyle WinSetTitle WinSetTransColor WinSetTransparent WinShow WinWait
WinWaitActive WinWaitClose WinWaitNotActive
)"
CaretGetPos.output := ['x', 'y']
ControlGetPos.output := ['x', 'y', 'width', 'height']
FileGetShortcut.output := [, 'target', 'dir', 'args', 'description', 'icon', 'iconNum', 'runState']
ImageSearch.output := ['x', 'y']
LoadPicture.output := [, , 'imageType']
MonitorGet.output := MonitorGetWorkArea.output := [, 'left', 'top', 'right', 'bottom']
MouseGetPos.output := ['x', 'y', 'win', 'control']
PixelSearch.output := ['x', 'y']
Run.output := RunWait.output := [, , , 'pid']
SplitPath.output := [, 'name', 'dir', 'ext', 'nameNoExt', 'drive']
WinGetClientPos.output := WinGetPos.output := ['x', 'y', 'width', 'height']
Gui.Prototype.GetPos.output
:= Gui.Prototype.GetClientPos.output
:= Gui.Control.Prototype.GetPos.output := [, 'x', 'y', 'width', 'height']
CaretGetPos.returns := (r, o) => (r ? o : jsFalse)
ImageSearch.returns := (r, o) => (r ? o : jsFalse)
LoadPicture.returns := (r, o) => (o.handle := r, o)
PixelSearch.returns := (r, o) => (r ? o : jsFalse)
Run.returns := (r, o) => o.pid
RunWait.returns := (r, o) => (o.exitCode := r, o)
ControlGetChecked.returns := Boolean
ControlGetEnabled.returns := Boolean
ControlGetVisible.returns := Boolean
KeyWait.returns := Boolean
SoundGetMute.returns := Boolean
StatusBarWait.returns := Boolean
WinWait.returns := Boolean
WinWaitActive.returns := Boolean
WinWaitClose.returns := Boolean
WinWaitNotActive.returns := Boolean
Loop Parse functions, ' ' {
if A_LoopField ~= '\W'
continue
fn_name := A_LoopField
fn := %fn_name%
fn_name := AdjustFuncName(fn_name)
scope.%fn_name% := WrapBif(fn)
}
AddHotkeySettings(scope)
Gui.Prototype.Control := Gui.Prototype.GetOwnPropDesc('__Item').get
for cls in [ClipboardAll, File, Gui, InputHook, Menu, MenuBar]
scope.%cls.Prototype.__class% := WrapClass(cls)
for cls in [MemoryError, OSError, TargetError, TimeoutError]
scope.%cls.Prototype.__class% := WrapErrorClass(cls)
GetLineFile   := js.Function('return          /\((.+?:.+?):(\d+):\d+\)/.exec(Error().stack)[1];')
GetLineNumber := js.Function('return parseInt(/\((.+?:.+?):(\d+):\d+\)/.exec(Error().stack)[2]);')
readable := {prototype: {}}
readwriteable := {base: readable, prototype: {base: readable.prototype}}
variables := define_vars()
define_vars() {
r := {base: readable.prototype}
rw := {base: readwriteable.prototype}
return {
AhkPath: A_ScriptFullPath,
AhkVersion: JKVersion,
AllowMainWindow: r,
AppData: r,
AppDataCommon: r,
Clipboard: rw,
ComputerName: r,
ComSpec: r,
ControlDelay: rw,
CoordModeCaret: rw,
CoordModeMenu: rw,
CoordModeMouse: rw,
CoordModePixel: rw,
CoordModeToolTip: rw,
Cursor: r,
DD: r,
DDD: r,
DDDD: r,
DefaultMouseSpeed: rw,
Desktop: r,
DesktopCommon: r,
DetectHiddenText: rw,
DetectHiddenWindows: rw,
EndChar: r,
EventInfo: rw,
FileEncoding: rw,
Hour: r,
IconFile: r,
IconHidden: {get: GetIconHidden, set: SetIconHidden},
IconNumber: r,
IconTip: rw,
InitialWorkingDir: A_InitialWorkingDir,
Is64bitOS: ComObject(0xB, -A_Is64bitOS),
IsAdmin: ComObject(0xB, -A_IsAdmin),
IsCompiled: ComObject(0xB, 0),
IsPaused: {get: () => ComObject(0xB, -A_IsPaused)},
IsSuspended: {get: () => ComObject(0xB, -A_IsSuspended)},
KeyDelay: rw,
KeyDelayPlay: rw,
KeyDuration: rw,
KeyDurationPlay: rw,
Language: r,
LastError: rw,
LineFile: {get: GetLineFile},
LineNumber: {get: GetLineNumber},
ListLines: rw,
MDay: r,
Min: r,
MM: r,
MMM: r,
MMMM: r,
Mon: r,
MouseDelay: rw,
MouseDelayPlay: rw,
MSec: r,
MyDocuments: r,
Now: r,
NowUTC: r,
OSVersion: A_OSVersion,
PriorHotkey: r,
PriorKey: r,
ProgramFiles: r,
Programs: r,
ProgramsCommon: r,
PtrSize: A_PtrSize,
RegView: rw,
ScreenDPI: r,
ScreenHeight: r,
ScreenWidth: r,
ScriptDir: J_ScriptDir,
ScriptFullPath: J_ScriptFullPath,
ScriptHwnd: A_ScriptHwnd,
ScriptName: rw,
Sec: r,
SendLevel: rw,
SendMode: rw,
StartMenu: r,
StartMenuCommon: r,
Startup: r,
StartupCommon: r,
StoreCapsLockMode: rw,
Temp: r,
ThisHotkey: r,
TickCount: r,
TimeIdle: r,
TimeIdleKeyboard: r,
TimeIdleMouse: r,
TimeIdlePhysical: r,
TimeSincePriorHotkey: r,
TimeSinceThisHotkey: r,
TitleMatchMode: rw,
TitleMatchModeSpeed: rw,
TrayMenu: r,
UserName: r,
WDay: r,
WinDelay: rw,
WinDir: r,
WorkingDir: rw,
YDay: r,
Year: r,
YWeek: r,
YYYY: r,
}
}
defProp scope, 'A_Args', {value: js.Array(J_Args*), writable: true}
variables.Clipboard := {
get: () => A_Clipboard,
set: (value) => A_Clipboard := IsObject(value) ? ObjectFromJs(JsRT.ToJs(value)) : value
}
variables.TrayMenu := JsRT.FromJs(ObjectToJs(J_TrayMenu))
defProp variables.TrayMenu, AdjustMethodName('Show'), {value: WrapBif(TrayMenu_Show_Fix)}
get_var(name)        => %name%
set_var(name, value) => %name% := value
for name, value in variables.OwnProps() {
defProp scope, 'A_' name, value is readable ? {
get:                          get_var.Bind('A_' name),
set: value is readwriteable ? set_var.Bind('A_' name) : undefined
} : value is Object ? value : {value: value}
}
Persistent(n:=true) {
global Persistent
static isPersistent
if IsSet(&Persistent) && Persistent is Func
wasPersistent := Persistent(n)
else {
wasPersistent := isPersistent
OnMessage(0xBADC0DE, (*) => "", isPersistent := n)
}
return wasPersistent ? jsTrue : jsFalse
}
for fn in [Include, InstallKeybdHook, InstallMouseHook, Persistent, SingleInstance]
scope.%AdjustFuncName(fn.Name)% := WrapBif(fn)
scope.%AdjustFuncName('LoopFiles')% := WrapBif(_LoopFiles)
scope.%AdjustFuncName('LoopReg')% := WrapBif(_LoopReg)
scope.%AdjustFuncName('CollectGarbage')% := WrapBif(JsRT.JsCollectGarbage.Bind(JsRT, JsRT._runtime))
}
WrapBif(fn) {
op_return := fn.DeleteProp('returns')
if op_array := fn.DeleteProp('output') {
op := Map()
loop op_array.length
if op_array.Has(A_Index)
op[A_Index] := op_array[A_Index]
op.in_count := fn.MaxParams - op.count
fn := BifCallReturnOutputVars.Bind(fn, op, op_return)
}
else if op_return {
fn := ((r, fn, p*) => r(fn(p*))).Bind(op_return, fn)
}
static callbackFromJS := CallbackCreate(CallFromJS, "F")
static callbackBeforeCollect := CallbackCreate((rfn, pfn) => ObjRelease(pfn), "F")
rfn := JsRT.JsCreateFunction(callbackFromJS, pfn := ObjPtrAddRef(fn))
JsRT.JsSetObjectBeforeCollectCallback(rfn, pfn, callbackBeforeCollect)
return JsRT.FromJs(rfn)
}
CallFromJS(callee, isCtor, argv, argc, state) {
argc &= 0xffff, isCtor &= 0xff
try {
fn := ObjFromPtrAddRef(state)
if isCtor
throw TypeError(fn.Name ' is not a constructor')
if JsRT.JsGetValueType(NumGet(argv, "ptr")) = 0
argv += A_PtrSize, argc -= 1
args := ArrayFromArgv(argv, argc)
if HasProp(fn, 'belongsTo') && not HasBase(args[1], fn.belongsTo)
throw TypeError("'this' is not a " fn.belongsTo.__Class)
return ToJs(fn(args*))
} catch e {
JsRT.JsSetException ErrorToJs(e)
return 0
}
}
CallClassFromJS(callee, isCtor, argv, argc, state) {
argc &= 0xffff, isCtor &= 0xff
try {
this := NumGet(argv, "ptr"), cls := ObjFromPtrAddRef(state)
if !isCtor
throw TypeError(cls.Prototype.__Class ' cannot be called without the new keyword')
if !JsRT.JsInstanceOf(this, callee)
throw TypeError("'this' is not a " cls.Prototype.__Class)
return ObjectToJs(cls(ArrayFromArgv(argv + A_PtrSize, argc - 1)*))
} catch e {
if e is ValueError && cls.Call = Object.Call
e := TypeError(cls.Prototype.__Class " cannot be instantiated directly")
JsRT.JsSetException ErrorToJs(e)
return 0
}
}
CallIntoJS(callee, args) {
return JsRT.FromJs(JsRT.JsCallFunction(callee, ArrayToArgv(args), args.Length))
}
ArrayToArgv(args) {
b := BufferAlloc(args.Length * A_PtrSize, 0)
for arg in args {
if IsSet(&arg)
NumPut 'ptr', ToJs(arg), b, (A_Index-1)*A_PtrSize
else
NumPut 'ptr', JsRT.JsGetUndefinedValue(), b, (A_Index-1)*A_PtrSize
}
return b
}
WrapClass(acls) {
if ObjHasOwnProp(acls, '__js')
return acls.__js
static callbackFromJS := CallbackCreate(CallClassFromJS, "F")
jcls := JsRT.FromJs(rjcls := JsRT.JsCreateFunction(callbackFromJS, ObjPtrAddRef(acls)))
acls          .__js := jcls
acls.Prototype.__js := jcls.prototype
WrapMethods acls          , jcls
WrapMethods acls.Prototype, jcls.prototype
if acls.base != Object {
JsRT.JsSetPrototype(rjcls, JsRT.ToJs(jb := WrapClass(acls.base)))
JsRT.JsSetPrototype(JsRT.ToJs(jcls.prototype), JsRT.ToJs(jb.prototype))
}
static setTag := js.Function('obj', 'tag', 'obj[Symbol.toStringTag] = tag')
setTag jcls.prototype, acls.Prototype.__Class
return jcls
}
WrapErrorClass(acls) {
jcls := JsRT.Eval(Format('{ class {1} extends Error {}; {1}.prototype.name = "{1}"; {1} }', acls.Prototype.__class))
acls.Prototype.__js := jcls.prototype
return jcls
}
WrapMethods(aobj, jobj) {
defProp := js.Object.defineProperty
for p in aobj.OwnProps() {
if SubStr(p, 1, 2) = '__' {
if p = '__Enum'
SetIterator jobj, aobj.%p%
continue
}
pd := aobj.GetOwnPropDesc(p)
for name, value in pd.OwnProps()
if value is Func
value.belongsTo := aobj
if pd.HasProp('value') {
if pd.value is Func {
pd.value := WrapBif(pd.value)
p := AdjustMethodName(p)
}
else if pd.value is Class {
pd.value := WrapClass(pd.value)
p := AdjustClassName(p)
}
else
continue
}
else if pd.HasProp('call') {
pd := {value: WrapBif(pd.call)}
p := AdjustMethodName(p)
}
else {
if pd.HasProp('get')
pd.get := WrapBif(pd.get)
if pd.HasProp('set')
pd.set := WrapBif(pd.set)
p := AdjustPropName(p)
}
pd.enumerable := true
defProp jobj, p, pd
}
}
SetIterator(jobj, f) {
static setIt := js.Function('v', 'f', 'v[Symbol.iterator] = f')
get_iterator(f, this) {
next(f, this) {
o := js.Object()
if (o.done := f(&v) ? jsFalse : jsTrue) = jsFalse
o.value := v
return o
}
proto := js.Object()
proto.next := WrapBif(next.Bind(f(this, 1)))
return proto
}
setIt jobj, WrapBif(get_iterator.Bind(f))
}
ArrayFromArgv(argv, argc) {
loop (args := []).Length := argc {
v := NumGet(argv + (A_Index-1)*A_PtrSize, "ptr")
switch JsRT.JsGetValueType(v) {
case 0:
continue
case 1:
throw TypeError("Invalid use of null")
case 4:
v := JsRT.JsBooleanToBool(v)
case 5:
v := ObjectFromJs(v)
case 6:
v := JsFunctionProxy(v)
case 8:
v := [ValuesOf(JsRT.FromJs(v))*]
case 10:
v := JsArrayBufferProxy(v)
case 11:
v := JsTypedArrayProxy(v)
case 12:
v := JsDataViewProxy(v)
default:
v := JsRT.FromJs(v)
}
args[A_Index] := v
}
return args
}
ObjectToJs(v) {
if ObjHasOwnProp(v, '__rj')
return v.__rj
if ObjHasOwnProp(b := ObjGetBase(v), '__js') {
static finalizer := CallbackCreate(p => ObjFromPtr(p).DeleteProp('__rj'), 'F', 1)
rj := JsRT.JsCreateExternalObject(ObjPtrAddRef(v), finalizer)
JsRT.JsSetPrototype(rj, JsRT.ToJs(b.__js))
return v.__rj := rj
}
if b = Object.prototype {
jv := js.Object()
for pn, pv in ObjOwnProps(v)
jv.%pn% := pv
return JsRT.ToJs(jv)
}
D 'no conversion for ' type(v)
return JsRT.ToJs(v)
}
ToJs(v) {
if v is Object
return ObjectToJs(v)
if v is Integer && (v < MIN_SAFE_INTEGER || v > MAX_SAFE_INTEGER)
v := String(v)
return JsRT.ToJs(v)
}
ErrorToJs(e) {
if not e is Error
return JsRT.ToJs(e)
if e is TypeError
return JsRT.ToJS(js.TypeError(StrReplace(e.message, "a ComO", "an o")))
if e is MemberError && RegExMatch(e.message, 'named "(.*?)"', &m)
return JsRT.ToJS(js.TypeError("Object doesn't support property or method '" m.1 "'"))
je := js.Error(e.message)
je.extra := e.Extra
if (b := ObjGetBase(e)).HasProp('__js')
je.__proto__ := b.__js
return JsRT.ToJs(je)
}
ObjectFromJs(rj) {
if JsRT.JsHasExternalData(rj)
return ObjFromPtrAddRef(JsRT.JsGetExternalData(rj))
return JsRT.FromJs(rj)
}
ExternalProperty(rv, name, ptr:=unset) {
id := JsRT.JsGetPropertyIdFromName(name)
rx := JsRT.JsGetProperty(rv, id)
if JsRT.JsGetValueType(rx) = 0 {
if !IsSet(&ptr) || !ptr
return 0
rx := JsRT.JsCreateExternalObject(ptr, 0)
JsRT.JsSetProperty(rv, id, rx, true)
}
else if IsSet(&ptr)
JsRT.JsSetExternalData(rx, ptr)
else
ptr := JsRT.JsGetExternalData(rx)
return ptr
}
class JsCachingProxy {
static Call(rj) {
if p := ExternalProperty(rj, '__p')
return ObjFromPtrAddRef(p)
return super(rj)
}
__New(rj) {
this.__rj := rj
JsRT.JsAddRef(rj)
ExternalProperty(rj, '__p', ObjPtr(this))
}
__Delete() {
if err := JsRT.JsHasException()
err := JsRT.JsGetAndClearException(), JsRT.JsAddRef(err)
ExternalProperty(this.__rj, '__p', 0)
JsRT.JsRelease(this.__rj)
if err
JsRT.JsSetException(err), JsRT.JsRelease(err)
}
}
class JsFunctionProxy extends JsCachingProxy {
Call(params*) {
static missing := (_ => (_.Length := 1, _))([])
params.InsertAt(1, missing*)
return CallIntoJS(this.__rj, params)
}
MinParams => 0
MaxParams => 0
IsVariadic => true
}
class JsBufferProxy {
__new(rj) => JsRT.JsAddRef(this.__rj := rj)
__delete() => JsRT.JsRelease(this.__rj)
Ptr => (this._GetStorage(&ptr), ptr)
Size => (this._GetStorage(, &size), size)
}
class JsArrayBufferProxy extends JsBufferProxy {
_GetStorage(&ptr:=unset, &length:=unset) {
JsRT.JsGetArrayBufferStorage(this.__rj, &ptr:=0, &length:=0)
}
}
class JsTypedArrayProxy extends JsBufferProxy {
_GetStorage(&ptr:=unset, &length:=unset) {
JsRT.JsGetTypedArrayStorage(this.__rj, &ptr:=0, &length:=0, 0, 0)
}
}
class JsDataViewProxy extends JsBufferProxy {
_GetStorage(&ptr:=unset, &length:=unset) {
JsRT.JsGetDataViewStorage(this.__rj, &ptr:=0, &length:=0)
}
}
BifCallReturnOutputVars(ahkfn, op, opr, p*) {
MakeRef(s:='') => &s
if p.length < op.in_count
p.length := op.in_count
for i in op
p.InsertAt i, MakeRef()
r := ahkfn(p*)
o := js.Object()
for i, name in op
o.%name% := %p[i]%
return opr ? opr(r, o) : o
}
ValuesOf(v) {
static getIt := js.Function('v', 'return v[Symbol.iterator]()')
it := getIt(v)
return (&a) => (s := it.next()).done ? false : (a := s.value, true)
}
ErrorMsg(err, mode) {
if ComObjType(err) {
try {
if err.name = "SyntaxError" {
if ErrorStdOut
ErrorStdOut.WriteLine(Format("{1} ({2:i}) : ==> {3}`n     Specifically: {4}"
, err.url, err.line, err.message, err.source))
else
MsgBox Format("Syntax error: {1}`n`nFile:`t{2}`nLine:`t{3:i}`nCol:`t{4:i}`nSource:`t{5}"
, err.message = "Syntax error" ? "" : err.message
, err.url, err.line, err.column, err.source),, "IconX"
if loading_script
ExitApp 2
} else {
MsgBox err.stack,, "IconX"
}
return true
}
}
try {
stack := "", specifically := ""
try (!A_IsCompiled) && stack := '`n`n' RegExReplace(err.stack, 'm)^.*?\\(?=[^\\]* \(\d+\) :)', '')
try (err.extra != "") && specifically := "`n`nSpecifically: " err.extra
MsgBox err.message specifically stack,, "IconX"
} catch {
try {
try value := err.toString()
catch
try value := String(err)
catch
value := err
}
MsgBox "Value thrown and not caught.`n`nSpecifically: " value,, "IconX"
}
return true
}
PatchMenus() {
hmenu := DllCall("GetMenu", "ptr", A_ScriptHwnd)
DllCall("RemoveMenu", "ptr", hmenu, "uint", 65406, "uint", 0)
DllCall("RemoveMenu", "ptr", hmenu, "uint", 65407, "uint", 0)
A_TrayMenu.Delete
global J_TrayMenu := Menu()
global Menu_AddStandard := Menu.Prototype.AddStandard
Menu.Prototype.DefineProp 'AddStandard', {Call: Menu_AddStandard_Fix}
Menu_AddStandard_Fix J_TrayMenu
MsgCommand(wParam, lParam, nmsg, hwnd) {
switch wParam & 0xFFFF {
case 65406: (A_IsCompiled) || ListLines()
case 65407: (A_IsCompiled) || ListVars()
case 65400, 65303: Reload
case 65401, 65304: Edit
case 65403, 65306: Pause -1
case 65300:
WinShow A_ScriptHwnd
WinActivate A_ScriptHwnd
default: return
}
return 0
}
MsgNotifyIcon(wParam, lParam, nmsg, hwnd) {
activate_default_tray_item() {
global J_TrayMenu
if -1 != default_id := DllCall("GetMenuDefaultItem", "ptr", J_TrayMenu.handle, "uint", false, "uint", 1)
PostMessage(0x111, default_id,, A_ScriptHwnd)
}
switch lParam {
case 0x205:
TrayMenu_Show_Fix J_TrayMenu, true
case 0x201:
if J_TrayMenu.ClickCount = 1
activate_default_tray_item
case 0x203:
activate_default_tray_item
}
return 0
}
static newproc := CallbackCreate(WindowProc, "", 4)
static oldproc := DllCall((A_PtrSize=8 ? "SetWindowLongPtrW" : "SetWindowLongW"), "ptr", A_ScriptHwnd, "int", -4, "ptr", newproc, "ptr")
WindowProc(hwnd, nmsg, wParam, lParam) {
if (nmsg = 0x111 && (wParam & 0xFFFF) >= 65300) {
if "" != r := MsgCommand(wParam, lParam, nmsg, hwnd)
return r
}
else if (nmsg = 1028)
return MsgNotifyIcon(wParam, lParam, nmsg, hwnd)
Critical 0
return DllCall("CallWindowProc", "ptr", oldproc, "ptr", hwnd, "uint", nmsg, "ptr", wParam, "ptr", lParam, "ptr")
}
}
Edit() {
for hwnd in WinGetList(J_ScriptName) {
if WinGetClass(hwnd) ~= '^(#32770|AutoHotkey)$'
continue
return WinActivate(hwnd)
}
try
Run '*edit "' J_ScriptFullPath '"'
catch
Run 'notepad.exe "' J_ScriptFullPath '"'
}
Reload() {
Run Format(A_IsCompiled ? '"{2}" /restart "{3}"' : '"{1}" "{2}" /restart "{3}"'
, A_AhkPath, A_ScriptFullPath, J_ScriptFullPath), A_InitialWorkingDir
}
SingleInstance(mode:='force') {
dhw := A_DetectHiddenWindows
switch StrLower(mode) {
case 'force':
TerminatePreviousInstance 'SingleInstance'
case 'ignore':
A_DetectHiddenWindows := true
for hwnd in WinGetList(jktitle " ahk_class AutoHotkey")
if hwnd != A_ScriptHwnd
ExitApp
case 'prompt':
prompted := false
A_DetectHiddenWindows := true
for hwnd in WinGetList(jktitle " ahk_class AutoHotkey") {
if hwnd != A_ScriptHwnd {
if prompted || MsgBox("An older instance of this script is already running.  Replace it with this instance?",, "y/n") = "no"
ExitApp
prompted := true
TerminateInstance hwnd, 'SingleInstance'
}
}
default:
throw ValueError('Invalid mode "' mode '"')
}
A_DetectHiddenWindows := dhw
}
Include(path) {
if !allow_wildcard_in_include && path ~= '[*?<>"]'
throw Error('Include file "' path '" cannot be opened.')
static already_included := (_ => (_.CaseSense := 'Off', _))(Map())
included := 0
Loop Files path, 'F' {
path := A_LoopFileFullPath
if already_included.Has(path)
continue
already_included[path] := true
JsRT.RunFile path, default_script_encoding
++included
}
if !included && !(path ~= '[*?]')
throw Error('Include file "' path '" cannot be opened.')
if allow_wildcard_in_include
return included
}
InstallKeybdHook() {
static ih
if IsSet(&ih)
return
ih := InputHook('I255 L0 B V')
ih.Start
}
InstallMouseHook() {
Hotkey '~XButton2 & ~XButton2', _ => 0
}
StartupIconTimer(enable := unset) {
if !IsSet(&enable) {
if !IconTimerIsSet
return
A_IconHidden := false
enable := false
}
global IconTimerIsSet := enable
SetTimer StartupIconTimer, enable ? -100 : 0
}
GetIconHidden() => A_IconHidden && !IconTimerIsSet
SetIconHidden(value) {
A_IconHidden := value
StartupIconTimer false
}
_LoopFiles(pattern, mode, body:=unset) {
IsSet(&body) || (body := mode, mode := 'F')
static fields := ['attrib', 'dir', 'ext', 'fullPath', 'name', 'path', 'shortName'
, 'shortPath', 'size', 'timeAccessed', 'timeCreated', 'timeModified']
Loop Files pattern, mode {
item := js.Object()
for field in fields
item.%field% := A_LoopFile%field%
body(item)
}
}
_LoopReg(keyname, mode, body:=unset) {
IsSet(&body) || (body := mode, mode := 'F')
static fields := ['name', 'type', 'key', 'timeModified']
Loop Reg keyname, mode {
item := js.Object()
for field in fields
item.%field% := A_LoopReg%field%
body(item)
}
}
AddHotkeySettings(scope) {
hk := scope.hotkey, defProp := js.Object.defineProperty
_Hotkey.B := '', _Hotkey.T := '', _Hotkey.I := '', _Hotkey.useHook := false
defProp hk, AdjustPropName('MaxThreadsBuffer'), {
get: ()      => _Hotkey.B ? jsTrue : jsFalse,
set: (value) => _Hotkey.B := value ? 'B' : ''
}
defProp hk, AdjustPropName('MaxThreadsPerHotkey'), {
get: ()      => _Hotkey.T ? Integer(SubStr(_Hotkey.T, 2)) : 1,
set: (value) => _Hotkey.T := (value := intInRange(value, 1, 255)) != 1 ? 'T' value : ''
}
defProp hk, AdjustPropName('InputLevel'), {
get: ()      => _Hotkey.I ? Integer(SubStr(_Hotkey.I, 2)) : 0,
set: (value) => _Hotkey.I := (value := intInRange(value, 0, 100)) ? 'I' value : ''
}
defProp hk, AdjustPropName('UseHook'), {
get: ()      => _Hotkey.useHook ? jsTrue : jsFalse,
set: (value) => _Hotkey.useHook := value ? true : false
}
intInRange(i, low, high) {
if (i := Integer(i)) < low || i > high
throw ValueError("Invalid value")
return i
}
}
_Hotkey(keyname, callback:="", options:="") {
try
Hotkey keyname
catch e {
if not e is TargetError
throw e
options := _Hotkey.B  _Hotkey.T  _Hotkey.I  options
Hotkey keyname, callback, options
if _Hotkey.useHook
Hotkey '$' keyname
return
}
if (callback != "" || options != "")
Hotkey keyname, callback, options
}
TerminatePreviousInstance(by) {
DetectHiddenWindows (dhw := A_DetectHiddenWindows, true)
for hwnd in WinGetList(jktitle " ahk_class AutoHotkey") {
if hwnd != A_ScriptHwnd {
TerminateInstance hwnd, by
break
}
}
DetectHiddenWindows dhw
}
TerminateInstance(hwnd, by) {
static WM_COMMNOTIFY := 0x44
static AHK_EXIT_BY_RELOAD := 1030
static AHK_EXIT_BY_SINGLEINSTANCE := 1031
PostMessage WM_COMMNOTIFY, AHK_EXIT_BY_%by%, 0, hwnd
Loop {
if WinWaitClose(hwnd,, 2)
break
if MsgBox("Could not close the previous instance of this script.  Keep waiting?",, "y/n") = "no"
ExitApp 2
}
}
Menu_AddStandard_Fix(m) {
item_count() => DllCall('GetMenuItemCount', 'ptr', m.handle)
id_exists(id) => DllCall('GetMenuState', 'ptr', m.handle, 'uint', id, 'uint', 0) != -1
name_exists(name) {
try {
m.Rename name, name
return true
}
return false
}
CMD(id) => (*) => PostMessage(0x111, id, 0, A_ScriptHwnd)
static group := [
[["&Open", CMD(65300)],
["&Help", CMD(65301)]],
[["&Window Spy", CMD(65302)],
["&Reload This Script", CMD(65303)],
["&Edit This Script", CMD(65304)]],
[["&Suspend Hotkeys", CMD(65305)],
["&Pause Script", CMD(65306)],
["E&xit", CMD(65307)]]
]
number_to_add(items) {
n := 0
for item in items
if !name_exists(item[1])
++n
return n
}
index := item_count() + 1
adding1 := number_to_add(group[1]) > 1
adding2 := number_to_add(group[2]) > 1
adding3 := number_to_add(group[3]) > 1
add_sep := [adding1 && (adding2 || adding3), adding2 && adding3, false]
first_added := ""
add_if_needed(name, action) {
if !name_exists(name) {
m.Add name, action
if first_added = ""
first_added := name
}
}
for items in group {
for item in items
if !name_exists(item[1])
add_if_needed(item*)
if add_sep[A_Index]
m.Add
}
if m = J_TrayMenu && !m.Default && first_added = "&Open"
m.Default := index '&'
}
TrayMenu_Show_Fix(m, postCmd:=false) {
if m = J_TrayMenu {
try m.%A_IsPaused?"Check":"Uncheck"%("&Pause Script")
try m.%A_IsSuspended?"Check":"Uncheck"%("&Suspend Hotkeys")
}
DllCall("GetCursorPos", "ptr", pt := BufferAlloc(8))
x := NumGet(pt, 0, "int"), y := NumGet(pt, 4, "int")
flags := postCmd ? 0x180 : 0
GFW() => DllCall("GetForegroundWindow", "ptr")
active_wnd := GFW()
WinActivate A_ScriptHwnd
id := DllCall("TrackPopupMenuEx", "ptr", m.handle, "uint", flags, "int", x, "int", y, "ptr", A_ScriptHwnd, "ptr", 0)
if GFW() = A_ScriptHwnd
WinActivate active_wnd
if postCmd && id
PostMessage 0x111, id,, A_ScriptHwnd
}

AutoHotkey_3.0-alpha.1\AutoHotkey64.exe:

Code: Select all

; <COMPILER: v1.1.33.05>
JKVersion := '3.0-alpha.1'
#Requires AutoHotkey v2.0-a128+
functions_use_lowercase_initial_letter := true
allow_wildcard_in_include := false
default_script_name := RegExReplace(A_ScriptName, '\.[^\.]*$', '.j?')
class JsRT
{
static Call()
{
throw Error("This class is abstract. Use JsRT.IE() or JSRT.Edge() to initialize.", -1)
}
static IE()
{
if !this._hmod := DllCall("LoadLibrary", "str", "jscript9", "ptr")
throw Error("Failed to load jscript9.dll", -1)
if DllCall("jscript9\JsCreateRuntime", "int", 0, "int", -1, "ptr", 0, "ptr*", &runtime:=0) != 0
throw Error("Failed to initialize JsRT", -1)
DllCall("jscript9\JsCreateContext", "ptr", runtime, "ptr", 0, "ptr*", &context:=0)
return this._Initialize("jscript9", runtime, context)
}
static Edge()
{
if !this._hmod := DllCall("LoadLibrary", "str", "chakra", "ptr")
throw Error("Failed to load chakra.dll", -1)
if DllCall("chakra\JsCreateRuntime", "int", 0, "ptr", 0, "ptr*", &runtime:=0) != 0
throw Error("Failed to initialize JsRT", -1)
DllCall("chakra\JsCreateContext", "ptr", runtime, "ptr*", &context:=0)
return this._Initialize("chakra", runtime, context)
}
static _Initialize(dll, runtime, context)
{
this._dll := dll
this._runtime := runtime
this._context := context
this._ImportAPI()
DllCall(dll "\JsSetCurrentContext", "ptr", context)
this._sources := Map()
this._sources.CaseSense := 'Off'
this._sources['eval'] := 0
return this._dsp := this.FromJs(this.JsGetGlobalObject())
}
static _ImportAPI()
{
API := '
        (
            JsAddRef(ptr ref, uint* return count)
            JsBooleanToBool(ptr valref, char* return bool)
            JsCallFunction(ptr function, ptr arguments, ushort argumentCount, ptr* return valref)
            JsCollectGarbage(ptr runtime)
            JsCreateError(ptr message, ptr* return valref)
            JsCreateExternalObject(ptr data, ptr finalizeCallback, ptr* return valref)
            JsCreateFunction(ptr nativeGetCb, ptr callbackState, ptr* return valref)
            JsCreateTypeError(ptr message, ptr* return valref)
            JsGetAndClearException(ptr* return valref)
            JsGetArrayBufferStorage(ptr arrayBuffer, ptr* buf, int* byteCount)
            JsGetDataViewStorage(ptr dataView, ptr* buf, int* byteCount)
            JsGetExternalData(ptr object, ptr* return)
            JsGetGlobalObject(ptr* return valref)
            JsGetOwnPropertyNames(ptr object, ptr* return valref)
            JsGetOwnPropertySymbols(ptr object, ptr* return valref)
            JsGetProperty(ptr object, ptr propertyId, ptr* return valref)
            JsGetPropertyIdFromName(str name, ptr* return propId)
            JsGetPrototype(ptr object, ptr* return valref)
            JsGetTypedArrayStorage(ptr typedArray, ptr* buf, int* byteCount, int* arrayType, int* elemSize)
            JsGetUndefinedValue(ptr* return undefined)
            JsGetValueType(ptr value, int* return)
            JsHasException(char* return bool)
            JsHasExternalData(ptr object, char* return bool)
            JsIdle(uint* return nextIdleTick)
            JsInstanceOf(ptr object, ptr constructor, char* return bool)
            JsParseScript(wstr script, ptr sourceContext, wstr sourceUrl, ptr* return valref)
            JsPointerToString(ptr stringValue, uptr stringLength, ptr* return valref)
            JsProjectWinRTNamespace(wstr namespace)
            JsRelease(ptr ref, uint* return count)
            JsRunScript(wstr script, ptr sourceContext, wstr sourceUrl, ptr* return valref)
            JsSetException(ptr exception)
            JsSetExternalData(ptr object, ptr data)
            JsSetObjectBeforeCollectCallback(ptr ref, ptr callbackState, ptr callback)
            JsSetProperty(ptr object, ptr propertyId, ptr value, char useStrictRules)
            JsSetPrototype(ptr object, ptr proto)
            JsValueToVariant(ptr valref, ptr variant)
            JsVariantToValue(ptr variant, ptr* return valref)
)'
static kernel32 := DllCall("GetModuleHandle", "str", "kernel32", "ptr")
static GPA := DllCall.Bind(DllCall("GetProcAddress", "ptr", kernel32, "astr", "GetProcAddress", "ptr"), "ptr", , "astr", , "ptr")
Loop Parse API, '`n'
{
if !RegExMatch(A_LoopField, "^(\w+)\((.*)\)$", &m)
{
MsgBox "DEBUG: Fatal error in JsRT API declarations, line " A_Index
ExitApp
}
funcname := m.1
argtypes := RegExReplace(m.2, '(?<=^|,) *(\w+(?: *\*|[Pp](?= ))?) *+([\w ]*?) *(?=,|$)', '$1,$2')
argtypes := StrSplit(argtypes, ',', ' ')
if !(pfn := GPA(this._hmod, funcname))
throw Error('Failed to load JsRT function "' funcname '" from DLL "' this._dll '"')
api := {ptr: pfn, name: funcname}
if argtypes.Length && argtypes[-1] ~= '^return\b'
api.return := argtypes.Length
Loop argtypes.Length // 2
argtypes.Delete A_Index * 2
this.%funcname% := (api.HasProp('return') ? CallApiRet : CallApi)
.Bind( , api, argtypes*)
}
CallApi(thisJsRT, api, args*)
{
if errorCode := DllCall(api.ptr, args*)
this._ThrowApiError api.name, errorCode
}
CallApiRet(thisJsRT, api, args*)
{
args[api.return] := &(retval := 0)
if errorCode := DllCall(api.ptr, args*)
this._ThrowApiError api.name, errorCode
return retval
}
}
static _ThrowApiError(apiName, errorCode)
{
if errorCode = 0x30001 || errorCode = 0x30002
throw this.FromJs(this.JsGetAndClearException())
throw (this.Error)(Format("Call to {1} failed with error 0x{2:x}", apiName, errorCode), -1, errorCode)
}
static __Delete()
{
this._dsp := ""
if dll := this._dll
{
DllCall(dll "\JsSetCurrentContext", "ptr", 0)
DllCall(dll "\JsDisposeRuntime", "ptr", this._runtime)
}
DllCall("FreeLibrary", "ptr", this._hmod)
}
static FromJs(valref)
{
ref := ComObject(0x400C, (var := BufferAlloc(24, 0)).ptr)
this.JsValueToVariant(valref, var)
return (val := ref[], ref[] := 0, val)
}
static ToJs(val)
{
ref := ComObject(0x400C, (var := BufferAlloc(24, 0)).ptr)
ref[] := val
valref := this.JsVariantToValue(var)
ref[] := 0
return valref
}
static SourceContext(filename)
{
if !this._sources.has(filename)
this._sources[filename] := this._sources.Count
return this._sources[filename]
}
static RunFile(filename, readOpt:="")
{
this.JsRunScript(FileRead(filename, readOpt), this.SourceContext(filename), filename)
}
static Eval(code)
{
return this.FromJs(this.JsRunScript(code, 0, "eval"))
}
class Error extends Error
{
}
}
GetCommandLineArgs() {
if !ptr := DllCall("shell32\CommandLineToArgvW", "ptr", DllCall("GetCommandLineW", "ptr"), "int*", &nargs:=0, "ptr")
throw MemoryError()
try {
args := []
loop nargs
args.Push StrGet(NumGet(ptr, (A_Index-1)*A_PtrSize, "ptr"), "UTF-16")
return args
}
finally DllCall("LocalFree", "ptr", ptr)
}
#NoTrayIcon
#SingleInstance Off
OnError ErrorMsg
A_AllowMainWindow := true
PatchMenus
ParseCommandLine
ParseCommandLine() {
global default_script_encoding := "UTF-8"
global J_Args := GetCommandLineArgs()
global is_restart := false
global ErrorStdOut := false
drop_jk_ahk := !A_IsCompiled
J_Args.RemoveAt 1
while J_Args.Length {
if J_Args[1] ~= 'i)^/r(?:estart)$'
is_restart := true
else if J_Args[1] ~= 'i)^/cp\d+$'
default_script_encoding := SubStr(J_Args[1], 2)
else if J_Args[1] ~= 'i)^/ErrorStdOut(?:=|$)'
ErrorStdOut := FileOpen('**', 'w', SubStr(J_Args[1], 14))
else if J_Args[1] ~= 'i)^/Debug(?:=|$)' && drop_jk_ahk
{}
else if drop_jk_ahk && J_Args[1] ~= 'i)(?:[\\/]|^)\Q' A_ScriptName '\E$'
drop_jk_ahk := false
else
break
J_Args.RemoveAt 1
}
if !J_Args.Length {
for prefix in ['', A_MyDocuments '\'] {
Loop Files prefix default_script_name {
jkfile := A_LoopFileFullPath
break 2
}
}
if !IsSet(&jkfile) {
jkfile := FileSelect("1", default_script_name, "Select Script File", "Script Files (*.jk;*.js)")
if jkfile = ""
ExitApp
}
}
else if !(J_Args[1] ~= '[*?<>"]') {
Loop Files J_Args.RemoveAt(1)
jkfile := A_LoopFileFullPath
}
if !IsSet(&jkfile) {
MsgBox "Script file not found.",, "IconX"
ExitApp
}
global J_ScriptFullPath := jkfile
}
WinSetTitle jktitle := J_ScriptFullPath ' - AutoHotkey v' JKVersion, A_ScriptHwnd
if is_restart
TerminatePreviousInstance 'Reload'
SplitPath J_ScriptFullPath, &J_ScriptName, &J_ScriptDir
A_IconTip := A_ScriptName := J_ScriptName
SetWorkingDir J_ScriptDir
undefined := ComObject(0,0), null := ComObject(9,0)
jsTrue := ComObject(0xB, -1), jsFalse := ComObject(0xB, 0)
AdjustFuncName := functions_use_lowercase_initial_letter
? n => RegExReplace(n, '^[A-Z]+', '$l0') : n => n
AdjustPropName := AdjustFuncName
AdjustMethodName := AdjustFuncName
AdjustClassName := n => n
js := JsRT.Edge()
MIN_SAFE_INTEGER := js.Number.MIN_SAFE_INTEGER
MAX_SAFE_INTEGER := js.Number.MAX_SAFE_INTEGER
AddAhkObjects js
IsSet(&D) ? js.D := WrapBif(D) : %'D'% := _ => ""
loading_script := true
StartupIconTimer true
JsRT.RunFile J_ScriptFullPath, default_script_encoding
ErrorStdOut := false
loading_script := false
StartupIconTimer
AddAhkObjects(scope) {
defProp := scope.Object.defineProperty
Hotkey := _Hotkey
Boolean(r) => r ? jsTrue : jsFalse
functions := "
(Join`s
!Abs !ACos !ASin !ATan BlockInput !BufferAlloc CallbackCreate CallbackFree
CaretGetPos !Ceil !Chr Click ClipWait ComCall ComObjActive ComObjArray
ComObjConnect ComObjCreate ComObject ComObjFlags ComObjGet ComObjQuery
ComObjType ComObjValue ControlAddItem ControlChooseIndex ControlChooseString
ControlClick ControlDeleteItem ControlFindItem ControlFocus ControlGetChecked
ControlGetChoice ControlGetClassNN ControlGetEnabled ControlGetExStyle
ControlGetFocus ControlGetHwnd ControlGetIndex ControlGetItems ControlGetPos
ControlGetStyle ControlGetText ControlGetVisible ControlHide ControlHideDropDown
ControlMove ControlSend ControlSendText ControlSetChecked ControlSetEnabled
ControlSetExStyle ControlSetStyle ControlSetText ControlShow ControlShowDropDown
CoordMode !Cos !Critical !DateAdd !DateDiff DetectHiddenText DetectHiddenWindows
DirCopy DirCreate DirDelete DirExist DirMove DirSelect DllCall Download
DriveEject DriveGetCapacity DriveGetFilesystem DriveGetLabel DriveGetList
DriveGetSerial DriveGetSpaceFree DriveGetStatus DriveGetStatusCD DriveGetType
DriveLock DriveSetLabel DriveUnlock Edit EditGetCurrentCol EditGetCurrentLine
EditGetLine EditGetLineCount EditGetSelectedText EditPaste EnvGet EnvSet
!Exception !Exit ExitApp !Exp FileAppend FileCopy FileCreateShortcut FileDelete
FileEncoding FileExist FileGetAttrib FileGetShortcut FileGetSize FileGetTime
FileGetVersion FileInstall FileMove FileOpen FileRead FileRecycle
FileRecycleEmpty FileSelect FileSetAttrib FileSetTime !Floor Format FormatTime
GetKeyName GetKeySC GetKeyState GetKeyVK !GetMethod GroupActivate GroupAdd
GroupClose GroupDeactivate GuiCtrlFromHwnd GuiFromHwnd !HasBase !HasMethod !HasProp
HotIf HotIfWinActive HotIfWinExist HotIfWinNotActive HotIfWinNotExist Hotkey
Hotstring IL_Add IL_Create IL_Destroy ImageSearch IniDelete IniRead IniWrite
InputBox !InStr !IsAlnum !IsAlpha !IsDigit !IsFloat !IsInteger !IsLabel !IsLower
!IsNumber !IsObject !IsSet !IsSpace !IsTime !IsUpper !IsXDigit KeyHistory KeyWait
ListHotkeys !ListLines !ListVars ListViewGetContent !Ln LoadPicture !Log !LTrim !Max
MenuFromHandle MenuSelect !Min !Mod MonitorGet MonitorGetCount MonitorGetName
MonitorGetPrimary MonitorGetWorkArea MouseClick MouseClickDrag MouseGetPos
MouseMove MsgBox NumGet NumPut !ObjAddRef !ObjBindMethod !ObjFromPtr
!ObjFromPtrAddRef !ObjGetBase !ObjGetCapacity !ObjHasOwnProp !ObjOwnPropCount
!ObjOwnProps !ObjPtr !ObjPtrAddRef !ObjRelease !ObjSetBase !ObjSetCapacity
OnClipboardChange OnError OnExit OnMessage !Ord OutputDebug Pause PixelGetColor
PixelSearch PostMessage ProcessClose ProcessExist ProcessSetPriority ProcessWait
ProcessWaitClose Random RandomSeed RegDelete RegDeleteKey !RegExMatch
!RegExReplace RegRead RegWrite Reload !Round !RTrim Run RunAs RunWait Send
SendEvent SendInput SendLevel SendMessage SendMode SendPlay SendText
SetCapslockState SetControlDelay SetDefaultMouseSpeed SetKeyDelay SetMouseDelay
SetNumlockState SetRegView SetScrollLockState SetStoreCapsLockMode SetTimer
SetTitleMatchMode SetWinDelay SetWorkingDir Shutdown !Sin Sleep !Sort SoundBeep
SoundGetInterface SoundGetMute SoundGetName SoundGetVolume SoundPlay
SoundSetMute SoundSetVolume SplitPath !Sqrt StatusBarGetText StatusBarWait
!StrCompare StrGet !StrLen !StrLower !StrPtr StrPut !StrReplace !StrSplit !StrUpper
!SubStr Suspend SysGet SysGetIPAddresses !Tan Thread ToolTip TraySetIcon TrayTip
!Trim !Type !VarSetStrCapacity WinActivate WinActivateBottom WinActive WinClose
WinExist WinGetClass WinGetClientPos WinGetControls WinGetControlsHwnd
WinGetCount WinGetExStyle WinGetID WinGetIDLast WinGetList WinGetMinMax
WinGetPID WinGetPos WinGetProcessName WinGetProcessPath WinGetStyle WinGetText
WinGetTitle WinGetTransColor WinGetTransparent WinHide WinKill WinMaximize
WinMinimize WinMinimizeAll WinMinimizeAllUndo WinMove WinMoveBottom WinMoveTop
WinRedraw WinRestore WinSetAlwaysOnTop WinSetEnabled WinSetExStyle WinSetRegion
WinSetStyle WinSetTitle WinSetTransColor WinSetTransparent WinShow WinWait
WinWaitActive WinWaitClose WinWaitNotActive
)"
CaretGetPos.output := ['x', 'y']
ControlGetPos.output := ['x', 'y', 'width', 'height']
FileGetShortcut.output := [, 'target', 'dir', 'args', 'description', 'icon', 'iconNum', 'runState']
ImageSearch.output := ['x', 'y']
LoadPicture.output := [, , 'imageType']
MonitorGet.output := MonitorGetWorkArea.output := [, 'left', 'top', 'right', 'bottom']
MouseGetPos.output := ['x', 'y', 'win', 'control']
PixelSearch.output := ['x', 'y']
Run.output := RunWait.output := [, , , 'pid']
SplitPath.output := [, 'name', 'dir', 'ext', 'nameNoExt', 'drive']
WinGetClientPos.output := WinGetPos.output := ['x', 'y', 'width', 'height']
Gui.Prototype.GetPos.output
:= Gui.Prototype.GetClientPos.output
:= Gui.Control.Prototype.GetPos.output := [, 'x', 'y', 'width', 'height']
CaretGetPos.returns := (r, o) => (r ? o : jsFalse)
ImageSearch.returns := (r, o) => (r ? o : jsFalse)
LoadPicture.returns := (r, o) => (o.handle := r, o)
PixelSearch.returns := (r, o) => (r ? o : jsFalse)
Run.returns := (r, o) => o.pid
RunWait.returns := (r, o) => (o.exitCode := r, o)
ControlGetChecked.returns := Boolean
ControlGetEnabled.returns := Boolean
ControlGetVisible.returns := Boolean
KeyWait.returns := Boolean
SoundGetMute.returns := Boolean
StatusBarWait.returns := Boolean
WinWait.returns := Boolean
WinWaitActive.returns := Boolean
WinWaitClose.returns := Boolean
WinWaitNotActive.returns := Boolean
Loop Parse functions, ' ' {
if A_LoopField ~= '\W'
continue
fn_name := A_LoopField
fn := %fn_name%
fn_name := AdjustFuncName(fn_name)
scope.%fn_name% := WrapBif(fn)
}
AddHotkeySettings(scope)
Gui.Prototype.Control := Gui.Prototype.GetOwnPropDesc('__Item').get
for cls in [ClipboardAll, File, Gui, InputHook, Menu, MenuBar]
scope.%cls.Prototype.__class% := WrapClass(cls)
for cls in [MemoryError, OSError, TargetError, TimeoutError]
scope.%cls.Prototype.__class% := WrapErrorClass(cls)
GetLineFile   := js.Function('return          /\((.+?:.+?):(\d+):\d+\)/.exec(Error().stack)[1];')
GetLineNumber := js.Function('return parseInt(/\((.+?:.+?):(\d+):\d+\)/.exec(Error().stack)[2]);')
readable := {prototype: {}}
readwriteable := {base: readable, prototype: {base: readable.prototype}}
variables := define_vars()
define_vars() {
r := {base: readable.prototype}
rw := {base: readwriteable.prototype}
return {
AhkPath: A_ScriptFullPath,
AhkVersion: JKVersion,
AllowMainWindow: r,
AppData: r,
AppDataCommon: r,
Clipboard: rw,
ComputerName: r,
ComSpec: r,
ControlDelay: rw,
CoordModeCaret: rw,
CoordModeMenu: rw,
CoordModeMouse: rw,
CoordModePixel: rw,
CoordModeToolTip: rw,
Cursor: r,
DD: r,
DDD: r,
DDDD: r,
DefaultMouseSpeed: rw,
Desktop: r,
DesktopCommon: r,
DetectHiddenText: rw,
DetectHiddenWindows: rw,
EndChar: r,
EventInfo: rw,
FileEncoding: rw,
Hour: r,
IconFile: r,
IconHidden: {get: GetIconHidden, set: SetIconHidden},
IconNumber: r,
IconTip: rw,
InitialWorkingDir: A_InitialWorkingDir,
Is64bitOS: ComObject(0xB, -A_Is64bitOS),
IsAdmin: ComObject(0xB, -A_IsAdmin),
IsCompiled: ComObject(0xB, 0),
IsPaused: {get: () => ComObject(0xB, -A_IsPaused)},
IsSuspended: {get: () => ComObject(0xB, -A_IsSuspended)},
KeyDelay: rw,
KeyDelayPlay: rw,
KeyDuration: rw,
KeyDurationPlay: rw,
Language: r,
LastError: rw,
LineFile: {get: GetLineFile},
LineNumber: {get: GetLineNumber},
ListLines: rw,
MDay: r,
Min: r,
MM: r,
MMM: r,
MMMM: r,
Mon: r,
MouseDelay: rw,
MouseDelayPlay: rw,
MSec: r,
MyDocuments: r,
Now: r,
NowUTC: r,
OSVersion: A_OSVersion,
PriorHotkey: r,
PriorKey: r,
ProgramFiles: r,
Programs: r,
ProgramsCommon: r,
PtrSize: A_PtrSize,
RegView: rw,
ScreenDPI: r,
ScreenHeight: r,
ScreenWidth: r,
ScriptDir: J_ScriptDir,
ScriptFullPath: J_ScriptFullPath,
ScriptHwnd: A_ScriptHwnd,
ScriptName: rw,
Sec: r,
SendLevel: rw,
SendMode: rw,
StartMenu: r,
StartMenuCommon: r,
Startup: r,
StartupCommon: r,
StoreCapsLockMode: rw,
Temp: r,
ThisHotkey: r,
TickCount: r,
TimeIdle: r,
TimeIdleKeyboard: r,
TimeIdleMouse: r,
TimeIdlePhysical: r,
TimeSincePriorHotkey: r,
TimeSinceThisHotkey: r,
TitleMatchMode: rw,
TitleMatchModeSpeed: rw,
TrayMenu: r,
UserName: r,
WDay: r,
WinDelay: rw,
WinDir: r,
WorkingDir: rw,
YDay: r,
Year: r,
YWeek: r,
YYYY: r,
}
}
defProp scope, 'A_Args', {value: js.Array(J_Args*), writable: true}
variables.Clipboard := {
get: () => A_Clipboard,
set: (value) => A_Clipboard := IsObject(value) ? ObjectFromJs(JsRT.ToJs(value)) : value
}
variables.TrayMenu := JsRT.FromJs(ObjectToJs(J_TrayMenu))
defProp variables.TrayMenu, AdjustMethodName('Show'), {value: WrapBif(TrayMenu_Show_Fix)}
get_var(name)        => %name%
set_var(name, value) => %name% := value
for name, value in variables.OwnProps() {
defProp scope, 'A_' name, value is readable ? {
get:                          get_var.Bind('A_' name),
set: value is readwriteable ? set_var.Bind('A_' name) : undefined
} : value is Object ? value : {value: value}
}
Persistent(n:=true) {
global Persistent
static isPersistent
if IsSet(&Persistent) && Persistent is Func
wasPersistent := Persistent(n)
else {
wasPersistent := isPersistent
OnMessage(0xBADC0DE, (*) => "", isPersistent := n)
}
return wasPersistent ? jsTrue : jsFalse
}
for fn in [Include, InstallKeybdHook, InstallMouseHook, Persistent, SingleInstance]
scope.%AdjustFuncName(fn.Name)% := WrapBif(fn)
scope.%AdjustFuncName('LoopFiles')% := WrapBif(_LoopFiles)
scope.%AdjustFuncName('LoopReg')% := WrapBif(_LoopReg)
scope.%AdjustFuncName('CollectGarbage')% := WrapBif(JsRT.JsCollectGarbage.Bind(JsRT, JsRT._runtime))
}
WrapBif(fn) {
op_return := fn.DeleteProp('returns')
if op_array := fn.DeleteProp('output') {
op := Map()
loop op_array.length
if op_array.Has(A_Index)
op[A_Index] := op_array[A_Index]
op.in_count := fn.MaxParams - op.count
fn := BifCallReturnOutputVars.Bind(fn, op, op_return)
}
else if op_return {
fn := ((r, fn, p*) => r(fn(p*))).Bind(op_return, fn)
}
static callbackFromJS := CallbackCreate(CallFromJS, "F")
static callbackBeforeCollect := CallbackCreate((rfn, pfn) => ObjRelease(pfn), "F")
rfn := JsRT.JsCreateFunction(callbackFromJS, pfn := ObjPtrAddRef(fn))
JsRT.JsSetObjectBeforeCollectCallback(rfn, pfn, callbackBeforeCollect)
return JsRT.FromJs(rfn)
}
CallFromJS(callee, isCtor, argv, argc, state) {
argc &= 0xffff, isCtor &= 0xff
try {
fn := ObjFromPtrAddRef(state)
if isCtor
throw TypeError(fn.Name ' is not a constructor')
if JsRT.JsGetValueType(NumGet(argv, "ptr")) = 0
argv += A_PtrSize, argc -= 1
args := ArrayFromArgv(argv, argc)
if HasProp(fn, 'belongsTo') && not HasBase(args[1], fn.belongsTo)
throw TypeError("'this' is not a " fn.belongsTo.__Class)
return ToJs(fn(args*))
} catch e {
JsRT.JsSetException ErrorToJs(e)
return 0
}
}
CallClassFromJS(callee, isCtor, argv, argc, state) {
argc &= 0xffff, isCtor &= 0xff
try {
this := NumGet(argv, "ptr"), cls := ObjFromPtrAddRef(state)
if !isCtor
throw TypeError(cls.Prototype.__Class ' cannot be called without the new keyword')
if !JsRT.JsInstanceOf(this, callee)
throw TypeError("'this' is not a " cls.Prototype.__Class)
return ObjectToJs(cls(ArrayFromArgv(argv + A_PtrSize, argc - 1)*))
} catch e {
if e is ValueError && cls.Call = Object.Call
e := TypeError(cls.Prototype.__Class " cannot be instantiated directly")
JsRT.JsSetException ErrorToJs(e)
return 0
}
}
CallIntoJS(callee, args) {
return JsRT.FromJs(JsRT.JsCallFunction(callee, ArrayToArgv(args), args.Length))
}
ArrayToArgv(args) {
b := BufferAlloc(args.Length * A_PtrSize, 0)
for arg in args {
if IsSet(&arg)
NumPut 'ptr', ToJs(arg), b, (A_Index-1)*A_PtrSize
else
NumPut 'ptr', JsRT.JsGetUndefinedValue(), b, (A_Index-1)*A_PtrSize
}
return b
}
WrapClass(acls) {
if ObjHasOwnProp(acls, '__js')
return acls.__js
static callbackFromJS := CallbackCreate(CallClassFromJS, "F")
jcls := JsRT.FromJs(rjcls := JsRT.JsCreateFunction(callbackFromJS, ObjPtrAddRef(acls)))
acls          .__js := jcls
acls.Prototype.__js := jcls.prototype
WrapMethods acls          , jcls
WrapMethods acls.Prototype, jcls.prototype
if acls.base != Object {
JsRT.JsSetPrototype(rjcls, JsRT.ToJs(jb := WrapClass(acls.base)))
JsRT.JsSetPrototype(JsRT.ToJs(jcls.prototype), JsRT.ToJs(jb.prototype))
}
static setTag := js.Function('obj', 'tag', 'obj[Symbol.toStringTag] = tag')
setTag jcls.prototype, acls.Prototype.__Class
return jcls
}
WrapErrorClass(acls) {
jcls := JsRT.Eval(Format('{ class {1} extends Error {}; {1}.prototype.name = "{1}"; {1} }', acls.Prototype.__class))
acls.Prototype.__js := jcls.prototype
return jcls
}
WrapMethods(aobj, jobj) {
defProp := js.Object.defineProperty
for p in aobj.OwnProps() {
if SubStr(p, 1, 2) = '__' {
if p = '__Enum'
SetIterator jobj, aobj.%p%
continue
}
pd := aobj.GetOwnPropDesc(p)
for name, value in pd.OwnProps()
if value is Func
value.belongsTo := aobj
if pd.HasProp('value') {
if pd.value is Func {
pd.value := WrapBif(pd.value)
p := AdjustMethodName(p)
}
else if pd.value is Class {
pd.value := WrapClass(pd.value)
p := AdjustClassName(p)
}
else
continue
}
else if pd.HasProp('call') {
pd := {value: WrapBif(pd.call)}
p := AdjustMethodName(p)
}
else {
if pd.HasProp('get')
pd.get := WrapBif(pd.get)
if pd.HasProp('set')
pd.set := WrapBif(pd.set)
p := AdjustPropName(p)
}
pd.enumerable := true
defProp jobj, p, pd
}
}
SetIterator(jobj, f) {
static setIt := js.Function('v', 'f', 'v[Symbol.iterator] = f')
get_iterator(f, this) {
next(f, this) {
o := js.Object()
if (o.done := f(&v) ? jsFalse : jsTrue) = jsFalse
o.value := v
return o
}
proto := js.Object()
proto.next := WrapBif(next.Bind(f(this, 1)))
return proto
}
setIt jobj, WrapBif(get_iterator.Bind(f))
}
ArrayFromArgv(argv, argc) {
loop (args := []).Length := argc {
v := NumGet(argv + (A_Index-1)*A_PtrSize, "ptr")
switch JsRT.JsGetValueType(v) {
case 0:
continue
case 1:
throw TypeError("Invalid use of null")
case 4:
v := JsRT.JsBooleanToBool(v)
case 5:
v := ObjectFromJs(v)
case 6:
v := JsFunctionProxy(v)
case 8:
v := [ValuesOf(JsRT.FromJs(v))*]
case 10:
v := JsArrayBufferProxy(v)
case 11:
v := JsTypedArrayProxy(v)
case 12:
v := JsDataViewProxy(v)
default:
v := JsRT.FromJs(v)
}
args[A_Index] := v
}
return args
}
ObjectToJs(v) {
if ObjHasOwnProp(v, '__rj')
return v.__rj
if ObjHasOwnProp(b := ObjGetBase(v), '__js') {
static finalizer := CallbackCreate(p => ObjFromPtr(p).DeleteProp('__rj'), 'F', 1)
rj := JsRT.JsCreateExternalObject(ObjPtrAddRef(v), finalizer)
JsRT.JsSetPrototype(rj, JsRT.ToJs(b.__js))
return v.__rj := rj
}
if b = Object.prototype {
jv := js.Object()
for pn, pv in ObjOwnProps(v)
jv.%pn% := pv
return JsRT.ToJs(jv)
}
D 'no conversion for ' type(v)
return JsRT.ToJs(v)
}
ToJs(v) {
if v is Object
return ObjectToJs(v)
if v is Integer && (v < MIN_SAFE_INTEGER || v > MAX_SAFE_INTEGER)
v := String(v)
return JsRT.ToJs(v)
}
ErrorToJs(e) {
if not e is Error
return JsRT.ToJs(e)
if e is TypeError
return JsRT.ToJS(js.TypeError(StrReplace(e.message, "a ComO", "an o")))
if e is MemberError && RegExMatch(e.message, 'named "(.*?)"', &m)
return JsRT.ToJS(js.TypeError("Object doesn't support property or method '" m.1 "'"))
je := js.Error(e.message)
je.extra := e.Extra
if (b := ObjGetBase(e)).HasProp('__js')
je.__proto__ := b.__js
return JsRT.ToJs(je)
}
ObjectFromJs(rj) {
if JsRT.JsHasExternalData(rj)
return ObjFromPtrAddRef(JsRT.JsGetExternalData(rj))
return JsRT.FromJs(rj)
}
ExternalProperty(rv, name, ptr:=unset) {
id := JsRT.JsGetPropertyIdFromName(name)
rx := JsRT.JsGetProperty(rv, id)
if JsRT.JsGetValueType(rx) = 0 {
if !IsSet(&ptr) || !ptr
return 0
rx := JsRT.JsCreateExternalObject(ptr, 0)
JsRT.JsSetProperty(rv, id, rx, true)
}
else if IsSet(&ptr)
JsRT.JsSetExternalData(rx, ptr)
else
ptr := JsRT.JsGetExternalData(rx)
return ptr
}
class JsCachingProxy {
static Call(rj) {
if p := ExternalProperty(rj, '__p')
return ObjFromPtrAddRef(p)
return super(rj)
}
__New(rj) {
this.__rj := rj
JsRT.JsAddRef(rj)
ExternalProperty(rj, '__p', ObjPtr(this))
}
__Delete() {
if err := JsRT.JsHasException()
err := JsRT.JsGetAndClearException(), JsRT.JsAddRef(err)
ExternalProperty(this.__rj, '__p', 0)
JsRT.JsRelease(this.__rj)
if err
JsRT.JsSetException(err), JsRT.JsRelease(err)
}
}
class JsFunctionProxy extends JsCachingProxy {
Call(params*) {
static missing := (_ => (_.Length := 1, _))([])
params.InsertAt(1, missing*)
return CallIntoJS(this.__rj, params)
}
MinParams => 0
MaxParams => 0
IsVariadic => true
}
class JsBufferProxy {
__new(rj) => JsRT.JsAddRef(this.__rj := rj)
__delete() => JsRT.JsRelease(this.__rj)
Ptr => (this._GetStorage(&ptr), ptr)
Size => (this._GetStorage(, &size), size)
}
class JsArrayBufferProxy extends JsBufferProxy {
_GetStorage(&ptr:=unset, &length:=unset) {
JsRT.JsGetArrayBufferStorage(this.__rj, &ptr:=0, &length:=0)
}
}
class JsTypedArrayProxy extends JsBufferProxy {
_GetStorage(&ptr:=unset, &length:=unset) {
JsRT.JsGetTypedArrayStorage(this.__rj, &ptr:=0, &length:=0, 0, 0)
}
}
class JsDataViewProxy extends JsBufferProxy {
_GetStorage(&ptr:=unset, &length:=unset) {
JsRT.JsGetDataViewStorage(this.__rj, &ptr:=0, &length:=0)
}
}
BifCallReturnOutputVars(ahkfn, op, opr, p*) {
MakeRef(s:='') => &s
if p.length < op.in_count
p.length := op.in_count
for i in op
p.InsertAt i, MakeRef()
r := ahkfn(p*)
o := js.Object()
for i, name in op
o.%name% := %p[i]%
return opr ? opr(r, o) : o
}
ValuesOf(v) {
static getIt := js.Function('v', 'return v[Symbol.iterator]()')
it := getIt(v)
return (&a) => (s := it.next()).done ? false : (a := s.value, true)
}
ErrorMsg(err, mode) {
if ComObjType(err) {
try {
if err.name = "SyntaxError" {
if ErrorStdOut
ErrorStdOut.WriteLine(Format("{1} ({2:i}) : ==> {3}`n     Specifically: {4}"
, err.url, err.line, err.message, err.source))
else
MsgBox Format("Syntax error: {1}`n`nFile:`t{2}`nLine:`t{3:i}`nCol:`t{4:i}`nSource:`t{5}"
, err.message = "Syntax error" ? "" : err.message
, err.url, err.line, err.column, err.source),, "IconX"
if loading_script
ExitApp 2
} else {
MsgBox err.stack,, "IconX"
}
return true
}
}
try {
stack := "", specifically := ""
try (!A_IsCompiled) && stack := '`n`n' RegExReplace(err.stack, 'm)^.*?\\(?=[^\\]* \(\d+\) :)', '')
try (err.extra != "") && specifically := "`n`nSpecifically: " err.extra
MsgBox err.message specifically stack,, "IconX"
} catch {
try {
try value := err.toString()
catch
try value := String(err)
catch
value := err
}
MsgBox "Value thrown and not caught.`n`nSpecifically: " value,, "IconX"
}
return true
}
PatchMenus() {
hmenu := DllCall("GetMenu", "ptr", A_ScriptHwnd)
DllCall("RemoveMenu", "ptr", hmenu, "uint", 65406, "uint", 0)
DllCall("RemoveMenu", "ptr", hmenu, "uint", 65407, "uint", 0)
A_TrayMenu.Delete
global J_TrayMenu := Menu()
global Menu_AddStandard := Menu.Prototype.AddStandard
Menu.Prototype.DefineProp 'AddStandard', {Call: Menu_AddStandard_Fix}
Menu_AddStandard_Fix J_TrayMenu
MsgCommand(wParam, lParam, nmsg, hwnd) {
switch wParam & 0xFFFF {
case 65406: (A_IsCompiled) || ListLines()
case 65407: (A_IsCompiled) || ListVars()
case 65400, 65303: Reload
case 65401, 65304: Edit
case 65403, 65306: Pause -1
case 65300:
WinShow A_ScriptHwnd
WinActivate A_ScriptHwnd
default: return
}
return 0
}
MsgNotifyIcon(wParam, lParam, nmsg, hwnd) {
activate_default_tray_item() {
global J_TrayMenu
if -1 != default_id := DllCall("GetMenuDefaultItem", "ptr", J_TrayMenu.handle, "uint", false, "uint", 1)
PostMessage(0x111, default_id,, A_ScriptHwnd)
}
switch lParam {
case 0x205:
TrayMenu_Show_Fix J_TrayMenu, true
case 0x201:
if J_TrayMenu.ClickCount = 1
activate_default_tray_item
case 0x203:
activate_default_tray_item
}
return 0
}
static newproc := CallbackCreate(WindowProc, "", 4)
static oldproc := DllCall((A_PtrSize=8 ? "SetWindowLongPtrW" : "SetWindowLongW"), "ptr", A_ScriptHwnd, "int", -4, "ptr", newproc, "ptr")
WindowProc(hwnd, nmsg, wParam, lParam) {
if (nmsg = 0x111 && (wParam & 0xFFFF) >= 65300) {
if "" != r := MsgCommand(wParam, lParam, nmsg, hwnd)
return r
}
else if (nmsg = 1028)
return MsgNotifyIcon(wParam, lParam, nmsg, hwnd)
Critical 0
return DllCall("CallWindowProc", "ptr", oldproc, "ptr", hwnd, "uint", nmsg, "ptr", wParam, "ptr", lParam, "ptr")
}
}
Edit() {
for hwnd in WinGetList(J_ScriptName) {
if WinGetClass(hwnd) ~= '^(#32770|AutoHotkey)$'
continue
return WinActivate(hwnd)
}
try
Run '*edit "' J_ScriptFullPath '"'
catch
Run 'notepad.exe "' J_ScriptFullPath '"'
}
Reload() {
Run Format(A_IsCompiled ? '"{2}" /restart "{3}"' : '"{1}" "{2}" /restart "{3}"'
, A_AhkPath, A_ScriptFullPath, J_ScriptFullPath), A_InitialWorkingDir
}
SingleInstance(mode:='force') {
dhw := A_DetectHiddenWindows
switch StrLower(mode) {
case 'force':
TerminatePreviousInstance 'SingleInstance'
case 'ignore':
A_DetectHiddenWindows := true
for hwnd in WinGetList(jktitle " ahk_class AutoHotkey")
if hwnd != A_ScriptHwnd
ExitApp
case 'prompt':
prompted := false
A_DetectHiddenWindows := true
for hwnd in WinGetList(jktitle " ahk_class AutoHotkey") {
if hwnd != A_ScriptHwnd {
if prompted || MsgBox("An older instance of this script is already running.  Replace it with this instance?",, "y/n") = "no"
ExitApp
prompted := true
TerminateInstance hwnd, 'SingleInstance'
}
}
default:
throw ValueError('Invalid mode "' mode '"')
}
A_DetectHiddenWindows := dhw
}
Include(path) {
if !allow_wildcard_in_include && path ~= '[*?<>"]'
throw Error('Include file "' path '" cannot be opened.')
static already_included := (_ => (_.CaseSense := 'Off', _))(Map())
included := 0
Loop Files path, 'F' {
path := A_LoopFileFullPath
if already_included.Has(path)
continue
already_included[path] := true
JsRT.RunFile path, default_script_encoding
++included
}
if !included && !(path ~= '[*?]')
throw Error('Include file "' path '" cannot be opened.')
if allow_wildcard_in_include
return included
}
InstallKeybdHook() {
static ih
if IsSet(&ih)
return
ih := InputHook('I255 L0 B V')
ih.Start
}
InstallMouseHook() {
Hotkey '~XButton2 & ~XButton2', _ => 0
}
StartupIconTimer(enable := unset) {
if !IsSet(&enable) {
if !IconTimerIsSet
return
A_IconHidden := false
enable := false
}
global IconTimerIsSet := enable
SetTimer StartupIconTimer, enable ? -100 : 0
}
GetIconHidden() => A_IconHidden && !IconTimerIsSet
SetIconHidden(value) {
A_IconHidden := value
StartupIconTimer false
}
_LoopFiles(pattern, mode, body:=unset) {
IsSet(&body) || (body := mode, mode := 'F')
static fields := ['attrib', 'dir', 'ext', 'fullPath', 'name', 'path', 'shortName'
, 'shortPath', 'size', 'timeAccessed', 'timeCreated', 'timeModified']
Loop Files pattern, mode {
item := js.Object()
for field in fields
item.%field% := A_LoopFile%field%
body(item)
}
}
_LoopReg(keyname, mode, body:=unset) {
IsSet(&body) || (body := mode, mode := 'F')
static fields := ['name', 'type', 'key', 'timeModified']
Loop Reg keyname, mode {
item := js.Object()
for field in fields
item.%field% := A_LoopReg%field%
body(item)
}
}
AddHotkeySettings(scope) {
hk := scope.hotkey, defProp := js.Object.defineProperty
_Hotkey.B := '', _Hotkey.T := '', _Hotkey.I := '', _Hotkey.useHook := false
defProp hk, AdjustPropName('MaxThreadsBuffer'), {
get: ()      => _Hotkey.B ? jsTrue : jsFalse,
set: (value) => _Hotkey.B := value ? 'B' : ''
}
defProp hk, AdjustPropName('MaxThreadsPerHotkey'), {
get: ()      => _Hotkey.T ? Integer(SubStr(_Hotkey.T, 2)) : 1,
set: (value) => _Hotkey.T := (value := intInRange(value, 1, 255)) != 1 ? 'T' value : ''
}
defProp hk, AdjustPropName('InputLevel'), {
get: ()      => _Hotkey.I ? Integer(SubStr(_Hotkey.I, 2)) : 0,
set: (value) => _Hotkey.I := (value := intInRange(value, 0, 100)) ? 'I' value : ''
}
defProp hk, AdjustPropName('UseHook'), {
get: ()      => _Hotkey.useHook ? jsTrue : jsFalse,
set: (value) => _Hotkey.useHook := value ? true : false
}
intInRange(i, low, high) {
if (i := Integer(i)) < low || i > high
throw ValueError("Invalid value")
return i
}
}
_Hotkey(keyname, callback:="", options:="") {
try
Hotkey keyname
catch e {
if not e is TargetError
throw e
options := _Hotkey.B  _Hotkey.T  _Hotkey.I  options
Hotkey keyname, callback, options
if _Hotkey.useHook
Hotkey '$' keyname
return
}
if (callback != "" || options != "")
Hotkey keyname, callback, options
}
TerminatePreviousInstance(by) {
DetectHiddenWindows (dhw := A_DetectHiddenWindows, true)
for hwnd in WinGetList(jktitle " ahk_class AutoHotkey") {
if hwnd != A_ScriptHwnd {
TerminateInstance hwnd, by
break
}
}
DetectHiddenWindows dhw
}
TerminateInstance(hwnd, by) {
static WM_COMMNOTIFY := 0x44
static AHK_EXIT_BY_RELOAD := 1030
static AHK_EXIT_BY_SINGLEINSTANCE := 1031
PostMessage WM_COMMNOTIFY, AHK_EXIT_BY_%by%, 0, hwnd
Loop {
if WinWaitClose(hwnd,, 2)
break
if MsgBox("Could not close the previous instance of this script.  Keep waiting?",, "y/n") = "no"
ExitApp 2
}
}
Menu_AddStandard_Fix(m) {
item_count() => DllCall('GetMenuItemCount', 'ptr', m.handle)
id_exists(id) => DllCall('GetMenuState', 'ptr', m.handle, 'uint', id, 'uint', 0) != -1
name_exists(name) {
try {
m.Rename name, name
return true
}
return false
}
CMD(id) => (*) => PostMessage(0x111, id, 0, A_ScriptHwnd)
static group := [
[["&Open", CMD(65300)],
["&Help", CMD(65301)]],
[["&Window Spy", CMD(65302)],
["&Reload This Script", CMD(65303)],
["&Edit This Script", CMD(65304)]],
[["&Suspend Hotkeys", CMD(65305)],
["&Pause Script", CMD(65306)],
["E&xit", CMD(65307)]]
]
number_to_add(items) {
n := 0
for item in items
if !name_exists(item[1])
++n
return n
}
index := item_count() + 1
adding1 := number_to_add(group[1]) > 1
adding2 := number_to_add(group[2]) > 1
adding3 := number_to_add(group[3]) > 1
add_sep := [adding1 && (adding2 || adding3), adding2 && adding3, false]
first_added := ""
add_if_needed(name, action) {
if !name_exists(name) {
m.Add name, action
if first_added = ""
first_added := name
}
}
for items in group {
for item in items
if !name_exists(item[1])
add_if_needed(item*)
if add_sep[A_Index]
m.Add
}
if m = J_TrayMenu && !m.Default && first_added = "&Open"
m.Default := index '&'
}
TrayMenu_Show_Fix(m, postCmd:=false) {
if m = J_TrayMenu {
try m.%A_IsPaused?"Check":"Uncheck"%("&Pause Script")
try m.%A_IsSuspended?"Check":"Uncheck"%("&Suspend Hotkeys")
}
DllCall("GetCursorPos", "ptr", pt := BufferAlloc(8))
x := NumGet(pt, 0, "int"), y := NumGet(pt, 4, "int")
flags := postCmd ? 0x180 : 0
GFW() => DllCall("GetForegroundWindow", "ptr")
active_wnd := GFW()
WinActivate A_ScriptHwnd
id := DllCall("TrackPopupMenuEx", "ptr", m.handle, "uint", flags, "int", x, "int", y, "ptr", A_ScriptHwnd, "ptr", 0)
if GFW() = A_ScriptHwnd
WinActivate active_wnd
if postCmd && id
PostMessage 0x111, id,, A_ScriptHwnd
}

[gregster]

I like the jk file extension.

It's not a question if it works, but if it is meant seriously, or to be taken literally... there, I have strong doubts
I think the date is no coincidence.

It seems like an impressive demo of the v2 capabilities, though.

[boiler]

Yes, .jk was the clincher for me. Nicely done, lexikos!

[Cerberus]

This is the way forward. Good-bye, V2.

[hasantr]

I hope it's real. Now everything is on the web and maybe the AUTOHOTKEY with JS provides more control on the web. So I hope that.

[swagfag]

i might have to unironically switch to using this