Question

我正在尝试使用vbs捕获输入框中的ID，然后将其输入打开的文件中。我只学习了如何为这个特定的项目编写vbs脚本，所以下面写的可能不是犹太教。我也不确定使用Sendkeys是否可行，主要是因为它尚未使用。谢谢你的任何指示。

Dim wshShell, ID

ID=inputBox("Please Enter the ID")

CreateObject("WScript.Shell").Run("file.sps")
Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Sendkeys  "[the ID from above should go here]"
WshShell.Sendkeys "{Enter}"

Answer 1

避免像瘟疫一样SendKeys ..它很少是做某事的最佳方法。您只需要使用FileSystem对象：

Option Explicit

Dim fso,file
Dim id

id = inputBox("Please Enter the ID")
Set fso = CreateObject("Scripting.FilesystemObject")

'open the file for appending (8) create it if it doesn't exist
Set file = fso.OpenTextFile("file.sps",8,True)

Call file.writeLine(id)
Call file.close

Set file = Nothing
Set fso = Nothing
WScript.Quit

使用Sendkeys将变量写入文件

1 个答案: