If Host = "Putlocker" Then

                              Dim source As String = .GetResponse(Utility.Http.Verb.GET, "http://www.putlocker.com/file/D0BC3B1F4AF2EC26").Html
                              Dim Hash As String = Regex.Match(source, "<input type=""hidden"" value=""(.*)"" name=""hash"">").Groups(1).Value

                              Dim Headers As New NameValueCollection
                              Headers.Add("Connection", "keep-alive")

                              .Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
                              .Useragent = "Mozilla/5.0 (Windows NT 6.2; WOW64; rv:23.0) Gecko/20100101 Firefox/23.0"
                              .AcceptCharset = String.Empty
                              .AcceptEncoding = "gzip, deflate"
                              .AcceptLanguage = "fr,fr-fr;q=0.8,en-us;q=0.5,en;q=0.3"
                              .ContentType = "application/x-www-form-urlencoded"

                              Dim GetPhpScript As String = .GetResponse(Utility.Http.Verb.POST, "http://www.putlocker.com/file/D0BC3B1F4AF2EC26", String.Format("hash={0}&confirm=Continue+as+Free+User", Hash), Headers).Html
                              Dim StreamURL As String = Regex.Match(GetPhpScript, "playlist: \'(.*)\'").Groups(1).Value
                              Dim MediaURL As String = .GetResponse(Utility.Http.Verb.GET, "http://www.putlocker.com" + StreamURL).Html
                              MediaURL = Regex.Match(MediaURL, "<media:content url=""(.*)""").Groups(1).Value
                              MessageBox.Show(MediaURL)

                        End If