利用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
 

相关文章推荐

扫描本机开放的端口

  • 2008年06月09日 13:13
  • 28KB
  • 下载

本机端口扫描工具

  • 2013年09月22日 14:45
  • 69KB
  • 下载

Python判断远端服务器(本机Java服务器程序)端口是否通

首先是java多线程web服务器启动:java版web服务器

利用函数来获得本机所有的端口

#include #include #include #include #pragma comment(lib, "iphlpapi.lib") #pragma comment(lib, "...
  • ju136
  • ju136
  • 2015年07月20日 15:46
  • 1032

python实现利用nmap和爱站扫描开放80端口的IP并进行反向域名解析

#!/usr/bin/python # -*- coding: utf-8 -*- from libnmap.process import NmapProcess from libnmap.parse...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:利用vb写的扫描本机开放端口的小程序.
举报原因:
原因补充:

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