unit1.dfm

又一个利用网上寻呼提供商的web页面来发送网上寻呼的程序

          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '聊天服务'
      ImageIndex = 1
      object Splitter2: TSplitter
        Left = 0
        Top = 282
        Width = 510
        Height = 4
        Cursor = crVSplit
        Align = alBottom
      end
      object GServer1: GServer
        Left = 0
        Top = 286
        Width = 510
        Height = 155
        Align = alBottom
        TabOrder = 0
        ClientList = ListView1
        OnConnecting = GServer1Connecting
        OnLeave = GServer1Leave
        OnDisConnect = GServer1DisConnect
      end
      object ListView1: TListView
        Left = 0
        Top = 73
        Width = 510
        Height = 209
        Align = alClient
        Columns = <
          item
            Caption = 'ID'
            Width = 80
          end
          item
            Alignment = taCenter
            Caption = '呢称'
            Width = 80
          end
          item
            Alignment = taCenter
            Caption = 'IP地址'
            Width = 120
          end
          item
            Alignment = taCenter
            Caption = '状态'
            Width = 100
          end
          item
            Alignment = taCenter
            Caption = '接收量'
            Width = 60
          end
          item
            Alignment = taCenter
            Caption = '发送量'
            Width = 60
          end>
        SortType = stText
        TabOrder = 1
        ViewStyle = vsReport
        OnChange = ListView1Change
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 510
        Height = 73
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 2
        object sbLocalInfo: TSpeedButton
          Left = 256
          Top = 8
          Width = 81
          Height = 22
          Caption = '本机信息'
          Flat = True
          OnClick = sbLocalInfoClick
        end
        object Label9: TLabel
          Left = 8
          Top = 8
          Width = 40
          Height = 16
          Caption = '端口:'
        end
        object Label10: TLabel
          Left = 120
          Top = 8
          Width = 40
          Height = 16
          Caption = '密码:'
        end
        object sbSBegin: TSpeedButton
          Left = 344
          Top = 8
          Width = 49
          Height = 22
          Caption = '启动'
          Flat = True
          OnClick = sbSBeginClick
        end
        object sbSEnd: TSpeedButton
          Left = 400
          Top = 8
          Width = 49
          Height = 22
          Caption = '终止'
          Enabled = False
          Flat = True
          OnClick = sbSEndClick
        end
        object sbCloseDoor: TSpeedButton
          Left = 344
          Top = 40
          Width = 49
          Height = 22
          AllowAllUp = True
          GroupIndex = 2
          Caption = '关门'
          Enabled = False
          Flat = True
          OnClick = sbCloseDoorClick
        end
        object sbSystem: TSpeedButton
          Left = 456
          Top = 8
          Width = 49
          Height = 22
          Caption = '系统'
          Enabled = False
          Flat = True
          OnClick = sbSystemClick
        end
        object sbSSave: TSpeedButton
          Left = 456
          Top = 40
          Width = 49
          Height = 22
          Caption = '保存'
          Flat = True
          OnClick = sbSSaveClick
        end
        object Label34: TLabel
          Left = 8
          Top = 40
          Width = 56
          Height = 16
          Caption = '欢迎词:'
        end
        object sbKick: TSpeedButton
          Left = 400
          Top = 40
          Width = 49
          Height = 22
          Caption = '踢人'
          Enabled = False
          Flat = True
          OnClick = sbKickClick
        end
        object Bevel1: TBevel
          Left = 0
          Top = 0
          Width = 510
          Height = 2
          Align = alTop
          Shape = bsTopLine
        end
        object edSPort: TEdit
          Left = 48
          Top = 8
          Width = 65
          Height = 22
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          MaxLength = 5
          ParentFont = False
          TabOrder = 0
          Text = '80'
        end
        object edSPassword: TEdit
          Left = 160
          Top = 8
          Width = 89
          Height = 22
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          MaxLength = 14
          ParentFont = False
          TabOrder = 1
          Text = 'NetTime'
        end
        object edWelcome: TEdit
          Left = 64
          Top = 40
          Width = 273
          Height = 24
          MaxLength = 50
          TabOrder = 2
          Text = '欢迎来到我的聊天室!'
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = '聊天客户'
      ImageIndex = 2
      object Panel3: TPanel
        Left = 0
        Top = 400
        Width = 510
        Height = 41
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 0
        OnResize = Panel3Resize
        object lbColor: TLabel
          Left = 3
          Top = 14
          Width = 16
          Height = 16
          Caption = '  '
          Color = clNavy
          ParentColor = False
          OnClick = lbColorClick
        end
        object edCText: TEdit
          Left = 24
          Top = 11
          Width = 433
          Height = 22
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          MaxLength = 80
          ParentFont = False
          TabOrder = 0
        end
        object btCSend: TButton
          Left = 464
          Top = 8
          Width = 41
          Height = 25
          Caption = '发送'
          Default = True
          Enabled = False
          TabOrder = 1
          OnClick = btCSendClick
        end
      end
      object GClient1: GClient
        Left = 0
        Top = 49
        Width = 510
        Height = 351
        Align = alClient
        Color = clAqua
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -16
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssBoth
        TabOrder = 1
        ClientList = ToolBarClient
        SendColor = clNavy
        OnSay = GClient1Say
        OnConnected = GClient1Connected
        OnClosed = GClient1Closed
        OnConnectFailed = GClient1ConnectFailed
        OnButtonClick = GClient1ButtonClick
      end
      object PToolBar: TPanel
        Left = 0
        Top = 0
        Width = 510
        Height = 49
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 2
        OnResize = PToolBarResize
        object ToolBarClient: TToolBar
          Left = -2
          Top = 0
          Width = 51
          Height = 49
          Align = alNone
          AutoSize = True
          BorderWidth = 2
          ButtonHeight = 41
          ButtonWidth = 43
          Color = clBtnFace
          EdgeBorders = []
          EdgeInner = esNone
          EdgeOuter = esNone
          Flat = True
          Images = ImageList1
          List = True
          ParentColor = False
          TabOrder = 0
          Transparent = True
          Wrapable = False
          OnResize = ToolBarClientResize
          object TBConnect: TToolButton
            Left = 0
            Top = 0
            Hint = '单击进行连接设置'
            AutoSize = True
            ImageIndex = 65
            ParentShowHint = False
            ShowHint = True
            OnClick = TBConnectClick
          end
        end
        object BLeftSide: TBitBtn
          Left = 3
          Top = 32
          Width = 20
          Height = 17
          Caption = '←'
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          Visible = False
          OnClick = BLeftSideClick
        end
        object BRightSide: TBitBtn
          Left = 488
          Top = 32
          Width = 20
          Height = 17
          Caption = '→'
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          Visible = False
          OnClick = BRightSideClick
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = '端口扫描'
      ImageIndex = 4
      object Bevel3: TBevel
        Left = 0
        Top = 0
        Width = 510
        Height = 2
        Align = alTop
        Shape = bsTopLine
      end
      object stbScan: TStatusBar
        Left = 0
        Top = 422
        Width = 510
        Height = 19
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -14
        Font.Name = '宋体'
        Font.Pitch = fpVariable
        Font.Style = []
        Panels = <
          item
            Text = 'localhost'
            Width = 300
          end
          item
            Width = 50
          end>
        SimplePanel = False
        UseSystemFont = False
      end
      object Panel5: TPanel
        Left = 0
        Top = 2