Capture Window Image in VBA

Dear Expert,

I am trying to use Excel2003 VBA to capture a Window screen with its hwnd from the code provided at this website

https://www.experts-exchange.com/questions/22959939/Capture-Screen-Content-or-Window-Content.html?sfQueryTermInfo=1+10+30+captur+imag+screen+vba

And the code running is okay but when I step run it by (F8 press) and I found the VBA never going pass to
the code area at " If lColor = 14540253 Then" so there is no any bitBlt() and OpenClipboard() activate
Why it is set lcolor=1450253, what is that meaning ? I always get  lcolor=-1 whatever x and y is

And I found it should set
For x = Rect.Left To Rect.Right
        For y = Rect.Top To Rect.Bottom
Instead of
For x =0 To fheight-1
        For y =0 To fwidth-1
]in order to locate exact position of the image  to be captured, Even wth those change, I'm still not be able
to get the image to show me at Range("A1"). The image at Range("A1") is blank.  Please advise any mistake I made  and I would like  to ask Two more question.

1- Why it is set  86,21  at  BitBlt hDCmem2, 0, 0, 86, 21, hDCmem, x, y, SRCCOPY, what is that for
2- How can I save the image at clipboard to a file name as image.jpeg or image.bmp ?

Please advise

Duncan

Private Sub ScreenToClipBoard()
Dim bHwnd As Long
Dim fwidth As Long
Dim fheight As Long
Dim hBitMap As Long
Dim hBitMap2 As Long
Dim hDC As Long
Dim hDCmem As Long
Dim hDCmem2 As Long
Dim lColor As Long
Dim junk As Long
Dim Rect As Rect
Dim x As Long
Dim y As Long
 
 
    bHwnd = FindWindow(vbNullString, "Yahoo!-Windows Internet Explorer")  ' Find Handle for IE
  
    If bHwnd = 0 Then
        MsgBox ("Did not find the Window with the title of:" & vbCrLf & vbCrLf & _
                """"  & """" & vbCrLf & vbCrLf & _
                "Error number=" & Err.LastDllError)
        Exit Sub
    End If
 
 
    junk = SetForegroundWindow(bHwnd)   ' Set this handle/Window as the Foreground Window.
    If junk = 0 Then                    ' A zero return code indicates failure
        MsgBox ("Unable to Set IE as the foreground Window.")
        Exit Sub
    End If
    
    '---------------------------------------------------
    ' There will be some lag before this window is actually in the foreground, so, give it a
    ' little CPU to move it to the front
    DoEvents
    DoEvents
    DoEvents
    DoEvents
    DoEvents
    
    '---------------------------------------------------
    ' Get screen coordinates of the browser window
    '---------------------------------------------------
    Call GetWindowRect(bHwnd, Rect)
    fwidth = Rect.Right - Rect.Left         ' Calculate Width of Window
    fheight = Rect.Bottom - Rect.Top        ' Calculate Height of Window
    
    '---------------------------------------------------
    ' Get a handle to the browser window
    '---------------------------------------------------
    hDC = GetDC(bHwnd)                      ' Get 'Device Context' for IE window.
    
    '---------------------------------------------------
    ' GetPixel only works if the hDC and the bitmap have been selected with SelectObject
    ' So, create a compatible bitmap and select it.
    '---------------------------------------------------
    hDCmem = CreateCompatibleDC(hDC)
    hBitMap = CreateCompatibleBitmap(hDC, fwidth, fheight)
 
    ' Not sure if this should be before or after the SelectObject
    'BitBlt hDCmem, 0, 0, fwidth, fheight, hDC, 0, 0, SRCCOPY
 
 
    If hBitMap <> 0 Then
        junk = SelectObject(hDCmem, hBitMap)
        If junk = 0 Then                        ' In my testing I always get a zero
            MsgBox ("Unable to SelectObject")   ' See http://msdn2.microsoft.com/en-us/library/ms533272.aspx
            Exit Sub
        End If
    Else
        MsgBox "Could NOT create a memory bitmap"
        Exit Sub
    End If
   
    ' Not sure if this should be before or after the SelectObject
    BitBlt hDCmem, 0, 0, fwidth, fheight, hDC, 0, 0, SRCCOPY
 
 
    '----------------------------------------------------
    ' Now create a hDC and bitmap for the final result bitmap.
    '----------------------------------------------------
    hDCmem2 = CreateCompatibleDC(hDC)
    hBitMap2 = CreateCompatibleBitmap(hDC, 86, 21)
    
    '----------------------------------------------------
    ' Search the browser window looking for the backcolor
    ' of the security code image
    '----------------------------------------------------
    For x = 0 To fheight - 1
        For y = 0 To fwidth - 1
            lColor = GetPixel(hDCmem, x, y)
            If lColor = 14540253 Then   '****************Problem is here, 
                '---------------------------------------------
                ' Once the security code is found, prepare to copy it
                ' to another memory resident bitmap
                '---------------------------------------------
                
                If hBitMap2 <> 0 Then
                    junk = SelectObject(hDCmem2, hBitMap2)
                Else
                    MsgBox ("Could NOT create memory bitmap")
                    Exit Sub
                End If
            
                BitBlt hDCmem2, 0, 0, 86, 21, hDCmem, x, y, SRCCOPY
                
                '---------------------------------------------
                ' Set up the Clipboard and copy memory resident bitmap to it
                '---------------------------------------------
                junk = OpenClipboard(bHwnd)
                junk = EmptyClipboard()
                junk = SetClipboardData(CF_BITMAP, hBitMap2)
                junk = CloseClipboard()
        
                '---------------------------------------------
                ' Optionally, paste the clipboard contents into a cell on the spreadsheet
                '---------------------------------------------
                Range("A1").Select
                ActiveSheet.Paste
                
                '---------------------------------------------
                ' Clean up handles
                '---------------------------------------------
                junk = DeleteObject(hBitMap)
                junk = DeleteObject(hBitMap2)
                junk = DeleteDC(hDCmem)
                junk = DeleteDC(hDCmem2)
                junk = ReleaseDC(bHwnd, hDC)
            End If
        Next y
    Next x
 
Stop
 
End Sub

Select allOpen in new window