Public Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As LongPublic Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long Public Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (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 LongDim hDC As Long hDC = GetDC(0) ret = BitBlt (Form1.hDC, 0, 0, 屏幕宽, 屏幕高, hDC, 0, 0, SRCCOPY) ret = ReleaseDC(0, hDC)
我不是做什么培训课程,想做一个有趣的东东了,
哎!郁闷啊!
谁能告诉我,不是大家都下班 了 吧 !
Call keybd_event(VK_SNAPSHOT, 0, 0, 0)
DoEvents
SavePicture Clipboard.GetData, "c:\temp5555.bmp"
Clipboard.Clear
你看可以吗?
Public Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (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 LongDim hDC As Long
hDC = GetDC(0)
ret = BitBlt (Form1.hDC, 0, 0, 屏幕宽, 屏幕高, hDC, 0, 0, SRCCOPY)
ret = ReleaseDC(0, hDC)
你的老婆一定是一个非常非常好的老婆,你也一定是一个非常非常好的老公!