怎样用VB来判断某个端口是否正在使用

1：

成都创新互联从2013年开始，是专业互联网技术服务公司，拥有项目网站设计、成都做网站网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元沈阳做网站,已为上家服务,为沈阳各地企业和个人服务,联系电话:13518219792

on error resume next

MSComm1.PortOpen = True

if err.number=0 then

MSComm1.PortOpen = false

elseif err.number = comPortOpen then

debug.print "端口已打开"

else

debug.print "其它错误"

end if

2：

shell("netstat -na c:\netstat.txt")

'然后读文件c:\netstat.txt判断

vb怎样检测一个端口是否已经被占用？

有个方法可以试一下,加载一个winsock控件

On Error Resume Next

Winsock1.Bind 1234 '测试1234端口

if Err=0 then msgbox "1234端口现在可用"

怎么用vb实现输入（ip地址，本地端口号，和，远

从1-1023这些端口是系统服务端口

开启什么服务启动什么端口

比如你开启了 FTP服务那么 系统将打开 20.21（一个是控制，一个是传输）

现在总有些人认为我看网页那么也将打开我本机80端口

其实不然

大家可以打开一个网页 在打开CMD 输入 netstat -an

本机并没有80 只是远程主机有80这个端口

好我们的程序分为两部分

一部分判断远程主机

另外一部分判断本机

比如本机打开4000

大于1024的端口你需要自己搜集 在网上找吧 别人已经收集，你自己做成一个表就可以

利用vb写的扫描本机开放端口的小程序.

4个text 两个按钮.和一个Winsock1控件

Dim portnum As Long

Dim start As String

Sub scanningports()

Dim porttwo As Long

portnum = Text1.Text

porttwo = Text2.Text

Command2.Enabled = True

On Error GoTo viriio

Do

portnum = portnum + 1

DoEvents

If start = True Then

Winsock1.Close

DoEvents

Winsock1.LocalPort = portnum

DoEvents

Text3.Text = portnum

Winsock1.Listen

DoEvents

Else

portnum = 0

Command1.Enabled = True

Text1.Locked = False

Text2.Locked = False

Exit Sub

End If

Winsock1.Close

DoEvents

Loop Until portnum = porttwo

portnum = 0

Command1.Enabled = True

logport.Text = logport.Text vbCrLf "Scanning Ports Done!" vbCrLf

Text1.Locked = False

Text2.Locked = False

viriio:

If Err.Number = 10048 Then

logport.Text = logport.Text vbCrLf "端口" Winsock1.LocalPort " 开启中"

Resume Next

End If

End Sub

Private Sub Command1_Click()

Command2.Enabled = True

If Text1.Text = "" Then

MsgBox "你必须指定开始端口号！"

Exit Sub

End If

If Text2.Text = "" Then

MsgBox "你必须指定一个结束端口号"

Exit Sub

End If

Text1.Locked = True

Text2.Locked = True

Command1.Enabled = False

Winsock1.Close

start = True

Call scanningports

logport.Text = logport.Text vbCrLf "端口" Text1.Text "- " Text3.Text " 已经成功扫描！"

End Sub

Private Sub Command2_Click()

Command2.Enabled = False

start = False

End Sub

本文名称：vb.netsta的简单介绍
URL网址：http://chengdu.cdxwcx.cn/article/hdhdhg.html