1. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
2. //　　　　　　　　　　　[鱼鱼网络歌曲播放器1.00版]　　　　　　　　　　　　//
3. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
4. Dim SttSoundFile,Obj,Stt,Et,Ei,SttCommand
5. 用户定义变量 SttSoundFile=http://music.cnnb.com.cn/music/m/孟庭苇/风中有朵雨作的云/忘了.wma [填入网络歌曲地址]
6. SttSoundFile=Cstr(SttSoundFile)
7. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★设★置★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
8. //《结束wmplayer.exe播放器进程》
9. Set Obj=GetObject("winmgmts:\\.\root\cimv2")
10. Set Et=Obj.Execquery("select * from win32_process where name='wmplayer.exe'")
11. Stt=Stt & vbCrlf & "For Each Ei in Et"
12. Stt=Stt & vbCrlf & "Ei.Terminate()"
13. Stt=Stt & vbCrlf & "Next"
14. Execute(Stt)
15. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
16. //《开始播放歌曲》
17. Set ObjShell=CreateObject("Wscript.Shell")
18. SttCommand="wmplayer /play /close " & chr(34) & SttSoundFile & chr(34)
19. //《跳过要等播放完,才显示下面脚本 (用False)》
20. ObjShell.Run SttCommand, 0, False
21. 弹出窗口 "稍等一会，下载完后播放！！！要停止，只要再按一次启动热键。"
22. 脚本停止运行
23. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
24. //【符号说明】《说明》、〖标记〗、【子程序】、〓分割线〓、①分类说明⑩
25. //【脚本作者】一只鱼　　　　　　　　　【QQ群】5619170
26. //【E-Mail】ChapterRain@yahoo.com.cn　【致谢】欢迎使用鱼鱼制作的脚本!!
27. //【创作日期】2007.04.04　　　　　　　【完成日期】
28. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//