Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/ipscan1a/frmscan.frm

Visual Basic Form | 1999-09-28 | 77.0 KB | 2,039 lines

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#2.0#0"; "THREED20.OCX"
Begin VB.Form frmScan
   BorderStyle     =   1  'Fixed Single
   Caption         =   " - Excessive Force IP Scanner - G0DLiKE -"
   ClientHeight    =   3390
   ClientLeft      =   1470
   ClientTop       =   1500
   ClientWidth     =   5070
   Icon            =   "frmScan.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3390
   ScaleWidth      =   5070
   Begin MSWinsockLib.Winsock Connector1
      Left            =   120
      Top             =   3480
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin Threed.SSFrame fraScan
      Height          =   3375
      Left            =   0
      TabIndex        =   30
      Top             =   0
      Width           =   5055
      _ExtentX        =   8916
      _ExtentY        =   5953
      _Version        =   131074
      Begin VB.Frame fraTab1
         BorderStyle     =   0  'None
         Height          =   2535
         Left            =   240
         TabIndex        =   57
         Top             =   600
         Width           =   4575
         Begin VB.HScrollBar scrConTime1
            Height          =   255
            LargeChange     =   5
            Left            =   0
            Max             =   60
            Min             =   1
            MouseIcon       =   "frmScan.frx":08CA
            MousePointer    =   99  'Custom
            TabIndex        =   0
            Top             =   600
            Value           =   1
            Width           =   1455
         End
         Begin VB.TextBox txtRHost1
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1560
            TabIndex        =   3
            Top             =   1200
            Width           =   1455
         End
         Begin VB.HScrollBar scrPause1
            Height          =   255
            LargeChange     =   5
            Left            =   0
            Max             =   60
            Min             =   1
            MouseIcon       =   "frmScan.frx":0A1C
            MousePointer    =   99  'Custom
            TabIndex        =   1
            Top             =   1560
            Value           =   1
            Width           =   1455
         End
         Begin VB.TextBox txtPause1
            Alignment       =   2  'Center
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   0
            Locked          =   -1  'True
            MousePointer    =   1  'Arrow
            TabIndex        =   60
            TabStop         =   0   'False
            Text            =   "1 second"
            ToolTipText     =   "Indicates the number of seconds to pause between ports."
            Top             =   1200
            Width           =   1455
         End
         Begin VB.HScrollBar scrKeep1
            Height          =   255
            LargeChange     =   5
            Left            =   1560
            Max             =   60
            MouseIcon       =   "frmScan.frx":0B6E
            MousePointer    =   99  'Custom
            TabIndex        =   2
            Top             =   600
            Value           =   1
            Width           =   1455
         End
         Begin VB.TextBox txtKeep1
            Alignment       =   2  'Center
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1560
            Locked          =   -1  'True
            MousePointer    =   1  'Arrow
            TabIndex        =   59
            TabStop         =   0   'False
            Text            =   "1 second"
            ToolTipText     =   "Indicates the number of seconds to stay connected to open ports."
            Top             =   240
            Width           =   1455
         End
         Begin VB.TextBox txtConTime1
            Alignment       =   2  'Center
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   0
            Locked          =   -1  'True
            MousePointer    =   1  'Arrow
            TabIndex        =   58
            TabStop         =   0   'False
            Text            =   "1 second"
            ToolTipText     =   "Indicates the number of seconds to attempt connection."
            Top             =   240
            Width           =   1455
         End
         Begin VB.ListBox lstOpen1
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   1530
            Left            =   3120
            MouseIcon       =   "frmScan.frx":0CC0
            MousePointer    =   99  'Custom
            Sorted          =   -1  'True
            TabIndex        =   4
            Top             =   240
            Width           =   1455
         End
         Begin Threed.SSFrame fraButtons1
            Height          =   615
            Left            =   0
            TabIndex        =   61
            Top             =   1920
            Width           =   4575
            _ExtentX        =   8070
            _ExtentY        =   1085
            _Version        =   131074
            Begin VB.CommandButton btnReset1
               Caption         =   "RESET"
               BeginProperty Font
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   375
               Left            =   3120
               MouseIcon       =   "frmScan.frx":0E12
               MousePointer    =   99  'Custom
               TabIndex        =   7
               ToolTipText     =   "Click here to reset the scanner settings."
               Top             =   120
               Width           =   1335
            End
            Begin VB.CommandButton btnStop1
               Appearance      =   0  'Flat
               Caption         =   "STOP"
               Enabled         =   0   'False
               BeginProperty Font
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   375
               Left            =   1560
               MouseIcon       =   "frmScan.frx":0F64
               MousePointer    =   99  'Custom
               TabIndex        =   6
               ToolTipText     =   "Click here to stop scanning."
               Top             =   120
               Width           =   1455
            End
            Begin VB.CommandButton btnScan1
               Caption         =   "SCAN"
               BeginProperty Font
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   375
               Left            =   120
               MouseIcon       =   "frmScan.frx":10B6
               MousePointer    =   99  'Custom
               TabIndex        =   5
               ToolTipText     =   "Click here to begin scanning."
               Top             =   120
               Width           =   1335
            End
         End
         Begin VB.Label lblOpen1
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "PORTS OPEN :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   3120
            TabIndex        =   67
            Top             =   0
            Width           =   1095
         End
         Begin VB.Label lblStatus1
            Alignment       =   2  'Center
            BackStyle       =   0  'Transparent
            BorderStyle     =   1  'Fixed Single
            Caption         =   "IDLE..."
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   1560
            TabIndex        =   66
            Top             =   1560
            Width           =   1455
         End
         Begin VB.Label lblRHost1
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "REMOTE HOST :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   1560
            TabIndex        =   65
            Top             =   960
            Width           =   1230
         End
         Begin VB.Label lblPause1
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "PAUSE :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   0
            TabIndex        =   64
            Top             =   960
            Width           =   615
         End
         Begin VB.Label lblKeep1
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "KEEP OPEN :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   1560
            TabIndex        =   63
            Top             =   0
            Width           =   945
         End
         Begin VB.Label lblConTime1
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "CONNECT TIME :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   0
            TabIndex        =   62
            Top             =   0
            Width           =   1290
         End
      End
      Begin VB.Frame fraTab3
         BorderStyle     =   0  'None
         Height          =   2535
         Left            =   240
         TabIndex        =   32
         Top             =   600
         Visible         =   0   'False
         Width           =   4575
         Begin VB.HScrollBar scrKeep3
            Height          =   255
            LargeChange     =   5
            Left            =   0
            Max             =   60
            MouseIcon       =   "frmScan.frx":1208
            MousePointer    =   99  'Custom
            TabIndex        =   44
            Top             =   1560
            Value           =   1
            Width           =   1455
         End
         Begin VB.HScrollBar scrStart
            Height          =   255
            LargeChange     =   50
            Left            =   0
            Min             =   1
            MouseIcon       =   "frmScan.frx":135A
            MousePointer    =   99  'Custom
            TabIndex        =   43
            Top             =   600
            Value           =   1
            Width           =   735
         End
         Begin VB.HScrollBar scrPause3
            Height          =   255
            LargeChange     =   5
            Left            =   1560
            Max             =   60
            Min             =   1
            MouseIcon       =   "frmScan.frx":14AC
            MousePointer    =   99  'Custom
            TabIndex        =   42
            Top             =   1560
            Value           =   1
            Width           =   1455
         End
         Begin VB.TextBox txtPause3
            Alignment       =   2  'Center
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1560
            Locked          =   -1  'True
            MousePointer    =   1  'Arrow
            TabIndex        =   41
            TabStop         =   0   'False
            Text            =   "1 second"
            ToolTipText     =   "Indicates the number of seconds to pause between ports."
            Top             =   1200
            Width           =   1455
         End
         Begin VB.HScrollBar scrEnd
            Height          =   255
            LargeChange     =   50
            Left            =   840
            Min             =   1
            MouseIcon       =   "frmScan.frx":15FE
            MousePointer    =   99  'Custom
            TabIndex        =   40
            Top             =   600
            Value           =   1
            Width           =   735
         End
         Begin VB.TextBox txtEnd
            Alignment       =   2  'Center
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   840
            Locked          =   -1  'True
            MousePointer    =   1  'Arrow
            TabIndex        =   39
            TabStop         =   0   'False
            Text            =   "1"
            ToolTipText     =   "Indicates the port at which to end your scan."
            Top             =   240
            Width           =   735
         End
         Begin VB.TextBox txtStart
            Alignment       =   2  'Center
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   0
            Locked          =   -1  'True
            MousePointer    =   1  'Arrow
            TabIndex        =   38
            TabStop         =   0   'False
            Text            =   "1"
            ToolTipText     =   "Indicates the port at which to start your scan."
            Top             =   240
            Width           =   735
         End
         Begin VB.HScrollBar scrConTime3
            Height          =   255
            LargeChange     =   5
            Left            =   1680
            Max             =   60
            Min             =   1
            MouseIcon       =   "frmScan.frx":1750
            MousePointer    =   99  'Custom
            TabIndex        =   37
            Top             =   600
            Value           =   1
            Width           =   1335
         End
         Begin VB.TextBox txtConTime3
            Alignment       =   2  'Center
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1680
            Locked          =   -1  'True
            MousePointer    =   1  'Arrow
            TabIndex        =   36
            TabStop         =   0   'False
            Text            =   "1 second"
            ToolTipText     =   "Indicates the number of seconds to attempt connection."
            Top             =   240
            Width           =   1335
         End
         Begin VB.TextBox txtKeep3
            Alignment       =   2  'Center
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   0
            Locked          =   -1  'True
            MousePointer    =   1  'Arrow
            TabIndex        =   35
            TabStop         =   0   'False
            Text            =   "1 second"
            ToolTipText     =   "Indicates the number of seconds to stay connected to open ports."
            Top             =   1200
            Width           =   1455
         End
         Begin VB.TextBox txtRHost3
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   3120
            TabIndex        =   34
            Top             =   1200
            Width           =   1455
         End
         Begin VB.ListBox lstOpen2
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   690
            Left            =   3120
            MouseIcon       =   "frmScan.frx":18A2
            MousePointer    =   99  'Custom
            Sorted          =   -1  'True
            TabIndex        =   33
            Top             =   240
            Width           =   1455
         End
         Begin Threed.SSFrame fraButtons3
            Height          =   615
            Left            =   0
            TabIndex        =   45
            Top             =   1920
            Width           =   4575
            _ExtentX        =   8070
            _ExtentY        =   1085
            _Version        =   131074
            Begin VB.CommandButton btnReset3
               Caption         =   "RESET"
               BeginProperty Font
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   375
               Left            =   3120
               MouseIcon       =   "frmScan.frx":19F4
               MousePointer    =   99  'Custom
               TabIndex        =   48
               ToolTipText     =   "Click here to reset the scanner settings."
               Top             =   120
               Width           =   1335
            End
            Begin VB.CommandButton btnStop3
               Caption         =   "STOP"
               Enabled         =   0   'False
               BeginProperty Font
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   375
               Left            =   1560
               MouseIcon       =   "frmScan.frx":1B46
               MousePointer    =   99  'Custom
               TabIndex        =   47
               ToolTipText     =   "Click here to stop scanning."
               Top             =   120
               Width           =   1455
            End
            Begin VB.CommandButton btnScan3
               Caption         =   "SCAN"
               BeginProperty Font
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   375
               Left            =   120
               MouseIcon       =   "frmScan.frx":1C98
               MousePointer    =   99  'Custom
               TabIndex        =   46
               ToolTipText     =   "Click here to begin scanning."
               Top             =   120
               Width           =   1335
            End
         End
         Begin VB.Label lblPause3
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "PAUSE :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   1560
            TabIndex        =   56
            Top             =   960
            Width           =   615
         End
         Begin VB.Label lblStatus3
            Alignment       =   2  'Center
            BackStyle       =   0  'Transparent
            BorderStyle     =   1  'Fixed Single
            Caption         =   "IDLE..."
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   3120
            TabIndex        =   55
            Top             =   1560
            Width           =   1455
         End
         Begin VB.Label lblEnd
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "END :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   840
            TabIndex        =   54
            Top             =   0
            Width           =   390
         End
         Begin VB.Label lblStart
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "START :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   0
            TabIndex        =   53
            Top             =   0
            Width           =   630
         End
         Begin VB.Label lblConTime3
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "CONNECT TIME :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   1680
            TabIndex        =   52
            Top             =   0
            Width           =   1290
         End
         Begin VB.Label lblKeep3
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "KEEP OPEN :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   0
            TabIndex        =   51
            Top             =   960
            Width           =   945
         End
         Begin VB.Label lblRHost3
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "REMOTE HOST :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   3120
            TabIndex        =   50
            Top             =   960
            Width           =   1230
         End
         Begin VB.Label lblOpen3
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "PORTS OPEN :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   3120
            TabIndex        =   49
            Top             =   0
            Width           =   1215
         End
      End
      Begin VB.Frame fraTab2
         BorderStyle     =   0  'None
         Height          =   2535
         Left            =   240
         TabIndex        =   31
         Top             =   600
         Visible         =   0   'False
         Width           =   4575
         Begin VB.HScrollBar scrConTime2
            Height          =   255
            LargeChange     =   5
            Left            =   0
            Max             =   60
            Min             =   1
            MouseIcon       =   "frmScan.frx":1DEA
            MousePointer    =   99  'Custom
            TabIndex        =   8
            Top             =   600
            Value           =   1
            Width           =   1455
         End
         Begin VB.ListBox lstScanFor1
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   690
            Left            =   3120
            MouseIcon       =   "frmScan.frx":1F3C
            MousePointer    =   99  'Custom
            Sorted          =   -1  'True
            TabIndex        =   12
            Top             =   240
            Width           =   1455
         End
         Begin VB.TextBox txtPortsOpen
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   615
            Left            =   3120
            Locked          =   -1  'True
            MouseIcon       =   "frmScan.frx":208E
            MousePointer    =   99  'Custom
            MultiLine       =   -1  'True
            ScrollBars      =   2  'Vertical
            TabIndex        =   18
            TabStop         =   0   'False
            Top             =   1200
            Width           =   1455
         End
         Begin VB.TextBox txtRHost2
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1560
            TabIndex        =   11
            Top             =   1200
            Width           =   1455
         End
         Begin VB.HScrollBar scrPause2
            Height          =   255
            LargeChange     =   5
            Left            =   0
            Max             =   60
            Min             =   1
            MouseIcon       =   "frmScan.frx":21E0
            MousePointer    =   99  'Custom
            TabIndex        =   9
            Top             =   1560
            Value           =   1
            Width           =   1455
         End
         Begin VB.TextBox txtPause2
            Alignment       =   2  'Center
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   0
            Locked          =   -1  'True
            MousePointer    =   1  'Arrow
            TabIndex        =   25
            TabStop         =   0   'False
            Text            =   "1 second"
            ToolTipText     =   "Indicates the number of seconds to pause between ports."
            Top             =   1200
            Width           =   1455
         End
         Begin VB.HScrollBar scrKeep2
            Height          =   255
            LargeChange     =   5
            Left            =   1560
            Max             =   60
            MouseIcon       =   "frmScan.frx":2332
            MousePointer    =   99  'Custom
            TabIndex        =   10
            Top             =   600
            Value           =   1
            Width           =   1455
         End
         Begin VB.TextBox txtKeep2
            Alignment       =   2  'Center
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1560
            Locked          =   -1  'True
            MousePointer    =   1  'Arrow
            TabIndex        =   23
            TabStop         =   0   'False
            Text            =   "1 second"
            ToolTipText     =   "Indicates the number of seconds to stay connected to open ports."
            Top             =   240
            Width           =   1455
         End
         Begin VB.TextBox txtConTime2
            Alignment       =   2  'Center
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   0
            Locked          =   -1  'True
            MousePointer    =   1  'Arrow
            TabIndex        =   27
            TabStop         =   0   'False
            Text            =   "1 second"
            ToolTipText     =   "Indicates the number of seconds to attempt connection."
            Top             =   240
            Width           =   1455
         End
         Begin Threed.SSFrame fraButtons2
            Height          =   615
            Left            =   0
            TabIndex        =   17
            Top             =   1920
            Width           =   4575
            _ExtentX        =   8070
            _ExtentY        =   1085
            _Version        =   131074
            Begin VB.CommandButton btnReset2
               Caption         =   "RESET"
               BeginProperty Font
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   375
               Left            =   3480
               MouseIcon       =   "frmScan.frx":2484
               MousePointer    =   99  'Custom
               TabIndex        =   16
               ToolTipText     =   "Click here to reset the scanner settings."
               Top             =   120
               Width           =   975
            End
            Begin VB.CommandButton btnAddPort
               Caption         =   "ADD PORT"
               BeginProperty Font
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   375
               Left            =   2280
               MouseIcon       =   "frmScan.frx":25D6
               MousePointer    =   99  'Custom
               TabIndex        =   15
               ToolTipText     =   "Click here to add a port to the Scan Ports list."
               Top             =   120
               Width           =   1095
            End
            Begin VB.CommandButton btnStop2
               Caption         =   "STOP"
               Enabled         =   0   'False
               BeginProperty Font
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   375
               Left            =   1200
               MouseIcon       =   "frmScan.frx":2728
               MousePointer    =   99  'Custom
               TabIndex        =   14
               ToolTipText     =   "Click here to stop scanning."
               Top             =   120
               Width           =   975
            End
            Begin VB.CommandButton btnScan2
               Caption         =   "SCAN"
               BeginProperty Font
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   375
               Left            =   120
               MouseIcon       =   "frmScan.frx":287A
               MousePointer    =   99  'Custom
               TabIndex        =   13
               ToolTipText     =   "Click here to begin scanning."
               Top             =   120
               Width           =   975
            End
         End
         Begin VB.Label lblOpen2
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "PORTS OPEN :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   3120
            TabIndex        =   19
            Top             =   960
            Width           =   1095
         End
         Begin VB.Label lblScanFor1
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "SCAN PORTS :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   3120
            TabIndex        =   20
            Top             =   0
            Width           =   1125
         End
         Begin VB.Label lblStatus2
            Alignment       =   2  'Center
            BackStyle       =   0  'Transparent
            BorderStyle     =   1  'Fixed Single
            Caption         =   "IDLE..."
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   1560
            TabIndex        =   21
            Top             =   1560
            Width           =   1455
         End
         Begin VB.Label lblRHost2
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "REMOTE HOST :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   1560
            TabIndex        =   22
            Top             =   960
            Width           =   1230
         End
         Begin VB.Label lblPause2
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "PAUSE :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   0
            TabIndex        =   26
            Top             =   960
            Width           =   615
         End
         Begin VB.Label lblKeep2
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "KEEP OPEN :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   1560
            TabIndex        =   24
            Top             =   0
            Width           =   945
         End
         Begin VB.Label lblConTime2
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "CONNECT TIME :"
            BeginProperty Font
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   210
            Left            =   0
            TabIndex        =   28
            Top             =   0
            Width           =   1290
         End
      End
      Begin MSComctlLib.TabStrip tabsScan
         Height          =   3135
         Left            =   120
         TabIndex        =   29
         Top             =   120
         Width           =   4815
         _ExtentX        =   8493
         _ExtentY        =   5530
         HotTracking     =   -1  'True
         _Version        =   393216
         BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
            NumTabs         =   3
            BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}
               Caption         =   "Scan All Ports"
               Object.ToolTipText     =   "Select this tab to scan all ports on the remote host machine."
               ImageVarType    =   2
            EndProperty
            BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628}
               Caption         =   "Scan Range Of Ports"
               Object.ToolTipText     =   "Select this tab to scan a range of ports on the remote host machine."
               ImageVarType    =   2
            EndProperty
            BeginProperty Tab3 {1EFB659A-857C-11D1-B16A-00C0F0283628}
               Caption         =   "Scan Few Ports"
               Object.ToolTipText     =   "Select this tab to scan just a few ports on the remote host machine."
               ImageVarType    =   2
            EndProperty
         EndProperty
         MousePointer    =   99
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         MouseIcon       =   "frmScan.frx":29CC
      End
   End
Attribute VB_Name = "frmScan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'DECLARE TAB ONE STOP SWITCH VARIABLE.
Dim StopScan As Boolean
'DECLARE TAB TWO STOP SWITCH VARIABLE.
Dim ScanComplete As Boolean
'DECLARE TAB THREE STOP SWITCH VARIABLE.
Dim EndScan As Boolean
'PAUSE SUB.
Private Sub Pause(Duration As Long)
Dim Current As Long
Current& = Timer
Do Until Timer - Current& >= Duration&
DoEvents
End Sub
'WINSOCK TIME OUT SUB.
Private Function DidWinSockTimeOut(TimeOut As Long, Connector As Winsock) As Boolean
'RETURNS TRUE IF WINSOCK TIMES OUT, FALSE IF WINSOCK CONNECTS.
Dim StartTime As Long, TimedOut As Boolean
StartTime& = Timer
Do Until Connector.State = sckConnected Or TimedOut = True
    DoEvents
    If Timer - StartTime& >= TimeOut& Then: TimedOut = True
If TimedOut = True Then
    DidWinSockTimeOut = True
    DidWinSockTimeOut = False
End If
End Function
'DUPLICATE LIST ITEM SUB.
Private Function CompareToList(YourListBox As ListBox, CompareTo As String) As Integer
'SEARCHES A LISTBOX FOR A SPECIFIC STRING.
'RETURNS 1 IF STRING IS FOUND ON LIST ... 0 IF NOT.
Dim NextItem As Integer, ListEntry As String, ListIndexNum As Integer
CompareTo$ = UCase$(CompareTo$)
For NextItem% = 1 To YourListBox.ListCount
    ListEntry$ = YourListBox.List(ListIndexNum%)
    ListEntry$ = UCase$(ListEntry$)
    If ListEntry$ = CompareTo$ Then
        CompareToList% = 1
        Exit Function
    End If
    ListIndexNum% = ListIndexNum% + 1
Next NextItem%
CompareToList% = 0&
End Function
Private Sub btnAddPort_Click()
'ADD PORT TO SCAN FOR LIST.
Dim NewPort As String, Compare As Integer
'PROMPT USER.
NewPort$ = InputBox("Enter the port number that you wish to scan for below.", " Ports To Scan For")
If NewPort$ <> "" Then
    'PORT ENTERED IS TO LOW OR CONTAINS NON NUMERICAL CHARACTERS.
    If Val(NewPort$) < 1 Then
        MsgBox "Ports entered cannot contain alphabetic characters or be lower than one !", vbApplicationModal + vbCritical + vbOKOnly, " Invalid Port"
        Exit Sub
    End If
    'PORT ENTERED IS TOO HIGH.
    If Val(NewPort$) > 32767 Then
        MsgBox "Ports entered cannot be higher than 32767 !", vbApplicationModal + vbCritical + vbOKOnly, " Invalid Port"
        Exit Sub
    End If
    'COMPARE NEW PORT TO LIST.
    Compare% = CompareToList(lstScanFor1, NewPort$)
    'IF ITS THERE, PROMPT AND EXIT.
    If Compare% = 1 Then
        MsgBox "Port number " & NewPort$ & " has already been added to the list !", vbApplicationModal + vbCritical + vbOKOnly, " Duplicate Port"
        Exit Sub
    End If
    'IF ITS NOT THERE, ADD IT.
    lstScanFor1.AddItem Trim$(NewPort$)
End If
End Sub
Private Sub btnReset1_Click()
Dim Reset1 As Integer
'PROMPT USER.
Reset1% = MsgBox("Are you sure you want to reset your scanner settings ?", vbApplicationModal + vbDefaultButton1 + vbQuestion + vbYesNo, " Reset Scanner Settings")
'CHECK RESPONSE TO PROMPT.
If Reset1% = 6 Then
    'RESET TAB ONE.
    txtRHost1.Text = Connector1.LocalIP
    scrConTime1.Value = 1
    scrPause1.Value = 1
    scrKeep1.Value = 1
    lstOpen1.Clear
End If
End Sub
Private Sub btnReset2_Click()
Dim Reset2 As Integer
'PROMPT USER.
Reset2% = MsgBox("Are you sure you want to reset your scanner settings ?", vbApplicationModal + vbDefaultButton1 + vbQuestion + vbYesNo, " Reset Scanner Settings")
'CHECK RESPONSE TO PROMPT.
If Reset2% = 6 Then
    'RESET TAB TWO.
    txtRHost2.Text = Connector1.LocalIP
    scrConTime2.Value = 1
    scrPause2.Value = 1
    scrKeep2.Value = 1
    lstScanFor1.Clear
    txtPortsOpen.Text = ""
End If
End Sub
Private Sub btnReset3_Click()
Dim Reset3 As Integer
'PROMPT USER.
Reset3% = MsgBox("Are you sure you want to reset your scanner settings ?", vbApplicationModal + vbDefaultButton1 + vbQuestion + vbYesNo, " Reset Scanner Settings")
'CHECK RESPONSE TO PROMPT.
If Reset3% = 6 Then
    'RESET TAB THREE.
    txtRHost3.Text = Connector1.LocalIP
    scrStart.Value = 1
    scrEnd.Value = 1
    scrConTime3.Value = 1
    scrPause3.Value = 1
    scrKeep3.Value = 1
    lstOpen2.Clear
End If
End Sub
Private Sub btnScan1_Click()
Dim TimesUp As Boolean, ScanPort As Integer, KeepTime As Long
Dim Openings As Integer, CompareNow As Integer
'CHECK FOR REMOTE HOST.
If txtRHost1.Text = "" Then
    MsgBox "You must enter a valid remote host to scan !", vbApplicationModal + vbCritical + vbOKOnly, " Invalid Remote Host"
    Exit Sub
End If
'SET STOP SWITCH.
StopScan = False
'LOCK SETTINGS CONTROLS.
tabsScan.Enabled = False
txtRHost1.Locked = True
txtRHost1.MousePointer = 1
scrConTime1.Enabled = False
scrPause1.Enabled = False
scrKeep1.Enabled = False
btnScan1.Enabled = False
btnReset1.Enabled = False
'ENABLE STOP BUTTON.
btnStop1.Enabled = True
'SET FOCUS TO STOP BUTTON.
btnStop1.SetFocus
'SET THE REMOTE HOST.
Connector1.RemoteHost = Trim$(txtRHost1.Text)
'BEGIN IP SCAN.
Do: DoEvents
    'SET STATUS BAR.
    If StopScan = False Then: lblStatus1.Caption = "SCANNING..."
    'GO TO NEXT PORT.
    ScanPort% = ScanPort% + 1
    'TITLE BAR AS STATUS.
    Caption = " - Excessive Force IP Scanner - " & Trim$(Str$(ScanPort%)) & " -"
    'SET REMOTE PORT.
    Connector1.RemotePort = ScanPort%
    'TRAP ERRORS.
    On Error Resume Next
    'ATTEMPT CONNECTION TO REMOTE HOST.
    Connector1.Connect
    'INITIATE TCP/IP CONNECTION TIMEOUT.
    TimesUp = DidWinSockTimeOut(Val(Trim$(Left$(txtConTime1.Text, 3))), Connector1)
    'CHECK CONNECTION STATUS.
    If TimesUp = True Then
        'TRAP ERRORS.
        On Error Resume Next
        'MAKE SURE THE CONNECTION IS CLOSED.
        Connector1.Close
        'SET STATUS BAR.
        If StopScan = False Then: lblStatus1.Caption = "TIMED OUT..."
        'ADD SECONDS TO TIME KEEPER.
        KeepTime& = KeepTime& + Val(Trim$(Left$(txtConTime1.Text, 3)))
    Else
        'SET STATUS BAR.
        If StopScan = False Then: lblStatus1.Caption = "CONNECTED..."
        'USERS KEEP OPEN.
        If txtKeep1.Text <> "none" Then
            'PAUSE(USER INPUT)
            Call Pause(Trim$(Val(Left$(txtKeep1.Text, 3))))
            'ADD SECONDS TO TIME KEEPER.
            KeepTime& = KeepTime& + Trim$(Val(Left$(txtKeep1.Text, 3)))
        End If
        'CHECK IF CONNECTION IS STILL AVAILABLE.
        If Connector1.State = sckConnected Then
            'TRAP ERRORS
            On Error Resume Next
            'CLOSE THE CONNECTION.
            Connector1.Close
            'SET STATUS BAR.
            If StopScan = False Then: lblStatus1.Caption = "VALID PORT..."
            'COMPARE NEW PORT TO OPEN PORT LIST.
            CompareNow% = CompareToList(lstOpen1, Trim$(Str$(ScanPort%)))
            'IF ITS NOT THERE, ADD IT.
            If CompareNow% = 0& Then: lstOpen1.AddItem Trim$(Str$(ScanPort%))
            'ADD ONE TO OPENING COUNTER.
            Openings% = Openings% + 1
        End If
    End If
    'USER SET PAUSE.
    Call Pause(Val(Trim$(Left$(txtPause1.Text, 3))))
    'ADD SECONDS TO TIME KEEPER.
    KeepTime& = KeepTime& + Val(Trim$(Left$(txtPause1.Text, 3)))
'CHECK CONDITIONS.
Loop Until ScanPort% = 32767 Or StopScan = True
'SET STATUS BAR.
lblStatus1.Caption = "COMPLETE..."
'RESET TITLE BAR CAPTION.
Caption = " - Excessive Force IP Scanner - G0DLiKE -"
'DISPLAY SCAN STATISTICS.
If KeepTime& >= 60 Then
    'TRANSLATE TIME ELAPSED TO MINUTES IF SIXTY OR OVER.
    KeepTime& = KeepTime& \ 60
    'FORMAT MESSAGE BOX.
    If KeepTime& = 1 Then
        MsgBox "- Remote Host = " & txtRHost1.Text & vbCrLf & "- Ports Scanned = " & Trim$(Str$(ScanPort%)) & vbCrLf & "- Openings Found = " & Trim$(Str$(Openings%)) & vbCrLf & "- Time Elapsed = " & Trim$(Str$(KeepTime&)) & " minute", vbApplicationModal + vbInformation + vbOKOnly, " IP Scan Complete !"
    Else
        MsgBox "- Remote Host = " & txtRHost1.Text & vbCrLf & "- Ports Scanned = " & Trim$(Str$(ScanPort%)) & vbCrLf & "- Openings Found = " & Trim$(Str$(Openings%)) & vbCrLf & "- Time Elapsed = " & Trim$(Str$(KeepTime&)) & " minutes", vbApplicationModal + vbInformation + vbOKOnly, " IP Scan Complete !"
    End If
    'LEAVE AS SECONDS IF LESS THAN SIXTY.
    MsgBox "- Remote Host = " & txtRHost1.Text & vbCrLf & "- Ports Scanned = " & Trim$(Str$(ScanPort%)) & vbCrLf & "- Openings Found = " & Trim$(Str$(Openings%)) & vbCrLf & "- Time Elapsed = " & Trim$(Str$(KeepTime&)) & " seconds", vbApplicationModal + vbInformation + vbOKOnly, " IP Scan Complete !"
End If
'DISABLE STOP BUTTON.
btnStop1.Enabled = False
'UNLOCK SETTINGS CONTROLS.
tabsScan.Enabled = True
txtRHost1.Locked = False
txtRHost1.MousePointer = 0
scrConTime1.Enabled = True
scrPause1.Enabled = True
scrKeep1.Enabled = True
btnScan1.Enabled = True
btnReset1.Enabled = True
'SET FOCUS TO CONNECT TIME.
scrConTime1.SetFocus
'SET STATUS BAR.
lblStatus1.Caption = "IDLE..."
End Sub
Private Sub btnScan2_Click()
Dim TimedOut As Boolean, ScanTotal As Integer, ListIndexNum As Integer
Dim Elapsed As Long, Opened As Integer, Scanned As Long
Dim CompareThem As Integer
'CHECK FOR REMOTE HOST.
If txtRHost2.Text = "" Then
    MsgBox "You must enter a valid remote host to scan !", vbApplicationModal + vbCritical + vbOKOnly, " Invalid Remote Host"
    Exit Sub
End If
'CHECK FOR PORTS TO SCAN.
If lstScanFor1.ListCount = 0& Then
    MsgBox "You must enter at least one port to scan !", vbApplicationModal + vbCritical + vbOKOnly, " No Ports Listed"
    Exit Sub
End If
'SET STOP SWITCH.
ScanComplete = False
'SET SCAN TOTAL.
ScanTotal% = lstScanFor1.ListCount
'LOCK SETTINGS CONTROLS.
tabsScan.Enabled = False
txtRHost2.Locked = True
txtRHost2.MousePointer = 1
scrConTime2.Enabled = False
scrPause2.Enabled = False
scrKeep2.Enabled = False
lstScanFor1.Enabled = False
btnScan2.Enabled = False
btnAddPort.Enabled = False
btnReset2.Enabled = False
'ENABLE STOP BUTTON.
btnStop2.Enabled = True
'SET FOCUS TO STOP BUTTON.
btnStop2.SetFocus
'SET THE REMOTE HOST.
Connector1.RemoteHost = Trim$(txtRHost2.Text)
'BEGIN IP SCAN.
Do: DoEvents
    'SET STATUS BAR.
    If ScanComplete = False Then: lblStatus2.Caption = "SCANNING..."
    'TITLE BAR AS STATUS.
    Caption = " - Excessive Force IP Scanner - " & lstScanFor1.List(ListIndexNum%) & " -"
    'SET REMOTE PORT.
    Connector1.RemotePort = Val(lstScanFor1.List(ListIndexNum%))
    'TRAP ERRORS.
    On Error Resume Next
    'ATTEMPT CONNECTION TO REMOTE HOST.
    Connector1.Connect
    'INITIATE TCP/IP CONNECTION TIMEOUT.
    TimedOut = DidWinSockTimeOut(Val(Trim$(Left$(txtConTime2.Text, 3))), Connector1)
    'CHECK CONNECTION STATUS.
    If TimedOut = True Then
        'TRAP ERRORS.
        On Error Resume Next
        'MAKE SURE THE CONNECTION IS CLOSED.
        Connector1.Close
        'SET STATUS BAR.
        If ScanComplete = False Then: lblStatus2.Caption = "TIMED OUT..."
        'ADD SECONDS TO TIME KEEPER.
        Elapsed& = Elapsed& + Val(Trim$(Left$(txtConTime2.Text, 3)))
    Else
        'SET STATUS BAR.
        If ScanComplete = False Then: lblStatus2.Caption = "CONNECTED..."
        'USERS KEEP OPEN.
        If txtKeep2.Text <> "none" Then
            'PAUSE(USER INPUT)
            Call Pause(Val(Trim$(Left$(txtKeep2.Text, 3))))
            'ADD SECONDS TO TIME KEEPER.
            Elapsed& = Elapsed& + Val(Trim$(Left$(txtKeep2.Text, 3)))
        End If
        'CHECK IF CONNECTION IS STILL AVAILABLE.
        If Connector1.State = sckConnected Then
            'TRAP ERRORS
            On Error Resume Next
            'CLOSE THE CONNECTION.
            Connector1.Close
            'SET STATUS BAR.
            If ScanComplete = False Then: lblStatus2.Caption = "VALID PORT..."
            'COMPARE NEW PORT TO OPEN PORTS LIST.
            If InStr(txtPortsOpen.Text, lstScanFor1.List(ListIndexNum%)) = 0& Then
                'IF ITS NOT THERE, ADD IT.
                txtPortsOpen.Text = txtPortsOpen.Text & lstScanFor1.List(ListIndexNum%) & vbCrLf
            End If
            'ADD ONE TO OPENING COUNTER.
            Opened% = Opened% + 1
        End If
    End If
    'USER SET PAUSE.
    Call Pause(Val(Trim$(Left$(txtPause2.Text, 3))))
    'ADD ONE TO SCAN COUNTER.
    Scanned& = Scanned& + 1
    'ADD SECONDS TO TIME KEEPER.
    Elapsed& = Elapsed& + Val(Trim$(Left$(txtPause2.Text, 3)))
    'INCREASE LIST INDEX BY ONE.
    ListIndexNum% = ListIndexNum% + 1
'CHECK CONDITIONS.
Loop Until ListIndexNum% > ScanTotal% - 1 Or ScanComplete = True
'SET STATUS BAR.
lblStatus2.Caption = "COMPLETE..."
'RESET TITLE BAR CAPTION.
Caption = " - Excessive Force IP Scanner - G0DLiKE -"
'DISPLAY SCAN STATISTICS.
If Elapsed& >= 60 Then
    'TRANSLATE TIME ELAPSED TO MINUTES IF SIXTY OR OVER.
    Elapsed& = Elapsed& \ 60
    'FORMAT MESSAGE BOX.
    If Elapsed& = 1 Then
        MsgBox "- Remote Host = " & txtRHost2.Text & vbCrLf & "- Ports Scanned = " & Trim$(Str$(Scanned&)) & vbCrLf & "- Openings Found = " & Trim$(Str$(Opened%)) & vbCrLf & "- Time Elapsed = " & Trim$(Str$(Elapsed&)) & " minute", vbApplicationModal + vbInformation + vbOKOnly, " IP Scan Complete !"
    Else
        MsgBox "- Remote Host = " & txtRHost2.Text & vbCrLf & "- Ports Scanned = " & Trim$(Str$(Scanned&)) & vbCrLf & "- Openings Found = " & Trim$(Str$(Opened%)) & vbCrLf & "- Time Elapsed = " & Trim$(Str$(Elapsed&)) & " minutes", vbApplicationModal + vbInformation + vbOKOnly, " IP Scan Complete !"
    End If
    'LEAVE AS SECONDS IF LESS THAN SIXTY.
    MsgBox "- Remote Host = " & txtRHost2.Text & vbCrLf & "- Ports Scanned = " & Trim$(Str$(Scanned&)) & vbCrLf & "- Openings Found = " & Trim$(Str$(Opened%)) & vbCrLf & "- Time Elapsed = " & Trim$(Str$(Elapsed&)) & " seconds", vbApplicationModal + vbInformation + vbOKOnly, " IP Scan Complete !"
End If
'DISABLE STOP BUTTON.
btnStop2.Enabled = False
'UNLOCK SETTINGS CONTROLS.
tabsScan.Enabled = True
txtRHost2.Locked = False
txtRHost2.MousePointer = 0
scrConTime2.Enabled = True
scrPause2.Enabled = True
scrKeep2.Enabled = True
lstScanFor1.Enabled = True
btnScan2.Enabled = True
btnAddPort.Enabled = True
btnReset2.Enabled = True
'SET FOCUS TO CONNECT TIME.
scrConTime2.SetFocus
'SET STATUS BAR.
lblStatus2.Caption = "IDLE..."
End Sub
Private Sub btnScan3_Click()
Dim NoMoreTime As Boolean, StartingPort As Long, TimeSpent As Long
Dim OpenedUp As Integer, ComparePorts As Integer, NumScanned As Long
'CHECK FOR REMOTE HOST.
If txtRHost3.Text = "" Then
    MsgBox "You must enter a valid remote host to scan !", vbApplicationModal + vbCritical + vbOKOnly, " Invalid Remote Host"
    Exit Sub
End If
'MAKE SURE RANGE IS FROM LOW TO HIGH.
If Val(txtStart.Text) > Val(txtEnd.Text) Then
    MsgBox "Range scans must go from the lowest port to the highest port !", vbApplicationModal + vbCritical + vbOKOnly, " Invalid Range"
    Exit Sub
End If
'SET STOP SWITCH.
EndScan = False
'SET STARTING PORT.
StartingPort& = Val(txtStart.Text)
'LOCK SETTINGS CONTROLS.
tabsScan.Enabled = False
txtRHost3.Locked = True
txtRHost3.MousePointer = 1
scrStart.Enabled = False
scrEnd.Enabled = False
scrConTime3.Enabled = False
scrPause3.Enabled = False
scrKeep3.Enabled = False
btnScan3.Enabled = False
btnReset3.Enabled = False
'ENABLE STOP BUTTON.
btnStop3.Enabled = True
'SET FOCUS TO STOP BUTTON.
btnStop3.SetFocus
'SET THE REMOTE HOST.
Connector1.RemoteHost = Trim$(txtRHost3.Text)
'BEGIN IP SCAN.
Do: DoEvents
    'SET STATUS BAR.
    If EndScan = False Then: lblStatus3.Caption = "SCANNING..."
    'TITLE BAR AS STATUS.
    Caption = " - Excessive Force IP Scanner - " & Trim$(Str$(StartingPort&)) & " -"
    'SET REMOTE PORT.
    Connector1.RemotePort = StartingPort&
    'TRAP ERRORS.
    On Error Resume Next
    'ATTEMPT CONNECTION TO REMOTE HOST.
    Connector1.Connect
    'INITIATE TCP/IP CONNECTION TIMEOUT.
    NoMoreTime = DidWinSockTimeOut(Val(Trim$(Left$(txtConTime3.Text, 3))), Connector1)
    'CHECK CONNECTION STATUS.
    If NoMoreTime = True Then
        'TRAP ERRORS.
        On Error Resume Next
        'MAKE SURE THE CONNECTION IS CLOSED.
        Connector1.Close
        'SET STATUS BAR.
        If EndScan = False Then: lblStatus3.Caption = "TIMED OUT..."
        'ADD SECONDS TO TIME KEEPER.
        TimeSpent& = TimeSpent& + Val(Trim$(Left$(txtConTime3.Text, 3)))
    Else
        'SET STATUS BAR.
        If EndScan = False Then: lblStatus3.Caption = "CONNECTED..."
        'USERS KEEP OPEN.
        If txtKeep3.Text <> "none" Then
            'PAUSE(USER INPUT)
            Call Pause(Val(Trim$(Left$(txtKeep3.Text, 3))))
            'ADD SECONDS TO TIME KEEPER.
            TimeSpent& = TimeSpent& + Val(Trim$(Left$(txtKeep3.Text, 3)))
        End If
        'CHECK IF CONNECTION IS STILL AVAILABLE.
        If Connector1.State = sckConnected Then
            'TRAP ERRORS
            On Error Resume Next
            'CLOSE THE CONNECTION.
            Connector1.Close
            'SET STATUS BAR.
            If EndScan = False Then: lblStatus3.Caption = "VALID PORT..."
            'COMPARE NEW PORT TO OPEN PORT LIST.
            ComparePorts% = CompareToList(lstOpen2, Trim$(Str$(StartingPort&)))
            'IF ITS NOT THERE, ADD IT.
            If ComparePorts% = 0& Then: lstOpen2.AddItem Trim$(Str$(StartingPort&))
            'ADD ONE TO OPENING COUNTER.
            OpenedUp% = OpenedUp% + 1
        End If
    End If
    'USER SET PAUSE.
    Call Pause(Val(Trim$(Left$(txtPause3.Text, 3))))
    'ADD SECONDS TO TIME KEEPER.
    TimeSpent& = TimeSpent& + Val(Trim$(Left$(txtPause3.Text, 3)))
    'GO TO NEXT PORT.
    StartingPort& = StartingPort& + 1
    'ADD ONE TO SCAN COUNTER.
    NumScanned& = NumScanned& + 1
'CHECK CONDITIONS.
Loop Until StartingPort& > Val(txtEnd.Text) Or EndScan = True
'SET STATUS BAR.
lblStatus3.Caption = "COMPLETE..."
'RESET TITLE BAR CAPTION.
Caption = " - Excessive Force IP Scanner - G0DLiKE -"
'DISPLAY SCAN STATISTICS.
If TimeSpent& >= 60 Then
    'TRANSLATE TIME ELAPSED TO MINUTES IF SIXTY OR OVER.
    TimeSpent& = TimeSpent& \ 60
    'FORMAT MESSAGE BOX.
    If TimeSpent& = 1 Then
        MsgBox "- Remote Host = " & txtRHost3.Text & vbCrLf & "- Ports Scanned = " & Trim$(Str$(NumScanned&)) & vbCrLf & "- Openings Found = " & Trim$(Str$(OpenedUp%)) & vbCrLf & "- Time Elapsed = " & Trim$(Str$(TimeSpent&)) & " minute", vbApplicationModal + vbInformation + vbOKOnly, " IP Scan Complete !"
    Else
        MsgBox "- Remote Host = " & txtRHost3.Text & vbCrLf & "- Ports Scanned = " & Trim$(Str$(NumScanned&)) & vbCrLf & "- Openings Found = " & Trim$(Str$(OpenedUp%)) & vbCrLf & "- Time Elapsed = " & Trim$(Str$(TimeSpent&)) & " minutes", vbApplicationModal + vbInformation + vbOKOnly, " IP Scan Complete !"
    End If
    'LEAVE AS SECONDS IF LESS THAN SIXTY.
    MsgBox "- Remote Host = " & txtRHost3.Text & vbCrLf & "- Ports Scanned = " & Trim$(Str$(NumScanned&)) & vbCrLf & "- Openings Found = " & Trim$(Str$(OpenedUp%)) & vbCrLf & "- Time Elapsed = " & Trim$(Str$(TimeSpent&)) & " seconds", vbApplicationModal + vbInformation + vbOKOnly, " IP Scan Complete !"
End If
'DISABLE STOP BUTTON.
btnStop3.Enabled = False
'UNLOCK SETTINGS CONTROLS.
tabsScan.Enabled = True
txtRHost3.Locked = False
txtRHost3.MousePointer = 0
scrStart.Enabled = True
scrEnd.Enabled = True
scrConTime3.Enabled = True
scrPause3.Enabled = True
scrKeep3.Enabled = True
btnScan3.Enabled = True
btnReset3.Enabled = True
'SET FOCUS TO STARTING PORT.
scrStart.SetFocus
'SET STATUS BAR.
lblStatus3.Caption = "IDLE..."
End Sub
Private Sub btnStop1_Click()
'STOP TAB ONE PORT SCAN.
StopScan = True
'SET STATUS BAR.
lblStatus1.Caption = "STOPPING..."
End Sub
Private Sub btnStop2_Click()
'STOP TAB TWO PORT SCAN.
ScanComplete = True
'SET STATUS BAR.
lblStatus2.Caption = "STOPPING..."
End Sub
Private Sub btnStop3_Click()
'STOP TAB THREE PORT SCAN.
EndScan = True
'SET STATUS BAR.
lblStatus3.Caption = "STOPPING..."
End Sub
Private Sub Connector1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
'TRAP ERRORS.
On Error Resume Next
'MAKE SURE CONNECTION IS CLOSED.
Connector1.Close
End Sub
Private Sub Form_Load()
Dim Answer As Integer
'SPLASH BOX.
Answer% = MsgBox("- Excessive Force IP Scanner" & vbCrLf & "- Coded By G0DLiKE" & vbCrLf & "- Copyright 1999 IMN icon INC" & vbCrLf & "- [e-mail]", vbApplicationModal + vbDefaultButton1 + vbInformation + vbOKCancel, " Welcome !")
If Answer% <> 1 Then: End
'GET LOCAL HOST FOR ALL TABS.
txtRHost1.Text = Connector1.LocalIP
txtRHost2.Text = Connector1.LocalIP
txtRHost3.Text = Connector1.LocalIP
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'UNLOAD IP SCANNER.
Dim Result As Integer
'PROMPT USER.
Result% = MsgBox("Are you sure you want to unload G0DLiKE's Excessive Force IP Scanner ?", vbApplicationModal + vbDefaultButton1 + vbQuestion + vbYesNo, " Unload")
'CHECK RESPONSE TO PROMPT.
If Result% = 6 Then
    Unload Me
    Cancel% = 1
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
'UNLOAD.
Unload Me
End Sub
Private Sub lstScanFor1_DblClick()
'DOUBLE CLICK TO REMOVE.
Dim MsgReturn As Integer
MsgReturn% = MsgBox("Are you sure you want to remove port number " & lstScanFor1.List(lstScanFor1.ListIndex) & " ?", vbApplicationModal + vbDefaultButton1 + vbQuestion + vbYesNo, " Remove Port")
If MsgReturn% = 6 Then: lstScanFor1.RemoveItem lstScanFor1.ListIndex
End Sub
Private Sub lstScanFor1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'SCAN FOR LIST TTT.
If lstScanFor1.ListCount = 0 Then
    'IF LIST IS BLANK SO IS TTT.
    lstScanFor1.ToolTipText = ""
    'IF NOT, SET TTT.
    lstScanFor1.ToolTipText = "Double click a port number to remove it from the list."
End If
End Sub
Private Sub scrConTime1_Change()
'CHECK CONNECTION TIME VALUE.
If scrConTime1.Value >= 2 Then
    'IF ITS TWO OR GREATER...
    txtConTime1.Text = Str(scrConTime1.Value) & " seconds"
    'IF ITS ONE...
    txtConTime1.Text = "1 second"
End If
End Sub
Private Sub scrConTime2_Change()
'CHECK CONNECTION TIME VALUE.
If scrConTime2.Value >= 2 Then
    'IF ITS TWO OR GREATER...
    txtConTime2.Text = Str(scrConTime2.Value) & " seconds"
    'IF ITS ONE...
    txtConTime2.Text = "1 second"
End If
End Sub
Private Sub scrConTime3_Change()
'CHECK CONNECTION TIME VALUE.
If scrConTime3.Value >= 2 Then
    'IF ITS TWO OR GREATER...
    txtConTime3.Text = Str(scrConTime3.Value) & " seconds"
    'IF ITS ONE...
    txtConTime3.Text = "1 second"
End If
End Sub
Private Sub scrEnd_Change()
'RANGE SCANNER ENDING POINT.
txtEnd.Text = Str$(scrEnd.Value)
End Sub
Private Sub scrKeep1_Change()
'CHECK KEEP OPEN TIME VALUE.
If scrKeep1.Value >= 2 Then
    'IF ITS TWO OR GREATER...
    txtKeep1.Text = Str(scrKeep1.Value) & " seconds"
ElseIf scrKeep1.Value = 1 Then
    'IF ITS ONE...
    txtKeep1.Text = "1 second"
ElseIf scrKeep1.Value = 0& Then
    'IF ITS ZERO...
    txtKeep1.Text = "none"
End If
End Sub
Private Sub scrKeep2_Change()
'CHECK KEEP OPEN TIME VALUE.
If scrKeep2.Value >= 2 Then
    'IF ITS TWO OR GREATER...
    txtKeep2.Text = Str(scrKeep2.Value) & " seconds"
ElseIf scrKeep2.Value = 1 Then
    'IF ITS ONE...
    txtKeep2.Text = "1 second"
ElseIf scrKeep2.Value = 0& Then
    'IF ITS ZERO...
    txtKeep2.Text = "none"
End If
End Sub
Private Sub scrKeep3_Change()
'CHECK KEEP OPEN TIME VALUE.
If scrKeep3.Value >= 2 Then
    'IF ITS TWO OR GREATER...
    txtKeep3.Text = Str(scrKeep3.Value) & " seconds"
ElseIf scrKeep3.Value = 1 Then
    'IF ITS ONE...
    txtKeep3.Text = "1 second"
ElseIf scrKeep3.Value = 0& Then
    'IF ITS ZERO...
    txtKeep3.Text = "none"
End If
End Sub
Private Sub scrPause1_Change()
'CHECK USER PAUSE VALUE.
If scrPause1.Value >= 2 Then
    'IF ITS TWO OR GREATER...
    txtPause1.Text = Str(scrPause1.Value) & " seconds"
    'IF ITS ONE...
    txtPause1.Text = "1 second"
End If
End Sub
Private Sub scrPause2_Change()
'CHECK USER PAUSE VALUE.
If scrPause2.Value >= 2 Then
    'IF ITS TWO OR GREATER...
    txtPause2.Text = Str(scrPause2.Value) & " seconds"
    'IF ITS ONE...
    txtPause2.Text = "1 second"
End If
End Sub
Private Sub scrPause3_Change()
'CHECK USER PAUSE VALUE.
If scrPause3.Value >= 2 Then
    'IF ITS TWO OR GREATER...
    txtPause3.Text = Str(scrPause3.Value) & " seconds"
    'IF ITS ONE...
    txtPause3.Text = "1 second"
End If
End Sub
Private Sub scrStart_Change()
'RANGE SCANNER STARTING PORT.
txtStart.Text = Str$(scrStart.Value)
End Sub
Private Sub tabsScan_Click()
'HANDLE CLICKING OF TAB ONE.
If tabsScan.SelectedItem.Index = 1 Then
    If fraTab1.Visible = True Then
        Exit Sub
    ElseIf fraTab2.Visible = True Then
        fraTab2.Visible = False
        fraTab1.Visible = True
        'SET TAB ORDER.
        scrConTime1.TabIndex = 0
        scrPause1.TabIndex = 1
        scrKeep1.TabIndex = 2
        txtRHost1.TabIndex = 3
        lstOpen1.TabIndex = 4
        btnScan1.TabIndex = 5
        btnStop1.TabIndex = 6
        btnReset1.TabIndex = 7
        tabsScan.TabIndex = 8
        'SET FOCUS TO FIRST CONTROL.
        scrConTime1.SetFocus
    ElseIf fraTab3.Visible = True Then
        fraTab3.Visible = False
        fraTab1.Visible = True
        'SET TAB ORDER.
        scrConTime1.TabIndex = 0
        scrPause1.TabIndex = 1
        scrKeep1.TabIndex = 2
        txtRHost1.TabIndex = 3
        lstOpen1.TabIndex = 4
        btnScan1.TabIndex = 5
        btnStop1.TabIndex = 6
        btnReset1.TabIndex = 7
        tabsScan.TabIndex = 8
        'SET FOCUS TO FIRST CONTROL.
        scrConTime1.SetFocus
    End If
End If
'HANDLE CLICKING OF TAB TWO.
If tabsScan.SelectedItem.Index = 2 Then
    If fraTab3.Visible = True Then
        Exit Sub
    ElseIf fraTab1.Visible = True Then
        fraTab1.Visible = False
        fraTab3.Visible = True
        'SET TAB ORDER.
        scrStart.TabIndex = 0
        scrEnd.TabIndex = 1
        scrKeep3.TabIndex = 2
        scrConTime3.TabIndex = 3
        scrPause3.TabIndex = 4
        lstOpen2.TabIndex = 5
        txtRHost3.TabIndex = 6
        btnScan3.TabIndex = 7
        btnStop3.TabIndex = 8
        btnReset3.TabIndex = 9
        tabsScan.TabIndex = 10
        'SET FOCUS TO FIRST CONTROL.
        scrStart.SetFocus
    ElseIf fraTab2.Visible = True Then
        fraTab2.Visible = False
        fraTab3.Visible = True
        'SET TAB ORDER.
        scrStart.TabIndex = 0
        scrEnd.TabIndex = 1
        scrKeep3.TabIndex = 2
        scrConTime3.TabIndex = 3
        scrPause3.TabIndex = 4
        lstOpen2.TabIndex = 5
        txtRHost3.TabIndex = 6
        btnScan3.TabIndex = 7
        btnStop3.TabIndex = 8
        btnReset3.TabIndex = 9
        tabsScan.TabIndex = 10
        'SET FOCUS TO FIRST CONTROL.
        scrStart.SetFocus
    End If
End If
'HANDLE CLICKING OF TAB THREE.
If tabsScan.SelectedItem.Index = 3 Then
    If fraTab2.Visible = True Then
        Exit Sub
    ElseIf fraTab1.Visible = True Then
        fraTab1.Visible = False
        fraTab2.Visible = True
        'SET TAB ORDER.
        scrConTime2.TabIndex = 0
        scrPause2.TabIndex = 1
        scrKeep2.TabIndex = 2
        txtRHost2.TabIndex = 3
        lstScanFor1.TabIndex = 4
        btnScan2.TabIndex = 5
        btnStop2.TabIndex = 6
        btnAddPort.TabIndex = 7
        btnReset2.TabIndex = 8
        tabsScan.TabIndex = 9
        'SET FOCUS TO FIRST CONTROL.
        scrConTime2.SetFocus
    ElseIf fraTab3.Visible = True Then
        fraTab3.Visible = False
        fraTab2.Visible = True
        'SET TAB ORDER.
        scrConTime2.TabIndex = 0
        scrPause2.TabIndex = 1
        scrKeep2.TabIndex = 2
        txtRHost2.TabIndex = 3
        lstScanFor1.TabIndex = 4
        btnScan2.TabIndex = 5
        btnStop2.TabIndex = 6
        btnAddPort.TabIndex = 7
        btnReset2.TabIndex = 8
        tabsScan.TabIndex = 9
        'SET FOCUS TO FIRST CONTROL.
        scrConTime2.SetFocus
    End If
End If
End Sub