发送时出错（带有 sendkeys 的字符 vbscript

Question

当我尝试使用 SendKeys 发送“（”或“）”字符时出现以下错误。在我的 vbscript 中。

Invalid procedure call or argument

我的脚本：

Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 100
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Documents and Settings\Administrator\Desktop\readme.txt", 1)
Wshshell.SendKeys "!@#$%^&*()"
Do Until objFile.AtEndOfStream
    strCharacters = objFile.Read(1)

    WshShell.SendKeys strCharacters
Loop

当我尝试在循环之前发送“(”和“)”时，它不会发送它们，但没有显示任何错误，并且会继续运行直到遇到另一个“(”字符并因错误而停止。

Answer 1

圆括号被认为是特殊字符，需要用大括号括起来。 有关详细信息，请参阅此链接。

Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 100
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Documents and Settings\Administrator\Desktop\readme.txt", 1)
Wshshell.SendKeys "!@#$%^&*{(}{)}"
Do Until objFile.AtEndOfStream
    strCharacters = objFile.Read(1)

    WshShell.SendKeys strCharacters
Loop