--------监视你的 TCP/IP端口！！！（vb）----------- (转)

最新推荐文章于 2021-03-20 21:05:33 发布

转载最新推荐文章于 2021-03-20 21:05:33 发布 · 292 阅读

文章标签：

#网络

--------监视你的 TCP/IP端口！！！（vb）----------- (转)[@more@]

Option Explicit Const PortsChecked = 200 Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Command2_Click() Timer1.Interval = 0 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Dim X As Integer List1.Clear For X = 1 To PortsChecked DoEvents Text1.Text = X WinSock1.LocalPort = X On Error Resume Next WinSock1.Listen ' If we get an error, the port is busy. If Err.Number = 10048 Then List1.AddItem X ' Log Active port # to list box. Err.Number = 0 End If WinSock1.Close Next X End Sub Private Sub Form_Load() Label1.Caption = "Checking Port #" Label2.Caption = "Ports In Use" Command1.Caption = "Start" Command2.Caption = "End" Text1.Locked = True End Sub

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-996117/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-996117/