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

最新推荐文章于 2024-09-18 18:16:42 发布

wujp1976

最新推荐文章于 2024-09-18 18:16:42 发布

阅读量932

点赞数

文章标签： vb timer command integer list

本文链接：https://blog.csdn.net/wujp1976/article/details/10755

版权


      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