VB中使用Winsock控件来当前计算机中打开的端口,可供初学者学习