unit1.dfm

可探索指定IP地址段内的所有OICQ用户号码

          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            040000000000800000000000000000000000100000000000000004020400BCBE
            BC007C7E7C007C020400FCFEFC00000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000111111133332
            1111131113311113211113313111111131111333111111113111133331111111
            3111133333111113211111111111112311111110000000000001111211111111
            1101111221112211120111124212002121011112442044021101111241044440
            2101111210444444020111122444444442011112222222222201}
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'IP探测'
        ImageIndex = 1
        object SearchInfo: TLabel
          Left = 376
          Top = 184
          Width = 1308
          Height = 12
          Caption = 
            'WhoCQII[OICQ伴侣]正在探测此IP段,你的号码已经被探知。你可以从 htt' +
            'p://leosoft.home.dhs.org 或 http://whocq.yeah.net免费下载 WhoCQI' +
            'I　最新版本WhoCQ II PLUS 轻松就可以广播消息最多支持一次向64770个' +
            '地址广播，心动吗？行动吧。'
          Visible = False
        end
        object GroupBox5: TGroupBox
          Left = 0
          Top = 0
          Width = 516
          Height = 42
          Align = alTop
          Caption = '目标'
          TabOrder = 0
          object Label5: TLabel
            Left = 8
            Top = 18
            Width = 30
            Height = 12
            Caption = '区域:'
          end
          object Label6: TLabel
            Left = 256
            Top = 18
            Width = 30
            Height = 12
            Caption = '端口:'
          end
          object IPSearchArea: TEdit
            Left = 40
            Top = 13
            Width = 209
            Height = 20
            TabOrder = 0
          end
          object IPSearchPort: TEdit
            Left = 288
            Top = 13
            Width = 221
            Height = 20
            TabOrder = 1
            Text = '4000'
          end
        end
        object GroupBox6: TGroupBox
          Left = 0
          Top = 42
          Width = 371
          Height = 220
          Caption = '结果'
          TabOrder = 1
          object IPDeted: TListView
            Left = 2
            Top = 14
            Width = 367
            Height = 204
            Align = alClient
            Checkboxes = True
            Columns = <
              item
                Caption = 'IP'
                Width = 150
              end
              item
                Caption = 'PORT'
                Width = 80
              end
              item
                Caption = 'oicq number'
                Width = 128
              end>
            ColumnClick = False
            FullDrag = True
            GridLines = True
            HotTrack = True
            HotTrackStyles = [htHandPoint]
            ReadOnly = True
            RowSelect = True
            ParentShowHint = False
            PopupMenu = DetedPop
            ShowHint = True
            TabOrder = 0
            ViewStyle = vsReport
            OnSelectItem = IPDetedSelectItem
          end
        end
        object BitBtn3: TBitBtn
          Left = 416
          Top = 198
          Width = 75
          Height = 25
          Caption = '探测'
          TabOrder = 2
          OnClick = BitBtn3Click
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            04000000000080000000000000000000000010000000000000000402040004FE
            0400FC020400BCBEBC0000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000333330000003
            3333333002222120033333022222211220333022222211122203302222211111
            2203022222211111222002222211122222200222211222222220022211222122
            2210022111111122211002211111122221103021111111222103301111111122
            1103330111121222103333300112212003333333300000033333}
        end
        object BitBtn4: TBitBtn
          Left = 416
          Top = 230
          Width = 75
          Height = 25
          Caption = '清除'
          TabOrder = 3
          OnClick = BitBtn4Click
          Glyph.Data = {
            36050000424D3605000000000000360400002800000010000000100000000100
            08000000000000010000000000000000000000010000000000000C025400746E
            CC001402AC003C328C001C0284005C42C4009492F4001C126C000C02DC004432
            DC000C026C0014029C007C7EF400BCBEBC001C1EFC004C4EFC006462F4002C12
            84001C0E6C001C0E64001402BC001C029400745ED400A49EF4000402FC000C02
            7C0024129C000C0264000C028C005C4EB4002C1E6C003432FC00040274000C02
            A4008C8EFC00ACAEFC006C6EFC000C0EFC0004025C001C02B4005C4E9C001C12
            7C007C7EFC002C2EFC005C5EFC009C9EFC001C028C003C3EFC00ACB2FC000C12
            FC007C72CC001C02AC004C3E9C005C3ECC009492FC002C12740014026C001C02
            9C002422FC005452FC006462FC002402C40014028C005C4ECC00140274001C02
            A4007472FC000C025C008482FC00A4A2FC004442FC00B4B2FC001412FC000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            00000000000000000000000000000000000000000000000000000D0D0D0D0D0D
            0D0D0D180F0D0D0D0D0D0D0D0D0D2020200D18183B3B3B0D0D0D0D0D0D110A1C
            210925250E2F0F440D0D0D0D1743402E410818251F0F3C2A450D0D3636031211
            1A0D2C182F2C100C060D0D4424230D0D0D0D0D0F440D0D291213470F2C3C4524
            0D0D0D0D440D0D044043232F462F3A3C0D0D0D0D0D0D050B15340D1F0E3A253C
            0D0D0D0D0D3D1427390D2F1818183B0D0D0D0D0D0D0D0D3D350D422A2A220D48
            0D0D0D0D0D3F160D0D0D0D0D0D0D0F483C0D0D0D1D0227160D0D0D0D0D3A3A2B
            46470D1D042E41270D0D0D0D452D2F3C2C441E4338041B0D0D0D0D0D0D0D4224
            443601001B430D0D0D0D0D0D0D0D0D2D2D4523321B0D0D0D0D0D}
        end
        object GroupBox7: TGroupBox
          Left = 376
          Top = 42
          Width = 140
          Height = 105
          Caption = '状态'
          TabOrder = 4
          object DLab1: TLabel
            Left = 8
            Top = 24
            Width = 54
            Height = 12
            Caption = '已经探测:'
            Enabled = False
          end
          object DLab2: TLabel
            Left = 16
            Top = 40
            Width = 42
            Height = 12
            Caption = '0.0.0.0'
            Enabled = False
          end
          object DetePro: TProgressBar
            Left = 8
            Top = 76
            Width = 125
            Height = 16
            Min = 0
            Max = 64770
            Step = 1
            TabOrder = 0
          end
        end
      end
      object TabSheet3: TTabSheet
        Caption = '端口探测'
        ImageIndex = 2
        object Label13: TLabel
          Left = 379
          Top = 170
          Width = 120
          Height = 12
          Caption = '探索大量的端口很耗时'
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object PSearchMess: TLabel
          Left = 384
          Top = 192
          Width = 828
          Height = 12
          Caption = 
            'WhoCQII[OICQ伴侣]正在探测此IP的多个端口,你的号码已经被探知。你可' +
            '以从 http://leosoft.home.dhs.org 或 http://whocq.yeah.net 免费下' +
            '载 WhoCQII'
          Visible = False
        end
        object GroupBox8: TGroupBox
          Left = 0
          Top = 0
          Width = 516
          Height = 49
          Align = alTop
          Caption = '目标'
          TabOrder = 0
          object Label10: TLabel
            Left = 12
            Top = 22
            Width = 18
            Height = 12
            Caption = 'IP:'
          end
          object Label11: TLabel
            Left = 164
            Top = 22
            Width = 66
            Height = 12
            Caption = '端口:[From]'
          end
          object Label12: TLabel
            Left = 359
            Top = 22
            Width = 24
            Height = 12
            Caption = '[To]'
          end
          object PDeteIP: TEdit
            Left = 33
            Top = 18
            Width = 121
            Height = 20
            TabOrder = 0
          end
          object PDeteB: TEdit
            Left = 234
            Top = 18
            Width = 121
            Height = 20
            TabOrder = 1
            Text = '4000'
          end
          object PDeteE: TEdit
            Left = 383
            Top = 18
            Width = 121
            Height = 20
            TabOrder = 2
            Text = '4025'
          end
        end
        object GroupBox9: TGroupBox
          Left = 0
          Top = 49
          Width = 361
          Height = 211
          Align = alLeft
          Caption = '结果'
          TabOrder = 1
          object PortDeted: TListView
            Left = 2
            Top = 14
            Width = 357
            Height = 195
            Align = alClient
            Checkboxes = True
            Color = clHighlightText
            Columns = <
              item
                Caption = 'Port'
                Width = 100
              end
              item
                Caption = 'Port Info'
                Width = 248
              end>
            GridLines = True
            HotTrack = True
            HotTrackStyles = [htHandPoint]
            ReadOnly = True
            RowSelect = True
            PopupMenu = PopupMenu2
            TabOrder = 0
            ViewStyle = vsReport
            OnSelectItem = PortDetedSelectItem
          end
        end
        object GroupBox10: TGroupBox
          Left = 364
          Top = 49
          Width = 152
          Height = 112
          Caption = '状态'
          TabOrder = 2
          object Label14: TLabel
            Left = 8
            Top = 16
            Width = 30
            Height = 12
            Caption = '探测:'
            Enabled = False
          end
          object Label15: TLabel