Question

vb截屏代码？

运行后点击command1，就把当前屏幕截下来，每秒一张，并保存在“D:\截图”里，以1,2,3......的顺序排列，要用什么代码？

Answer 1

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 Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
'窗口上要放一个图片框和一个时钟控件。办法是把屏幕拷贝到图片框，再把图片框的Image保存到文件。
Private Sub Form_Load()
    If Dir("D:\截图", vbDirectory) = "" Then MkDir "D:\截图"
    Timer1.Enabled = False
    Timer1.Interval = 1000
    Picture1.Move 0, 0, Screen.Width, Screen.Height
    Picture1.AutoRedraw = True
    Picture1.Visible = False
End Sub
Private Sub Command1_Click()
    Me.WindowState = vbMinimized '开始后把窗口最小化，否则自己也会拷贝进去
    Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    Static imgIndex As Long
    imgIndex = imgIndex + 1
    BitBlt Picture1.hDC, 0, 0, Screen.Width \ Screen.TwipsPerPixelX, Screen.Height \ Screen.TwipsPerPixelY, GetDC(0), 0, 0, vbSrcCopy
    SavePicture Picture1.Image, "D:\截图\" & imgIndex & ".bmp"
End Sub