利用vb写的扫描本机开放端口的小程序.

原创 2007年09月16日 18:49:00

利用vb写的扫描本机开放端口的小程序.

4个text   两个按钮.和一个Winsock1控件

Dim portnum As Long
Dim start As String
Sub scanningports()
    Dim porttwo As Long
    portnum = Text1.Text
    porttwo = Text2.Text
    Command2.Enabled = True
    On Error GoTo viriio
    Do
    portnum = portnum + 1
    DoEvents
    If start = True Then
    Winsock1.Close
    DoEvents
    Winsock1.LocalPort = portnum
    DoEvents
    Text3.Text = portnum
    Winsock1.Listen
    DoEvents
    Else
    portnum = 0
    Command1.Enabled = True
    Text1.Locked = False
    Text2.Locked = False
    Exit Sub
    End If
    Winsock1.Close
    DoEvents
       Loop Until portnum >= porttwo
    portnum = 0
    Command1.Enabled = True
    logport.Text = logport.Text & vbCrLf & "Scanning Ports Done!" & vbCrLf
    Text1.Locked = False
    Text2.Locked = False
viriio:
    If Err.Number = 10048 Then
    logport.Text = logport.Text & vbCrLf & "端口" & Winsock1.LocalPort & " 开启中"
    Resume Next
    End If

End Sub

Private Sub Command1_Click()
Command2.Enabled = True
If Text1.Text = "" Then
MsgBox "你必须指定开始端口号!"
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "你必须指定一个结束端口号"
Exit Sub
End If

Text1.Locked = True
Text2.Locked = True
Command1.Enabled = False
Winsock1.Close
start = True
Call scanningports
logport.Text = logport.Text & vbCrLf & "端口" & Text1.Text & "- " & Text3.Text & "  已经成功扫描!"

End Sub

Private Sub Command2_Click()
Command2.Enabled = False
start = False
End Sub
 

图解手动全面检查管理本机端口

一 协议端口 如果把IP地址比作一间房子 ,端口就是出入这间房子的门。真正的房子只有几个门,但是一个IP地址的端口可以有65536(即:2^16)个之多!端口是通过端口号来标记的,端口号只有整数,范...
  • bcbobo21cn
  • bcbobo21cn
  • 2016年07月23日 10:52
  • 3165

C#网络编程 (五) 简单端口扫描程序

概述端口扫描技术是一中探测本地和远程端口开放情况的策略和方法,是一种非常重要的攻击探测手段。一个端口就是一个通道。通过端口扫描,可以知道目标主机上开放了哪些端口,运行了哪些服务。对端口扫描技术的行为研...
  • im_zhq
  • im_zhq
  • 2016年05月21日 09:19
  • 3423

使用namp扫描端口

(1)扫描指定的端口 nmap -n --open -p 11211 X.X.X.X/24 (2)扫描指定网段的远程桌面连接端口 nmap -sT -p3389 218.206.11...
  • u010408365
  • u010408365
  • 2016年01月15日 10:19
  • 16392

网络扫描(主机发现和端口扫描)

网络扫描     网络扫描是一类重要的网络安全。网络扫描与防火墙,入侵检测系统相互配合,能够有效提高网络的安全性。通过对网络的扫描,网络管路员可以了解网络的安全配置和运行的应用服务,及时发现安全漏洞...
  • S_Sorin
  • S_Sorin
  • 2016年08月13日 17:12
  • 9054

Kali Linux 网络扫描秘籍 第三章 端口扫描(一)

第三章 端口扫描(一) 作者:Justin Hutchens 译者:飞龙 协议:CC BY-NC-SA 4.0 3.1 UDP端口扫描由于 TCP 是更加常用的传输层协议,使用...
  • wizardforcel
  • wizardforcel
  • 2016年11月16日 10:40
  • 1866

ubuntu端口 扫描和开启

1.扫描端口 用ubuntu自带的网络工具中的端口扫描不够强大,扫描结果可能不全,推荐用nmap,黑客常用的端口扫描利器!安装方法:sudo apt-get install nmap ,想扫描端口nm...
  • wang794686714
  • wang794686714
  • 2014年12月17日 10:22
  • 11205

Golang 写一个端口扫描器

前话最近痴迷于Golang这个新兴语言,因为它是强类型编译型语言,可以直接编译成三大平台的二进制执行文件,可以直接运行无需其他依赖环境。而且Golang独特的goroutine使得多线程任务执行如ne...
  • pwc1996
  • pwc1996
  • 2017年06月19日 17:52
  • 595

端口扫描工具zmap使用笔记

由于勒索病毒爆发的原因,需要扫描开放了445等端口的主机,网络较大,一般需要扫一个b段,nmap等扫描工具就显得太慢了。 zmap -B 10M -p 80 192.168.0.0/16 -o res...
  • zhaowei1945
  • zhaowei1945
  • 2017年11月07日 12:43
  • 138

用python编写端口扫描器

端口扫描器
  • Tusaka
  • Tusaka
  • 2016年12月08日 08:23
  • 838

关于如何开放本机端口

公司同事开发了一个小软件,可以很方便的管理网站,但是在服务器上安装完以后,发现本地无法连接到服务器上那个软件,经过一系列排查,基本可以认定为服务器的这个端口没有打开。      开发的这个软件使...
  • a6225301
  • a6225301
  • 2013年07月12日 09:58
  • 1288
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:利用vb写的扫描本机开放端口的小程序.
举报原因:
原因补充:

(最多只允许输入30个字)