Die Liste im Anhang enthält über 122000 http://bs.to Links zu diversen Serien die auf Streamcloud gehostet sind.
Mit diesem Snippet bekommt Ihr die direkte Download URL der Videos(zB.: http://stor9.streamcloud.eu:8080/vtv...sm/video.mp4):
Dieses Snippet ist ziemlich dirty und dient eigentlich nur zur Veranschaulichung wie man sich den Direct Download Link via BS.TO Link holen kann. Hab mir da vor ein paar Wochen schon einen netten Downloader geschrieben und dachte mir vielleicht kann ja noch irgendwer etwas anfangen damit ;)
//Edit:
Gibt es keinen BBCode für VB.NET/C# Highlightning!?
Code:
Beispiel Links:
http://www.bs.to/serie/Die-Simpsons/3/23-Liebe-und-Intrige/Streamcloud-1
http://www.bs.to/serie/Die-Simpsons/7/19-Selma-heiratet-Hollywoodstar/Streamcloud-1
http://www.bs.to/serie/Game-of-Thrones/1/10-Feuer-und-Blut/Streamcloud-1
http://www.bs.to/serie/Familie-Feuerstein/5/18-Die-Zeitmaschine/Streamcloud-1
http://www.bs.to/serie/Bezaubernde-Jeannie/2/7-Sag-s-mit-Schuessen/Streamcloud-1
http://www.bs.to/serie/The-Leftovers/1/8-Cairo/Streamcloud-1Code:
//Declare VideoURL[bs.to]
Dim BS_URL As String = "http://www.bs.to/serie/Die-Simpsons/3/24-Der-vermisste-Halbbruder/Streamcloud-1"
//Print Information
Console.WriteLine("Grabbing direct download link for -> " & BS_URL)
Console.WriteLine()
//Create WebClient
Dim HttpClient As New WebClient
HttpClient.Encoding = UTF8
HttpClient.Proxy = Nothing
//Declare Response String & Byte Array
Dim HTML As String = String.Empty
Dim BT() As Byte = Nothing
//Download BS Video Page
Try
HTML = HttpClient.DownloadString(BS_URL)
Catch ex As Exception
Console.WriteLine(ex.Message)
Console.ReadLine()
Exit Sub
End Try
//Get StreamCloud Link
Dim SCLinkMT As Match = Regex.Match(HTML, "href='http://streamcloud.eu/(?<scurl>.*?)'")
Dim SCLink As String = "http://streamcloud.eu/"
//Check if URL was found
If SCLinkMT.Success Then
SCLink = SCLink & SCLinkMT.Groups("scurl").Value //Get SC URL
Else
Console.WriteLine("SC URL not found...")
Console.ReadLine()
Exit Sub
End If
//Get ID & HASH from URL
Dim URLMatch As Match = Regex.Match(SCLink, "streamcloud.eu/(?<id>.*?)/(?<fname>.*?).html")
Dim fName As String = URLMatch.Groups("fname").Value
Dim ID As String = URLMatch.Groups("id").Value
//Create POST Collection
Dim POSTData As New NameValueCollection
POSTData.Add("op", "download1")
POSTData.Add("usr_login", "")
POSTData.Add("id", ID)
POSTData.Add("fname", FNAME)
POSTData.Add("referer", "")
POSTData.Add("hash", "")
POSTData.Add("imhuman", "imhuman")
//Create Request to continue to video
Try
BT = HttpClient.UploadValues(SCLink, "POST", POSTData)
HTML = UTF8.GetString(BT)
Catch ex As Exception
Console.WriteLine(ex.Message)
Console.ReadLine()
Exit Sub
End Try
//Get direct Video Link from source
Dim DirectLinkMT As Match = Regex.Match(HTML, "file: ""(?<url>.*?)"",")
Dim DLDirectLink As String = String.Empty
//Check if direct link was found
If DirectLinkMT.Success Then
DLDirectLink = DirectLinkMT.Groups("url").Value
Else
Console.WriteLine("Direct DL URL not found...")
Console.ReadLine()
Exit Sub
End If
//Print direct link
Console.WriteLine("Direct download link: " & DLDirectLink)
Console.ReadLine()//Edit:
Gibt es keinen BBCode für VB.NET/C# Highlightning!?