监视你的 TCP/IP端口

首页 | 图形图象 | 编程开发 | 操作系统 | 数据库 | 服务器 | 网络安全 | 人才酷 | 招聘 | 资源 | 酷站 | 顶尖周刊 |

热门文章

编辑推荐

您现在的位置：顶尖设计 >> IT学院 >> 编程开发 >> VB >> 文章正文

监视你的 TCP/IP端口

作者：wujp1976 来源：csdn 点击：更新：2006-12-19

简介：

      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