unit1.dfm

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

          '找出自己的OICQ所使用的端口号:'
          '在运行OICQ登录前,单击'#39'系统信息'#39'页的UDP,然后登录OICQ,登'
          '录完成后,再点一下'#39'系统信息'#39'页的UDP,比较一下,多出来的那个'
          '端口就是你的OICQ所使用的UDP端口!如果你的系统是'
          'Windows95/97,那么'#39'系统信息'#39'页的功能将不可用.'
          ''
          '附2:'
          '在以下情况下结果不一定准确:'
          '1,代理上网:这样的话可能准确也可能不准确，因为我没在这种'
          '情况下测试;'
          '2,双方的网络状态不好,查看聊天记录,会发现有"通过服务器转'
          '发"的字样,在这种情况下查出来的是OICQ服务器的IP.'
          '3,如果未选中持续追踪的话,有时追踪会被来自OICQ服务器的信'
          '息打断，这时重新单击追踪或选中'#39'持续追踪'#39'再单击追踪即可.'
          '4,只能查与相应的UDP端口相对应的OICQ上的在线好友的IP.因'
          '此如果你打开了好几个OICQ.请运行本程序多次,对相应的端口'
          '号追踪.'
          '5,为了防止追踪被意外信息打断,若选中'#39'持续追踪'#39',程序会在收'
          '到10次信息后再停止追踪.否则收到一次信息即断开.'
          ''
          '附3:'
          '端口扫描是用于进行TCP端口扫描的.请不要在端口扫描进行的'
          '过程中单击'#39'系统信息'#39'页的TCP.这个端口扫描是'#39'网络时代'#39'中的'#39
          '端口扫描'#39'的改进版,本来是为'#39'网络时代'#39'的正式版准备的,这里将'
          '其集成进来.'
          ''
          '附4:'
          '程序的来历:'
          '一个偶然的机会,让我知道心爱的女孩也用OICQ上网聊天,当时'
          '就想写一个针对OICQ的程序,不过一直没心情写,有一次在学校'
          '机房上网的时候实在是很'#39'郁闷'#39',刚好那台机器上装了个LCC,于'
          '是就用LCC写了TraceIcq,程序很简陋,也很简单,后来自己买了电'
          '脑以后,用C++Builder5重写了一遍,大伙可以去小弟的主页下载'
          '源代码!'
          ''
          '附5:'
          '程序在WindowsMe Millennium Edition/C++Builder5下编写,在'
          'Windows2000/Me/98/98SE,OICQ2000Preview1 Build 1201下测'
          '试通过.对于Windows95/97的系统,也能使用,不过不能使用'#39'系统'
          '信息'#39'页的UDP/TCP功能.'
          ''
          '附6:'
          '由于在Windows2000里可以通过编程来真正隐藏IP,所以不能保'
          '证对OICQ针对Windows2000开发的新版本也适用(目前还没听'
          '说有这种版本).'
          ''
          '作者:Bcbhua'
          '邮件:[e-mail]'
          '主页:LoveBcb.yeah.net'
          '2001年3月6日,北京,中财.')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TabSheet4: TTabSheet
      Caption = '程序数据'
      ImageIndex = 3
      object Splitter3: TSplitter
        Left = 0
        Top = 39
        Width = 464
        Height = 4
        Cursor = crVSplit
        Align = alTop
      end
      object SGData: TStringGrid
        Left = 0
        Top = 43
        Width = 464
        Height = 448
        Align = alClient
        Color = clWhite
        ColCount = 17
        DefaultColWidth = 25
        DefaultRowHeight = 21
        RowCount = 256
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -16
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 464
        Height = 39
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object Bevel5: TBevel
          Left = 0
          Top = 0
          Width = 464
          Height = 2
          Align = alTop
          Shape = bsTopLine
          Style = bsRaised
        end
        object RBText: TRadioButton
          Left = 165
          Top = 10
          Width = 153
          Height = 20
          Caption = '文本方式显示'
          TabOrder = 0
          OnClick = RBTextClick
        end
        object RBBinary: TRadioButton
          Left = 10
          Top = 10
          Width = 143
          Height = 20
          Caption = '二进制方式显示'
          Checked = True
          TabOrder = 1
          TabStop = True
          OnClick = RBBinaryClick
        end
        object BitBtn1: TBitBtn
          Left = 321
          Top = 2
          Width = 144
          Height = 30
          Caption = '保存到文件'
          TabOrder = 2
          OnClick = BitBtn1Click
          Kind = bkOK
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = '端口扫描'
      ImageIndex = 4
      object Bevel6: TBevel
        Left = 0
        Top = 0
        Width = 464
        Height = 2
        Align = alTop
        Shape = bsTopLine
        Style = bsRaised
      end
      object Panel5: TPanel
        Left = 0
        Top = 2
        Width = 225
        Height = 467
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 0
        object GroupBox1: TGroupBox
          Left = 0
          Top = 173
          Width = 217
          Height = 125
          Caption = '端口范围:'
          TabOrder = 0
          object lbTo: TLabel
            Left = 106
            Top = 91
            Width = 15
            Height = 19
            Caption = '---'
            Enabled = False
          end
          object edFrom: TEdit
            Left = 11
            Top = 87
            Width = 87
            Height = 27
            Enabled = False
            TabOrder = 0
            Text = '1'
          end
          object edTo: TEdit
            Left = 117
            Top = 87
            Width = 87
            Height = 27
            Enabled = False
            TabOrder = 1
            Text = '65535'
          end
          object rbSelectPort: TRadioButton
            Left = 10
            Top = 63
            Width = 96
            Height = 20
            Caption = '自定义:'
            TabOrder = 2
            OnClick = rbSelectPortClick
          end
          object rbAllPort: TRadioButton
            Left = 10
            Top = 30
            Width = 175
            Height = 20
            Caption = '所有端口(1---63335)'
            Checked = True
            TabOrder = 3
            TabStop = True
            OnClick = rbAllPortClick
          end
        end
        object GroupBox5: TGroupBox
          Left = 0
          Top = 24
          Width = 217
          Height = 119
          Caption = '目标主机:'
          TabOrder = 1
          object rbRemote: TRadioButton
            Left = 10
            Top = 57
            Width = 115
            Height = 20
            Caption = '远程主机'
            TabOrder = 0
            OnClick = rbRemoteClick
          end
          object rbLocal: TRadioButton
            Left = 10
            Top = 29
            Width = 181
            Height = 20
            Caption = '本地主机'
            Checked = True
            TabOrder = 1
            TabStop = True
            OnClick = rbLocalClick
          end
          object edRemote: TEdit
            Left = 10
            Top = 81
            Width = 199
            Height = 27
            Enabled = False
            MaxLength = 99
            TabOrder = 2
            Text = 'www.sina.com.cn'
          end
        end
        object BBScan: TBitBtn
          Left = 8
          Top = 432
          Width = 93
          Height = 29
          Caption = '开始扫描'
          TabOrder = 2
          OnClick = BBScanClick
          Kind = bkOK
        end
        object BBEnd: TBitBtn
          Left = 116
          Top = 432
          Width = 93
          Height = 29
          Caption = '终止扫描'
          Enabled = False
          TabOrder = 3
          OnClick = BBEndClick
          Kind = bkCancel
        end
        object GroupBox2: TGroupBox
          Left = 0
          Top = 330
          Width = 217
          Height = 77
          Caption = '扫描类型:'
          TabOrder = 4
          object RBTcp: TRadioButton
            Left = 10
            Top = 23
            Width = 134
            Height = 20
            Caption = 'TCP端口'
            Checked = True
            TabOrder = 0
            TabStop = True
          end
          object RBUdp: TRadioButton
            Left = 10
            Top = 51
            Width = 134
            Height = 20
            Caption = 'UDP端口'
            Enabled = False
            TabOrder = 1
          end
        end
      end
      object Panel4: TPanel
        Left = 224
        Top = 2
        Width = 240
        Height = 467
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 1
        object LBResult: TListBox
          Left = 0
          Top = 0
          Width = 240
          Height = 467
          Align = alClient
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -17
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 22
          ParentFont = False
          TabOrder = 0
        end
      end