。裝配窗裝配1
。程序集變量x，整數類型
。程序集變量y，整數類型
。子程序_ _開始窗口_已創建
X =取小時(取當前時間())
Y =取分鐘數(取當前時間())
時鐘1。時鐘周期= 1000。
子程序_時鐘1_周期性事件
如果為真(x = 23)
。如果為真(x >取小時(取當前時間()))
如果為真(y =花費分鐘數(花費當前時間()))
銷毀()
如果真的結束了。
如果真的結束了。
如果真的結束了。
如果為真(x <取小時(取當前時間()))
如果為真(y =花費分鐘數(花費當前時間()))
銷毀()
如果真的結束了。
如果真的結束了。
子程序_ _ Start window _將被銷毀。
運行(取運行目錄()+"\"+"軟件名稱。exe”，真，)
這樣寫有點麻煩。還有壹個簡單的。
版本2
。裝配窗裝配1
。程序集變量x，整數類型
。子程序_ _開始窗口_已創建
x = 60 × 60 × 1000
時鐘1。時鐘周期= x' 3600000，也就是壹個小時。
子程序_ _ Start window _將被銷毀。
運行(取運行目錄()+"\"+"軟件名稱。exe”，真，)
子程序_時鐘1_周期性事件
銷毀()