Question

VB做截图程序

只要截全屏的就好了.

1要能定时截图.
2要能保存,并且是每张图片不覆盖保存(这个很重要).
3能压缩成JPG格式更好.

希望能给出全部代码.

Answer 1

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
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

Private Sub Form_Load()
Me.Hide
On Error Resume Next
MkDir "c:\zt"
SetAttr "c:\zt", vbHidden
Me.AutoRedraw = True
Timer1.Interval = 60000
'每分钟抓一次屏
End Sub

Private Sub Timer1_Timer()
BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, _
GetDC(0), 0, 0, vbSrcCopy '抓屏
Dim sFile As String
sFile = "C:\zt\" & Format(Now, "yyyymmddhhmmss") & ".BMP"
SavePicture Me.Image, sFile '保存
End Sub

Answer 2

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const theScreen = 0
Const theForm = 1

Private Sub Command1_Click()
Call keybd_event(vbKeySnapshot, theScreen, 0, 0)
DoEvents
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
End Sub

Answer 3

用API函数模拟按PrtScSyRq键

再从剪贴版读取数据。

最后用SavePicture语句保存图片。

留个E-Mail地址，我发源代码给你。

Answer 4

我有这个vb抓屏程序
qiaowei10@126.com

Answer 5

pd_008@163.com