端口扫描器（VB自带的一个控件wskSocket）资源-CSDN文库

1星需积分: 13 89 浏览量 2011-09-06 13:55:23 上传评论收藏 53KB DOC 举报

资源推荐

资源详情

资源评论

端口扫描器

网上入侵一般都是从扫描端口开始的，所以我用 VB 制作了一个端口扫描

器，其原理很简单，主要用到了 VB 自带的一个控件 wskSocket，这个控件是用

来连接对方 IP 的。winsock 控件的常规用法：winsock 对象.connect 目标 IP 目标

端口。软件的界面如图：

软件用到了 4 个 TextBox 控件用来填写目标 IP、端口范围和线程数，3

个 CommandButton 控件用来控制程序的开始与停止，两个 ListBox 用来

显示结果和帮助信息,1 个 StatusBar 用来显示扫描的进程。源代码如下：

Option Explicit

Public lngNextPort As Long

Private Sub cmdClearList_Click()

Me.lstOpenPorts.Clear '“清除”按钮的作用：清除 list 控件 lstOpenPorts 的

结果

End Sub

Private Sub cmdScan_Click()

Dim intI As Integer

lngNextPort = Val(Me.txtLowerBound) '利用 val 函数取端口栏的数字

For intI = 1 To Val(Me.txtMaxConnections) '利用 val 函数取端口栏的数字

Load Me.wskSocket(intI)

lngNextPort = lngNextPort + 1 '设置目标端口逐渐递归

Me.wskSocket(intI).Connect Me.txtIP, lngNextPort 'winsock 控件的常规用

法：winsock 对象.connect 目标 IP 目标端口

Next intI

End Sub

Private Sub cmdStop_Click() '“停止”按钮的作用，停止 winsock 对象的活

动

Dim intI As Integer

For intI = 1 To Val(Me.txtMaxConnections)

Me.wskSocket(intI).Close

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余1页未读，立即下载

内容反馈

oYingZi123456789f

2020-03-16

骗子根本不是源码骗人的

WIZnet2011

粉丝: 0
资源: 2

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈

feedback-tip