盗墓笔记,风凌天下,豆豆小说阅读网

      使用方法：
      1. 將下面的代碼保存為：Ring.vbs （文件名可自定）
      2. 將Ring.vbs移動(dòng)到程序啟動(dòng)組，這樣可以隨WINDOWS自動(dòng)啟動(dòng)了（位置是：開(kāi)始--程序--啟動(dòng)，XP的啟動(dòng)組位置是：C:\Documents and Settings\你的用戶名\「開(kāi)始」菜單\程序\啟動(dòng)\）
      3. 我這里使用的是Window自帶的Media Player播放音樂(lè)，所以先打開(kāi)您的Media Player，將“正在播放列表”另存到D:\Music\MyMusic.wpl（保存路徑可以自定，但要在下在的代碼中修改strSoundFile的路徑），以后你只要打開(kāi)電腦就可以自動(dòng)提醒了！
      注意：如果你使用的是Winamp播放音樂(lè)，則必有把路徑改為Winamp的播放列表文件地址，以及strCommand和strCommand2的值如：
strCommand = "C:\Program Files\Winamp\winamp.exe /prefetch:1 /Task MediaLibrary "  Chr(34)  strSoundFile  Chr(34) '播放音樂(lè)
strCommand2 = "taskkill /im winamp.exe" '關(guān)閉音樂(lè)程序
'/////////////////////////////代碼開(kāi)始
Set objShell = WScript.CreateObject("WScript.Shell")
j = 60 '工作時(shí)間（分鐘）
n = 10 '休息時(shí)間（分鐘）
alertText = "休息一下，聽(tīng)聽(tīng)音樂(lè)"  Chr(10)  "活動(dòng)一下脖子，腰部。"  Chr(10)  "生命在于運(yùn)動(dòng)！！" '提醒內(nèi)容,Chr(10)為換行符
alertText2 = n"分鐘休息時(shí)間到了，繼續(xù)工作！"
strSoundFile = "D:\Music\MyMusic.wpl" '自動(dòng)播放列表地址
strCommand = "wmplayer.exe /prefetch:1 /Task MediaLibrary "  Chr(34)  strSoundFile  Chr(34) '播放音樂(lè)
strCommand2 = "taskkill /im wmplayer.exe" '關(guān)閉音樂(lè)程序
For i = 1 To 12 '12為提醒的次數(shù)
WScript.Sleep(1000 * 60 * j)
MsgBox alertText, 64
objShell.Run strCommand, 1, False
WScript.Sleep(1000 * 60 * n)
objShell.Run strCommand2, 0, True
MsgBox alertText2, 64
Next
'/////////////////////////////代碼結(jié)束

您可能感興趣的文章:

算階乘的vbs小程序
PDF的VBS小程序代碼
C語(yǔ)言實(shí)現(xiàn)的一個(gè)萬(wàn)年歷小程序
C語(yǔ)言小程序如何判斷三角型類型
C語(yǔ)言小程序計(jì)算第二天日期示例代碼
C語(yǔ)言小程序如何判斷兩個(gè)日期之差
c語(yǔ)言10個(gè)經(jīng)典小程序
好玩的vbs微信小程序之語(yǔ)言播報(bào)功能

標(biāo)簽：鄂爾多斯阜新承德麗水錫林郭勒盟青島齊齊哈爾黃山

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《實(shí)用vbs提醒小程序》，本文關(guān)鍵詞實(shí)用,vbs,提醒,小,程序,實(shí)用,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

濮阳杆衣贸易有限公司

實(shí)用vbs提醒小程序