Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Visual Studio , kliknite na odkaz " New Proejct " a rozšírenie " Visual Basic " dole " . Nainštalované šablóny " Double - kliknite na " Console Application " na vytvorenie nového projektu konzoly
2
Pridajte nasledujúci kód vyššie . " Modul Module1 " deklarovať obory názvov , ktoré budete používať vo vašom projekte :
Dovoz System.Net.SocketsImports System.NetImports System.ThreadingImports System.Text
3
Pridajte nasledujúci kód pod " Sub Main ( ) " vytvoriť premennú definovať počítadlo variabilné , počnúc portu a ukončenie portu , ktoré chcete testovať :
Dim startPrt As Integer = 75Dim endPrt As Integer = 90Dim lpLng As Long
4
skopírujte a vložte nasledujúci kód pre vytvorenie slučky a zobrazí správu so stavom každého prístavu :
lpLng = startPrt pre endPrtDim clientTcp ako nový TcpClient ( ) TryclientTcp.Connect ( " 1.1.1.1 " , lpLng ) konzoly . Console.WriteLine ( " Port " + lpLng.ToString ( ) + " je pripravený " ) clientTcp.Close ( ) Catch ex Ako SocketExceptionConsole.WriteLine ( + lpLng.ToString " Port " ( ) + " je zatvorené " + ex.Message ) End TryNextConsole.ReadLine ( )
5
Upraviť " 1.1.1.1 " reťazec a zadajte IP adresu počítača , ktorý chcete testovať . Stlačte klávesu " F5 " , spustiť program a začať testovať každý port .