端口扫描器程序 txtIP.Text = wskSocket.LocalIP,获取本机的IP地址(VB6.0源代码编写)Sub ...

端口扫描器程序 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 DoEvents wskSocket.LocalPort = portnum DoEvents txtCon.Text = portnum wskSocket.Listen DoEvents Else portnum = 0 Exit Sub End If wskSocket.Close DoEvents Loop Until portnum >= porttwo portnum = 0 viriio: If Err.Number = 10048 Then lstOpenPorts.Text = lstOpenPorts.Text & vbCrLf & "端口" & wskSocket.LocalPort & "开放中" Resume Next End If End Sub http://download.csdn.net/user/gouyue下载 QQ223857666勾月guocan@msn.cn