請(qǐng)問(wèn)在２Ｋ中，如何打開(kāi)２０００端口？打開(kāi)后想關(guān)閉又怎么設(shè)置呢？其他端口又如何？

熱心網(wǎng)友

向窗體上添加一個(gè)TListBox組件和一個(gè)TButton組件,設(shè)計(jì)完成的主界面如圖6-1所示。圖6-1主界面首先在程序的uses段中添加對(duì)ScktComp的引用,并且聲明一個(gè)TServerSocket組件ServerSocket1。然后在窗體的初始化過(guò)程中對(duì)組件進(jìn)行初始化:procedureTForm1。FormCreate( );beginServerSocket1:=TServerSocket。Create(self);ServerSocket1。Active:=true;end;在程序運(yùn)行過(guò)程中,單擊Refresh按鈕,就會(huì)檢測(cè)本地計(jì)算機(jī)中端口號(hào)從1到10000中被打開(kāi)的端口,響應(yīng)代碼如下:procedureTForm1。Button1Click( ); :=0to10000dobeginServerSocket1。Close;ServerSocket1。Port:=I;tryServerSocket1。Open;exceptListBox1。Items。Add(IntToStr(I)+'端口被打開(kāi)');end;end;end;程序首先清除了TListBox組件中的現(xiàn)實(shí)內(nèi)容。然后進(jìn)入一個(gè)循環(huán),在循環(huán)中首先關(guān)閉TServerSocket組件,重新設(shè)置TServerSocket組件后,嘗試去打開(kāi)TServerSocket組件,如果出現(xiàn)異常,就表示這個(gè)端口已經(jīng)被打開(kāi)了。最后,在TListBox組件中顯示本地計(jì)算機(jī)中被打開(kāi)的端口。程序代碼如下:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ScktComp;typeTForm1=class(TForm)ListBox1:TListBox;Button1:TButton;procedureButton1Click( );procedureFormCreate( );procedureFormDestroy( );private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;ServerSocket1:TServerSocket;implementation{$R*。dfm}procedureTForm1。Button1Click( ); :=0to10000dobeginServerSocket1。Close;ServerSocket1。Port:=I;tryServerSocket1。Open;exceptListBox1。Items。Add(IntToStr(I)+'端口被打開(kāi)');end;end;end;procedureTForm1。FormCreate( );beginServerSocket1:=TServerSocket。Create(self);ServerSocket1。Active:=true;end;procedureTForm1。FormDestroy( );beginServerSocket1。Free;end;end。保存文件,然后按F9鍵運(yùn)行程序,程序運(yùn)行的初始畫面如圖6-2所示。單擊Refresh按鈕,就會(huì)檢測(cè)本地計(jì)算機(jī)中端口號(hào)從1到10000中被打開(kāi)的端口,程序運(yùn)行結(jié)果如圖6-3所示。圖6-2程序運(yùn)行的初始畫面圖6-3程序運(yùn)行結(jié)果本實(shí)例演示了怎樣檢測(cè)本地計(jì)算機(jī)中端口號(hào)從1到10000中被打開(kāi)的端口。也可以指定一個(gè)固定的端口號(hào)進(jìn)行檢測(cè),或者增大檢測(cè)范圍。

熱心網(wǎng)友

在這個(gè)高科技的時(shí)代,為什么還要手工操作一些常做的事情呢,SuperScanV4.0 ,TCP 端口掃描器、Ping 和域名解析器。掃描后對(duì)其操作即可.

熱心網(wǎng)友

找個(gè)軟件就是哦在軟件園有很多哦