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




命令名稱:


GetDateTime 得到系統日期和時間


命令功能:


得到當前系統日期和時間


命令參數:


參數無


返 回 值:


字串型,返回當前系統日期和時間,如 "2006-05-20 15:27:31"


腳本例子:
按鍵精靈8
及以上語法


複製代碼


s=Plugin.Sys.GetDateTime()


MessageBox "您的作業系統日期和時間:" & s


腳本例子:
按鍵精靈7
及以下語法


複製代碼


Plugin s=Sys.GetDateTime()


MessageBox "您的作業系統日期和時間:" & s





// 主腳本啟動熱鍵設定為「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


arrow
arrow
    全站熱搜

    立你斯 發表在 痞客邦 留言(0) 人氣()