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

原理

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

vbs脚本制作过程

第一步:准备好你想要播放的音乐或音效,如下。
给崩坏三桌面版的启动窗口加个启动音效_第1张图片

第二步:在桌面上创建一个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

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

你可能感兴趣的:(娱乐)