Dim Proc As New Process Proc.File = "notepad" Proc.Start Proc.WaitForInputIdle() '等程序自动结束并进入空闲状态 Sendkeys.Send("I Like Foxtable") '发送按键信息