国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 編程 > VBScript > 正文

vbs實(shí)現(xiàn)的定時(shí)提醒你休息的腳本

2020-07-26 11:57:00
字體：大 中 小
來(lái)源：轉(zhuǎn)載
供稿：網(wǎng)友
復(fù)制代碼 代碼如下:

set WshShell = WScript.CreateObject("WScript.Shell")
'對(duì)話框標(biāo)題
alerttitle = "定時(shí)提醒"
'提醒內(nèi)容,vbnewline為換行符
alerttext =  vbnewline & vbnewline & "休息一下，活動(dòng)一下胳膊，脖子，腰部。" & vbnewline & vbnewline & vbnewline & "生命在于運(yùn)動(dòng)"& vbnewline & vbnewline & vbnewline
for i = 1 to 12    '12為提醒的次數(shù)
    WScript.Sleep(1000*60*45)    '每45分鐘提醒一次
    msgbox alerttext,4096,alerttitle
next

將上面代碼存為：定時(shí)提醒.vbs ，然后雙擊遠(yuǎn)行，進(jìn)程中會(huì)有一個(gè)wscript.exe的進(jìn)程，結(jié)束后他就不會(huì)提醒了。

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 崇明县| 红桥区| 临高县| 平阳县| 油尖旺区| 车险| 望谟县| 万盛区| 新泰市| 奎屯市| 于都县| 隆子县| 龙泉市| 广汉市| 芮城县| 汨罗市| 元氏县| 休宁县| 金秀| 枝江市| 玉山县| 泗阳县| 克什克腾旗| 孟津县| 资阳市| 会同县| 涞水县| 高青县| 苍梧县| 阜阳市| 洪江市| 三门峡市| 赞皇县| 永仁县| 广河县| 东乡族自治县| 连城县| 时尚| 鄱阳县| 马关县| 牙克石市|