|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有账号？注册
×
- <html>
- <DIV id=word >a</div>
- <DIV id=worda >暂时不播放</div>
- <script language="vbscript">
- document.all.word.innerHTML="请等候，呵呵"
- url="http://www.inkui.com"
- 'document.all.word.innerHTML=fenjiegequ(gethttp(dedaobofangyemian(gethttp(url))))
- tmp=document.location.href
- If instr(tmp,"#")<>0 then
- tmp=mid(tmp,instr(tmp,"#")+1)
- tmp=replace(tmp,"=","=""")
- tmp=replace(tmp,"&",""""&chr(13)&chr(10))
- tmp=tmp&""""
- execute(tmp)
- End if
- If aaa="gecihebofang" Then
- url=url&urla
- yemian=gethttp(url)
- yemiana=yemian
- document.all.word.innerHTML=geci(yemian)
- document.all.worda.innerHTML="<embed src="""&fenjiegequ(gethttp(dedaobofangyemian(yemiana)))&""" autostart=""true"" loop=""false"" BufferingTime=""8"" EnableContextMenu=""0"" EnableTracker=""-1"" PlayCount=""1"" ShowControls=""-1"" ShowAudioControls=""-1"" ShowPositionControls=""-1"" ShowStatusBar=""-1"" ShowTracker=""-1"">"
- Else
- url="http://www.inkui.com/a1/3/3DB840F62E2C2F152207_s.html"
- yemian= gethttp(url)
- document.all.word.innerHTML=dedaogerenyemian(yemian)
- End If
- 'MsgBox geci(gethttp(url))
- Function dedaogerenyemian(getqushujua)
- getqushujua=Mid(getqushujua,InStr(getqushujua,"<table border="))
- getqushujua=left(getqushujua,InStr(getqushujua,"<div id=""memo"">")-1)
- getqushujua=tihuan(getqushujua,"<input type=[^>]*/>","")
- getqushujua=tihuan(getqushujua,"html"">","html"" target=""_blank"">")
- getqushujua=tihuan(getqushujua,"href=""","href="""&document.location.href&"#aaa=gecihebofang&urla=")
- dedaogerenyemian=getqushujua
- End Function
- Function dedaobofangyemian(getqushujua)
- 'WScript.Echo getqushuju
- 'msgbox getqushujua
- getqushujua=Mid(getqushujua,InStr(getqushujua,"wmplay"))
- getqushujua=left(getqushujua,InStr(getqushujua,")")-1)
- tmpstr= Split(getqushujua,"'")
- getqushujua=tmpstr(UBound(tmpstr)-1)
- fuwuqidizhi="http://www.inkui.com/wmplayer/?id="
- dedaobofangyemian=fuwuqidizhi&getqushujua
- End Function
- Function geci(getqushuju)
- 'MsgBox getqushuju
- getqushuju=mid(getqushuju,InStr(getqushuju,"<div class=""mainlrcb""><p>"))
- 'MsgBox getqushuju
- getqushuju=left(getqushuju,InStr(getqushuju,"</div><div id=""sidebar"">")-1)
- 'MsgBox getqushuju
- getqushuju=tihuan(getqushuju,"<span class=""hidtext"">[^\.]{1,5}</span>","")
- getqushuju=tihuan(getqushuju,"（歌词转自 音魁网 [url]www.inkui.com[/url]）","")
- getqushuju=tihuan(getqushuju,"<span class=""hidtext"">[^\.]{1,5}</span>","")
- geci=getqushuju
- End Function
- Function wmplay(gequid)
- document.all.word.innerHTML=fenjiegequ(gethttp("http://www.inkui.com/wmplayer/?id="&gequid))
- End Function
- Function fenjiegequ(getqushuju)
- tmpstr= Split(getqushuju,"|")
- getqushuju=tmpstr(UBound(tmpstr))
- getqushuju=left(getqushuju,InStr(getqushuju,"""")-1)
- fenjiegequ=dedaolujing(getqushuju)
- End Function
- Function dedaolujing(getqushuju)
- qianzui="http://w1.imusic.cn:8089/wma/"
- dedaolujing=qianzui&Mid(getqushuju,1,1)&"/"&Mid(getqushuju,2,1)&"/"&getqushuju&".wma"
- End Function
- Function gethttp(geturl)
- Set xPost = createObject("Microsoft.XMLHTTP")
- xPost.Open "GET",geturl,false
- xPost.Send
- 'gethttp=bytesToBSTR(xPost.Responsebody,"gb2312")
- gethttp=strAnsi2Unicode(xPost.Responsebody)
- End Function
- Function strAnsi2Unicode(asContents)
- Dim len1,i,varchar,varasc
- strAnsi2Unicode = ""
- len1=LenB(asContents)
- If len1=0 Then Exit Function
- For i=1 to len1
- varchar=MidB(asContents,i,1)
- varasc=AscB(varchar)
- If varasc > 127 Then
- If MidB(asContents,i+1,1)<>"" Then
- strAnsi2Unicode = strAnsi2Unicode & chr(ascw(midb(asContents,i+1,1) & varchar))
- End If
- i=i+1
- Else
- strAnsi2Unicode = strAnsi2Unicode & Chr(varasc)
- End If
- Next
- End Function
- Function tihuan(yuanlai,zhengze,zifu)
- Set re=new RegExp
- re.IgnoreCase =True
- re.Global=True
- re.Pattern=zhengze
- tihuan=re.Replace(yuanlai,zifu)
- set re=Nothing
- End Function
- </script>
- </html>
|
评分
-
查看全部评分
|
IP卡
狗仔卡
发表于 2007 年 8 月 6 日 10:23:02
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
发表于 2007 年 8 月 6 日 10:29:59
