用VB编写，无毒，亲测ok。