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截图控件<<<<<<<<<<<<<<<<<<