如何检测计算机端口?

[复制链接]
查看11 | 回复0 | 2009-1-30 06:28:38 | 显示全部楼层 |阅读模式
我的电脑是XP的,请问如何检测计算机的端口,并且如何使它们开启或者关闭?请回答的详细一点,本人不太懂专业术语。希望各位能说的通俗易懂一些。谢谢

                                                                                                要查看已端口比较简单,开始-运行,输入cmd,然后在命令提示符下输入netstat -an回车,出来一列,第一竖排是数据类型,第二排是本地IP和端口,第三排是远程IP和端口,最后一排是端口状态,ESTABLISHED是已经连接的端口(有数据传送),LISTENING是正在监听,暂时没有连上,其他的没什么要紧。要关闭端口还是用软件比较,比如瑞星防火墙,要打开某个端口不怎么好办。                                       
提问者对答案的评价:

                                                                                                随便安一个防火墙软件,在其设置中可以进行端口设置                                       

                                                                                                 查看计算机开启端口的方法如下-------------------------------------------------------1.依次点击-->开始<-->运行<2.在运行框里输入:cmd3.CMD窗口打开后输入:netstat -an--------------------------------------------------------这样就可以看到所有端口了.如果有什么不懂可以发信至:RedCY2005#HotMail.Com(把#换成@)screen.width*0.35) this.width=screen.width*0.40\">

                                                                                                如果你的XP系统开启了自带的防火墙那么你计算机所有端口默认都是关闭的。                                       

                                                                                                可以使用扫描,直接指定tcp7000text1,ip地址text2,起始端口text3,终止端口text4,信息command1,扫描command2,停止添加winsock控件,代码OptionExplicitDimPortNoAsLong PrivateSubCommand1_Click()
PortNo=CLng(Text2.Text)
Text4.Text=""
Command2.Enabled=True
Command1.Enabled=False
Winsock1.ConnectText1.Text,PortNo
Me.Caption="连接端口扫描编号:"&PortNoEndSub PrivateSubCommand2_Click()
Command1.Enabled=True
Command2.Enabled=False
Winsock1.Close
PortNo=CLng(Text2.Text)EndSub PrivateSubForm_Load()
Text1.Text="127.0.0.1"
Text2.Text="1"
Text3.Text="32767"
Label1.Caption="IP地址"
Label2.Caption="起始连接端口"
Label3.Caption="终止连接端口"
Command1.Caption="开始扫描"
Command2.Caption="停止" EndSub
PrivateSubWinsock1_Connect()
Text4.Text=Text4.Text&"连接端口编号:"&Str(Winsock1.RemotePort)&vbCrLf
Winsock1.Close
PortNo=PortNo+1
IfPortNo<=CLng(Text3.Text)Then
Me.Caption="连接端口扫描编号:"&PortNo
Winsock1.ConnectText1.Text,PortNo
Else
Command2_Click
EndIfEndSub PrivateSubWinsock1_Error(ByValNumberAsInteger,DescriptionAsString,_
ByValScodeAsLong,ByValSourceAsString,_
ByValHelpFileAsString,ByValHelpContextAsLong,_
CancelDisplayAsBoolean)
Winsock1.Close
PortNo=PortNo+1
IfPortNo<=CLng(Text3.Text)Then
Me.Caption="连接端口扫描"&PortNo
Winsock1.ConnectText1.Text,PortNo
Else
Command2_Click
EndIfEndSub
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行