vb 端口问题
我想用vb写一个可以查看本地端口是否打开，能够控制打开/关闭端口例如1433，35000端口等等，用什么方法，望高人指点。最好给出代码...
我想用 vb 写一个可以查看本地端口是否打开，能够控制打开/关闭端口例如1433，35000端口等等，用什么方法，望高人指点。最好给出代码
展开
展开全部
'添加一个winsock 和 listview
Private Sub Command1_Click()
Dim X As Integer
Dim items As ListItem
Dim PortsChecked As Integer
PortsChecked = Int(Text1.Text)
'逐个端口进行检查
For X = 1 To PortsChecked
DoEvents
Winsock1.LocalPort = X
On Error Resume Next
Winsock1.Listen
'如果得到错误代码，说明该端口已被使用
If Err.Number = 10048 Then
Set items = ListView1.ListItems.Add(, , Winsock1.LocalIP)
items.SubItems(1) = X
Err.Number = 0
End If
Winsock1.Close
Next X
End Sub
Private Sub Command1_Click()
Dim X As Integer
Dim items As ListItem
Dim PortsChecked As Integer
PortsChecked = Int(Text1.Text)
'逐个端口进行检查
For X = 1 To PortsChecked
DoEvents
Winsock1.LocalPort = X
On Error Resume Next
Winsock1.Listen
'如果得到错误代码，说明该端口已被使用
If Err.Number = 10048 Then
Set items = ListView1.ListItems.Add(, , Winsock1.LocalIP)
items.SubItems(1) = X
Err.Number = 0
End If
Winsock1.Close
Next X
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
Storm代理
2023-07-25 广告
StormProxies是一家国内优质海外HTTP代理商，拥有一个庞大的IP资源池，覆盖200多个地区，IP数量大且匿名度高。其优点还包括超高并发、稳定高效、技术服务等特点，同时提供HTTP、HTTPS以及SOCKS5协议支持。此外，Sto...
点击进入详情页
本回答由Storm代理提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
