㈠ 求一個易語言每周定時運行和每天定時運行的源碼
.版本 2
.支持庫 spec
.程序集 窗口程序集1
.子程序 _時鍾1_周期事件
.局部變數 星期, 整數型
.局部變數 時間, 文本型
星期 ＝ 取星期幾 (取現行時間 ())
.如果真 (星期 ＝ 1) ' 1 代表星期天，2 是星期一 。。。。
運行 (「要運行程序的絕對路徑」, 假, )
.如果真結束
' ----------------------------------------------------
時間 ＝ 到文本 (取現行時間 ())
.如果真 (時間 ＝ 「XX年XX月XX日XX時XX分XX秒」)
運行 (「要運行程序的絕對路徑」, 假, )
.如果真結束
調試輸出 (星期, 時間)
.子程序 __啟動窗口_創建完畢
' 如果真 (取文本注冊項 (#現行用戶, 「Software\Microsoft\Windows\CurrentVersion\Run\apps」, ) ＝ 「」)
' 寫注冊項 (#現行用戶, 「Software\Microsoft\Windows\CurrentVersion\Run\apps」, 「要運行程序的絕對路徑」)
' --------------------------------------------------------------------------------------------------
' 上面是寫開機啟動的，360會報警。。把編輯好的程序放到 啟動 這個文件夾中也可以起到開機啟動的效果，自己看著辦吧
時鍾1.時鍾周期 ＝ 1000
㈡ 易語言定時關機源碼、
支持庫 shell
.程序集 窗口程序集1
.程序集變數 關機時間, 日期時間型
.程序集變數 定時關機, 邏輯型
.子程序 __啟動窗口_創建完畢
編輯框1.內容 ＝ 到文本 (取現行時間 ())
.子程序 _按鈕1_被單擊
.局部變數 年, 文本型
.局部變數 月, 文本型
.局部變數 日, 文本型
.局部變數 時, 文本型
.局部變數 分, 文本型
年 ＝ 到文本 (取年份 (取現行時間 ())) ＋ 「/」
月 ＝ 編輯框2.內容 ＋ 「/」
日 ＝ 編輯框3.內容 ＋ 「/」
時 ＝ 編輯框4.內容 ＋ 「/」
分 ＝ 編輯框5.內容 ＋ 「/」
關機時間 ＝ 到時間 (年 ＋ 月 ＋ 日 ＋ 時 ＋ 分)
.如果真 (到文本 (關機時間) ＝ 「100年1月1日」)
信息框 (「時間填寫錯誤」, 0, )
定時關機 ＝ 假
返回 ()
.如果真結束
定時關機 ＝ 真
.子程序 _時鍾1_周期事件
編輯框1.內容 ＝ 到文本 (取現行時間 ())
.如果真 (定時關機 ＝ 真)
.如果真 (取現行時間 () ＝ 關機時間)
時鍾1.時鍾周期 ＝ 0
信息框 (「關機時間到了」, 0, )
關閉系統 (1, )
.如果真結束