📄 form1.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1
ClientHeight = 8910
ClientLeft = 60
ClientTop = 450
ClientWidth = 10650
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 8910
ScaleWidth = 10650
Begin VB.Frame Frame1
Height = 4335
Index = 2
Left = 3720
TabIndex = 0
Top = 4440
Width = 3495
Begin VB.ComboBox cboStrSkill
Height = 300
ItemData = "Form1.frx":324A
Left = 1200
List = "Form1.frx":324C
Style = 2 'Dropdown List
TabIndex = 45
Top = 1320
Width = 1095
End
Begin VB.TextBox txtFeed
Height = 300
Left = 2400
TabIndex = 20
Text = "30"
Top = 960
Width = 615
End
Begin VB.TextBox txtMPProtect
Height = 300
Left = 2400
TabIndex = 19
Text = "30"
Top = 600
Width = 615
End
Begin VB.TextBox txtHPProtect
Height = 300
Left = 2400
TabIndex = 18
Text = "70"
Top = 240
Width = 615
End
Begin VB.ComboBox cboMPProtect
Height = 300
ItemData = "Form1.frx":324E
Left = 1200
List = "Form1.frx":3273
Style = 2 'Dropdown List
TabIndex = 16
Top = 600
Width = 1095
End
Begin VB.TextBox txtStrSkill
Height = 300
Left = 2400
TabIndex = 14
Tag = "0"
Text = "1380"
Top = 1320
Width = 615
End
Begin VB.ComboBox cboFeed
Height = 300
ItemData = "Form1.frx":32A4
Left = 1200
List = "Form1.frx":32C9
Style = 2 'Dropdown List
TabIndex = 12
Top = 960
Width = 1095
End
Begin VB.ComboBox cboHPProtect
Height = 300
ItemData = "Form1.frx":32FA
Left = 1200
List = "Form1.frx":331F
Style = 2 'Dropdown List
TabIndex = 10
Top = 240
Width = 1095
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "MP Protect: %"
Height = 180
Left = 120
TabIndex = 17
Top = 720
Width = 3060
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "Feed: %"
Height = 180
Left = 120
TabIndex = 11
Top = 1080
Width = 3060
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "HP Protect: %"
Height = 180
Left = 120
TabIndex = 9
Top = 360
Width = 3060
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "Strengthen: s"
Height = 180
Left = 120
TabIndex = 1
Top = 1440
Width = 3060
End
End
Begin VB.Frame Frame1
Height = 4335
Index = 1
Left = 3720
TabIndex = 24
Top = 120
Width = 3495
Begin VB.TextBox txtTargetList
Height = 1815
Left = 120
MultiLine = -1 'True
TabIndex = 39
Top = 2400
Width = 3255
End
Begin VB.TextBox txtPositionX
Height = 300
Left = 1200
TabIndex = 34
Text = "0"
Top = 1680
Width = 495
End
Begin VB.TextBox txtPositionY
Height = 300
Left = 1800
TabIndex = 33
Text = "0"
Top = 1680
Width = 495
End
Begin VB.ComboBox cboAttSkill
Height = 300
Index = 0
Left = 1200
Style = 2 'Dropdown List
TabIndex = 28
Top = 240
Width = 1095
End
Begin VB.ComboBox cboAttSkill
Height = 300
Index = 1
Left = 1200
Style = 2 'Dropdown List
TabIndex = 27
Top = 600
Width = 1095
End
Begin VB.ComboBox cboAttSkill
Height = 300
Index = 2
Left = 1200
Style = 2 'Dropdown List
TabIndex = 26
Top = 960
Width = 1095
End
Begin VB.ComboBox cboAttSkill
Height = 300
Index = 3
Left = 1200
Style = 2 'Dropdown List
TabIndex = 25
Top = 1320
Width = 1095
End
Begin VB.CheckBox chkPosition
Alignment = 1 'Right Justify
Caption = "Position:"
Height = 255
Left = 120
TabIndex = 35
Top = 1680
Width = 2535
End
Begin VB.TextBox txtIDFrom
Height = 300
Left = 1200
TabIndex = 36
Text = "1"
Top = 2040
Width = 495
End
Begin VB.TextBox txtIDTo
Height = 300
Left = 1800
TabIndex = 37
Text = "99"
Top = 2040
Width = 495
End
Begin VB.CheckBox chkTargetList
Alignment = 1 'Right Justify
Caption = "Monster:"
Height = 375
Left = 120
TabIndex = 38
Top = 2040
Width = 2535
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Attack1:"
Height = 180
Left = 120
TabIndex = 32
Top = 360
Width = 720
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "Attack2:"
Height = 180
Left = 120
TabIndex = 31
Top = 720
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "Attack3:"
Height = 180
Left = 120
TabIndex = 30
Top = 1080
Width = 720
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "Attack4:"
Height = 180
Left = 120
TabIndex = 29
Top = 1440
Width = 720
End
End
Begin VB.Timer tmrAntiRobot
Enabled = 0 'False
Left = 2640
Top = 120
End
Begin VB.Frame Frame1
Caption = "ObjectID"
Height = 4335
Index = 4
Left = 7080
TabIndex = 6
Top = 120
Width = 3495
Begin MSComctlLib.ListView lvObjectId
Height = 3855
Left = 0
TabIndex = 7
Top = 120
Width = 3495
_ExtentX = 6165
_ExtentY = 6800
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 3
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "ID"
Object.Width = 1058
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "Class"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "XYZ"
Object.Width = 2540
EndProperty
End
Begin VB.Label lblObjectID
Caption = "Info:"
Height = 255
Left = 120
TabIndex = 21
Top = 4080
Width = 3255
End
End
Begin VB.Frame Frame1
Caption = "Around"
Height = 4335
Index = 3
Left = 7080
TabIndex = 4
Top = 4440
Width = 3495
Begin MSComctlLib.ListView lvMonster
Height = 3855
Left = 0
TabIndex = 5
Top = 120
Width = 3495
_ExtentX = 6165
_ExtentY = 6800
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 4
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "ID"
Object.Width = 1058
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "名称"
Object.Width = 2469
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "X"
Object.Width = 970
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "Y"
Object.Width = 970
EndProperty
End
End
Begin VB.Timer tmrInfo
Enabled = 0 'False
Left = 2040
Top = 120
End
Begin VB.Frame Frame1
Caption = "Infomation"
Height = 4335
Index = 0
Left = 240
TabIndex = 3
Top = 480
Width = 3495
Begin VB.OptionButton optAttack
Caption = "ting"
Height = 180
Index = 0
Left = 1320
TabIndex = 43
Top = 4080
Value = -1 'True
Width = 735
End
Begin VB.OptionButton optAttack
Caption = "yin"
Height = 180
Index = 2
Left = 2640
TabIndex = 42
Top = 4080
Width = 735
End
Begin VB.OptionButton optAttack
Caption = "da"
Height = 180
Index = 1
Left = 2040
TabIndex = 41
Top = 4080
Width = 735
End
Begin VB.CheckBox chkProtect
Alignment = 1 'Right Justify
Caption = "Protect:"
Height = 255
Left = 120
TabIndex = 40
Top = 3360
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -