ma-ta e obeza

Imports Emgu.CV
Imports Emgu.Util
Imports Emgu.CV.OCR
Imports Emgu.CV.Structure
Imports System.Net
Imports System.Text
Imports System.IO


Public Class Form1





    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        PictureBox1.ImageLocation = "http://ratati.org/chall/image.php"

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim CropRect As New Rectangle(25, 20, 90, 20)
        Dim OrignalImage = PictureBox1.Image
        Dim CropImage = New Bitmap(CropRect.Width, CropRect.Height)
        Using grp = Graphics.FromImage(CropImage)
            grp.DrawImage(OrignalImage, New Rectangle(0, 0, CropRect.Width, CropRect.Height), CropRect, GraphicsUnit.Pixel)

            PictureBox1.Image = CropImage
        End Using



        Dim OCRz As Tesseract = New Tesseract("tessdata", "eng", Tesseract.OcrEngineMode.OEM_TESSERACT_ONLY)
        OCRz.SetVariable("tessedit_char_whitelist", "x0123456789")
        Dim pic As Bitmap = PictureBox1.Image
        OCRz.Recognize(New Image(Of Bgr, Byte)(pic))
        RichTextBox1.Text = OCRz.GetText

        Dim raspuns As String
        Dim s As String = RichTextBox1.Text

        ' Split string based on spaces
        Dim words As String() = s.Split(New Char() {"x"})

        raspuns = words(0).ToString * words(1).ToString
        TextBox1.Text = raspuns


        '' request copy paste de pe msdn
        Dim request As WebRequest = WebRequest.Create("http://ratati.org/chall/index.php")
        request.Method = "POST"
        Dim postData As String = "res=" + raspuns.ToString + "&submit=submit"
        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
        request.ContentType = "application/x-www-form-urlencoded"
        request.ContentLength = byteArray.Length
        Dim dataStream As Stream = request.GetRequestStream()
        dataStream.Write(byteArray, 0, byteArray.Length)
        dataStream.Close()
        Dim response As WebResponse = request.GetResponse()
        Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)
        dataStream = response.GetResponseStream()
        Dim reader As New StreamReader(dataStream)
        Dim responseFromServer As String = reader.ReadToEnd()
        WebBrowser1.DocumentText = (responseFromServer)
        reader.Close()
        dataStream.Close()
        response.Close()

    End Sub


End Class