How do I extract the flv link for a putlocker video? using VB.Net

[EDN Admin]

<pre class="prettyprint" style=" [/code]
Im finding it near impossible to get the link to a putlocker videos flv. I have found tons of threads about it but no definitive answer. Here is some help I received from a german forum (which I cant make much sense of)<br/>
<br/>
<br/>
Code:<br/>
<br/>
<br/>
Class putlocker:<br/>
<br/>
Imports System.Text.RegularExpressions<br/>
Imports System.Text<br/>
Imports System.Net<br/>
Imports System.ComponentModel<br/>
<br/>
Public Class putlocker<br/>
<br/>
Public URL As String = Nothing<br/>
Public Referer As String = Nothing<br/>
Public Postdata As String = Nothing<br/>
Public Hash As String = Nothing<br/>
Public Titel As String = Nothing<br/>
Public Directlink As String = Nothing<br/>
Public FeedLink As String = Nothing<br/>
Dim HttpRequest As New HttpRequest<br/>
<br/>
Public Sub getHash()<br/>
Try<br/>
Dim Quelltext As String = Nothing<br/>
<br/>
HttpRequest.GET(URL)<br/>
Quelltext = HttpRequest.Result<br/>
<br/>
If Quelltext.Contains("hash") Then<br/>
Dim Treffer As New Regex("(?).+(?= )") Dim Mc2 As MatchCollection = Treffer2.Matches(Quelltext) Dim StrBuilder2 As New StringBuilder For Each m2 As Match In Mc2 Dim name2 As String = m2.Value Titel = name2 Next Form1.lvinfos.Items.Add("Name:
").SubItems.Add(Titel) MsgBox("Infos geladen") End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Sub getFeedLink() Try Postdata = "hash=" &amp; Trim(Hash) &amp; "&amp;confirm=Continue+as+Free+User"
HttpRequest.POST(URL, Postdata, Referer) Dim Quelltext As String = HttpRequest.Result If Quelltext.ToLower.Contains("playlist") Then Dim Treffer As New Regex("(? <br/>
Class HttpRequest (credits gehen an jemanden von vb-community.eu):<br/>
<br/>
Imports System.Net<br/>
Imports System.IO<br/>
Imports System.Text<br/>
Imports System.Threading<br/>
<br/>
Public Class HttpRequest<br/>
<br/>
Public Request As HttpWebRequest<br/>
Public Response As HttpWebResponse<br/>
Public Result As String<br/>
Public CookieContainer As New CookieContainer<br/>
<br/>
Public Sub [GET](ByVal URL As String, Optional ByVal referer As String = "")<br/>
Try<br/>
Request = DirectCast(WebRequest.Create(URL), HttpWebRequest)<br/>
Request.Method = "GET"<br/>
Request.Accept = "*/*"<br/>
Request.AllowAutoRedirect = True<br/>
Request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:12.0) Gecko/20100101 Firefox/12.0"<br/>
Request.Timeout = 60000<br/>
Request.CookieContainer = CookieContainer<br/>
Response = DirectCast(Request.GetResponse(), HttpWebResponse)<br/>
Dim ResponseStream As New StreamReader(Response.GetResponseStream())<br/>
Result = ResponseStream.ReadToEnd()<br/>
ResponseStream.Close()<br/>
Catch<br/>
Finally<br/>
Response.Close()<br/>
End Try<br/>
End Sub<br/>
<br/>
Public Sub [POST](ByVal URL As String, ByVal Post As String, ByVal Referer As String)<br/>
Try<br/>
Request = DirectCast(WebRequest.Create(URL), HttpWebRequest)<br/>
Request.Method = "POST"<br/>
Request.Accept = "*/*"<br/>
Request.AllowAutoRedirect = True<br/>
Request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:12.0) Gecko/20100101 Firefox/12.0"<br/>
Request.Timeout = 60000<br/>
Request.CookieContainer = CookieContainer<br/>
Request.ContentType = "application/x-www-form-urlencoded"<br/>
Request.Referer = Referer<br/>
<br/>
Dim Encoding As New ASCIIEncoding()<br/>
Dim PostByteArray() As Byte = Encoding.GetBytes(Post)<br/>
Request.ContentLength = PostByteArray.Length<br/>
Dim PostStream As IO.Stream = Request.GetRequestStream()<br/>
PostStream.Write(PostByteArray, 0, PostByteArray.Length)<br/>
PostStream.Close()<br/>
Response = DirectCast(Request.GetResponse(), HttpWebResponse)<br/>
Dim ResponseStream As New StreamReader(Response.GetResponseStream())<br/>
Result = ResponseStream.ReadToEnd()<br/>
ResponseStream.Close()<br/>
Catch<br/>
Finally<br/>
Response.Close()<br/>
End Try<br/>
End Sub<br/>
End Class<br/>
<br/>
putlocker.URL = link<br/>
putlocker.getHash()<br/>
putlocker.getFeedLink()<br/>
putlocker.getDirectLink(<br/>

View the full article