日本男人操女人,中文字幕在线播放,亚洲一区和二区

      使用方法：
      1. 將下面的代碼保存為：Ring.vbs （文件名可自定）
      2. 將Ring.vbs移動到程序啟動組，這樣可以隨WINDOWS自動啟動了（位置是：開始--程序--啟動，XP的啟動組位置是：C:\Documents and Settings\你的用戶名\「開始」菜單\程序\啟動\）
      3. 我這里使用的是Window自帶的Media Player播放音樂，所以先打開您的Media Player，將“正在播放列表”另存到D:\Music\MyMusic.wpl（保存路徑可以自定，但要在下在的代碼中修改strSoundFile的路徑），以后你只要打開電腦就可以自動提醒了！
      注意：如果你使用的是Winamp播放音樂，則必有把路徑改為Winamp的播放列表文件地址，以及strCommand和strCommand2的值如：
strCommand = "C:\Program Files\Winamp\winamp.exe /prefetch:1 /Task MediaLibrary "  Chr(34)  strSoundFile  Chr(34) '播放音樂
strCommand2 = "taskkill /im winamp.exe" '關(guān)閉音樂程序
'/////////////////////////////代碼開始
Set objShell = WScript.CreateObject("WScript.Shell")
j = 60 '工作時間（分鐘）
n = 10 '休息時間（分鐘）
alertText = "休息一下，聽聽音樂"  Chr(10)  "活動一下脖子，腰部。"  Chr(10)  "生命在于運動??！" '提醒內(nèi)容,Chr(10)為換行符
alertText2 = n"分鐘休息時間到了，繼續(xù)工作！"
strSoundFile = "D:\Music\MyMusic.wpl" '自動播放列表地址
strCommand = "wmplayer.exe /prefetch:1 /Task MediaLibrary "  Chr(34)  strSoundFile  Chr(34) '播放音樂
strCommand2 = "taskkill /im wmplayer.exe" '關(guān)閉音樂程序
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語言實現(xiàn)的一個萬年歷小程序
C語言小程序如何判斷三角型類型
C語言小程序計算第二天日期示例代碼
C語言小程序如何判斷兩個日期之差
c語言10個經(jīng)典小程序
好玩的vbs微信小程序之語言播報功能

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

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