Private Sub Command1_Click() List1.Clear If Text2.Text = "" Or Text3.Text = "" Then MsgBox "没有端口扫什么扫啊！" & vbCrLf & "输入从1到65535的端口号。", 0 + 48, "端口号不能为空！" ElseIf Text2.Text > "65535" Or Text3.Text > "65535" Then MsgBox "没有这么大的端口号的！" & vbCrLf & "

端口扫描器程序 txtIP.Text = wskSocket.LocalIP,获取本机的IP地址(VB6.0源代码编写)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 DoEven