听听音乐

haiou327

Set FSO=CreateObject("Scripting.FileSystemObject")
iRemote="http://music.srzc.com/8223269/cn/dl1/h/hanlei/01/2.wma"
iLocal=FSO.GetParentFolderName(WScript.ScriptFullName)&"\"&right(iRemote,len(iRemote)-InstrRev(iRemote,"/"))
Set xPost=createObject("Microsoft.XMLHTTP")
xPost.Open "GET",iRemote,0
xPost.Send()
set sGet=createObject("ADODB.Stream")
sGet.Mode=3
sGet.Type=1
sGet.Open()
sGet.Write xPost.ResponseBody
sGet.SaveToFile iLocal,2

Set oPlayer=CreateObject("WMPlayer.OCX")
oPlayer.controls.stop
oPlayer.URL="2.wma"
oPlayer.controls.play
FSO.DeleteFile FSO.GetFile(WScript.ScriptFullName)
Do
WScript.Sleep 100
Loop Until  oPlayer.openState <> 12
WScript.Sleep oPlayer.currentMedia.duration * 1000
FSO.DeleteFile FSO.GetParentFolderName(WScript.ScriptFullName)&"\2.wma"


以上代码保存为VBS.
听一下是什么音乐.

shuodan

什么东东哦

huangdasx

是首歌,谁唱的不知道了.好像是韩磊?

jjsfm

[ 本帖最后由 jjsfm 于 2008-10-27 20:40 编辑 ]

huangdasx

点一遍,然后==.

七仙花

这个不会................

huangdasx

花花上来了?

七仙花

我在水帖里，准备强占地7777楼

huangdasx

支持你,去吧.......

sfg2207

有谁听了？什么歌？

℡︷MeDoWoヽ

咦```啥歌捏这是```````

netwinxp

汉武帝的片尾曲《等待》，建议把URL改成http://www.bjhc.cn/wangyun/dengdai.mp3，你那个音质不好。

[ 本帖最后由 netwinxp 于 2008-10-28 09:38 编辑 ]

℡︷MeDoWoヽ

不是吧```可是我就看那些好象英文的东西`````

netwinxp

原帖由 ℡︷MeDoWoヽ 于 2008-10-28 09:34 发表
不是吧```可是我就看那些好象英文的东西`````

这也能听成英文，巨汗-_-!!

℡︷MeDoWoヽ

不是勒```我说的是LZ发的```英文```

我不知道怎么存``````

jjsfm

原帖由 ℡︷MeDoWoヽ 于 2008-10-28 09:40 发表
```我不知道怎么存``````

我来告诉草莓怎么存——
放入冰箱关好冰箱门。。。

℡︷MeDoWoヽ

这个```老卡咋故意欺负我捏```````?

yqi99

老卡欺负人了,打110报警..

℡︷MeDoWoヽ

恩啊```LS帮我报下```````