以前找过VB调用API的例子，但不知道为什么我测试时候没有反应，现在根据以前的结合自己的重写了一个，自己感觉很满意，不敢独享，和大家一起交流学习，在这里谢谢前人的代码。-Previously looked VB API calls examples, but I do not know why I did not respond when tested, according to now combine their previous rewrite one, feel very satisfie