Парсинг с использованием библиотеки mshtml без элемента управления WebBrowser

PictureBox1.ImageLocation = "http://www.tcell.tj/sendsms/img.php?0.80565465"

  Private Sub getcapcha()
        Dim doc As mshtml.IHTMLDocument2 = WebBrowser1.Document.DomDocument
        Dim imgrange As mshtml.IHTMLControlRange = CType(doc.body, mshtml.HTMLBody).createControlRange
        For Each img As mshtml.IHTMLImgElement In doc.images
            If img.getattribute("src").ToString.Contains("http://www.tcell.tj/sendsms/img.php?") Then
                imgrange.add(img)
                imgrange.execCommand("copy", False, Nothing)
                PictureBox1.Image = Clipboard.GetDataObject.GetData(DataFormats.Bitmap)
            End If
        Next
    End Sub

        'Получаем картинку
        Dim Request As HttpWebRequest
        Dim Response As HttpWebResponse
        Dim Cookie As New CookieContainer
        Request = HttpWebRequest.Create("http://www.tcell.tj/sendsms/img.php?0.80565465")
        Request.Method = "GET"
        Request.KeepAlive = True
        Request.UserAgent = "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:44.0) Gecko/20100101 Firefox/44.0"
        Request.CookieContainer = Cookie
        Response = Request.GetResponse
        Dim R As New StreamReader(Response.GetResponseStream, System.Text.Encoding.Default)
        IO.File.WriteAllText("E:\img.jpg", R.ReadToEnd, System.Text.Encoding.Default)
        'Отправляем запрос
        Dim fcod As String = InputBox("Enter code:", "Image Code")
        Dim Address0 As String = "99293"
        Dim Address As String = "1234567"
        Dim ShowOnDisplay As String = "on"
        Dim Message As String = "My Text"
        Dim Submit As String = "Отправить"
        Dim SendData As String = "fcod=" & fcod & "&Address0=" & Address0 & "&Address=" & Address & "&ShowOnDisplay=" & ShowOnDisplay & "&Message=" & Message & "&Submit=" & Submit
        Request = HttpWebRequest.Create("http://www.tcell.tj/sendsms/sms.php")
        Request.ContentType = "application/x-www-form-urlencoded"
        Request.ContentLength = SendData.Length
        Request.Method = "POST"
        Request.KeepAlive = True
        Request.AllowAutoRedirect = False
        Request.UserAgent = "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:44.0) Gecko/20100101 Firefox/44.0"
        Request.CookieContainer = Cookie
        Dim requestStream As Stream = Request.GetRequestStream()
        Dim postBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(SendData)
        requestStream.Write(postBytes, 0, postBytes.Length)
        requestStream.Close()
        Response = Request.GetResponse
        Dim Result = New StreamReader(Response.GetResponseStream()).ReadToEnd()
        IO.File.WriteAllText("E:\result.txt", Result)

.CookieContainer = Cookie

Dim postBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(SendData)

        'Отправляем запрос
        Dim fcod As String = InputBox("Enter code:", "Image Code")
        Dim Address0 As String = "99293"
        Dim Address As String = "1234567"
        Dim ShowOnDisplay As String = "on"
        Dim Message As String = "My Text"
        Dim Submit As String = "Отправить"
        Dim SendData As String = "fcod=" & fcod & "&Address0=" & Address0 & "&Address=" & Address & "&ShowOnDisplay=" & ShowOnDisplay & "&Message=" & Message & "&Submit=" & Submit
        Request = HttpWebRequest.Create("http://www.tcell.tj/sendsms/sms.php")
        Request.ContentType = "application/x-www-form-urlencoded"
        Request.Method = "POST"
        Request.KeepAlive = True
        Request.AllowAutoRedirect = False
        Request.UserAgent = "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:44.0) Gecko/20100101 Firefox/44.0"
        Request.CookieContainer = Cookie
        Dim postBytes As Byte() = System.Text.Encoding.UTF8.GetBytes(SendData)
        Request.ContentLength = postBytes.Length
        Dim requestStream As Stream = Request.GetRequestStream()
        requestStream.Write(postBytes, 0, postBytes.Length)
        requestStream.Close()
        Response = Request.GetResponse
        Dim Result = New StreamReader(Response.GetResponseStream()).ReadToEnd()
        IO.File.WriteAllText("E:\result.txt", Result)