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 .