用的最简单的VB代码，原理很简单，易于修改，做的不好，大家可以完善一下。