📄 mf.frm
字号:
TabIndex = 76
Top = 2190
Width = 2895
End
Begin VB.ListBox LstWD
Height = 1680
ItemData = "MF.frx":1CCA
Left = 60
List = "MF.frx":1CCC
TabIndex = 7
ToolTipText = "右击"
Top = 360
Width = 4875
End
Begin VB.ComboBox ShoutT
Height = 300
Left = 4080
TabIndex = 13
Text = "12"
Top = 60
Width = 855
End
Begin VB.TextBox SW
Height = 285
Left = 60
TabIndex = 6
Top = 2520
Width = 4875
End
Begin VB.TextBox TXTShoutS
Height = 270
Left = 1200
TabIndex = 10
Top = 960
Visible = 0 'False
Width = 180
End
Begin VB.TextBox TmpTxt
Height = 270
Left = 1800
TabIndex = 5
Top = 960
Visible = 0 'False
Width = 180
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "自动喊话的时间间隔(秒):"
Height = 180
Left = 1920
TabIndex = 43
Top = 120
Width = 2070
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "常用喊话清单:"
Height = 180
Index = 0
Left = 60
TabIndex = 9
Top = 120
Width = 1170
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "更改喊话内容:"
Height = 180
Index = 1
Left = 1200
TabIndex = 8
Top = 840
Width = 1170
End
End
Begin VB.Timer TCV
Interval = 1000
Left = 5880
Top = 3000
End
Begin VB.TextBox t36
Height = 270
Left = 3120
TabIndex = 12
Text = "0"
Top = 3480
Width = 255
End
Begin VB.Timer CH
Enabled = 0 'False
Interval = 1000
Left = 2280
Top = 3360
End
Begin VB.Timer TS
Enabled = 0 'False
Interval = 12000
Left = 7320
Top = 3000
End
Begin VB.Timer TAD
Enabled = 0 'False
Interval = 400
Left = 7320
Top = 2640
End
Begin VB.Timer TF1
Enabled = 0 'False
Interval = 100
Left = 8640
Top = 2640
End
Begin VB.Timer THC
Enabled = 0 'False
Interval = 500
Left = 5880
Top = 2640
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 500
Left = 8640
Top = 3000
End
Begin VB.PictureBox PS
Height = 2940
Index = 3
Left = 5040
ScaleHeight = 2880
ScaleWidth = 4995
TabIndex = 17
Top = 3960
Visible = 0 'False
Width = 5055
Begin VB.Label Label7
Caption = $"MF.frx":1CCE
Height = 615
Left = 120
TabIndex = 111
Top = 2160
Width = 4695
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "打开/取消 系统静音"
Height = 180
Index = 2
Left = 1440
TabIndex = 96
Top = 1560
Width = 1620
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "[Insert]键:"
Height = 180
Index = 6
Left = 300
TabIndex = 95
Top = 1560
Width = 990
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "当红或蓝的数量=2时，会自动使用回城符回城 然后按F12开启"
ForeColor = &H000000FF&
Height = 180
Index = 1
Left = 60
TabIndex = 84
Top = 1800
Width = 4860
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "开启/关闭 连续技能|自动拣物"
Height = 180
Left = 1440
TabIndex = 73
Top = 1080
Width = 2430
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "开启/关闭 补红|补蓝|低血保护"
Height = 180
Index = 0
Left = 1440
TabIndex = 72
Top = 1320
Width = 2520
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "开启/关闭 自动喊话功能"
Height = 180
Left = 1440
TabIndex = 71
Top = 840
Width = 1980
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "呼出/隐藏 热血助手绿色版窗口"
Height = 180
Left = 1440
TabIndex = 70
Top = 600
Width = 2520
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "[PageUp]键:"
Height = 180
Index = 5
Left = 300
TabIndex = 68
Top = 1080
Width = 990
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "[PageDown]键:"
Height = 180
Index = 4
Left = 120
TabIndex = 67
Top = 1320
Width = 1170
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "[End]键:"
Height = 180
Index = 3
Left = 570
TabIndex = 66
Top = 840
Width = 720
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "2、鼠标指剑变成小剑时按[Home]键开启或关闭定点"
Height = 180
Index = 1
Left = 600
TabIndex = 65
Top = 360
Width = 4050
End
Begin VB.Image Image6
Height = 360
Left = 120
Picture = "MF.frx":1D58
Top = 180
Width = 360
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "[F11]键:"
Height = 180
Index = 2
Left = 570
TabIndex = 41
Top = 600
Width = 720
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "1、鼠标点人物脚下不乱走动"
Height = 180
Index = 0
Left = 600
TabIndex = 40
Top = 120
Width = 2250
End
End
Begin VB.Label LBLL
AutoSize = -1 'True
Caption = "历练"
Height = 180
Left = 120
TabIndex = 35
Top = 3540
Visible = 0 'False
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "回城时钟"
Height = 180
Index = 4
Left = 5160
TabIndex = 16
Top = 2760
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "定时按键"
Height = 180
Index = 1
Left = 5160
TabIndex = 15
Top = 3120
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "拣"
Height = 180
Index = 0
Left = 2040
TabIndex = 11
Top = 3480
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "自动打开关"
Height = 180
Index = 9
Left = 6360
TabIndex = 2
Top = 2760
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "喊话时钟"
Height = 180
Index = 5
Left = 6480
TabIndex = 1
Top = 3120
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "加红保护"
Height = 180
Index = 3
Left = 7920
TabIndex = 0
Top = 3120
Width = 720
End
Begin VB.Menu ChuoLi
Caption = "处理"
Visible = 0 'False
Begin VB.Menu useshout
Caption = "激活喊话"
End
Begin VB.Menu notuseshout
Caption = "禁用喊话"
End
Begin VB.Menu aaaaa
Caption = "-"
End
Begin VB.Menu editshout
Caption = "修改喊话"
End
End
End
Attribute VB_Name = "MF"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private LLI As Integer '历炼检测计
Private YNYLI, YNYHI, YNCKFKI, OFFLINECI, CWT As Integer
Private lngHold, lngPreX, LngPreY, CurX, CurY, MouseX, MouseY, TargetX, TargetY
Private JJJ As Integer '这个变量用来 定时按键
Private KKK As Integer '把转动打怪改成 移动打怪
Private Sub AutoShout_Click()
If AutoShout.Value = 1 Then
MF.ShoutT.Enabled = False
CKAutoShout
Else
TS.Enabled = False
MF.ShoutT.Enabled = True
TXTShoutS.Text = ""
ShoutDS.ForeColor = &H80000012
End If
End Sub
Private Sub CBDS_DropDown()
Dim tmp
tmp = CBDS.Text
CBDS.Clear
CBDS.AddItem "20秒"
CBDS.AddItem "60秒"
CBDS.AddItem "120秒"
CBDS.AddItem "180秒"
CBDS.AddItem "240秒"
CBDS.AddItem "300秒"
CBDS.AddItem "360秒"
CBDS.AddItem "420秒"
CBDS.AddItem "480秒"
CBDS.AddItem "540秒"
CBDS.AddItem "600秒"
CBDS.AddItem "1200秒"
CBDS.AddItem "1800秒"
CBDS.AddItem "3600秒"
If CBDS.Text = "" Then CBDS.Text = tmp
End Sub
Private Sub CBF_Click(Index As Integer)
Saveini "setting", "KeyPressF" & Index, CBF(Index).Text, IniFile
CBF(Index).Locked = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -