<%
'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>
