Has anyone gotten this to work with http://launch.yahoo.com ?? And if so, how? It would be great to grab some music videos Thanks, -t
<% 'CopyLeft June 08,2002 by Sorbitol 'Save All Text to SomeFile.asp 'Run On Webserver 'In FormBox type Launch.yahoo.com Video ID (Hold Mouse over Link to PLay Video) 'Use Streambox to Capture Video!! vn = Request.Querystring("vn") Function URLDecode(Expression) Dim strSource, strTemp, strResult Dim lngPos strSource = Replace(Expression, "+", " ") For lngPos = 1 To Len(strSource) strTemp = Mid(strSource, lngPos, 1) If strTemp = "%" Then If lngPos + 2 < Len(strSource) Then strResult = strResult & _ Chr(CInt("&H" & Mid(strSource, lngPos + 1, 2))) lngPos = lngPos + 2 End If Else strResult = strResult & strTemp End If Next URLDecode = strResult End Function Function GUID() GUID = server.createobject ("scriptlet.typelib").guid GUID = replace(guid,"{","") GUID = replace(guid,"}","") GUID = replace(guid,"-","") GUID = cstr(left(guid,len(guid)-2)) end Function Function GetPlayString(vn) If VN <> "" then A1 = "http://launchtoday.launch.yahoo.com/player/medialog.asp?v=" A2 = VN & "&csi=385400072&b=300" A3 = "&playGUID=" & GUID A4 = "&show=p%2F3%2Exml&origin=35" A5 = "&userGUID=" & GUID & "&clientID=1" A6 = "&segment=2&sk=726kstguesj1g4cfb40be&z=ms.asx" GetPlayString = A1 & A2 & A3 & A5 & A4 & A6 Else GetPlayString = "" End If End Function File = GetPlaystring(vn) Function GetYahoo1() If vn <> "" Then Dim xml, Dummy Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") xml.Open "GET", File, False xml.Send GetYahoo1= xml.responseText Set xml = Nothing Else GetYahoo1= "" End If End Function Function GetYahoo2(Link1) If vn <> "" Then Dim xml Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") xml.Open "GET", Link1, False xml.Send GetYahoo2 = xml.responseText Set xml = Nothing Else GetYahoo2 = "" End If End Function YahooVideoFileLink = GetYahoo2(GetYahoo1) %> <html> <head> <title>Yahoo Launch Hack</title> </head> <body> <form name="main">Enter the Yahoo Launch Video Number: <br> <input type="text" name="VN" size="20"/><br> <input type="submit" value="Create Link"/><br> <hr> <% If vn <> "" Then %> <script> function copyit(field) { field.focus(); field.select(); document.execCommand("Copy"); copiedtext=window.clipboardData.getData("Text"); } </script> <textarea name="YahooVideoURL" rows="8" cols="80" readonly> <%=YahooVideoFileLink%> </textarea> <br> <INPUT TYPE="button" VALUE="Copy Text To ClipBoard" onClick="copyit(this.form.YahooVideoURL)"> <br> <OBJECT ID="mediaPlayer" CLASSID="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95" CODEBASE="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab" STANDBY="Loading Microsoft Windows Media Player components..." TYPE="application/x-oleobject"> <PARAM NAME="fileName" VALUE="<%=YahooVideoFileLink%>"> <PARAM NAME="animationatStart" VALUE="true"> <PARAM NAME="transparentatStart" VALUE="true"> <PARAM NAME="autoStart" VALUE="false"> <PARAM NAME="showControls" VALUE="true"> </OBJECT><br> <a href="http://www.afterdawn.com/software/audio_software/audio_tools/streambox_vcr.cfm">Streambox</a> <% End If %> </form> </body> </html>
