Private Sub Timer1_Timer()
  ' neue Instanz laden
  Load WinsockPortScanner(WinsockPortScanner.UBound + 1)
  ' verbinden
  WinsockPortScanner(WinsockPortScanner.UBound).Connect server.Text, 21
End Sub
 
Private Sub WinsockPortScanner_Close(Index As Integer)
  ' Verbindung geschlossen -> Instanz beenden
  Unload WinsockPortScanner(Index)
End Sub
 
Private Sub WinsockPortScanner_Connect(Index As Integer)
  chPort1.Caption = WinsockPortScanner(Index).RemoteHost + ", Port 21: Ist" & _
    "erreichbar"
  ' Verbindung schließen
  WinsockPortScanner(Index).Close
End Sub
 
Private Sub WinsockPortScanner_Error(Index As Integer, ByVal Number As Integer, _
  Description As String, ByVal Scode As Long, ByVal Source As String, ByVal _
  HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  chPort1.Caption = WinsockPortScanner(Index).RemoteHost + _
    ", Port 21: Ist nicht erreichbar"
  ' Verbindung geschlossen -> Instanz beenden
  Unload WinsockPortScanner(Index)
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.