📄 frmmain.frm
字号:
End
Begin VB.CheckBox Check29
BackColor = &H00FFC0C0&
Caption = "3#"
Height = 255
Left = 1800
TabIndex = 34
Top = 600
Width = 495
End
Begin VB.CheckBox Check28
BackColor = &H00FFC0C0&
Caption = "2@"
Height = 255
Left = 1200
TabIndex = 33
Top = 600
Width = 495
End
Begin VB.CheckBox Check27
BackColor = &H00FFC0C0&
Caption = "1!"
Height = 255
Left = 600
TabIndex = 32
Top = 600
Width = 495
End
Begin VB.CheckBox Check26
BackColor = &H00FFC0C0&
Caption = "~"
Height = 255
Left = 120
TabIndex = 31
Top = 600
Width = 375
End
Begin VB.CheckBox right1
BackColor = &H00FFC0C0&
Caption = "→"
Height = 255
Left = 7440
TabIndex = 30
Top = 2160
Width = 495
End
Begin VB.CheckBox left1
BackColor = &H00FFC0C0&
Caption = "←"
Height = 255
Left = 6960
TabIndex = 29
Top = 2160
Width = 495
End
Begin VB.CheckBox down1
BackColor = &H00FFC0C0&
Caption = "↓"
Height = 255
Left = 7440
TabIndex = 28
Top = 1920
Width = 495
End
Begin VB.CheckBox up1
BackColor = &H00FFC0C0&
Caption = "↑"
Height = 255
Left = 6960
TabIndex = 27
Top = 1920
Width = 495
End
Begin VB.CheckBox End1
BackColor = &H00FFC0C0&
Caption = "End"
Height = 255
Left = 7920
TabIndex = 26
Top = 1680
Width = 735
End
Begin VB.CheckBox Delete1
BackColor = &H00FFC0C0&
Caption = "Delete"
Height = 255
Left = 6960
TabIndex = 25
Top = 1680
Width = 855
End
Begin VB.CheckBox PageDonw
BackColor = &H00FFC0C0&
Caption = "Page Down"
Height = 255
Left = 6960
TabIndex = 24
Top = 1440
Width = 1215
End
Begin VB.CheckBox PageUp
BackColor = &H00FFC0C0&
Caption = "Page Up"
Height = 255
Left = 6960
TabIndex = 23
Top = 1200
Width = 975
End
Begin VB.CheckBox Home
BackColor = &H00FFC0C0&
Caption = "Home"
Height = 255
Left = 7920
TabIndex = 22
Top = 960
Width = 735
End
Begin VB.CheckBox Insert
BackColor = &H00FFC0C0&
Caption = "Insert"
Height = 255
Left = 6960
TabIndex = 21
Top = 960
Width = 855
End
Begin VB.CheckBox Check15
BackColor = &H00FFC0C0&
Caption = "pause break"
Height = 255
Left = 6960
TabIndex = 20
Top = 720
Width = 1455
End
Begin VB.CheckBox scrolllock
BackColor = &H00FFC0C0&
Caption = "scroll lock"
Height = 255
Left = 6960
TabIndex = 19
Top = 480
Width = 1455
End
Begin VB.CheckBox Printscreen
BackColor = &H00FFC0C0&
Caption = "Print screen"
Height = 255
Left = 6960
TabIndex = 18
Top = 240
Width = 1455
End
Begin VB.CheckBox f12
BackColor = &H00FFC0C0&
Caption = "F12"
Height = 255
Left = 6240
TabIndex = 17
Top = 240
Width = 615
End
Begin VB.CheckBox f11
BackColor = &H00FFC0C0&
Caption = "F11"
Height = 255
Left = 5640
TabIndex = 16
Top = 240
Width = 615
End
Begin VB.CheckBox f10
BackColor = &H00FFC0C0&
Caption = "F10"
Height = 255
Left = 5040
TabIndex = 15
Top = 240
Width = 615
End
Begin VB.CheckBox f9
BackColor = &H00FFC0C0&
Caption = "F9"
Height = 255
Left = 4560
TabIndex = 14
Top = 240
Width = 495
End
Begin VB.CheckBox f8
BackColor = &H00FFC0C0&
Caption = "F8"
Height = 255
Left = 3960
TabIndex = 13
Top = 240
Width = 495
End
Begin VB.CheckBox f7
BackColor = &H00FFC0C0&
Caption = "F7"
Height = 255
Left = 3480
TabIndex = 12
Top = 240
Width = 495
End
Begin VB.CheckBox f6
BackColor = &H00FFC0C0&
Caption = "F6"
Height = 255
Left = 3000
TabIndex = 11
Top = 240
Width = 495
End
Begin VB.CheckBox f5
BackColor = &H00FFC0C0&
Caption = "F5"
Height = 255
Left = 2400
TabIndex = 10
Top = 240
Width = 495
End
Begin VB.CheckBox f4
BackColor = &H00FFC0C0&
Caption = "F4"
Height = 255
Left = 1800
TabIndex = 9
Top = 240
Width = 495
End
Begin VB.CheckBox f3
BackColor = &H00FFC0C0&
Caption = "F3"
Height = 255
Left = 1200
TabIndex = 8
Top = 240
Width = 495
End
Begin VB.CheckBox f2
BackColor = &H00FFC0C0&
Caption = "F2"
Height = 255
Left = 600
TabIndex = 7
Top = 240
Width = 495
End
Begin VB.CheckBox f1
BackColor = &H00FFC0C0&
Caption = "F1"
Height = 255
Left = 120
TabIndex = 6
Top = 240
Width = 495
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00FFC0C0&
Caption = "QQ:17962516"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Left = 6600
TabIndex = 114
Top = 3000
Width = 1815
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFC0C0&
Caption = "Copy All Rights By Lion"
BeginProperty Font
Name = "宋体"
Size = 7.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 375
Left = 6480
TabIndex = 108
Top = 2520
Width = 2070
End
End
Begin VB.Menu popup
Caption = "righthand"
Visible = 0 'False
Begin VB.Menu yongma
Caption = "是否启用"
Checked = -1 'True
End
Begin VB.Menu l9
Caption = "-"
End
Begin VB.Menu show1
Caption = "显示程序窗口"
End
Begin VB.Menu moren
Caption = "当前设为默认"
End
Begin VB.Menu all
Caption = "全选"
End
Begin VB.Menu none
Caption = "全不选"
End
Begin VB.Menu l0
Caption = "-"
End
Begin VB.Menu exit
Caption = "退出"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Option Explicit
Dim hhkLowLevelKybd As Long
Dim fso As New FileSystemObject
Dim tm1, tm2 As Integer
Private Type RECT
left As Long
top As Long
right As Long
bottom As Long
End Type
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Sub a_Click()
If a.Value = 1 Then
aa(52) = VK_A
Else
aa(52) = VK_LBUTTON
End If
End Sub
Private Sub all_Click()
Command1_Click
End Sub
Private Sub b_Click()
If b.Value = 1 Then
aa(69) = VK_B
Else
aa(69) = VK_LBUTTON
End If
End Sub
Public Sub Backspace_Click()
If Backspace.Value = 1 Then
aa(51) = VK_BACKSPACE
Else
aa(51) = VK_LBUTTON
End If
End Sub
Private Sub c_Click()
If c.Value = 1 Then
aa(67) = VK_C
Else
aa(67) = VK_LBUTTON
End If
End Sub
Private Sub Capslock_Click()
If Capslock.Value = 1 Then
aa(64) = VK_CAPSLOCK
Else
aa(64) = VK_LBUTTON
End If
End Sub
Private Sub Check1_Click()
If Check1.Value = 1 Then
aa(39) = VK_ESCAPE
Else
aa(39) = VK_LBUTTON
End If
End Sub
Sub Check100_Click()
If Check100.Value = 1 Then
aa(101) = VK_NUMLOCK
Else
aa(101) = VK_LBUTTON
End If
End Sub
Sub Check101_Click()
If Check101.Value = 1 Then
aa(102) = VK_ENTER
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -