http://www.geocities.com/krishnapg/screencap.html
This article gives a pretty good background on various ways to capture the
screen. I have some code to do it the GDI way below, but I cant figure out
how to get the Mouse in there. I am frustrated and looking at Direct X. I
am may have to try the Windows Media API , but know nothing about it.
Anyone have a way to get the mouse in my screen capture, any examples would
be great (GDI, DirectX, or Windows Media API)?
Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal
lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As
String, ByVal lpInitData As String) As Integer
Private Declare Function CreateCompatibl eDC Lib "GDI32" (ByVal hDC As
Integer) As Integer
Private Declare Function CreateCompatibl eBitmap Lib "GDI32" (ByVal hDC As
Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer
Private Declare Function GetDeviceCaps Lib "gdi32" Alias "GetDeviceC aps"
(ByVal hdc As Integer, ByVal nIndex As Integer) As Integer
Private Declare Function SelectObject Lib "GDI32" (ByVal hDC As Integer,
ByVal hObject As Integer) As Integer
Private Declare Function BitBlt Lib "GDI32" (ByVal srchDC As Integer, ByVal
srcX As Integer, ByVal srcY As Integer, ByVal srcW As Integer, ByVal srcH As
Integer, ByVal desthDC As Integer, ByVal destX As Integer, ByVal destY As
Integer, ByVal op As Integer) As Integer
Private Declare Function DeleteDC Lib "GDI32" (ByVal hDC As Integer) As
Integer
Private Declare Function DeleteObject Lib "GDI32" (ByVal hObj As Integer) As
Integer
Const SRCCOPY As Integer = &HCC0020
Private oBackground As System.Drawing. Bitmap
Private FW, FH As Integer
Public Sub CaptureScreen()
Dim hSDC, hMDC As Integer
Dim hBMP, hBMPOld As Integer
Dim r As Integer
hSDC = CreateDC("DISPL AY", "", "", "")
hMDC = CreateCompatibl eDC(hSDC)
FW = GetDeviceCaps(h SDC, 8)
FH = GetDeviceCaps(h SDC, 10)
hBMP = CreateCompatibl eBitmap(hSDC, FW, FH)
hBMPOld = SelectObject(hM DC, hBMP)
r = BitBlt(hMDC, 0, 0, FW, FH, hSDC, 0, 0, 13369376)
hBMP = SelectObject(hM DC, hBMPOld)
r = DeleteDC(hSDC)
r = DeleteDC(hMDC)
oBackground = System.Drawing. Image.FromHbitm ap(New IntPtr(hBMP))
DeleteObject(hB MP)
DeleteObject(hB MPOld)
