VB摄像头捕捉源代码
DeclareFunctionlStrCpyLib"kernel32"Alias"lstrcpyA"(ByVallpString1AsLong,ByVallpString2AsLong)AsLongDeclareFunctionlStrCpynLib"kernel32"Alias"lstrcpynA"(ByVallpString1AsAny,ByVallpString2AsLong,ByValiMaxLengthAsLong)AsLongDeclareSubRtlMoveMemoryLib"