欢迎来到 黑吧安全网 聚焦网络安全前沿资讯,精华内容,交流技术心得!

vb编写端口扫描器

来源:转载 作者:佚名 时间:2010-05-24 TAG: 我要投稿

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
Label2.Caption = "扫描中。。。"
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
Label2.Caption = "扫描完毕。。。"
Next x

End Sub

【声明】:黑吧安全网(http://www.myhack58.com)登载此文出于传递更多信息之目的,并不代表本站赞同其观点和对其真实性负责,仅适于网络安全技术爱好者学习研究使用,学习中请遵循国家相关法律法规。如有问题请联系我们,联系邮箱admin@myhack58.com,我们会在最短的时间内进行处理。
  • 最新更新
    • 相关阅读
      • 本类热门
        • 最近下载