unit1.dfm

OICQ探索器程序源代码可找出自己的oicq所使用的端口号 可找出在线好友的ip

object Form1: TForm1
  Left = 177
  Top = 12
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'TraceIcq + '
  ClientHeight = 533
  ClientWidth = 472
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clNavy
  Font.Height = -16
  Font.Name = '宋体'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000007777770000000000000000
    0000000000000007000000000000000000000000000000070000000000000000
    0000000000777007000000000000000000077070007770070000700000000000
    0077000700787000000007000000000007708000077877000070007000000000
    07088807777777770777000700000000008F88877FFFFF077887700700000000
    00088888F88888FF08870070000000000000880888877778F070007000000007
    77088888880007778F770077777000700008F088007777077F07000000700700
    008F08880800077778F7700000700708888F0880F08F807078F7777700700708
    F88F0780F070F07078F7887700700708888F0780F077807088F7777700700700
    008F0788FF00080888F77000007000000008F0780FFFF0088F77007000000000
    0008F07788000888887700700000000000008F07788888880870007000000000
    00088FF0077788088887000700000000008F888FF00000F87887700700000000
    0708F8088FFFFF88078700700000000007708000088888000070070000000000
    0077007000888007000070000000000000077700008F80070007000000000000
    0000000000888007000000000000000000000000000000070000000000000000
    000000000777777700000000000000000000000000000000000000000000FFFF
    FFFFFFFC0FFFFFFC0FFFFFF80FFFFFF80FFFFE180E7FFC00043FF800001FF800
    000FF800000FFC00001FFE00001FE0000001C000000180000001800000018000
    00018000000180000001FC00001FFC00001FFE00001FFC00000FF800000FF800
    001FF800003FFC180C7FFE380EFFFFF80FFFFFF80FFFFFF80FFFFFFFFFFF}
  OldCreateOrder = False
  Position = poDefault
  OnClose = FormClose
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 19
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 472
    Height = 5
    Align = alTop
    Shape = bsFrame
    Style = bsRaised
  end
  object PCTrace: TPageControl
    Left = 0
    Top = 5
    Width = 472
    Height = 528
    ActivePage = TabSheet1
    Align = alClient
    Style = tsFlatButtons
    TabOrder = 0
    object TabSheet2: TTabSheet
      Caption = '系统信息'
      ImageIndex = 1
      object LVTable: TListView
        Left = 0
        Top = 0
        Width = 464
        Height = 454
        Align = alClient
        Color = clAqua
        Columns = <
          item
            AutoSize = True
            Caption = '本地地址'
          end
          item
            Alignment = taCenter
            Caption = '所用端口'
            Width = 95
          end
          item
            Alignment = taCenter
            AutoSize = True
            Caption = '对方地址'
          end
          item
            Alignment = taCenter
            Caption = '所用端口'
            Width = 95
          end
          item
            Alignment = taCenter
            AutoSize = True
            Caption = '状态'
          end>
        TabOrder = 0
        ViewStyle = vsReport
        OnEditing = LVTableEditing
      end
      object Panel2: TPanel
        Left = 0
        Top = 454
        Width = 464
        Height = 37
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        object BBTcp: TBitBtn
          Left = 101
          Top = 8
          Width = 89
          Height = 25
          Caption = '&TCP'
          TabOrder = 0
          OnClick = BBTcpClick
          Kind = bkHelp
        end
        object BBUdp: TBitBtn
          Left = 6
          Top = 8
          Width = 89
          Height = 25
          Caption = '&UDP'
          TabOrder = 1
          OnClick = BBUdpClick
          Kind = bkHelp
        end
        object BBClear: TBitBtn
          Left = 196
          Top = 8
          Width = 89
          Height = 25
          Caption = '清空'
          TabOrder = 2
          OnClick = BBClearClick
          Kind = bkRetry
        end
      end
    end
    object TabSheet1: TTabSheet
      Caption = '程序信息'
      ImageIndex = 1
      object Bevel3: TBevel
        Left = 0
        Top = 77
        Width = 464
        Height = 2
        Align = alTop
        Shape = bsTopLine
        Style = bsRaised
      end
      object mmResult: TMemo
        Left = 0
        Top = 79
        Width = 464
        Height = 377
        Align = alClient
        Color = clAqua
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object Panel6: TPanel
        Left = 0
        Top = 456
        Width = 464
        Height = 35
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        OnResize = Panel6Resize
        object SBAbout: TImage
          Left = 427
          Top = 2
          Width = 33
          Height = 33
          Transparent = True
          OnClick = SBAboutClick
        end
        object BitBtn2: TBitBtn
          Left = 112
          Top = 8
          Width = 97
          Height = 25
          Caption = '清空信息'
          TabOrder = 0
          OnClick = BitBtn2Click
          Kind = bkAbort
        end
        object BitBtn3: TBitBtn
          Left = 8
          Top = 8
          Width = 97
          Height = 25
          Caption = '保存信息'
          TabOrder = 1
          OnClick = BitBtn3Click
          Kind = bkOK
        end
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 464
        Height = 77
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 2
        object Label1: TLabel
          Left = 362
          Top = 8
          Width = 36
          Height = 19
          Caption = '端口:'
        end
        object Bevel2: TBevel
          Left = 0
          Top = 0
          Width = 464
          Height = 2
          Align = alTop
          Shape = bsTopLine
          Style = bsRaised
        end
        object edPort: TEdit
          Left = 400
          Top = 5
          Width = 65
          Height = 27
          Color = clAqua
          TabOrder = 0
          Text = '4000'
        end
        object bbTrace: TBitBtn
          Left = 6
          Top = 40
          Width = 89
          Height = 30
          Caption = '追踪'
          TabOrder = 1
          OnClick = bbTraceClick
          Kind = bkOK
        end
        object bbCancel: TBitBtn
          Left = 101
          Top = 40
          Width = 89
          Height = 30
          Caption = '终止'
          Enabled = False
          TabOrder = 2
          OnClick = bbCancelClick
          Kind = bkCancel
        end
        object EDHost: TEdit
          Left = 109
          Top = 5
          Width = 244
          Height = 27
          Color = clAqua
          Enabled = False
          TabOrder = 3
        end
        object CBAuto: TCheckBox
          Left = 7
          Top = 8
          Width = 98
          Height = 21
          Caption = '自动获取IP'
          Checked = True
          State = cbChecked
          TabOrder = 4
          OnClick = CBAutoClick
        end
        object CBContinue: TCheckBox
          Left = 208
          Top = 50
          Width = 89
          Height = 25
          Caption = '持续追踪 '
          Checked = True
          State = cbChecked
          TabOrder = 5
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = '程序说明'
      ImageIndex = 2
      object Bevel4: TBevel
        Left = 0
        Top = 0
        Width = 464
        Height = 2
        Align = alTop
        Shape = bsTopLine
        Style = bsRaised
      end
      object Memo1: TMemo
        Left = 0
        Top = 2
        Width = 464
        Height = 489
        Align = alClient
        Color = clAqua
        Lines.Strings = (
          '声明:本程序并非针对OICQ编写的攻击工具!'
          ''
          '以下说明以OICQ为示例:'
          '在文本框内输入你自己的OICQ所使用的UDP端口号(OICQ默认'
          '是4000,如果你的机器上打开了多个OICQ,则每个OICQ所占用的'
          'UDP端口依次递增,即为4000，4001，4002...).单击追踪,然后向'
          '好友发信息或等好友给你发信息即可查知该好友的IP和端口号.'
          ''
          '附1:'