main.dfm

百度知道的自动发帖回复机器人。可以用来发广告

object FrmMain: TFrmMain
  Left = 239
  Top = 154
  AutoScroll = False
  Caption = #30334#24230#30693#36947#33258#21160#22238#22797#31995#32479
  ClientHeight = 326
  ClientWidth = 487
  Color = clMoneyGreen
  Constraints.MinWidth = 404
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlue
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    487
    326)
  PixelsPerInch = 96
  TextHeight = 16
  object Spl1: TSplitter
    Left = 185
    Top = 49
    Width = 9
    Height = 248
    Cursor = crHSplit
  end
  object PnlTop: TPanel
    Left = 0
    Top = 0
    Width = 487
    Height = 49
    Align = alTop
    Color = clMoneyGreen
    TabOrder = 0
    DesignSize = (
      487
      49)
    object BtnEnable: TSpeedButton
      Left = 9
      Top = 9
      Width = 268
      Height = 32
      Anchors = [akLeft, akTop, akRight, akBottom]
      Caption = #26242#20572
      Flat = True
      OnClick = BtnEnableClick
    end
    object PnltTimer: TPanel
      Left = 295
      Top = 1
      Width = 191
      Height = 47
      Align = alRight
      BevelOuter = bvNone
      Color = clMoneyGreen
      TabOrder = 0
      DesignSize = (
        191
        47)
      object LblTInterval: TLabel
        Left = 10
        Top = 17
        Width = 80
        Height = 16
        AutoSize = False
        Caption = #21457#35328#38388#38548':'
      end
      object LblTMin: TLabel
        Left = 158
        Top = 17
        Width = 30
        Height = 16
        AutoSize = False
        Caption = #20998
      end
      object EdtInterval: TEdit
        Left = 89
        Top = 12
        Width = 40
        Height = 24
        Color = clMoneyGreen
        ReadOnly = True
        TabOrder = 0
        Text = '1'
      end
      object UpDown1: TUpDown
        Left = 129
        Top = 12
        Width = 20
        Height = 24
        Anchors = [akTop, akRight]
        Associate = EdtInterval
        Min = 1
        Max = 10
        Position = 1
        TabOrder = 1
        Wrap = False
        OnClick = UpDown1Click
      end
    end
  end
  object Web: TWebBrowser
    Left = 194
    Top = 49
    Width = 293
    Height = 248
    Align = alClient
    TabOrder = 1
    OnDocumentComplete = WebDocumentComplete
    ControlData = {
      4C000000481E0000A21900000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object PnlBottom: TPanel
    Left = 0
    Top = 297
    Width = 487
    Height = 29
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    BorderStyle = bsSingle
    Color = clMoneyGreen
    TabOrder = 2
    object PnlBTim: TPanel
      Left = 424
      Top = 2
      Width = 57
      Height = 21
      Hint = #36317#19979#27425#22238#22797#26102#38388
      Align = alRight
      BevelOuter = bvLowered
      BorderStyle = bsSingle
      Color = clMoneyGreen
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object PnlLeft: TPanel
    Left = 0
    Top = 49
    Width = 185
    Height = 248
    Align = alLeft
    Color = clMoneyGreen
    Constraints.MaxWidth = 300
    Constraints.MinWidth = 150
    TabOrder = 3
    object PnlLTops: TPanel
      Left = 1
      Top = 1
      Width = 183
      Height = 49
      Align = alTop
      BevelOuter = bvNone
      Color = clMoneyGreen
      TabOrder = 0
      object LblLRep: TLabel
        Left = 0
        Top = 0
        Width = 183
        Height = 23
        Align = alTop
        Alignment = taCenter
        AutoSize = False
        Caption = #22238#22797#20869#23481#35774#32622
      end
      object BtnLRep1: TSpeedButton
        Left = 6
        Top = 20
        Width = 26
        Height = 26
        GroupIndex = 3
        Down = True
        Caption = '1'
        Flat = True
        OnClick = BtnLRepClick
      end
      object BtnLRep2: TSpeedButton
        Left = 34
        Top = 20
        Width = 26
        Height = 26
        GroupIndex = 3
        Caption = '2'
        Flat = True
        OnClick = BtnLRepClick
      end
      object BtnLRep3: TSpeedButton
        Left = 63
        Top = 20
        Width = 26
        Height = 26
        GroupIndex = 3
        Caption = '3'
        Flat = True
        OnClick = BtnLRepClick
      end
      object BtnLRep4: TSpeedButton
        Left = 91
        Top = 20
        Width = 26
        Height = 26
        GroupIndex = 3
        Caption = '4'
        Flat = True
        OnClick = BtnLRepClick
      end
      object BtnLRep5: TSpeedButton
        Left = 119
        Top = 20
        Width = 26
        Height = 26
        GroupIndex = 3
        Caption = '5'
        Flat = True
        OnClick = BtnLRepClick
      end
      object BtnLRep6: TSpeedButton
        Left = 148
        Top = 20
        Width = 26
        Height = 26
        GroupIndex = 3
        Caption = '6'
        Flat = True
        OnClick = BtnLRepClick
      end
    end
    object Mmo: TMemo
      Left = 1
      Top = 50
      Width = 183
      Height = 197
      Align = alClient
      Color = clMoneyGreen
      ScrollBars = ssVertical
      TabOrder = 1
    end
  end
  object PnlLogin: TPanel
    Left = 0
    Top = 0
    Width = 487
    Height = 326
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clMoneyGreen
    TabOrder = 4
    object BtnLogin: TSpeedButton
      Left = 153
      Top = 217
      Width = 160
      Height = 40
      Caption = #30331#38470
      Flat = True
      OnClick = BtnLoginClick
    end
    object LblName: TLabel
      Left = 96
      Top = 89
      Width = 97
      Height = 16
      AutoSize = False
      Caption = #29992#25143#21517':'
    end
    object Label1: TLabel
      Left = 96
      Top = 137
      Width = 97
      Height = 16
      AutoSize = False
      Caption = #23494#30721':'
    end
    object EdtName: TEdit
      Left = 185
      Top = 89
      Width = 120
      Height = 24
      TabOrder = 0
    end
    object EdtPass: TEdit
      Left = 185
      Top = 137
      Width = 120
      Height = 24
      TabOrder = 1
      OnKeyPress = EdtPassKeyPress
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 10000
    OnTimer = Timer1Timer
    Left = 80
    Top = 16
  end
end