如何使用VBScript打开记事本并粘贴当前日期? [英] How to use VBScript to open notepad and paste current date in it?

问题描述

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

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?

推荐答案

使用 SendKeys 将击键发送到活动窗口.

Use SendKeys to send keystrokes to the active window.

用法:

WshShell.SendKeys aDate

您可能需要确保焦点位于您要将按键发送到的窗口中.为此，请使用 AppActivate 方法.

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"

这篇关于如何使用VBScript打开记事本并粘贴当前日期?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！