我自己用VB做的，以前上传过，这是更新过的。