作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

      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 

相关软件：