这是用VB写的,实现了大部分基本功能。如果有兴趣可以加以改进