給崩壞三桌面版的啓動窗口加個啓動音效

原理

使用vbs腳本，監控電腦所有的進程，一旦出現崩壞三桌面版的啓動窗口進程就播放一次音效。

vbs腳本製作過程

第一步：準備好你想要播放的音樂或音效，如下。

第二步：在桌面上創建一個txt文本，文件名起啥都行，用記事本打開它，將如下代碼複製進去，把倒數第四行代碼修改一下，路徑改成你要播放的音樂的路徑。最後保存並關掉記事本，把此文件的後綴名改成.vbs，注意不要把文件後綴名隱藏起來（如何把後文件綴名顯示出來）。

On Error Resume Next
Dim wsc,wm,objs,monPro,proExi    
Set wsc=wscript.Createobject("WScript.Shell")  
monPro="falcon.exe"    

Do
 Set wm=Getobject("WinMgmts:")
 Set objs=wm.InstancesOf("Win32_Process")
 For Each obj In objs
  If obj.Description=monPro Then
   MusicPlayer
   proMonitor
  End If
 Next
Loop
 
Private Sub proMonitor()
On Error Resume Next
Do
 proExi=False
 Set wm=Getobject("WinMgmts:")
 Set objs=wm.InstancesOf("Win32_Process")
 For Each obj In objs
  If obj.Description=monPro Then proExi=True
 Next
 If proExi<>True Then Exit Do
Loop
End Sub

Private Sub MusicPlayer()
On Error Resume Next
set wmp=Createobject("wmplayer.ocx")
wmp.url="D:\test\Theresa.mp3"   '修改成你想要播放的音效的路徑
wscript.sleep 1000
wscript.sleep wmp.currentMedia.duration *1000
End Sub

第三步：完事後，直接雙擊運行腳本，電腦無任何反應說明是正常的，不要手殘雙擊第二次。然後點開三蹦子桌面版圖標即可聽到你設置的啓動音效了。

將腳本加入啓動項

當然，如果想每次啓動遊戲都能聽到音效的話就得把vbs腳本添加到啓動項中，操作步驟如下：

啓動項文件夾的路徑是：

C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp

打開此文件夾，把vbs腳本粘貼進去就OK了。

注意事項

一、如何停止vbs腳本程序

鍵盤摁住win+R，輸入cmd並回車，在彈出的命令行窗口中輸入：

taskkill /f /im wscript.exe

回車，效果如下即爲成功結束vbs腳本程序

二、電腦安全管家提示病毒

如果有電腦安全管家提示你此腳本是病毒，點擊信任或者忽略即可。其實並不是病毒。

三、不要雙擊多次腳本

雙擊一次腳本沒有任何反應是正常現象，千萬不要再雙擊第二次了（尤其是在第二遍修改代碼的時候經常忘記停止上次運行的腳本進程），如果多次雙擊會出現“重音”效果。

萬一誤點了，就停止腳本，然後再雙擊運行一次即可。

---

vbs代碼詳解

不常寫vbs這種雞肋的代碼，所以過段時間肯定會忘記的，在此做下詳解（和上面代碼一毛一樣）：

On Error Resume Next   '可插到任意處，此語句後的代碼，若產生錯誤則不會提示，繼續執行後面的語句
Dim wsc,wm,objs,monPro,proExi    'Dim是定義變量名（包括對象變量）
Set wsc=wscript.Createobject("WScript.Shell") '創建個對象。Set是給對象賦值時用的，給一般的變量賦值就不用了
monPro="falcon.exe"    '變量monPro就是我們要監控的進程。一般變量賦值，不用Set

Do    'do loop無條件循環
 Set wm=Getobject("WinMgmts:")
 Set objs=wm.InstancesOf("Win32_Process")
 For Each obj In objs   'for next循環，這行代碼有點像python
  If obj.Description=monPro Then  'if條件語句
   MusicPlayer
   proMonitor
  End If  'if條件語句尾
 Next  'for next循環尾
Loop   'do loop循環尾
 
Private Sub proMonitor()  '一個私有函數
On Error Resume Next
Do
 proExi=False
 Set wm=Getobject("WinMgmts:")
 Set objs=wm.InstancesOf("Win32_Process")
 For Each obj In objs
  If obj.Description=monPro Then proExi=True
 Next
 If proExi<>True Then Exit Do
Loop
End Sub

Private Sub MusicPlayer()
On Error Resume Next
set wmp=Createobject("wmplayer.ocx") '一個播放器對象
wmp.url="D:\test\Theresa.mp3"   '修改成你想要播放的音效的路徑
wscript.sleep 1000   '1000表示一秒（不知爲啥，去掉這一句就無法播放音樂了）
wscript.sleep wmp.currentMedia.duration *1000    '表示音量100%
End Sub

---

最近是不是太閒了( ´_ゝ｀)