给崩坏三桌面版的启动窗口加个启动音效

原理

使用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

---

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