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判断
有个方法可以试一下,加载一个winsock控件
On Error Resume Next
Winsock1.Bind 1234 '测试1234端口
if Err=0 then msgbox "1234端口现在可用"
从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
