VBによる自動入力の実装方法を教えてください。

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 を入力し、最後に Enter キーの押し下げをシミュレートしています。

特定のニーズに合わせて、このサンプルを変更、拡張して、より複雑な自動入力を実現できます。