home *** CD-ROM | disk | FTP | other *** search
- object PortScanner: TPortScanner
- Left = 156
- Top = 269
- BorderStyle = bsDialog
- Caption = 'PowerProbe (tm) Port Scanner'
- ClientHeight = 337
- ClientWidth = 335
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnShow = FormShow
- PixelsPerInch = 120
- TextHeight = 16
- object ProgressCaption: TLabel
- Left = 9
- Top = 244
- Width = 234
- Height = 16
- Caption = 'Press "Scan" to start scanning for ports.'
- end
- object GroupBox1: TGroupBox
- Left = 9
- Top = 5
- Width = 316
- Height = 88
- Caption = '&Scanner settings'
- TabOrder = 0
- object Label4: TLabel
- Left = 14
- Top = 23
- Width = 71
- Height = 16
- AutoSize = False
- Caption = '&IP to scan:'
- FocusControl = ScanIP
- end
- object Label1: TLabel
- Left = 14
- Top = 51
- Width = 71
- Height = 22
- AutoSize = False
- Caption = '&From port:'
- FocusControl = ScanIP
- end
- object Label2: TLabel
- Left = 174
- Top = 51
- Width = 55
- Height = 22
- AutoSize = False
- Caption = '&To port:'
- FocusControl = ScanIP
- end
- object ScanIP: TEdit
- Left = 88
- Top = 20
- Width = 213
- Height = 24
- TabOrder = 0
- OnChange = ScanIPChange
- end
- object FromPort: TEdit
- Left = 88
- Top = 48
- Width = 65
- Height = 24
- TabOrder = 1
- OnChange = ScanIPChange
- end
- object ToPort: TEdit
- Left = 236
- Top = 48
- Width = 65
- Height = 24
- TabOrder = 2
- OnChange = ScanIPChange
- end
- end
- object GroupBox2: TGroupBox
- Left = 9
- Top = 97
- Width = 316
- Height = 140
- Caption = '&Ports found'
- TabOrder = 1
- object PortList: TListBox
- Left = 8
- Top = 16
- Width = 301
- Height = 117
- ItemHeight = 16
- TabOrder = 0
- end
- end
- object ScanProgress: TProgressBar
- Left = 10
- Top = 261
- Width = 315
- Height = 32
- Min = 0
- Max = 100
- TabOrder = 2
- end
- object PortScanner: TSockets
- Left = 8
- Top = 300
- Width = 32
- Height = 32
- MaximumReceiveLength = 8192
- OnSessionConnected = PortScannerSessionConnected
- OnErrorOccurred = PortScannerErrorOccurred
- end
- object Scan: TNashButton
- Left = 134
- Top = 302
- Width = 93
- Height = 30
- Caption = 'S&can'
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnClick = ScanClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
- 300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
- 330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
- 333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
- 339977FF777777773377000BFB03333333337773FF733333333F333000333333
- 3300333777333333337733333333333333003333333333333377333333333333
- 333333333333333333FF33333333333330003333333333333777333333333333
- 3000333333333333377733333333333333333333333333333333}
- NumGlyphs = 2
- HoverFont.Color = clBlue
- HoverFont.Height = -13
- HoverFont.Name = 'MS Sans Serif'
- HoverFont.Style = [fsUnderline]
- HoverHighlight = True
- end
- object CloseBtn: TNashButton
- Left = 234
- Top = 302
- Width = 93
- Height = 30
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- OnClick = CloseBtnClick
- Kind = bkClose
- HoverFont.Color = clRed
- HoverFont.Height = -13
- HoverFont.Name = 'MS Sans Serif'
- HoverFont.Style = [fsUnderline]
- HoverHighlight = True
- end
- end
-