如何使用 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}"

Answer 3

我知道我遲到了，但試試下面的代碼，它可以工作：

Set wshshell = wscript.CreateObject("WScript.Shell")
Wshshell.run "Notepad"
wscript.sleep 100
dim aDate
aDate = Date()
wscript.sleep 2000
wshshell.sendkeys aDate
wscript.sleep 1000

確保文件的擴展名是“.vbs”