您可以使用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，并最后模拟按下回车键。
您可以根据具体的需求修改和扩展这个示例，以实现更复杂的自动输入操作。
