VB做截图程序

来源：百度知道 编辑：UC知道 时间：2024/06/20 02:30:38
只要截全屏的就好了.

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

希望能给出全部代码.

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

Private Declare Sub keybd_event Lib "user32&quo