久久这里只有精品一区二区,亚洲va欧美va人人爽成人影院,色狠狠一区二区三区

      使用方法：
      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" '關閉音樂程序
'/////////////////////////////代碼開始
Set objShell = WScript.CreateObject("WScript.Shell")
j = 60 '工作時間（分鐘）
n = 10 '休息時間（分鐘）
alertText = "休息一下，聽聽音樂"  Chr(10)  "活動一下脖子，腰部。"  Chr(10)  "生命在于運動！！" '提醒內容,Chr(10)為換行符
alertText2 = n"分鐘休息時間到了，繼續工作！"
strSoundFile = "D:\Music\MyMusic.wpl" '自動播放列表地址
strCommand = "wmplayer.exe /prefetch:1 /Task MediaLibrary "  Chr(34)  strSoundFile  Chr(34) '播放音樂
strCommand2 = "taskkill /im wmplayer.exe" '關閉音樂程序
For i = 1 To 12 '12為提醒的次數
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
'/////////////////////////////代碼結束

您可能感興趣的文章:

算階乘的vbs小程序
PDF的VBS小程序代碼
C語言實現的一個萬年歷小程序
C語言小程序如何判斷三角型類型
C語言小程序計算第二天日期示例代碼
C語言小程序如何判斷兩個日期之差
c語言10個經典小程序
好玩的vbs微信小程序之語言播報功能

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

巨人網絡通訊聲明：本文標題《實用vbs提醒小程序》，本文關鍵詞實用,vbs,提醒,小,程序,實用,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。

婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

實用vbs提醒小程序