立你斯學習記錄

http://zy.anjian.com/?action-model-name-qmdn-itemid-152

// 主腳本啟動熱鍵設定為「F9」，停止熱鍵設定為「F11」
Rem start
// 設定啟動主腳本時間
RunTime=CDate("10:00:00")
// 設定停止主腳本時間
StopTime=CDate("22:00:00")
// 取得現在時間
TimeNow = CDate(CStr(Hour(Now))+":"+CStr(Minute(Now))+":"+CStr(Second(Now)))
// 比較時間
MyVer = DateDiff("s",TimeNow,RunTime)
MyVer1 = DateDiff("s",TimeNow,StopTime)
// 啟動時間到了，按下主腳本啟動熱鍵「F9」
If MyVer=1
    KeyPress 120,1
EndIf
// 停止時間到了，按下主腳本停止熱鍵「F11」
If MyVer1=1
    KeyPress 122,1
EndIf
Delay 600
Goto start

原始檔案如下：
UserVar ShuChuFangShi=2 獲取到時間之後的輸出方式。
1是彈對話方塊，適合平時看時間；
2是文本輸出，適合網遊裡使用

Dim Y,Mon,D,W,h,m,s,SJ
//先聲明變數

Y=Year(Date):Mon=Month(Date):D=Day(Date):W=Weekday(Date,vbMonday)
//利用VBS函數獲得當前系統的年,月,日,星期 並各自保存到變數中

h=Hour(time):m=Minute(time):s=Second(time)
//利用VBS函數獲得當前系統的時,分,秒 並各自保存到變數中

SJ=Y&"年"&Mon&"月"&D&"號 "&"星期"&W&" "&h&"點"&m&"分"&s&"秒"
//把得到的年,月,日,星期,時,分,秒連接起來 並保存到SJ變數中

If ShuChuFangShi=1
//最後彈出個視窗 顯示當前的系統時間（變數SJ）
MessageBox SJ
EndIf
If ShuChuFangShi=2
//最後彈出個視窗 顯示當前的系統時間（變數SJ）
MessageBox sj
EndIf