home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / irc / prog / virc97.exe / 0 / RCDATA / TPORTSCANNER / TPORTSCANNER.txt
Encoding:
Text File  |  2001-06-24  |  4.0 KB  |  169 lines
  1. object PortScanner: TPortScanner
  2.   Left = 156
  3.   Top = 269
  4.   BorderStyle = bsDialog
  5.   Caption = 'PowerProbe (tm) Port Scanner'
  6.   ClientHeight = 337
  7.   ClientWidth = 335
  8.   Font.Color = clWindowText
  9.   Font.Height = -14
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Position = poScreenCenter
  13.   OnShow = FormShow
  14.   PixelsPerInch = 120
  15.   TextHeight = 16
  16.   object ProgressCaption: TLabel
  17.     Left = 9
  18.     Top = 244
  19.     Width = 234
  20.     Height = 16
  21.     Caption = 'Press "Scan" to start scanning for ports.'
  22.   end
  23.   object GroupBox1: TGroupBox
  24.     Left = 9
  25.     Top = 5
  26.     Width = 316
  27.     Height = 88
  28.     Caption = '&Scanner settings'
  29.     TabOrder = 0
  30.     object Label4: TLabel
  31.       Left = 14
  32.       Top = 23
  33.       Width = 71
  34.       Height = 16
  35.       AutoSize = False
  36.       Caption = '&IP to scan:'
  37.       FocusControl = ScanIP
  38.     end
  39.     object Label1: TLabel
  40.       Left = 14
  41.       Top = 51
  42.       Width = 71
  43.       Height = 22
  44.       AutoSize = False
  45.       Caption = '&From port:'
  46.       FocusControl = ScanIP
  47.     end
  48.     object Label2: TLabel
  49.       Left = 174
  50.       Top = 51
  51.       Width = 55
  52.       Height = 22
  53.       AutoSize = False
  54.       Caption = '&To port:'
  55.       FocusControl = ScanIP
  56.     end
  57.     object ScanIP: TEdit
  58.       Left = 88
  59.       Top = 20
  60.       Width = 213
  61.       Height = 24
  62.       TabOrder = 0
  63.       OnChange = ScanIPChange
  64.     end
  65.     object FromPort: TEdit
  66.       Left = 88
  67.       Top = 48
  68.       Width = 65
  69.       Height = 24
  70.       TabOrder = 1
  71.       OnChange = ScanIPChange
  72.     end
  73.     object ToPort: TEdit
  74.       Left = 236
  75.       Top = 48
  76.       Width = 65
  77.       Height = 24
  78.       TabOrder = 2
  79.       OnChange = ScanIPChange
  80.     end
  81.   end
  82.   object GroupBox2: TGroupBox
  83.     Left = 9
  84.     Top = 97
  85.     Width = 316
  86.     Height = 140
  87.     Caption = '&Ports found'
  88.     TabOrder = 1
  89.     object PortList: TListBox
  90.       Left = 8
  91.       Top = 16
  92.       Width = 301
  93.       Height = 117
  94.       ItemHeight = 16
  95.       TabOrder = 0
  96.     end
  97.   end
  98.   object ScanProgress: TProgressBar
  99.     Left = 10
  100.     Top = 261
  101.     Width = 315
  102.     Height = 32
  103.     Min = 0
  104.     Max = 100
  105.     TabOrder = 2
  106.   end
  107.   object PortScanner: TSockets
  108.     Left = 8
  109.     Top = 300
  110.     Width = 32
  111.     Height = 32
  112.     MaximumReceiveLength = 8192
  113.     OnSessionConnected = PortScannerSessionConnected
  114.     OnErrorOccurred = PortScannerErrorOccurred
  115.   end
  116.   object Scan: TNashButton
  117.     Left = 134
  118.     Top = 302
  119.     Width = 93
  120.     Height = 30
  121.     Caption = 'S&can'
  122.     Font.Color = clWindowText
  123.     Font.Height = -14
  124.     Font.Name = 'MS Sans Serif'
  125.     Font.Style = []
  126.     ParentFont = False
  127.     TabOrder = 4
  128.     OnClick = ScanClick
  129.     Glyph.Data = {
  130.       76010000424D7601000000000000760000002800000020000000100000000100
  131.       04000000000000010000130B0000130B00000000000000000000000000000000
  132.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  133.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  134.       333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
  135.       300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
  136.       330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
  137.       333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
  138.       339977FF777777773377000BFB03333333337773FF733333333F333000333333
  139.       3300333777333333337733333333333333003333333333333377333333333333
  140.       333333333333333333FF33333333333330003333333333333777333333333333
  141.       3000333333333333377733333333333333333333333333333333}
  142.     NumGlyphs = 2
  143.     HoverFont.Color = clBlue
  144.     HoverFont.Height = -13
  145.     HoverFont.Name = 'MS Sans Serif'
  146.     HoverFont.Style = [fsUnderline]
  147.     HoverHighlight = True
  148.   end
  149.   object CloseBtn: TNashButton
  150.     Left = 234
  151.     Top = 302
  152.     Width = 93
  153.     Height = 30
  154.     Font.Color = clWindowText
  155.     Font.Height = -14
  156.     Font.Name = 'MS Sans Serif'
  157.     Font.Style = []
  158.     ParentFont = False
  159.     TabOrder = 5
  160.     OnClick = CloseBtnClick
  161.     Kind = bkClose
  162.     HoverFont.Color = clRed
  163.     HoverFont.Height = -13
  164.     HoverFont.Name = 'MS Sans Serif'
  165.     HoverFont.Style = [fsUnderline]
  166.     HoverHighlight = True
  167.   end
  168. end
  169.