您可以使用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，并最后模擬按下回車鍵。
您可以根據具體的需求修改和擴展這個示例，以實現更復雜的自動輸入操作。
