[moh61]

لا الله حتى نفس شرحك ما نفذ معي مادريت المشكلة من ايش على العموم الله يعطيك العافية انا كنت حابب من الاخوه بالمنتدى تساعدنا بالشرح من خلال رابط اليويتيوب هذا ومع الكود هذا لانو الكود مرة صغير وشراح اكثر من رائع والاداه تعمل حتى على ال desktop ياريت من اخواني تراجع الفديو التالي و الكود التالي : ويعطيكم الف عافية و شكر .


https://www.youtube.com/watch?v=Kjdu8SjEtG0

Code:
Imports Emgu.CV
Imports Emgu.Util
Imports Emgu.CV.OCR
Imports Emgu.CV.Structure

Public Class Form1

Dim OCRz As Tesseract = New Tesseract("tessdata", "eng", Tesseract.OcrEngineMode.OEM_TESSERACT_ON­LY)
Dim pic As Bitmap = New Bitmap(270, 100)
Dim gfx As Graphics = Graphics.FromImage(pic)

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'If Windows XP
gfx.CopyFromScreen(New Point(Me.Location.X + PictureBox1.Location.X + 4, Me.Location.Y + PictureBox1.Location.Y + 30), New Point(0, 0), pic.Size)
PictureBox1.Image = pic

'If Windows 7
'gfx.CopyFromScreen(MousePositi­on, New Point(0, 0), pic.Size)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

OCRz.Recognize(New Image(Of Bgr, Byte)(pic))
RichTextBox1.Text = OCRz.GetText

End Sub
End Class