会的帮我看看,我是一个新手,才到这里,这是我改了好几天一个人试的。下面的不会了。那位高手帮帮我。
object Form1: TForm1
Left = 0
Top = 0
BorderIcons = [biSystemMenu, biMinimize]
Caption = ' 迅雷VIP帐号获取器'
ClientHeight = 531
ClientWidth = 553
object Label3: TLabel
Left = 16
Top = 505
Width = 72
Height = 13
Cursor = crHandPoint
Caption = '佛泫自改'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsUnderline]
ParentFont = False
end
object Label4: TLabel
Left = 105
Top = 505
Width = 72
Height = 13
Cursor = crHandPoint
Caption = '精易论坛网址'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsUnderline]
ParentFont = False
end
object Label5: TLabel
Left = 433
Top = 505
Width = 96
Height = 13
Cursor = crHandPoint
Caption = 'qq群:86518307'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsUnderline]
ParentFont = False
end
object Label2: TLabel
Left = 195
Top = 505
Width = 160
Height = 13
Cursor = crHandPoint
Caption = 'http://www.3600gz.cn/?fromuid=18919'
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsUnderline]
ParentFont = False
end
object GroupBox1: TGroupBox
Left = 16
Top = 16
Width = 521
Height = 177
Caption = '学习信息'
TabOrder = 0
object WebBrowser1: TWebBrowser
Left = 8
Top = 16
Width = 505
Height = 153
TabOrder = 0
ControlData = {
4C00000031340000D00F00000000000000000000000000000000000000000000
000000004C000000000000000000000001000000E0D057007335CF11AE690800
2B2E126208000000000000004C0000000114020000000000C000000000000046
8000000000000000000000000000000000000000000000000000000000000000
00000000000000000100000000000000000000000000000000000000}
end
end
object GroupBox2: TGroupBox
Left = 16
Top = 199
Width = 521
Height = 290
Caption = '账号获取区'
TabOrder = 1
object Label1: TLabel
Left = 150
Top = 22
Width = 215
Height = 13
Caption = '宝藏论坛:http://www.rin9.com/?u=3113272'
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Button1: TButton
Left = 8
Top = 16
Width = 136
Height = 25
Caption = '点击获取帐号'
TabOrder = 0
OnClick = Button1Click
end
object WebBrowser2: TWebBrowser
Left = 8
Top = 47
Width = 505
Height = 234
TabOrder = 1
ControlData = {
4C000000313400002F1800000000000000000000000000000000000000000000
000000004C000000000000000000000001000000E0D057007335CF11AE690800
2B2E126208000000000000004C0000000114020000000000C000000000000046
8000000000000000000000000000000000000000000000000000000000000000
00000000000000000100000000000000000000000000000000000000}
end
end
end
这是我改过以后的东西。
[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课