原理
使用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
最近是不是太闲了( ´_ゝ`)