Question

找VBS中放的一首英文歌

男的唱的 黑米亚呗龙~~~ and I ······
没什么分子 麻烦帮下忙

Answer 1

      我有一个playmid.vbs，能自动播放音乐，不过要由bat调用，不能直接打开，歌曲只能从头放到尾，中间不能暂停、关闭。（凑合着用吧，代码如下：）

Dim objWord,colTasks,strName,wmp,aa,kmk,exit_err
exit_err = 0
strName = WScript.Arguments(0)
Set objWord = CreateObject("Word.Application") 
Set colTasks = objWord.Tasks
set wmp = CreateObject("WMPlayer.OCX.7")
wmp.settings.volume = WScript.Arguments(1)
wmp.url = WScript.Arguments(2)
wmp.uiMode = "Full"
while wmp.playstate = 9
wscript.sleep 50
wend
while wmp.playstate = 3 
If not colTasks.Exists(strName) Then
for aa= 1 to 30
kmk= 30 - aa
kmk= kmk * 2
wmp.settings.volume = kmk
wscript.sleep 33
next
exit_err = 1
wmp.controls.stop
else
wscript.sleep 200
End If
wend
if exit_err = 0 then
end if
objWord.Quit

一定要把它命名为playmid.vbs

然后在它的旁边新建一个文本文档，文件名随便取，输入以下代码：

@echo off
for /f "skip=2" %%a in ('playmid.vbs "%g_name%" "50" "在这里输入歌曲名，包括后缀名"') do (if "%%a" equ "cont" goto :endvbs)

把文本文档的后缀名(.txt)改为.bat，若没有看到后缀名，则按以下步骤操作：

右击“开始”菜单→资源管理器→工具→文件夹选项→“查看”选项卡→取消勾选"隐藏已知文件类型的文件拓展名"

还有，要找到这首歌曲，把它放在这两个文件所在的位置，就OK了

点击这个.bat文件就可以用vbs播放音乐了。（关闭掉弹出来的黑窗口，音乐会继续播放，直到播放完毕）

追问

拜托 我说的是VBS电视台里放的一首歌