AutoHotkey Community

Code: Select all

; Test in AutoHotkey v2 2.0-beta.1
; Copy the DLL to your script directory or set dllPath
; Test in this dll                                             ahkdll-v1-release-master\x64w\AutoHotkey.dll
; Need V1 AutoHotkey.dll                                       https://hotkeyit.github.io/v1/
; Download dll                                                 https://github.com/HotKeyIt/ahkdll-v1-release/archive/master.zip
; Sample need copy func and save in  D:\OSDTIP.ahk             https://www.autohotkey.com/boards/viewtopic.php?f=6&t=76881
; Thanks to HotKeyIt for their help!                           https://www.autohotkey.com/boards/viewtopic.php?f=67&t=95612#p425193
; Supports up to 10 params

; Persistent
; test := IncludeLib("D:\OSDTIP.ahk")  ;(v1 libs path, AutoHotkey.dll path)
; test.do("OSDTIP_Pop","Notification","Message", "-2000")
; Sleep(2000)
; test.do("OSDTIP_Pop","Notification","Message",  "0", "C11 zh7 w160 CW101010 CTD3D3D3 U1 U2",,,"0x00FFFF", "0x808080", "30")
; Sleep(2000)
; test.do("OSDTIP_KBLeds","CapsLock", "", "-2000")
; Sleep(2000)
; test.do("OSDTIP_Volume","+1", "", "-2000")
; Sleep(2000)
; test.do("OSDTIP_Desktop",A_UserName,A_Hour ":" A_Min ":" A_Sec ,"-2000") ;Variables dont need ""
; Sleep(2000)
; test.do("OSDTIP_Alert","MainText","SubText")
; Sleep(2000)
; test := ""
; ExitApp

Class IncludeLib
{

    __New(libPath, dllPath := "")
    {
        if !FileExist(dllPath := dllPath ? dllPath : A_ScriptDir "\AutoHotkey.dll")
            MsgBox("Miss AutoHotkey.dll file"), ExitApp()
        This.hDll := DllCall("LoadLibrary", "Str", dllPath, "Ptr")
        DllCall("AutoHotkey.dll\ahktextdll", "Str", "#Persistent `n#NoTrayIcon `n#include " libPath, "Str", "", "Str", "")
        This.hahkFunction := DllCall("GetProcAddress", "Ptr", This.hDll, "AStr", "ahkFunction", "PTR")
    }

    __Delete()
    {
        DllCall("AutoHotkey.dll\ahkExec", "Str", "ExitApp", "CDecl")
        DllCall("FreeLibrary", "Ptr", This.hDll)
    }

    do(FuncNmae, v*)
    {
        p := []
        Loop 10
            p.Push(v.Has(A_Index) ? v[A_Index] : "")
        ahkFunction := DllCall.Bind(this.hahkFunction, "Str", , "Str", p[1], "Str", p[2], "Str", p[3], "Str", p[4], "Str", p[5], "Str", p[6], "Str", p[7], "Str", p[8], "Str", p[9], "Str", p[10], "CDecl Str")
        return ahkFunction(FuncNmae)
    }
}

Code: Select all

if DllCall("oleacc\AccessibleChildren", "Ptr",ComObjValue(Acc), "Int",0, "Int",cChildren, "Ptr",VarSetCapacity(varChildren,cChildren*(8+2*A_PtrSize),0)*0+&varChildren, "Int*",cChildren)=0

Code: Select all

/**
 * Include an AutoHotkey v1 library into an AutoHotkey v2 script/program.
 *
 * @example
 * Persistent(true)
 * test := IncludeLib("<OSDTIP>")
 * test.OSDTIP_Pop("Notification", "Message", "-2000")
 * Sleep(2000)
 * test.OSDTIP_Pop("Notification", "Message", "0", "C11 zh7 w160 CW101010 CTD3D3D3 U1 U2",,, "0x00FFFF", "0x808080", "30")
 * Sleep(2000)
 * test.OSDTIP_KBLeds("CapsLock", "", "-2000")
 * Sleep(2000)
 * test.OSDTIP_Volume("+1", "", "-2000")
 * Sleep(2000)
 * test.OSDTIP_Desktop(A_UserName, Format("{1}:{2}:{3}", A_Hour, A_Min, A_Sec), "-2000") ; Variables dont need ""
 * Sleep(2000)
 * test.OSDTIP_Alert("MainText","SubText")
 * Sleep(2000)
 * test := ""
 * ExitApp(0)
*/
class IncludeLib
{
	/** @type {number} */
	handle_dll := 0

	/** @type {number} */
	handle_ahk_func := 0

	/** @type {string}  */
	lib_path := ""
	
	/** @type {string}  */
	dll_path := ""


	__New(lib_path, dll_path := "")
	{
		this.lib_path := lib_path
		this.dll_path := dll_path ? (dll_path) : (A_ScriptDir . "\AutoHotkey.dll")

		if (!FileExist(this.dll_path))
		{
			throw Error("Invalid or missing dynamic link library file", -1, dll_path)
		}

		try
		{
			this.handle_dll := DllCall("LoadLibrary", "Str", this.dll_path, "Ptr")
		}
		catch Any
		{
			throw Error("Could not load dynamic link library", -1, this.dll_path)
		}
		DllCall(dll_path . "\ahktextdll", "Str", "#Persistent `n#NoTrayIcon `n#include " . this.lib_path, "Str", "", "Str", "")
		this.handle_ahk_func := DllCall("GetProcAddress", "Ptr", this.handle_dll, "AStr", "ahkFunction", "PTR")
	}

	__Delete()
	{
		DllCall(this.dll_path . "\ahkExec", "Str", "ExitApp", "CDecl")
		DllCall("FreeLibrary", "Ptr", this.handle_dll)
	}

	__Call(func_name, args*)
	{
		params := []
		params.Push("Str", "")
		for index, value in args
		{
			if (value == "") || (!value)
			{
				params.Push("Str", "")
				continue
			}

			if (this._TypeOf(value) !== "String")
			{
				type_of := this._TypeOf(value)
				throw Error("Expected a string, got a" . (type_of == "Array" ? "n") . " " . type_of, -1, "args[" . index . "]")
			}

			params.Push("Str", value)
		}
		params.Push("CDel Str")

		ahk_func := DllCall.Bind(this.handle_ahk_func, params*)		; Should look like: DllCall(this.handle_ahk_func, "Str", "", ("Str", params) ... , "CDel Str")

		try
		{
			return ahk_func(func_name)
		}
		catch Any as err
		{
			throw err
		}
	}

	_TypeOf(Value)
	{
		if ((comClass := ComObjType(Value, "Class")) != "")
		{
			return comClass
		}

		try ; `Value is Object` is not checked because it can be false for prototypes.
		{
			if (ObjHasOwnProp(Value, "__Class"))
			{
				return "Prototype"
			}
		}

		while (Value := ObjGetBase(Value))
		{
			if (ObjHasOwnProp(Value, "__Class"))
			{
				return Value.__Class
			}
		}

		return "Object"
	}
}

Code: Select all

i := test()
i.do("1","2","3")
class test
{
	__Call(test1,args*)
	{
		MsgBox test1 ;has test1
		MsgBox args.length ;have length 1
		for i in args ;but nothing in array?
			MsgBox i
	}
}

Code: Select all

        DllCall("AutoHotkey.dll\ahktextdll", "Str", "#Persistent `n#NoTrayIcon `n#include " libPath, "Str", "", "Str", "")

Code: Select all

params.Push("CDel Str")..shoudnt it be "Cdecl Str"