.版本 2
.支持庫 spec
.支持庫 EThread
.程序集 窗口程序集_啟動窗口
.程序集變量 記錄, 文本型
.子程序 __啟動窗口_創建完畢
.局部變量 鈎子, 類_鈎子
鈎子.安裝鈎子_鍵盤 (取窗口句柄 (), &回調函數, 真)
.子程序 回調函數
.參數 按鍵類型, 整數型
.參數 鍵代碼, 整數型
調試輸出 (按鍵類型)
調試輸出 (鍵代碼)
.如果真 (按鍵類型 ＝ 257)
.如果真 (鍵代碼 ＝ #鍵1)
記錄 ＝ 記錄 ＋ 到文本 (鍵代碼)
.如果真 (記錄 ＝ “49”)
返回 ()
.如果真結束
記錄 ＝ “”
返回 ()
.如果真結束
.如果真 (鍵代碼 ＝ #鍵2)
記錄 ＝ 記錄 ＋ 到文本 (鍵代碼)
.如果真 (記錄 ＝ “4950”)
返回 ()
.如果真結束
記錄 ＝ “”
返回 ()
.如果真結束
.如果真 (鍵代碼 ＝ #鍵3)
記錄 ＝ 記錄 ＋ 到文本 (鍵代碼)
.如果真 (記錄 ＝ “495051”)
返回 ()
.如果真結束
記錄 ＝ “”
返回 ()
.如果真結束
.如果真 (鍵代碼 ＝ #鍵4)
記錄 ＝ 記錄 ＋ 到文本 (鍵代碼)
.如果真 (記錄 ＝ “49505152”)
返回 ()
.如果真結束
記錄 ＝ “”
返回 ()
.如果真結束
.如果真 (鍵代碼 ＝ #鍵5)
記錄 ＝ 記錄 ＋ 到文本 (鍵代碼)
.如果真 (記錄 ＝ “4950515253”)
返回 ()
.如果真結束
記錄 ＝ “”
返回 ()
.如果真結束
.如果真 (鍵代碼 ＝ #鍵6)
記錄 ＝ 記錄 ＋ 到文本 (鍵代碼)
.如果真 (記錄 ＝ “495051525354”)
啟動線程 (&子程序1, , )
返回 ()
.如果真結束
記錄 ＝ “”
返回 ()
.如果真結束
記錄 ＝ “”
.如果真結束
.子程序 子程序1
信息框 (“ok ”, 0, , )
本文轉自：http://www.zhizhuowz.com/post-425.html