您可以使用VB中的SendKeys函数来实现自动输入。
SendKeys函数可以将键盘的按键操作发送到活动的窗口,从而实现自动输入的效果。
以下是一个使用SendKeys函数实现自动输入的简单示例:
Private Sub AutoInput()
' 在“计算器”程序中输入数字12345
AppActivate "计算器" ' 激活“计算器”窗口
SendKeys "1" ' 输入数字1
SendKeys "2" ' 输入数字2
SendKeys "3" ' 输入数字3
SendKeys "4" ' 输入数字4
SendKeys "5" ' 输入数字5
SendKeys "{ENTER}" ' 模拟按下回车键
End Sub
在这个示例中,首先使用AppActivate函数激活了名为“计算器”的窗口,然后使用SendKeys函数依次输入数字1、2、3、4、5,并最后模拟按下回车键。
您可以根据具体的需求修改和扩展这个示例,以实现更复杂的自动输入操作。