📄 frmmain.frm
字号:
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 Donw"
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 = "计算机社区群:10982151"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 210
Left = 6360
TabIndex = 115
Top = 3000
Width = 2205
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFC0C0&
Caption = "流星软件"
BeginProperty Font
Name = "宋体"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 525
Left = 6360
TabIndex = 108
Top = 2400
Width = 2160
End
End
Begin VB.CheckBox chkDisable
BackColor = &H00FFC0C0&
Caption = "是否启用"
Height = 375
Left = 120
TabIndex = 0
Top = 3480
Width = 1095
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
'****************************************************************************
'人人为我，我为人人
'发布日期：2006/11/04
'描 述：流星键盘锁定
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
'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 biedong_Click()
If biedong.Value = 1 Then
If mm = "" Then MsgBox "请先设置密码,才能使用本功能!", vbCritical: biedong.Value = 0: Exit Sub
haha (mm)
If gaga = True Then
If (MsgBox("注意!点此选项将使电脑键盘被锁定!只有小键盘的数字键和回车可以使用!请按热键Alt+5来解锁!", vbExclamation + vbOKCancel, "警告") = vbOK) Then
Timer1.Enabled = True
Dim hwnd As Long
hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hwnd, 0
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
bd = True
Command1_Click
Check91.Value = 0
Check91_Click
Check100.Value = 0
Check100_Click
Check101.Value = 0
Check101_Click
lalt.Value = 0
ralt.Value = 0
lalt_Click
ralt_Click
Dim hKey As Long
RegCreateKey HKEY_CURRENT_USER, "Control Panel\Desktop", hKey
RegSetValueEx hKey, "ScreenSaverIsSecure", 0, REG_SZ, ByVal "0", 13
Me.Hide
MsgBox "对不起！你的电脑已被绑票，快交赎金，否则撕票！", vbExclamation
Me.Show
Check101.Value = 1
Check101_Click
Me.WindowState = 1
Me.Hide
Else
biedong.Value = 0
End If
Else
MsgBox "密码中包含非数字字符！必顺为纯数字型密码！否则电脑锁定后非数字字符无法输入从而无法解锁！", vbCritical: biedong.Value = 0: Exit Sub
End If
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -