请问如何打开或关闭计算机端口?请问在2K中,如何打开2000端口
2005-06-07 19:23:42y***
请问在2K中,如何打开2000端口?打开后想关闭又怎么设置呢?其他端口又如何?请问如何打开或关闭计算机端口?请问在2K中,如何打开2000端口?打开后想关闭又怎么设置呢?其他端口又如何?:向窗体上添加一个TListBox组件和一个TBut?
最佳回答
FormCreate( );beginServerSocket1:=TServerSocket。Create(self);ServerSocket1。Active:=true;end;在程序运行过程中,单击Refresh按钮,就会检测本地计算机中端口号从1到10000中被打开的端口,响应代码如下:procedureTForm1。
Button1Click( ); :=0to10000dobeginServerSocket1。Close;ServerSocket1。Port:=I;tryServerSocket1。Open;exceptListBox1。Items。Add(IntToStr(I)+'端口被打开');end;end;end;程序首先清除了TListBox组件中的现实内容。
然后进入一个循环,在循环中首先关闭TServerSocket组件,重新设置TServerSocket组件后,尝试去打开TServerSocket组件,如果出现异常,就表示这个端口已经被打开了。最后,在TListBox组件中显示本地计算机中被打开的端口。
程序代码如下: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)+'端口被打开');end;end;end;procedureTForm1。FormCreate( );beginServerSocket1:=TServerSocket。Create(self);ServerSocket1。
Active:=true;end;procedureTForm1。FormDestroy( );beginServerSocket1。Free;end;end。保存文件,然后按F9键运行程序,程序运行的初始画面如图6-2所示。单击Refresh按钮,就会检测本地计算机中端口号从1到10000中被打开的端口,程序运行结果如图6-3所示。
图6-2程序运行的初始画面图6-3程序运行结果本实例演示了怎样检测本地计算机中端口号从1到10000中被打开的端口。也可以指定一个固定的端口号进行检测,或者增大检测范围。
2005-06-07 19:45:41
2005-06-08 20:49:29
2005-06-08 20:46:47
很赞哦! (172)
相关文章
- 帮帮忙。。请问如何检测计算机的端
- 计算机的端口怎么打开?考试网上报
- 如何检测计算机端口?我的电脑是X
- 如何打开端口8000请问一下如何
- 怎样关闭和打开端口?怎样关闭和打
- 请问如果我把80端口关闭会怎么样
- 怎么手动打开一些被关闭的端口?有
- 请问XP下怎么查看自己电脑上已经
- 怎么开启电脑上的某个端口?我想开
- 打开电脑端口怎样打开自己电脑的某
- XP下怎么查看自己电脑上已经打开
- 端口问题请问怎么关闭1434端口
- 怎样关闭电脑的网络端口
- 如何检查电脑主板默认的CMOS端
- 如何打开关闭的端口?qq无法登陆
- 怎么打开21端口?RT,能不能简
- 怎么关闭1434端口请问怎么关闭
- 如何关闭计算机不安全端口默认情况