用Winsock穿透各种代理,VB写的