50分！ 求VB扫描 设定IP段 的计算机的端口

来源：百度知道 编辑：UC知道 时间：2024/05/24 15:38:58
扫描 设定IP段 的计算机的端口
IP段和端口可以设置的 谢谢 满意答案给50分 好的话再加！
咳 我要说明下！ 扫描端口是否打开！ 谢谢

Dim portnum As Long
Dim start As String

Private Sub cmdScan_Click()
If txtUB.Text = "" Or Text3.Text = "" Then
MsgBox "端口号不能为空！！"
Exit Sub
End If
wskSocket.Close
start = True
Call SCanningPorts '调用自定义的过程
lstOpenPorts.Text = lstOpenPorts.Text & vbCrLf & "端口" & txtUB.Text & "-" & Text3.Text & "已经扫描成功！"
End Sub

Private Sub cmdStop_Click()
start = False
End Sub
Sub SCanningPorts() '自定义的过程
Dim porttwo As Long
portnum = txtUB.Text
porttwo = Text3.Text
On Error GoTo viriio:
Do
portnum = portnum + 1
DoEvents
If start = True Then
wskSocket.Close
DoEvents
wskSocket.LocalPort = portnum
DoEvents
txtCon.Text = portnum
wskSocket.Listen
DoEvents
Else