.支持庫 spec
.支持庫 shellEx.程序集 窗口程序集1
.程序集變量 關閉熱鍵, 整數型
.程序集變量 time, 整數型
.程序集變量 ke, 整數型
.程序集變量 取現行時間關閉, 整數型
.程序集變量 kt, 文本型.子程序 __啟動窗口_創建完畢調試輸出 (到文本 (取小時 (取現行時間 ())) ＋ “:” ＋ 到文本 (取分鐘 (取現行時間 ())) ＋ “:” ＋ 到文本 (取秒 (取現行時間 ())))
關閉熱鍵 ＝ 註冊熱鍵 (取窗口句柄 (), 標簽1.取窗口句柄 (), 0, #F9鍵)
time ＝ 註冊熱鍵 (取窗口句柄 (), 標簽1.取窗口句柄 (), 0, #F10鍵)
取現行時間關閉 ＝ 註冊熱鍵 (取窗口句柄 (), 標簽1.取窗口句柄 (), 0, #F11鍵).子程序 _標簽1_反饋事件, 整數型
.參數 參數壹, 整數型
.參數 參數二, 整數型.判斷開始 (參數壹 ＝ 關閉熱鍵)
結束 ()
.判斷 (參數壹 ＝ time)
ke ＝ 5 ' 5秒後關閉
.判斷循環首 (ke ≠ 0)
ke ＝ ke － 1
.判斷循環尾 ()
.判斷開始 (ke ＝ 0)
結束 ()
.默認 .判斷結束.判斷 (參數壹 ＝ 取現行時間關閉)
.判斷循環首 (到文本 (取小時 (取現行時間 ())) ＋ “:” ＋ 到文本 (取分鐘 (取現行時間 ())) ＋ “:” ＋ 到文本 (取秒 (取現行時間 ())) ≠ “20:00:00”) ' 20:00:00時關閉
kt ＝ 到文本 (取小時 (取現行時間 ())) ＋ “:” ＋ 到文本 (取分鐘 (取現行時間 ())) ＋ “:” ＋ 到文本 (取秒 (取現行時間 ()))
.判斷開始 (kt ＝ “20:00:00”)
結束 ()
.默認 .判斷結束 .判斷循環尾 ()
.默認.判斷結束