求vb编程键盘记录器代码

答案:2 悬赏:20 手机版

解决时间 2021-01-28 04:31

提问者网友：活着好累
2021-01-27 12:05

窗体中添加什么代码该添加什么控件模版中添加什么代码知道的麻烦告诉我一下本人将不胜感激

最佳答案

五星知识达人网友：像个废品
2021-01-27 12:31

'添加一个窗体,然后在控件上放置一个 timer 控件，代码复制下去即可,此示例是检测F12的，其他的你可以加'Private Const VK_F12 = &H7B'Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer'Dim lngCount As Long'Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_F12) = -32768 Then
lngCount = lngCount + 1
MsgBox "kd f12" & GetCount '这一句根据需要删除
End If
End Sub'Private Sub UserControl_Initialize()
Timer1.Interval = 10
Timer1.Enabled = True
End Sub'Public Property Get GetCount() As Long
GetCount = lngCount
End Property

全部回答

1楼网友：不想翻身的咸鱼
2021-01-27 12:43

vb代码的hook全局键盘钩子

下载地址： http://www.codefans.net/soft/2646.shtml

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息