以下内容是关于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 waittime1DoSendKeys "{ENTER}"Application.Wait waittime2SendKeys "{DOWN}"Application.Wait waittime3SendKeys " "Application.Wait waittime4LoopEnd Sub

Answer 1

用API函数keybd_event可以模拟任何按键：
在模块中定义
Public Declare Sub keybd_event Lib
"user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal
dwFlags 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