aardio + AutoHotkey 混合編程-有解無憂

本文主要介紹 aardio + AutoHotkey 混合編程，

在 aardio 中可以呼叫很多編程語言，例如 C語言、C++、C#、Java、Python、R、Javascript、Node.Js、Fortran、VB、Flash ActionScript、PHP、VBScript、PowerShell、NewLISP、AutoLISP、Delphi、FreeBASIC、Ruby、Rust、Julia、Nim、Go 語言、批處理 ...... 請參考《 aardio 呼叫第三方編程語言示例》，

《 aardio 編程語言快速入門 —— 語法速覽》

? 使用 ahk 擴展庫

1、雙擊打開：aardio 工具 / 擴展庫
2、擴展庫名字輸入 ahk，搜索結果中雙擊 ahk 擴展庫 —— 打開最新范例，

aardio 提供了 ahk 擴展庫可用于嵌入 AutoHotkey 并與 AutoHotkey 互動呼叫，支持 AutoHotkey v1 以及 AutoHotkey v2 版本，

? aardio 呼叫 AutoHotkey v1

aardio 可以直接呼叫 AutoHotkey 函式，AutoHotkey 也可以呼叫 aardio 函式，非常簡單：

import win.ui;
/*DSG{{*/
var winform = win.form(text="嵌入 AutoHotkey v1 演示")
winform.add(
edit={cls="edit";left=17;top=18;right=741;bottom=445;edge=1;multiline=1;z=1}
)
/*}}*/

//匯入 AutoHotkey v1 擴展庫
import ahk; 

/*
匯出允許AutoHotkey 呼叫的 aardio 函式（函式名必須以 on 開頭），
*/
ahk.onTest = function(param){
    winform.edit.print( "winform.onTest被ahk呼叫",param ); 
    winform.show();
}

//運行ahk代碼
ahk.run( `
#Persistent ;保持 AHK 執行緒不退出
#NoTrayIcon ;不顯示托盤圖示
#include <aardio>  ;啟動 AHK 代碼中必須加入這句才能與 aardio 互動

; 定義函式與 aardio 有點像，aardio 一般會寫為 GetPoint = function(hwnd){ return value;}
GetPoint(){    
    
    ; 直接呼叫aardio函式，支持任意型別、不定個數的呼叫引數
    aardio.onTest({ x : 2, y : 3 })
    
    return { x : 2, y : 3 }
}`);


/*
直接呼叫ahk里定義的全域函式，
引數和回傳值自動支持各種資料型別，就像呼叫普通aardio函式，
是不是很神奇？！
*/
var point = ahk.GetPoint();

winform.edit.print("呼叫ahk函式的回傳值：",point);
win.loopMessage();

請注意 aardio 中檔案路徑以斜桿（或反斜桿）開始表示應用程式根目錄，應用程式根目錄在開發時指工程目錄或工程外獨立啟動的檔案所在目錄，發布后指 EXE 所在目錄，應用程式根目錄已設為 AHK 作業目錄 %A_WorkingDir% ，

匯出 aardio 函式給 ahk 時也可以回傳一個異步執行的函式物件，呼叫虛擬桌面示例：

import ahk; 
import dotNet.desktop;
import win.ui;
/*DSG{{*/
var winform = win.form(text="虛擬桌面切換";right=599;bottom=399)
winform.add(
edit={cls="edit";left=17;top=18;right=565;bottom=374;edge=1;multiline=1;z=1}
)
/*}}*/

//匯出 AutoHotkey 函式
ahk.onSwitch = function(index){ 
    winform.edit.print("已切換桌面到：",index);
    
    //虛擬桌面在鍵盤鉤子中需要通過回傳異步函式異步呼叫，
    return function() {
        dotNet.desktop.get(index).MakeVisible()
    }
}
 
//運行 AutoHotkey 代碼注冊熱鍵
ahk.run( `
#Persistent
#NoTrayIcon 
#include <aardio> 

^j:: aardio.onSwitch(1)
^k:: aardio.onSwitch(2)
`);

winform.show();
win.loopMessage();

如果在 aardio 中執行以下代碼：

ahk.import("path/libName");

則由 aardio 匯入

\AutoHotkey\Lib\path\libName.ahk

可以在 aardio 工程中添加上面的 ahk 檔案到內嵌資源目錄，這樣該 ahk 檔案會被編譯到 exe 資源內，運行時自動轉存為以下檔案：

%A_MyDocuments%\AutoHotkey\Lib\path\libName.ahk

在 AHK 中可以使用以下代碼參考該模塊：

#include <path/libName>

在 aardio 中可使用 ahk.setGlobal() 函式修改 AHK 全域變數：

//直接修改 AHK 全域變數的值
ahk.setGlobal("gVar","測驗一下")

在 aardio 中執行 AHK 代碼時還可以支持 aardio 模板語法，也就是在 AHK 代碼中可以直接寫 aardio 代碼，只要將 aardio 代碼包含在 <? ?> 標記中就可以了（類似 PHP 模板語法），例如：

//運行 AHK 代碼
ahk.run( `
#Persistent ;
#NoTrayIcon ;
#include <aardio>  ;

global gVar := "<?="允許嵌入 aardio 代碼"?>"  ; 
`);

//直接修改 AHK 全域變數的值
ahk.setGlobal("gVar","測驗一下")

關于 aardio 模板語法請參考 aardio 檔案，

? aardio 呼叫 AutoHotkey v2

在 aardio 使用 ahk.thread 擴展庫可以呼叫 AutoHotkey v2，ahk.thread 不再需要在 AHK 啟動代碼中包含 #include <aardio>，其他用法與呼叫 ahk 擴展庫類似，下面看例子：

import win.ui;
/*DSG{{*/
var winform = win.form(text="嵌入 AutoHotkey v2 演示")
winform.add(
edit={cls="edit";left=8;top=10;right=749;bottom=452;edge=1;multiline=1;z=1}
)
/*}}*/

winform.show();

import ahk.thread;
var ahk2 = ahk.thread();

//直接定義允許 AHK 呼叫的 aardio 函式（函式名以on開頭）    
ahk2.onTest = function(param){
    winform.edit.print( "winform.onTest被ahk呼叫",param ); 
    return 123
}

//運行 AHK 代碼
ahk2.run( `
#NoTrayIcon ;不顯示托盤圖示
Persistent( true)  ;保持ahk執行緒不退出
 
; 定義函式與 aardio 有點像，aardio 一般會寫為 GetPoint = function(hwnd){ return value;}
GetPoint(){    
    
    ; 直接呼叫aardio函式，支持任意型別、不定個數的呼叫引數
    aardio.onTest({ x : 2, y : 3 })
    
    return { x : 2, y : 3 }
}`);


/*
直接呼叫ahk里定義的全域函式，
引數和回傳值自動支持各種資料型別，就像呼叫普通aardio函式，
是不是很神奇？！
*/
var point = ahk2.GetPoint();
winform.edit.print("呼叫ahk函式的回傳值：",point);

win.loopMessage();

要注意 AHK 中的變數默認是區域變數，定義全域變數要用 global 陳述句，aardio 則是默認全域變數，定義區域變數要用 var 陳述句，

? 進階

有了前面的基礎，我們再將范例稍微整復雜一點，例如呼叫 AHK v1 ：

import win.ui;
/*DSG{{*/
var winform = win.form(text="嵌入 AutoHotkey v1")
winform.add(
edit={cls="edit";left=17;top=18;right=734;bottom=444;edge=1;multiline=1;z=1}
)
/*}}*/

import ahk; 
ahk.onTest = function(param){
    winform.edit.print( "winform.onTest被ahk呼叫",param ); 
    winform.show();
}

ahk.run( `
#Persistent
#NoTrayIcon
#include <aardio>

GetPoint(){   
    
    ; 命令式語法 = 號后面是字串，變數要放到百分號里
    POINT_TYPE =  
    (
        UInt x;
        UInt y;
    ) ; 首尾兩個括號都必須獨占一行，用于包含多行字串
     
    
    ; 新語法 := 后面是運算式,和其他編程語言類似字串放引號里,變數不用放百分號里
    point := Struct( POINT_TYPE ) ; 
    
    ; 取結構體指標，aardio 里呼叫 API 時結構體總是自動轉為指標，不需要寫這些代碼
    ptr := point[]
   
    ; DllCall("user32.dll\GetCursorPos", "Ptr", ptr)   
    GetCursorPos(ptr) ; 

    ; 直接呼叫aardio函式，支持任意型別、不定個數的呼叫引數
    aardio.onTest({ x : point.x, y : point.y })

    ; 命令式語法, 百分號加一個空格表示后面是運算式
    MsgBox, % "x:" point.x ",y:" point.y

    return { x : point.x, y : point.y }
}`);
 
/*
直接呼叫ahk里定義的全域函式
*/
var point = ahk.GetPoint();
winform.edit.print("呼叫ahk函式的回傳值：",point);

win.loopMessage();

以上主要是演示 aardio 與 AHK 互動，其實 aardio 直接呼叫 ::User32.GetCursorPos() 代碼更簡單，示例：

// 當然上面的代碼用 aardio 直接寫會更簡單，例如：
var point = {int x;int y};

//不用宣告直接呼叫 API，不用寫引數型別這些
::User32.GetCursorPos(point);

aardio 可以免宣告直接呼叫 WinAPI ，不需要指定引數型別，

下面再來個例子，使用 aardio 暫停、繼續 AHK 腳本：

import fonts.fontAwesome;
import win.ui;
/*DSG{{*/
var winform = win.form(text="嵌入autohotkey演示";right=757;bottom=467)
winform.add(
button={cls="plus";text="暫停AHK";left=19;top=11;right=109;bottom=41;bgcolor=-6960024;font=LOGFONT(name='FontAwesome';charset=0);z=2};
edit={cls="edit";left=17;top=56;right=729;bottom=443;edge=1;multiline=1;z=1}
)
/*}}*/

import ahk;
var handle = ahk.run( `
#Persistent ;保持ahk執行緒不退出
#NoTrayIcon ;不顯示托盤圖示
#include <aardio> ;啟動ahk代碼中必須加入這句才能與aardio互動
::hj::run無亂碼
`);

winform.button.onMouseClick = function(){
    if(winform.button.text=="暫停AHK"){
        thread.suspend(handle)
        winform.button.text = "繼續AHK"
    }
    else {
        thread.resume(handle)
        winform.button.text = "暫停AHK"
    }
}

winform.button.skin({
    color={
        active=0xFFFFFFFF;
        default=0xFF000000;
        hover=0xFFFFFFFF
    };
});

winform.show();
win.loopMessage();

轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/509454.html

標籤：其他

上一篇：《痞子衡嵌入式半月刊》第 63 期

下一篇：行程間通信(IPC)