千年2的脱机源代码
源代码在线查看： dllform.dfm
object DllForm1: TDllForm1
Left = 436
Top = 168
BorderIcons = [biSystemMenu]
BorderStyle = bsToolWindow
Caption = #25105#30340#37326#34542#22899#21451' 2.b'
ClientHeight = 180
ClientWidth = 185
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Visible = True
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 185
Height = 180
ActivePage = TabSheet1
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #22522#26412
object Memo1: TMemo
Left = 0
Top = 0
Width = 177
Height = 153
Lines.Strings = (
'http://kissyll.126.com'
'http://xiaotutu.go.nease.net')
TabOrder = 0
end
end
object TabSheetGain: TTabSheet
Caption = #25342#21462
ImageIndex = 1
object LabelDrop: TLabel
Left = 0
Top = 16
Width = 81
Height = 16
Caption = #25481#33853#29289#21697' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object LabelGain: TLabel
Left = 88
Top = 16
Width = 84
Height = 16
Caption = #25342#21462#29289#21697' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object MemoDrop: TMemo
Left = 0
Top = 32
Width = 89
Height = 121
Ctl3D = False
Lines.Strings = (
#25481#33853#29289#21697)
ParentCtl3D = False
TabOrder = 0
end
object MemoGain: TMemo
Left = 88
Top = 32
Width = 89
Height = 121
Ctl3D = False
Lines.Strings = (
#25342#21462#29289#21697)
ParentCtl3D = False
TabOrder = 1
end
object CheckBoxCollectGoods: TCheckBox
Left = 0
Top = 0
Width = 73
Height = 17
Caption = #33258#21160#25342#21462
Checked = True
State = cbChecked
TabOrder = 2
end
end
object TabSheetEat: TTabSheet
Caption = #21507#33647
ImageIndex = 2
object LabelYuan: TLabel
Left = 0
Top = 32
Width = 33
Height = 16
Caption = #20803#27668' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object LabelNei: TLabel
Left = 0
Top = 56
Width = 30
Height = 16
Caption = #20869#21151' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object LabelWai: TLabel
Left = 0
Top = 80
Width = 30
Height = 16
Caption = #22806#21151' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object LabelWu: TLabel
Left = 0
Top = 104
Width = 30
Height = 16
Caption = #27494#21151' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object LabelHuo: TLabel
Left = 0
Top = 128
Width = 33
Height = 16
Caption = #27963#21147' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object LabelTime: TLabel
Left = 80
Top = 8
Width = 39
Height = 16
Caption = #38388#38548': '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ComboBoxYQ: TComboBox
Left = 88
Top = 32
Width = 89
Height = 21
ItemHeight = 13
TabOrder = 7
OnChange = ComboBoxYQChange
OnEnter = ComboBoxYQEnter
end
object EditYuan: TEdit
Left = 40
Top = 32
Width = 41
Height = 21
TabOrder = 1
Text = '1000'
end
object EditNei: TEdit
Left = 40
Top = 56
Width = 41
Height = 21
TabOrder = 2
Text = '1500'
end
object EditWai: TEdit
Left = 40
Top = 80
Width = 41
Height = 21
TabOrder = 3
Text = '1500'
end
object EditWu: TEdit
Left = 40
Top = 104
Width = 41
Height = 21
TabOrder = 4
Text = '1500'
end
object EditHuo: TEdit
Left = 40
Top = 128
Width = 41
Height = 21
TabOrder = 5
Text = '3000'
end
object EditTime: TEdit
Left = 128
Top = 8
Width = 41
Height = 21
TabOrder = 6
Text = '1000'
end
object CheckBoxEat: TCheckBox
Left = 0
Top = 8
Width = 73
Height = 17
Caption = #33258#21160#21507#33647
TabOrder = 0
OnClick = CheckBoxEatClick
end
object ComboBoxNeiG: TComboBox
Left = 88
Top = 56
Width = 89
Height = 21
ItemHeight = 13
TabOrder = 8
OnChange = ComboBoxNeiGChange
OnEnter = ComboBoxNeiGEnter
end
object ComboBoxWaiG: TComboBox
Left = 88
Top = 80
Width = 89
Height = 21
ItemHeight = 13
TabOrder = 9
OnChange = ComboBoxWaiGChange
OnEnter = ComboBoxWaiGEnter
end
object ComboBoxWuG: TComboBox
Left = 88
Top = 104
Width = 89
Height = 21
ItemHeight = 13
TabOrder = 10
OnChange = ComboBoxWuGChange
OnEnter = ComboBoxWuGEnter
end
object ComboBoxHL: TComboBox
Left = 88
Top = 128
Width = 89
Height = 21
ItemHeight = 13
TabOrder = 11
OnChange = ComboBoxHLChange
OnEnter = ComboBoxHLEnter
end
end
end
end
