在VB语言中“让计算机每隔10秒进行一次抓屏,比自动保存在指定的文件夹中”的代码是什么

望“大虾”们多多指教... 望“大虾”们多多指教 展开
 我来答
6Gs0i
2014-07-03 · 超过56用户采纳过TA的回答
知道答主
回答量:111
采纳率:0%
帮助的人:104万
展开全部
下面是一个VB抓屏保存为文件的源文件 可以参考一下。 Option Explicit Public Type BITMAPFILEHEADER bfType(0 To 1) As Byte bfSize As Long bfReserved1 As Integer bfReserved2 As Integer bfOffBits As Long End Type Public Type BITMAPINFOHEADER \'40 bytes biSize As Long biWidth As Long biHeight As Long biPlanes As Integer biBitCount As Integer biCompression As Long biSizeImage As Long biXPelsPerMeter As Long biYPelsPerMeter As Long biClrUsed As Long biClrImportant As Long End Type Public Declare Function GetDC Lib \"user32\" (ByVal hwnd As Long) As Long Public Declare Function CreateCompatibleDC Lib \"gdi32\" (ByVal hdc As Long) As Long Public Declare Function CreateDIBSection Lib \"gdi32\" (ByVal hdc As Long, pBitmapInfo As BITMAPINFOHEADER, ByVal un As Long, lplpVoid As Long, ByVal handle As Long, ByVal dw As Long) As Long Public 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 Public Declare Function SelectObject Lib \"gdi32\" (ByVal hdc As Long, ByVal hObject As Long) As Long Public Declare Function DeleteDC Lib \"gdi32\" (ByVal hdc As Long) As Long Public Declare Function ReleaseDC Lib \"user32\" (ByVal hwnd As Long, ByVal hdc As Long) As Long Public Declare Function DeleteObject Lib \"gdi32\" (ByVal hObject As Long) As Long Public Declare Sub CopyMemory Lib \"kernel32\" Alias \"RtlMoveMemory\" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long) Public Const DIB_RGB_COLORS = 0 Public Const SRCCOPY = &HCC0020 \' \'作者:money \'Email:2258773@163.com \'涵数功能:拷屏,保存为BMP文件 \'成功返回真 \'
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式