Question

VB高手的来：全局状态获取按下了什么键，然后然后把这个键的符号写入一个txt文件，要代码，配上解释

换成弹消息也可以，比如说按下S键，弹出消息“你按下了A键”，松开A键，弹消息“你松开了A键”

Answer 1

我只有能捕捉数字按键和字母按键的……这是一个键盘钩子程序啊！！！
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal Vkey As Long) As Integer
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = GetAsyncKeyState(vKeyCode) < 0
End Function
Private Sub Timer1_Timer()
If MyHotKey(vbKeyf4) Then MsgBox "你按的是F4键"
End Sub
——————
把所以你想要检测的按键添加在一个LIST1中，然后用timer1控件实时
Private Sub Timer1_Timer()
For i = 0 To List1.ListCount - 1
t = List1.List(i)
If MyHotKey(Asc(UCase(t))) Then MsgBox "你按的是" & T & ”键“
Next
End Sub
检测

追问

这样处理时间会好长，而且按下和松开按键的问题还是没有解决

Answer 2

你想做键盘记录啊，想盗号还是。。。。。。。坏孩子，我也研究过这些东西 哈哈哈，
强烈建议http://blog.csdn.net/roclv/article/details/5405416
（网页最下面有下载地址）
这个讲的是一个很牛x的网络名叫洋娃娃的人编的强大的键盘记录，就算是qq的密码框也可以记录下来，还可以记录键盘输入的汉字，既可以记录密码又可以记录聊天记录，真tm牛x，（他写的这个东西是要加载驱动的，360可能阻止，注意别误删了）
希望采纳，
对了，我曾经把他编的东西改装了一下，可以隐藏运行，开机自启，把记录下来的东西写进txt里
如果想要的话把邮箱留下，

注意::::这个程序按下 松开都记录 功能强大 !!!!!!!!!!!!

Answer 3

Private Declare Function GetAsyncKeyState Lib "User32" (ByVal Vkey As Long) As Integer
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = GetAsyncKeyState(vKeyCode) < 0
End Function
Private Sub Timer1_Timer()
If MyHotKey(vbKeyf4) Then MsgBox "你按的是F4键"
End Sub