So erstellen Sie eine Test- Hafen in Visual Basic

Mitglieder-Login

InformationenVisual Basics Programmierung

Wie ein General VBScript schreiben Microsoft entwickelte Skriptsprache VBScript . Sie können diese Sprache auf Funktionen, die auf Web-
Wie Referenzen für Sie ein VB6 Visual Basic 6 Referenzen können Sie auch andere Programm DLL -Dateien in Ihrem Desktop-Anwendung. S
Wie man eine Visual Basic für Loop… Loops sind gemeinsame Komponenten in jedem Compiler . In Visual Basic, sind Sie in der Lage , um ein
Wie kann ich mein eigenen Kontrolle… . Visual Basic NET hat viele Steuerelemente standardmäßig, aber kann es einige Fälle geben, wenn ein

Programming

HOME

* Computer Wissen >> Programming >> Visual Basics Programmierung >> .

So erstellen Sie eine Test- Hafen in Visual Basic

Erstellen einer Port -Test in Visual Basic.NET ( VB.NET) ist nicht kompliziert - in VB.NET können Sie die " System.Net.Sockets " Namespace , die Sie mit verwenden eine Schnittstelle zum Netzwerk von einem Computer zu steuern. Benutzen Sie den " TcpClient " Klasse an jeden gewünschten Anschluss zu testen und anzuzeigen , ob ein Port offen oder geschlossen ist anzuschließen. Dieses Verfahren ist nützlich, wenn Sie viele Ports in einem Computer , um festzustellen, welche davon sind für den Einsatz testen möchten. Things You
Microsoft Visual Studio
brauchen anzeigen Weitere Anweisungen
1

Starten Sie Microsoft Visual Studio , klicken Sie auf die Schaltfläche "Neu Proejct " link und erweitern " Visual Basic " unten " . Installierte Vorlagen "Double -click" Console Application " . , um eine neue Konsole -Projekt zu erstellen
2

Fügen Sie den folgenden Code oben " Module Module1 ", um die Namensräume Sie verwenden in Ihrem Projekt zu erklären :

Importe System.Net.SocketsImports System.NetImports System.ThreadingImports System.Text
3

Fügen Sie den folgenden Code unter "Sub Main () ", um eine Variable zu erstellen , um eine Definition Zählvariable , der Ausgangshafen und die Endportnummer Sie testen möchten :

Dim As Integer = startPrt 75Dim endPrt As Integer = 90Dim lpLng As Long
4

Kopieren Sie den folgenden Code , um eine Schleife zu erstellen und zeigt eine Meldung mit dem Status von jedem Anschluss:

lpLng = startPrt um endPrtDim clientTcp As New TcpClient () TryclientTcp.Connect ( " 1.1.1.1 " , lpLng ) Console . WriteLine ( "Port" + lpLng.ToString () + "ist bereit " ) clientTcp.Close ( ) Fange ex As SocketExceptionConsole.WriteLine ( "Port" + lpLng.ToString ( ) + " ist geschlossen" + ex.Message ) Ende TryNextConsole.ReadLine ()
5

bearbeiten " 1.1.1.1 " string und geben Sie die IP-Adresse des Host, den Sie testen möchten. Drücken Sie die Taste "F5" -Taste, um das Programm zu starten und dem Testen beginnen jeden Port .