按键精灵【鱼头】网络歌曲播放器1.00版脚本源码

确定你的电脑装有  [Windows Media Player]  播放器！！！ 

运行环境：分辨率：1440×900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@兄弟工程师01  2009/3/19

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// //　　　　　　　　　　　[鱼鱼网络歌曲播放器1.00版]　　　　　　　　　　　　// //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// Dim SttSoundFile,Obj,Stt,Et,Ei,SttCommand UserVar SttSoundFile=http://music.cnnb.com.cn/music/m/孟庭苇/风中有朵雨作的云/忘了.wma [填入网络歌曲地址] SttSoundFile=Cstr(SttSoundFile) //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★设★置★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// //《结束wmplayer.exe播放器进程》 Set Obj=GetObject("winmgmts:\\.\root\cimv2") Set Et=Obj.Execquery("select * from win32_process where name='wmplayer.exe'") Stt=Stt & vbCrlf & "For Each Ei in Et" Stt=Stt & vbCrlf & "Ei.Terminate()" Stt=Stt & vbCrlf & "Next" Execute(Stt) //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// //《开始播放歌曲》 Set ObjShell=CreateObject("Wscript.Shell") SttCommand="wmplayer /play /close " & chr(34) & SttSoundFile & chr(34) //《跳过要等播放完,才显示下面脚本 (用False)》 ObjShell.Run SttCommand, 0, False MessageBox "稍等一会，下载完后播放！！！要停止，只要再按一次启动热键。" EndScript //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//