[KingDeath360]

Don't ask for screenshots!
------Made by me------
Do i really need to write a paragraph on what this does?
Parses the download link from the page source code.
allowing you to paste it into a browser and download the video
VPORN

Code

Public Sub download_vporn(ByVal url As String)
      Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url) : request.Proxy = Nothing
      Dim response As System.Net.HttpWebResponse = request.GetResponse()
      Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
      Dim ddf As String = DirectCast(DirectCast((New System.Text.RegularExpressions.Regex("<script type=""text/javascript"">(.*?)</script>", System.Text.RegularExpressions.RegexOptions.IgnoreCase Or System.Text.RegularExpressions.RegexOptions.Singleline)).Matches(sr.ReadToEnd()), System.Text.RegularExpressions.MatchCollection)(2).Groups(1).Value, String)
      TextBox2.Text = ddf

      End Sub

Xvideos

Code

Public Sub download_Xvideos(ByVal url As String) 'working as of 20/05/2014... downloads website text, finds the 'flashvars' parses it to get direct download link
      Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url) : request.Proxy = Nothing
      Downloader(System.Web.HttpUtility.UrlDecode(DirectCast((New System.Text.RegularExpressions.Regex("flv_url=(.*?)&amp;", System.Text.RegularExpressions.RegexOptions.IgnoreCase)).Matches(DirectCast((New System.Text.RegularExpressions.Regex("<embed type=""application/x-shockwave-flash"" id=""flash-player-embed"" wmode=""transparent"" src=""http://static.xvideos.com/swf/xv-player.swf"" quality=""high"" allowfullscreen=""true"" allowscriptaccess=""always"" flashvars=""(.*?)"" width=""588"" height=""476"">", System.Text.RegularExpressions.RegexOptions.IgnoreCase)).Matches((New System.IO.StreamReader(DirectCast(request.GetResponse(), System.Net.HttpWebResponse).GetResponseStream())).ReadToEnd()), System.Text.RegularExpressions.MatchCollection)(0).Groups(1).Value.Trim()), System.Text.RegularExpressions.MatchCollection)(0).Groups(1).Value.Trim()), url)
    End Sub

playvid

Code

Public Sub download_Playvid(ByVal url As String) 'working as of 20/05/2014... downloads website text, finds the 'flashvars' parses it to get direct download link
      Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url) : request.Proxy = Nothing
      Downloader("http" & System.Web.HttpUtility.UrlDecode(DirectCast((New System.Text.RegularExpressions.Regex("http(.*?)mp4", System.Text.RegularExpressions.RegexOptions.IgnoreCase)).Matches(DirectCast((New System.Text.RegularExpressions.Regex("<embed type=""application/x-shockwave-flash"" src=""(.*?)"" id=""video_player"" flashvars=""(.*?)"" style=""width: 100%; height: 100%;"" allowscriptaccess=""always"" allowfullscreen=""true"" wmode=""opaque"" />", System.Text.RegularExpressions.RegexOptions.IgnoreCase)).Matches((DirectCast((New System.IO.StreamReader(DirectCast(request.GetResponse(), System.Net.HttpWebResponse).GetResponseStream())), System.IO.StreamReader).ReadToEnd())), System.Text.RegularExpressions.MatchCollection)(0).Groups(2).Value.Trim()), System.Text.RegularExpressions.MatchCollection)(0).Groups(1).Value.Trim()) & "mp4", url)
    End Sub

Usage:

Code

download_vporn("url of video")

[Ninja]

Why cant people just save the video from the browser instead of getting a URL from the browser, opening the program, pasting the URL, etc. Also, who downloads porn these days, except pedophiles and people with weird and illegal fetishes like necrophilia.

[Only3]

isnt it what his code doing getting the url from the browser

[Ninja]

isnt it what his code doing getting the url from the browser

From what I could understand you give a video URL and it extracts the MP4 video file from it and downloads it.

[iSynthesis]

Why cant people just save the video from the browser instead of getting a URL from the browser, opening the program, pasting the URL, etc. Also, who downloads porn these days, except pedophiles and people with weird and illegal fetishes like necrophilia.

Well can't say i disagree, but what you can do, is to add a simple clipboard monitor which copies the original URL, and sets the clipboard to the direct .MP4 link,
Other than that, this is pretty useless, thought it might help people understanding basic regex.

[SIM-1456245]

Well can't say i disagree, but what you can do, is to add a simple clipboard monitor which copies the original URL, and sets the clipboard to the direct .MP4 link,
Other than that, this is pretty useless, thought it might help people understanding basic regex.

Lol, there are better sites to understand regex than these ones xD

[mauz]

how to create the program using these sources, and this code how can I start the project?

[xVipX]

very good so you have use Regex
thanx for shear this
[img]Regex[/img]