视频捕获

代码说明：

进口跃升进口System.Windows.InkImports文件Microsoft.Expression.Encoder编码.DevicesImports网络摄像机控制导入System.Drawing.Imaginage端口系统.IOClass主窗口专用声明函数SetCursorPos Lib"；user32"；（x为整数，y为整数）为布尔型专用声明函数apimouseu event Lib"；user32"；Alias"；mouseu event"；（ByVal dwFlags As Int32，ByVal dx As Int32，ByVal dy As Int32，ByVal cButtons As Int32，ByVal dwExtraInfo As Int32）作为布尔值Private Const MOUSEEVENTFu LEFTDOWN=&H2；Private Const MOUSEEVENTFu LEFTUP=&H4；Private leap As New Controller ；PrivatetouchIndicator As New drawing属性私有接触点As StylusPoint私有xmldoc As XElement私有图像列表As New List