vb写的屏幕截图 小软件
源码
Option Explicit
Dim screenhwnd, screendc, rc
'<<<<<<<<<<<<<<<<<<<截图<<<<<<<<<<<<<<<<<<
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 '以下API函数可以通过VB自带的API文本浏览器复制而来。
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long
'<<<<<<<<<<<<<<<<<<<调用QQ截图控件<<<<<<<<<<<<<<<<<<