用易語言怎麽寫按鍵

.支持庫 eAPI

.支持庫 spec

.程序集 窗口程序集1

.程序集變量 a, 邏輯型

.子程序 _時鐘1_周期事件

.如果 (取按鍵狀態 (#F1鍵) ≠ 0)

.如果 (a ＝ 假)

a ＝ 真

標題 ＝ “開始”

開始 ()

.否則

a ＝ 假

標題 ＝ “停止”

開始 ()

.如果結束

.否則

.如果結束

.子程序 開始

.如果真 (a)

模擬鼠標點擊 (取鼠標水平位置 (), 取鼠標垂直位置 (), #接口常量.右鍵單擊)

延時 (100)

模擬按鍵 (#D鍵, , )

延遲 (100)

模擬按鍵 (#回車鍵, , )

延時 (100)

開始 ()

.如果真結束

.子程序 __啟動窗口_創建完畢

時鐘1.時鐘周期 ＝ 100

=========DLL命令========

.版本 2

.DLL命令 取按鍵狀態, 短整數型, "user32.dll", "GetAsyncKeyState"

.參數 鼠標鍵, 整數型