用VB制作自己的端口扫描器

请注意动画内的任何广告均是作者个人行为，网络交易风险自担

做自己的端口扫描器！我已经做好了，就不浪费大家时间了

看 比较简洁~希望大家不要在意！

我们首先在form1的窗体上创建个空间 Winsock ！ 这个是 用来连接 TCP之间的
协议的 如果没有这个 那我们也扫不到了！ 好~现在我们来看下代码 代码我会给

大家的！

  Dim portnum As Long  设置变量!
  Dim start As String

Private Sub cmdClear_Click()
lstOpenPorts.Text = ""       输入的文本
End Sub

Private Sub cmdScan_Click()
   If txtUB.Text = "" Or Text3.Text = "" Then         如果.IF
      MsgBox "端口号不能为空！！"                  提示
      Exit Sub
   End If
   Winsock1.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
       Winsock1.Close
       DoEvents
       Winsock1.LocalPort = portnum
       DoEvents
       txtcon.Text = portnum
       Winsock1.Listen
       DoEvents
    Else
       portnum = 0
       Exit Sub
    End If
    Winsock1.Close
    DoEvents
  Loop Until portnum >= porttwo
  portnum = 0
viriio:
  If Err.Number = 10048 Then
     lstOpenPorts.Text = lstOpenPorts.Text & vbCrLf & "端口" & Winsock1.LocalPort & "开放中"
     Resume Next
  End If
End Sub

Private Sub Form_Load()

End Sub

这一部分都是讲的  Dim portnum As Long  变量的过程....大家看好了 我现在
来测试一下  点击 启动!  这些都是我设置默认的!! 大家看下 如果我不设置会

怎么样! 线程默认是5000 如果您的电脑线程不是5000我也设置了 降到1000 根据
您的电脑来设置的!

看见了吧 可以通过TCP协议来扫的!  大家自己也去编写个吧!!  最近我会出个教
程 : 编写整人的工具  里面带病毒类型的! 欢迎大家光顾!