以下内容是关于SENDKEYS问题，请问知道的大佬帮忙看看~

Question

我想让程序每隔3秒执行一个过程：先按回车键 然后按下键 然后按空格
为什么用下面代码 不对？
Private Sub CommandButton1_Click()
waittime1 = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 5)
waittime2 = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
waittime3 = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
waittime4 = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3)
Application.Wait waittime1
Do
SendKeys "{ENTER}"
Application.Wait waittime2
SendKeys "{DOWN}"
Application.Wait waittime3
SendKeys " "
Application.Wait waittime4
Loop
End Sub

Answer 1

用API函数keybd_event可以模拟任何按键：在模块中定义Public Declare Sub keybd_event Lib"user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByValdwFlags As Long, ByVal dwExtraInfo As Long)例如{Windows]+"R"的组合Call keybd_event(91, 0, 0, 0)Call keybd_event(82, 0, 0, 0)({Windows]键码为91,"R"键码为82, 注意第二句也不能用SENDKEYS语句!)

Answer 2

首先要先用SLEEP函数等待时间，另外 你SENDKEYS 自然是给别的程序输入数据了，所以你得先用API函数把别的程序提到激活前台的位置，而我没看到你的代码，你这样做，是自己给自己的程序发字符，自己的程序给自己发字符没必要用SENDKEYS