UC知道VB 程序如何连续截屏，且放在指定文件夹！文件名字以当前时间秒作文件名！
来源：百度知道 编辑：UC知道 时间：2024/06/20 05:56:22
VB 程序如何连续截屏，且放在指定文件夹！文件名字以当前时间秒作文件名！
以下我编程序！但文件名只能为t.jpg!不能依时间变化？谢谢
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 = 1
Const theForm = 0
Private Sub Command1_Click()
Dim t As Integer
t = Minute(Time)
Call keybd_event(vbKeySnapshot, theForm, 0, 0)
'若theForm改成theScreen则Copy整个Screen
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), "d:\t.jpg"
End Sub
以下我编程序！但文件名只能为t.jpg!不能依时间变化？谢谢
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 = 1
Const theForm = 0
Private Sub Command1_Click()
Dim t As Integer
t = Minute(Time)
Call keybd_event(vbKeySnapshot, theForm, 0, 0)
'若theForm改成theScreen则Copy整个Screen
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), "d:\t.jpg"
End Sub
只需要改一点点，呵呵：
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 = 1
Const theForm = 0
Private Sub Command1_Click()
Dim t As Integer
t = Minute(Now)
Call keybd_event(vbKeySnapshot, theForm, 0, 0)
'若theForm改成theScreen则Copy整个Screen
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), "d:\" & t & ".jpg"
End Sub
这个简单嘛,我百度空间里有,你可以参考下. http://hi.baidu.com/hxheiyao