==帮忙写一个.VBS脚本文件,在线等==

来源：百度知道 编辑：UC知道 时间：2024/06/24 16:59:11
要实现的目的: 自动寻找歌曲用千千静听播放
双击.vbs文件,弹出对话框提示输入歌曲名,然后到遍历E盘寻找此音乐文件,找到后播放,若找不到则提示不存在此歌曲,提示用户重新输入.

我写了一点点,高手看下就明白我的意思了.非常有局限性.俺不懂所以请求高手出招.

----------
dim wshshell,mppath,mp
set wshshell=wscript.createobject("wscript.shell")
mppath="""C:\Program Files\TTPlayer\TTPlayer.exe"""
mp=inputbox("请输入您要点播的歌曲名","智能点歌机","请在此输入")
wshshell.run mppath & "E:\流行音乐\" & mp & ".mp3"
----------

细节要求:
1.当用户输入内容为空或是默认值(请在此输入),提示错误重新输入.
2.当用户点"取消"则退出.
3.音乐文件放在E盘,要求自动寻找.若有同名的则取第一个播放.
4.最好能这样通配:
如用户输入"秋天不回来",然而E盘下的文件是"秋天不回来-王强.mp3"或是两端有空格的,则找不到文件了.

谢谢高手支招.小弟这厢有礼了,分不是问题哈.呵呵..
---
谢谢几位请导,我试了,都好像不行.
那把下面这条命令写进:wshshell.run ""里面怎么转换特殊符号呢,谢谢了.
cmd /c for /f "delims=" %a in ('dir/a/b/s e:\歌曲名.mp3') do "C:\Pr

你为什么不隐藏调用系统自带的windows media player呢?这样子不会弹出任何播放器窗口...且节省系统资源..

程序修改如下:

on error resume next
call mp3_player()

private sub mp3_player()
'搜索关键词判断
do
key=inputbox("请输入您要点播的歌曲名,退出程序请输入Q","智能点歌机","请在此输入")
select case key
case "","请在此输入"
msgbox"您的输入有误,请重新输入!",4096+64,"出错啦!"
case "Q","q"
wscript.quit
case else
exit do
end select
loop

'文件搜索
set ws=createobject("wscript.shell")
Set bage= GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set pipe =bage.ExecQuery("Select * from CIM_DataFile where Extension = 'wma' or Extension = 'mp3'")
For Each File in pipe
set fso=createobject("scripting.filesystemobject")
set files=fso.getfile(File.name)
if key=r