VB怎样仿QQ的截取影片图像

来源：百度知道 编辑：UC知道 时间：2024/06/15 19:30:45
VB仿QQ的截图网上已经一大堆了，就是调用QQ的CameraDll.dll 里面的一个CameraAreaSub 函数来实现的。那如何实现QQ的截取影片图像，是否还是用这个DLL，还是调用其他的DLL。请各位大虾帮忙解惑~！
我要的是截取影片图像，不是截图的。请慎重回答~！

Option Explicit
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
截全屏的:
Private Sub Form_Click()
keybd_event vbKeySnapshot, 0&, 0&, 0&
DoEvents
Me.Picture = Clipboard.GetData(vbCFBitmap)
End Sub