代碼如下:
-
版本2
。裝配窗裝配1
。程序集變量時間，整數類型
。整數型匯編變量計時
。匯編變量可以關閉嗎？邏輯型。
子程序_時鐘1_周期性事件
時間=時間-1
。判斷開始(時間= 0)
關閉系統(# shutdown，true)
。默認
審判結束
標簽1。Title = "請在"+to text (time)+"中輸入我愛妳否則將被強制關機！"
。子程序_編輯框1_的內容已更改。
如果為真(編輯框1。Content = "我愛妳")
如果(消息框(“妳確定嗎？”，32+1，"請確認")= #確認按鈕)
圖片框1。圖片=讀入文件(取運行目錄()+“1 . jpg”)。
畫框1。可見=真
能不能關掉=真
否則。
時鐘1。時鐘周期= 1000。
能關=假嗎
如果結束了
Return()
如果真的結束了。
時鐘1。時鐘周期= 1000。
。子程序_ _開始窗口_已創建
時間= 60
。子程序_ _啟動窗口_它能被關閉嗎，邏輯類型
如果為真(假=是否可以關閉)
如果(消息框(“結束此程序將關閉此系統！您確定要結束此程序嗎？，32+4，“關機操作”)= # Yes按鈕)
關閉系統(# shutdown，true)
結束()
否則。
返回(假)
如果結束了
Return()
如果真的結束了。
結束()