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

灰太狼 2023-10-09 12:17 12阅读 0赞

## 原理 ##

使用vbs脚本，监控电脑所有的进程，一旦出现崩坏三桌面版的启动窗口进程就播放一次音效。

## vbs脚本制作过程 ##

第一步：准备好你想要播放的音乐或音效，如下。  
![在这里插入图片描述][20190925170901501.png]

第二步：在桌面上创建一个txt文本，文件名起啥都行，用记事本打开它，将如下代码复制进去，**把倒数第四行代码修改一下，路径改成你要播放的音乐的路径**。最后保存并关掉记事本，把此文件的后缀名改成.vbs，注意不要把文件后缀名隐藏起来（[如何把后文件缀名显示出来][Link 1]）。

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脚本程序  
![在这里插入图片描述][20190925171520475.png]

## 二、电脑安全管家提示病毒 ##

如果有电脑安全管家提示你此脚本是病毒，点击信任或者忽略即可。其实并不是病毒。

## 三、不要双击多次脚本 ##

双击一次脚本没有任何反应是正常现象，千万不要再双击第二次了（尤其是在第二遍修改代码的时候经常忘记停止上次运行的脚本进程），如果多次双击会出现“重音”效果。

万一误点了，就停止脚本，然后再双击运行一次即可。

--------------------

## 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

--------------------

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

[20190925170901501.png]: https://img-blog.csdnimg.cn/20190925170901501.png
[Link 1]: https://jingyan.baidu.com/article/ac6a9a5eb982f46b643eac67.html
[20190925171520475.png]: https://img-blog.csdnimg.cn/20190925171520475.png