Grabbing part of the screen.......

[Wally67]

Dear All, I would like to grab a section of the screen containing some numbers and then perform OCR on the resultant image. I think I've got the recognition sorted and I have an idea about how to get the area of the screen that I am interested in. I just don't know how to put it into a file. Any help???

Thanks in advance.

[cyborg]

start a new project and add a commandbutton and a picturebox
then add this code to the form:

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Dim DC As Long
Dim iWidth As Single
Dim iHeight As Single
Dim iFromX As Single
Dim iFromY As Single
 
Private Sub Command1_Click()
    iWidth = Picture1.ScaleWidth
    iHeight = Picture1.ScaleHeight
    iFromX = 200
    iFromY = 200
    
    DC = GetWindowDC(GetDesktopWindow)
    BitBlt Picture1.hDC, 0, 0, iWidth, iHeight, DC, iFromX, iFromY, vbSrcCopy
    Picture1.Refresh
End Sub
 
Private Sub Form_Load()
    Picture1.ScaleMode = 3
    Picture1.AutoRedraw = True
End Sub

[Wally67]

Thanks for the help. Let's see how I get on now.....