📄 main.frm
字号:
End
Begin VB.TextBox TextSafe
Alignment = 1 'Right Justify
Height = 270
Index = 6
Left = 1920
TabIndex = 92
Text = "60%"
Top = 225
Width = 825
End
End
Begin TabDlg.SSTab SSTab4
Height = 6465
Left = -74910
TabIndex = 78
Top = 1500
Width = 2895
_ExtentX = 5106
_ExtentY = 11404
_Version = 393216
Style = 1
Tab = 2
TabHeight = 520
TabCaption(0) = "过滤怪物"
TabPicture(0) = "Main.frx":0F86
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "ComWar(3)"
Tab(0).Control(1)= "ListWarMon"
Tab(0).Control(2)= "TextWar1(0)"
Tab(0).Control(3)= "CheWar(3)"
Tab(0).Control(4)= "ComWar(1)"
Tab(0).Control(5)= "ComWar(0)"
Tab(0).Control(6)= "TextWar1(1)"
Tab(0).Control(7)= "ListWar1"
Tab(0).Control(8)= "LVNpc(0)"
Tab(0).Control(9)= "Label7(8)"
Tab(0).Control(10)= "Label7(9)"
Tab(0).ControlCount= 11
TabCaption(1) = "技能设置"
TabPicture(1) = "Main.frx":0FA2
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "ListBuff"
Tab(1).Control(1)= "CboWar1"
Tab(1).Control(2)= "ListWar2"
Tab(1).Control(3)= "ComWar(2)"
Tab(1).Control(4)= "ComWar(5)"
Tab(1).Control(5)= "CheWar(4)"
Tab(1).Control(6)= "CheWar(5)"
Tab(1).Control(7)= "ComWar(7)"
Tab(1).Control(8)= "ComWar(6)"
Tab(1).Control(9)= "ListWar3"
Tab(1).Control(10)= "CboWar2"
Tab(1).Control(11)= "ComWar(8)"
Tab(1).Control(12)= "CheWar(7)"
Tab(1).Control(13)= "CheWar(8)"
Tab(1).Control(14)= "CheWar(9)"
Tab(1).ControlCount= 15
TabCaption(2) = "路径"
TabPicture(2) = "Main.frx":0FBE
Tab(2).ControlEnabled= -1 'True
Tab(2).Control(0)= "Label7(7)"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Label7(5)"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Label7(4)"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "TaskStat(0)"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).Control(4)= "TaskStat(1)"
Tab(2).Control(4).Enabled= 0 'False
Tab(2).Control(5)= "Label7(14)"
Tab(2).Control(5).Enabled= 0 'False
Tab(2).Control(6)= "ComPath(0)"
Tab(2).Control(6).Enabled= 0 'False
Tab(2).Control(7)= "TextPath1(1)"
Tab(2).Control(7).Enabled= 0 'False
Tab(2).Control(8)= "TextPath1(0)"
Tab(2).Control(8).Enabled= 0 'False
Tab(2).Control(9)= "TextPath1(2)"
Tab(2).Control(9).Enabled= 0 'False
Tab(2).Control(10)= "ChePath1(0)"
Tab(2).Control(10).Enabled= 0 'False
Tab(2).Control(11)= "ComPath(2)"
Tab(2).Control(11).Enabled= 0 'False
Tab(2).Control(12)= "ComPath(1)"
Tab(2).Control(12).Enabled= 0 'False
Tab(2).Control(13)= "ListPath"
Tab(2).Control(13).Enabled= 0 'False
Tab(2).Control(14)= "ChePath1(1)"
Tab(2).Control(14).Enabled= 0 'False
Tab(2).Control(15)= "TextPath1(3)"
Tab(2).Control(15).Enabled= 0 'False
Tab(2).Control(16)= "ComPath(3)"
Tab(2).Control(16).Enabled= 0 'False
Tab(2).Control(17)= "ComPath(4)"
Tab(2).Control(17).Enabled= 0 'False
Tab(2).Control(18)= "ComPath(5)"
Tab(2).Control(18).Enabled= 0 'False
Tab(2).ControlCount= 19
Begin VB.CommandButton ComPath
Caption = "移动到选中点"
Height = 1260
Index = 5
Left = 2445
TabIndex = 269
Top = 2940
Width = 350
End
Begin VB.CommandButton ComPath
Caption = "删除"
Height = 495
Index = 4
Left = 2445
TabIndex = 268
Top = 2460
Width = 350
End
Begin VB.CommandButton ComPath
Caption = "↓"
Height = 345
Index = 3
Left = 2445
TabIndex = 267
Top = 2130
Width = 350
End
Begin VB.TextBox TextPath1
Height = 285
Index = 3
Left = 585
TabIndex = 265
Top = 1470
Width = 1800
End
Begin VB.CheckBox ChePath1
Caption = "只显示当前地图路径"
Height = 285
Index = 1
Left = 90
TabIndex = 264
Top = 1140
Width = 2040
End
Begin VB.ListBox ListPath
Height = 2400
ItemData = "Main.frx":0FDA
Left = 90
List = "Main.frx":0FDC
TabIndex = 263
Top = 1800
Width = 2295
End
Begin VB.CommandButton ComPath
Caption = "存"
Height = 270
Index = 1
Left = 2445
TabIndex = 262
Top = 1470
Width = 350
End
Begin VB.CommandButton ComPath
Caption = "↑"
Height = 345
Index = 2
Left = 2445
TabIndex = 261
Top = 1800
Width = 350
End
Begin VB.CommandButton ComWar
Caption = "清除怪物类型"
Height = 1320
Index = 3
Left = -72560
TabIndex = 258
Top = 2496
Width = 350
End
Begin VB.CheckBox CheWar
Caption = "自动天人合一"
Height = 255
Index = 9
Left = -74910
MousePointer = 2 'Cross
TabIndex = 209
Top = 420
Width = 1380
End
Begin VB.CheckBox CheWar
Caption = "循环使用技能"
Height = 255
Index = 8
Left = -73650
MousePointer = 2 'Cross
TabIndex = 151
Top = 750
Width = 1380
End
Begin VB.CheckBox CheWar
Caption = "先使用技能"
Height = 255
Index = 7
Left = -74910
MousePointer = 2 'Cross
TabIndex = 150
Top = 750
Width = 1290
End
Begin VB.CommandButton ComWar
Caption = "添加"
Height = 960
Index = 8
Left = -72540
TabIndex = 117
Top = 3225
Width = 350
End
Begin VB.ComboBox CboWar2
Height = 300
Left = -73815
Style = 2 'Dropdown List
TabIndex = 114
Top = 4282
Width = 1620
End
Begin VB.ListBox ListWar3
Height = 1680
ItemData = "Main.frx":0FDE
Left = -74910
List = "Main.frx":0FE0
TabIndex = 113
Top = 4655
Width = 2295
End
Begin VB.CommandButton ComWar
Caption = "添加"
Height = 500
Index = 6
Left = -72555
TabIndex = 112
Top = 4655
Width = 350
End
Begin VB.CommandButton ComWar
Caption = "删除"
Height = 500
Index = 7
Left = -72555
TabIndex = 111
Top = 5835
Width = 350
End
Begin VB.CheckBox CheWar
Caption = "辅助技能"
Height = 255
Index = 5
Left = -74910
MousePointer = 2 'Cross
TabIndex = 110
Top = 4327
Width = 1050
End
Begin VB.CheckBox ChePath1
Caption = "定点打怪"
Height = 285
Index = 0
Left = 90
TabIndex = 106
Top = 405
Width = 1065
End
Begin VB.TextBox TextPath1
Alignment = 1 'Right Justify
Height = 285
Index = 2
Left = 1785
TabIndex = 105
Text = "0"
Top = 750
Width = 510
End
Begin VB.TextBox TextPath1
Alignment = 1 'Right Justify
Height = 285
Index = 0
Left = 870
TabIndex = 104
Text = "25"
Top = 750
Width = 510
End
Begin VB.TextBox TextPath1
Alignment = 1 'Right Justify
Height = 285
Index = 1
Left = 1785
TabIndex = 103
Text = "0"
Top = 405
Width = 510
End
Begin VB.CommandButton ComPath
Caption = "取当前"
Height = 660
Index = 0
Left = 2445
TabIndex = 102
Top = 390
Width = 375
End
Begin VB.ListBox ListWarMon
Height = 1320
ItemData = "Main.frx":0FE2
Left = -74910
List = "Main.frx":0FE9
TabIndex = 99
Top = 2496
Width = 2295
End
Begin VB.CheckBox CheWar
Caption = "主动技能"
Height = 255
Index = 4
Left = -74910
MousePointer = 2 'Cross
TabIndex = 95
Top = 1110
Width = 1050
End
Begin VB.CommandButton ComWar
Caption = "删除"
Height = 500
Index = 5
Left = -72555
TabIndex = 90
Top = 2655
Width = 350
End
Begin VB.CommandButton ComWar
Caption = "添加"
Height = 500
Index = 2
Left = -72555
TabIndex = 89
Top = 1470
Width = 350
End
Begin VB.ListBox ListWar2
Height = 1680
ItemData = "Main.frx":0FF9
Left = -74910
List = "Main.frx":0FFB
TabIndex = 88
Top = 1470
Width = 2295
End
Begin VB.ComboBox CboWar1
Height = 300
Left = -73815
Style = 2 'Dropdown List
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -