如何使用VBScript打开记事本并粘贴当前日期？

Question

如何使用VBScript打开记事本并在其中粘贴当前日期？

这就是我现在所拥有的一切：

Set WshShell = WScript.CreateObject("WScript.Shell")
Call WshShell.Run("%windir%\system32\notepad.exe")
Dim aDate
aDate = Date()
WScript.Sleep 2000

现在，如何粘贴日期？

Answer 1

使用SendKeys将按键发送到活动窗口。

用法：

WshShell.SendKeys aDate

您可能需要确保焦点位于要向其发送击键的窗口中。为此，请使用AppActivate方法。

在这种情况下使用窗口标题：

WshShell.AppActivate "Untitled - Notepad"

Answer 2

你也可以使用

WshShell.SendKeys "{F5}"