?? 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 = "更改喊話內(nèi)容:"
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 = "打開/取消 系統(tǒng)靜音"
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 = "當紅或藍的數(shù)量=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 = "開啟/關(guān)閉 連續(xù)技能|自動揀物"
Height = 180
Left = 1440
TabIndex = 73
Top = 1080
Width = 2430
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "開啟/關(guān)閉 補紅|補藍|低血保護"
Height = 180
Index = 0
Left = 1440
TabIndex = 72
Top = 1320
Width = 2520
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "開啟/關(guān)閉 自動喊話功能"
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]鍵開啟或關(guān)閉定點"
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 = "自動打開關(guān)"
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 '把轉(zhuǎn)動打怪改成 移動打怪
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -