这是我经常使用的VB模块,由本人编写,可能会有不少纰漏和错误,敬请大家指正。