Like many before me, I'm trying to get the video of the caller's webcamera via API. I've come up with the following code:
QUOTE
Dim bmp As Bitmap
Dim hWnd1 As IntPtr = FindWindow("TConversationForm.UnicodeClass", vbNullString)
MsgBox(hWnd1)
Dim hWnd2 As IntPtr = FindWindowEx(hWnd1, 0, "TConversationVideoPanel", vbNullString)
MsgBox(hWnd2)
Dim hWnd3 As IntPtr = FindWindowEx(hWnd2, 0, "TConversationVideo", vbNullString)
MsgBox(hWnd3)
'Dim hWnd4 As IntPtr = FindWindowEx(hWnd3, 0, "TCustomVideoWindow", vbNullString)
'MsgBox(hWnd4)
bmp = Bitmap_Capture(hWnd3)
PictureBox1.Image = bmp
Dim hWnd1 As IntPtr = FindWindow("TConversationForm.UnicodeClass", vbNullString)
MsgBox(hWnd1)
Dim hWnd2 As IntPtr = FindWindowEx(hWnd1, 0, "TConversationVideoPanel", vbNullString)
MsgBox(hWnd2)
Dim hWnd3 As IntPtr = FindWindowEx(hWnd2, 0, "TConversationVideo", vbNullString)
MsgBox(hWnd3)
'Dim hWnd4 As IntPtr = FindWindowEx(hWnd3, 0, "TCustomVideoWindow", vbNullString)
'MsgBox(hWnd4)
bmp = Bitmap_Capture(hWnd3)
PictureBox1.Image = bmp
The Bitmap_Capture function uses a few window's API calls to capture the window's video(Via the PrintWindow windows API function).
When I try to do this I get a blank window. It seems that the actual video is above the printWindow function.
Any suggestions?