本人用vb编的,希望有人可以用上(有需要代码的请与本人联系)