用自己摄像头录屏的代码

急需9积分购买opencv_traincascade.exe所以拿出自己以前编的能用自己摄像头录制视频的代码，用tkinter编的界面，运行必然能看懂，希望有余额的朋友救助一下。