unit1.~dfm

传奇1.8登陆器源代码,供大家进行研究。好

object Form1: TForm1
  Left = 315
  Top = 234
  AutoScroll = False
  Caption = #20256#22855#20043#28909#34880#32593#32476
  ClientHeight = 301
  ClientWidth = 340
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF008777
    7777777777777777777777777777F7770077700077000007000700000077F877
    7777777777777700777777777007F8F8F888888777F8887778877777F777F8F8
    8778888777878877707777778777F8F87078F87007888000000000007777F8F8
    7078000007887007777770078777F8F87078FF8700787078888778707777F8F8
    7008FF87007F707777877770F777F8F8707FFFF800788077000000778777F8F8
    7007777700F8707FF88877888707F8F77007777700877078877777888777F8F7
    7078888F00877007000000888777F7888078878F70877007888878887777F7F8
    7000000000778077777887877777F7F77078888800777077000000888777F8F7
    7078F8880087707F888777888777F8F77078887700787077777700888777F7F8
    70007000007870077777007FF777F8F8778FFF8877888877788800788777F787
    7777777777777887778800788777F7877700770077000077777800788770F8F7
    7700787078777007777700078777F8F88700887008887077777700777777F8F8
    7707F87007787078888877888700F8F77707777000777077777777888777FF77
    7777007700077077777700088777F8F88777707777787078888777777777F8FF
    F88870077787700787FF87778707FFFF788877777787777888F878877700F8FF
    FFFFFFFFFFFFFFFFFFFFFFFFF707FFFFF8887788778FF87778FF887787770000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Image1: TImage
    Left = 4
    Top = 279
    Width = 11
    Height = 12
    Stretch = True
    Transparent = True
  end
  object SeSkinButton1: TSeSkinButton
    Left = 173
    Top = 273
    Width = 67
    Height = 26
    Performance = kspDoubleBuffer
    Transparent = True
    OnClick = SeSkinButton1Click
    BlackAndWhiteGlyph = False
    Caption = #36827#20837#28216#25103
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    State = kbsNormal
    TabOrder = 0
    WordWrap = False
    ShowCaption = True
    ShowGlyph = True
    SkinEngine = SeSkinEngine1
    SkinObject = 'Button'
  end
  object SeSkinButton2: TSeSkinButton
    Left = 258
    Top = 273
    Width = 67
    Height = 26
    Performance = kspDoubleBuffer
    Transparent = True
    OnClick = SeSkinButton2Click
    BlackAndWhiteGlyph = False
    Caption = #22312#32447#26381#21153
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    State = kbsNormal
    TabOrder = 1
    WordWrap = False
    ShowCaption = True
    ShowGlyph = True
    SkinEngine = SeSkinEngine1
    SkinObject = 'Button'
  end
  object SeSkinComboBox1: TSeSkinComboBox
    Left = 21
    Top = 274
    Width = 128
    Height = 23
    Cursor = crIBeam
    Performance = kspDoubleBuffer
    Transparent = False
    AutoSize = True
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 3
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PasswordKind = pkNone
    ContextMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    ReadOnly = True
    TabOrder = 2
    Text = #20256#22855#20043#28909#34880#32593#32476
    AutoComplete = False
    ComboStyle = kcsDropDown
    DropDownCount = 8
    ItemHeight = 15
    Items.Strings = (
      #20256#22855#20043#28909#34880#32593#32476)
    Flat = True
    ItemIndex = -1
    ListStyle = lbStandard
    ShowCheckBoxes = False
    WordWrap = False
    SkinEngine = SeSkinEngine2
    SkinObject = 'ComboBox'
  end
  object SeSkinMenuBar1: TSeSkinMenuBar
    Left = 2
    Top = 0
    Width = 370
    Height = 18
    Performance = kspNoBuffer
    Transparent = False
    PopupMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    SkinEngine = SeSkinEngine2
    SkinObject = 'MenuBar'
    object CustomItem1: TSeSkinItem
      Caption = #20256#22855#20043#28909#34880#32593#32476
      Scrolled = False
      ScrollCount = 0
    end
  end
  object Web1: TWebBrowser
    Left = 1
    Top = 19
    Width = 338
    Height = 248
    TabOrder = 4
    ControlData = {
      4C000000EF220000A21900000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object SeSkinEngine1: TSeSkinEngine
    DeltaHue = 0
    SkinStore = 'Tusk'
    Version = '3.4.7'
    Left = 168
    Top = 112
    SkinStream = {
      024B534C5A7801ECBD4FA81DD99DE7A9A6AB6A727AAA6792A11A34508B4C2868
      0BAA8BF7A4A73F6FF040A5F20F654D65F7946CD3940633AD92653B479956395F
      E6541B611A8C308D79D4A2105E18910B83BC289017067961906170232F12D28B
      82AC454116432F72518B5CCCC28B59DCF97D7E71BE717F716E44DCB81171DFBD
      F7299E383A7123CEEF777EFFCEEFFCCE9F38F15B67CE9CF9D2FB47777EDBF20B
      7FB4FF477BFFAD5DBC76F39B5FBFFDEEFB4747FFA3FDF8AA7EFCF137EEBE73FB
      8F6EDD7DC76E9EF99F2CFD734B5FBAFB97FFD9B23D4B2FFEDE8BB36D4C2FFCEE
      0BB34DA56D94C7A668FAF49F3E9B6D4BFAE4D3CF661FFFE3A73B97A07B5B6438
      361D8F7EFA74B60DE9E9AF3E9A3DFBFB4F66C87AD7127443FF36C8716C1AAC8B
      99AD9A5EFEDCFE6CCC74F6A5979D0664FCE967BFD9B904DDC8103EC6940BB8C0
      3B16CE55F54CF927BFFE64E3E9F12F3F76393CFBF5C73B671BD83374234BF8D8
      06798E49C353B30FFCA3FBC8CC5674EFE987E63F49F67C1DE9C987C93E8C8E5D
      F41FC8C9DB9AF1B10EF974C6293D75CD93EEA33D5157B487E39F3C9DDDFBD1E3
      D9D1DF3C9CDDF9EB87B35BDF3DAE249E1DFFF889B70DDAC73AD2C39F3D3B15FE
      033ED6219F75E044A7E836D73736802DB8DECD36AE7EF9D6EC85175F2CC79267
      5E78611613CF2803EFEB4AD828ED6FD7FB17F858978CC6C62BBD475D735DCE29
      24BD9FF9AD33B36B5FB836BB71FBCEECF8AF8FCBF4E06F1ECCEE7FEFFEECD6CD
      5BAE3BD91332183B81FB34D8C73A6534A6CC256F748B8ED175D43DB6804D601B
      D7BF62BEE16F9FF8F88C385C89B6FCF817CF66C71F3C72DDE177C0BB8E843FC3
      3EA87BD7C6B6D0ABF18BFCF23A6434264E7489BCD12D3A46D7D2BB726C02DB78
      F0E3C75E261F370347599E83EBD6778E3D3E01F7D8893E50F6B18BF363B20FF8
      185B36EBC0872E9137BA8576745DA77F9E731F3BAA4BD8D0FDBF7EE0B8AE7FEB
      DE422C93C7367D7FDF78FF9ED7012D8A9D7729876EE40D1F7D65709270E8127A
      D12D3AAED33DF7E08B3247DF3B5E4877BE7D7F76DFFC3E7D11B88867C0BB8E74
      ED66510734C9BFED520EDDC8083ED6219FB171A24BB767D32D3A46D77536806D
      D0C7E4E9DA976FCCAEBE79DDEF9FFBC3738EEBF00BD767D76E1FAD251DFED90D
      AF035AF175BB96A01B79C3C7BA6434265E7409BDE816DDA36B749EDB01BF2913