本人为VB业余爱好者，分享本代码的目的是为分享技术，并非鼓励大家恶意注册QQ号码。 请使用者自我把握，合理应用，本人不对此代码可能带来的任何损害负责。 欢迎大家继续优化精简，如有更好的方法请与我交流分享。 -I am a VB amateurs, share the purpose of this code is to share technology, not encourage people to malicious up QQ number. Please take the u