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

Question

How to use VBScript to open notepad and paste current date in it?

This is all I have for now:

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

Now, how do I paste the date?

Answer 1

Use SendKeys to send keystrokes to the active window.

Usage:

WshShell.SendKeys aDate

You may need to ensure that the focus is in the window you want to send keystrokes to. For this, use AppActivate method.

Using window title in this case:

WshShell.AppActivate "Untitled - Notepad"

Answer 2

你也可以使用

WshShell.SendKeys "{F5}"

Answer 3

I know i am late, but try the following code, it works:

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

Make sure the extension of the file is ".vbs"