VB6.0 监控计算机TCP/IP端口.rar

VB6.0监控计算机TCP/IP端口，监控电脑当前打开的端口，显示在列表中。这个监控程序比较简单，以下是相关的代码： 　　DimxAsInteger 　　List1.Clear 　　Forx=1To2000 　　DoEvents 　　Winsock1.LocalPort=x 　　OnErrorResumeNext 　　Winsock1.Connect 　　IfErr.Number=10048Then 　　List1.AddItemx 　　EndIf 　　Winsock1.Close 　　Nextx 　　EndSub 　　可下载完整源码包查看。