frmnettools.frm

网路IP小工具,包括扫瞄,Ping,多线Ping.

            Left            =   240
            TabIndex        =   16
            Text            =   "1"
            Top             =   840
            Width           =   615
         End
         Begin VB.Label lblSelPort 
            Caption         =   "Selected Ports:"
            Height          =   255
            Left            =   120
            TabIndex        =   42
            Top             =   1200
            Width           =   1095
         End
         Begin VB.Label lblStart 
            Caption         =   "Starting Port:"
            Height          =   255
            Left            =   120
            TabIndex        =   19
            Top             =   600
            Width           =   975
         End
         Begin VB.Label lblEnd 
            Caption         =   "Ending Port:"
            Height          =   255
            Left            =   1680
            TabIndex        =   18
            Top             =   600
            Width           =   975
         End
      End
      Begin VB.Frame fraLog 
         Caption         =   "Scan Status:"
         Height          =   2415
         Left            =   4080
         TabIndex        =   14
         Top             =   3240
         Width           =   3015
         Begin VB.CommandButton cmdLogClear 
            Caption         =   "Clear"
            Height          =   375
            Left            =   120
            TabIndex        =   52
            Top             =   1920
            Width           =   855
         End
         Begin VB.TextBox txtLog 
            Height          =   1335
            Left            =   120
            Locked          =   -1  'True
            MultiLine       =   -1  'True
            TabIndex        =   51
            Top             =   480
            Width           =   2775
         End
         Begin VB.Label lblHost 
            Caption         =   "Host:"
            Height          =   255
            Left            =   120
            TabIndex        =   49
            Top             =   240
            Width           =   1455
         End
      End
      Begin VB.Frame fraScanStatus 
         Caption         =   "Status:"
         Height          =   1815
         Left            =   4080
         TabIndex        =   1
         Top             =   0
         Width           =   3975
         Begin MSComctlLib.ProgressBar ProgressScan 
            Height          =   255
            Left            =   840
            TabIndex        =   2
            Top             =   1320
            Width           =   2655
            _ExtentX        =   4683
            _ExtentY        =   450
            _Version        =   393216
            Appearance      =   1
         End
         Begin VB.Label Percent 
            BackStyle       =   0  'Transparent
            Caption         =   "#"
            Height          =   255
            Left            =   3600
            TabIndex        =   13
            Top             =   1320
            Width           =   495
         End
         Begin VB.Label Metrics 
            BackStyle       =   0  'Transparent
            Caption         =   " ports/sec"
            ForeColor       =   &H00C00000&
            Height          =   255
            Left            =   1680
            TabIndex        =   12
            Top             =   720
            Visible         =   0   'False
            Width           =   735
         End
         Begin VB.Label RemPort 
            BackStyle       =   0  'Transparent
            Caption         =   "#"
            ForeColor       =   &H00C00000&
            Height          =   255
            Left            =   1440
            TabIndex        =   11
            Top             =   480
            Width           =   1095
         End
         Begin VB.Label EstRem 
            Caption         =   "#"
            ForeColor       =   &H00C00000&
            Height          =   255
            Left            =   2160
            TabIndex        =   10
            Top             =   960
            Width           =   1695
         End
         Begin VB.Label Label6 
            Caption         =   "Progress:"
            Height          =   255
            Left            =   120
            TabIndex        =   9
            Top             =   1320
            Width           =   735
         End
         Begin VB.Label lblRemPort 
            Caption         =   "Remaining Ports:"
            Height          =   255
            Left            =   120
            TabIndex        =   8
            Top             =   480
            Width           =   1215
         End
         Begin VB.Label lblRem 
            Caption         =   "Estimated Remaining Time:"
            Height          =   255
            Left            =   120
            TabIndex        =   7
            Top             =   960
            Width           =   1935
         End
         Begin VB.Label Port 
            Caption         =   "#"
            ForeColor       =   &H00C00000&
            Height          =   255
            Left            =   1800
            TabIndex        =   6
            Top             =   240
            Width           =   735
         End
         Begin VB.Label Rate 
            AutoSize        =   -1  'True
            Caption         =   "#"
            ForeColor       =   &H00C00000&
            Height          =   195
            Left            =   1080
            TabIndex        =   5
            Top             =   720
            Width           =   105
         End
         Begin VB.Label Label5 
            Caption         =   "Rate Speed:"
            Height          =   255
            Left            =   120
            TabIndex        =   4
            Top             =   720
            Width           =   975
         End
         Begin VB.Label lblStatus 
            Caption         =   "Status - Idle"
            Height          =   255
            Left            =   120
            TabIndex        =   3
            Top             =   240
            Width           =   1695
         End
      End
   End
   Begin MSComctlLib.TabStrip TabStrip 
      Height          =   375
      Left            =   0
      TabIndex        =   20
      Top             =   0
      Width           =   8415
      _ExtentX        =   14843
      _ExtentY        =   661
      MultiRow        =   -1  'True
      Style           =   2
      HotTracking     =   -1  'True
      Separators      =   -1  'True
      _Version        =   393216
      BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628} 
         NumTabs         =   5
         BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "General"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "Port Scan"
            Object.ToolTipText     =   "Perform a simple Port Scan"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab3 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "Ping"
            Object.ToolTipText     =   "Perform a simple Multi/Single Ping"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab4 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "Multi Port Scan"
            Object.ToolTipText     =   "Perform PorScan on multiple computers"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab5 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "About"
            Object.ToolTipText     =   "About the autor"
            ImageVarType    =   2
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Type RememberOptions
    LastPingHostOpt As Byte
    LastScanPortOpt As Byte
    LastMultiScanPortOpt As Byte
End Type
Dim Remb As RememberOptions
Dim CurPort As Long 'This specifies the next port that needs to be scanned
Dim LastPort As Long
Dim StartPort As Integer, EndPort As Integer
Dim LastFrame As Integer
Dim Working As Boolean
Dim LastChk(2, 2) As Byte
Dim SimpPing As Boolean, SimpScan As Boolean, MultiScan As Boolean
Dim Scanning As Boolean
Dim PortInt() As Integer 'Selected ports -> Advanced Portscan
Dim Action As Integer
Dim LastOpenPort As Integer
Dim HostPorts() As String 'An array of host and ports to scan
Dim bolStop As Boolean

Private Sub chkHostAdv_Click()
    'Visual fx:
    '(sorry but i didn't had the time to coment each and every line) =(
    If chkHostAdv.Value = 1 Then
        lblFrom = "From:"
        cmdAdd.Visible = True
        txtLast.Visible = True
        chkTo.Visible = True
        cmdDel.Visible = True
        cmdPingClear.Visible = True
        lstAdr.Visible = True
        lblNote.Visible = True
        fraPingHost.Height = 3495
        If Action = 3 Then
            chkHostAdv.Visible = False
            fraPortSettings.Left = fraPingHost.Left + fraPingHost.Width + 105
            fraPortSettings.Width = fraLog.Width
            fraPortSettings.Top = fraPingHost.Top
            fraScanStatus.Top = fraPingHost.Height + fraPingHost.Top
            fraLog.Top = fraPortSettings.Top + fraPortSettings.Height
            fraLog.Height = 4830 - fraPortSettings.Height
            txtLog.Height = fraLog.Height - 1080
            cmdLogClear.Top = txtLog.Top + txtLog.Height + 108
        Else
            fraPingStatus.Top = fraPingHost.Top + fraPingHost.Height
            fraScanStatus.Top = fraPortSettings.Top + fraPortSettings.Height
            fraPortSettings.Left = fraPingHost.Left
            fraPingStatus.Left = fraPingHost.Left
            fraLog.Top = fraPingHost.Top
            fraLog.Height = 4830
            txtLog.Height = fraLog.Height - 1080
            cmdLogClear.Top = txtLog.Top + txtLog.Height + 108
            fraPortSettings.Width = fraPingHost.Width
        End If
    Else
        lblFrom = "Host:"
        cmdAdd.Visible = False
        txtLast.Visible = False
        chkTo.Visible = False
        cmdDel.Visible = False
        cmdPingClear.Visible = False
        lstAdr.Visible = False
        lblNote.Visible = False
        fraPingHost.Height = 975
        fraLog.Top = fraPingHost.Top
        fraLog.Height = 4830
        txtLog.Height = fraLog.Height - 1080
        cmdLogClear.Top = txtLog.Top + txtLog.Height + 108
        If Action = 3 Then
        'the following lines are unusefull since we'll always need
        'multiple hosts
'            fraPortSettings.Left = fraPingHost.Left
'            fraPortSettings.Top = fraPingHost.Top + fraPingHost.Height
'            fraPortSettings.Width = fraPingHost.Width
'            If chkPortAdv.Value = 0 Then
'                fraScanStatus.Top = fraPortSettings.Top + fraPortSettings.Height
'                fraScanStatus.Left = fraPortSettings.Left
'            End If
        Else
            fraPortSettings.Top = fraPingHost.Top + fraPingHost.Height
            fraPingStatus.Top = fraPingHost.Top + fraPingHost.Height
            fraPingStatus.Left = fraPingHost.Left
            fraPortSettings.Left = fraPingHost.Left
            fraScanStatus.Left = fraPingHost.Left
            fraPortSettings.Width = fraPingHost.Width
        End If
    End If
    If SimpPing Then Remb.LastPingHostOpt = chkHostAdv.Value
End Sub

Private Sub chkPortAdv_Click()
'Visual fx:
'Sorry again (same as above)
    If chkPortAdv.Value = 1 Then
        chkPortInterval.Visible = True
        lblSelPort.Visible = True
        lstPortInterval.Visible = True
        cmdPortAdd.Visible = True
        fraPortSettings.Height = 2415
        fraScanStatus.Top = fraPortSettings.Top + fraPortSettings.Height
        If Action = 3 Then
            If chkHostAdv = 1 Then
                If fraScanStatus.Top <> fraPingHost.Top + fraPingHost.Height Then fraScanStatus.Top = fraPingHost.Top + fraPingHost.Height
                fraLog.Top = fraPortSettings.Top + fraPortSettings.Height
                fraLog.Height = 4830 - fraPortSettings.Height
                txtLog.Height = fraLog.Height - 1080
                cmdLogClear.Top = txtLog.Top + txtLog.Height + 108
            Else
            'following lines are unusefull:
'                If fraScanStatus.Top <> fraPortSettings.Top + fraPortSettings.Height Then fraScanStatus.Top = fraPortSettings.Top + fraPortSettings.Height
'                fraLog.Top = fraPingHost.Top
'                fraLog.Height = 4830
'                txtLog.Height = 4830 - 1080
'                cmdLogClear.Top = txtLog.Top + txtLog.Height + 108
            End If
        End If
    Else
        chkPortInterval.Visible = False
        lblSelPort.Visible = False
        lstPortInterval.Visible = False
        cmdPortAdd.Visible = False
        fraPortSettings.Height = 1455
        fraScanStatus.Top = fraPortSettings.Top + fraPortSettings.Height
        If Action = 3 Then
            If chkHostAdv = 1 Then
                fraScanStatus.Top = fraPingHost.Top + fraPingHost.Height
                fraLog.Top = fraPortSettings.Top + fraPortSettings.Height
                fraLog.Height = 4830 - fraPortSettings.Height
                txtLog.Height = fraLog.Height - 1080
                cmdLogClear.Top = txtLog.Top + txtLog.Height + 108
'            Else
'                fraScanStatus.Top = fraPortSettings.Top + fraPortSettings.Height
'                fraLog.Top = fraPingHost.Top
'                fraLog.Height = 4830
'                txtLog.Height = 4830 - 1080