Question

用vb编写了一个模拟按键的小程序，模拟的是a，为什么他根本停不下来，一直在输入a？

Private Sub Command1_Click()
b = b + 1
If b = 1 Then
a = WM_KEYDOWN
Call PostMessage(Text1.hwnd, a, Key_A, 0&)
a = WM_KEYUP
Call PostMessage(Text1.hwnd, a, Key_A, 0&)
b = 0
End If
End Sub

Private Sub Command2_Click()
End
End Sub
这是输入的程序

Answer 1

肯定是代码有问题的，这个需要看你写的代码才能知道是什么原因停不下来。

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2 '释放按键常数
Private Sub Command1_Click()'模拟输入键盘a例子
Text1.SetFocus
Call keybd_event(65, 0, 0, 0) '按下
Call keybd_event(65, 0, KEYEVENTF_KEYUP, 0) '释放
End Sub

 

你的代码在外部定义一个b
Dim b As Long '================
Private Sub Command1_Click()
    b = b + 1
    If b = 1 Then
        a = WM_KEYDOWN
        Call PostMessage(Text1.hwnd, a, Key_A, 0&)
        a = WM_KEYUP
        Call PostMessage(Text1.hwnd, a, Key_A, 0&)
    End If
     'b = 0 这个不要了，否则b下次还是从0开始=============
End Sub

Answer 2

代码呢，是不是死循环了？
把b =0注释掉；

追问

不行啊，注释掉b=0还是停不下来

追答

Call PostMessage(Text1.hwnd, a, Key_A, 0&)这方法是什么

追问

PostMessage向电脑发一个模拟指令