你的这个要求应该是不能达到的，键盘反应速度达不到要求的。
使用keypress直接按键一秒可能只能按几下，用Saystring可以一次输入1000个你想按的键，只是不知道你想用的那个程序是否接受。
附代码，你复制到按键精灵里试试吧：
Dim s
s=string(1000,"s")
SayString s
“”中的字符就是你想要按的键。
for 1000
这里是你自己设定的按键
next
能否在一秒钟完成，就看你的cpu运行速度了
ujytutyuyututu
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024