vbscript - VBS 中的 Sendkeys 在 telnet 会话中无法正常工作

Question

我正在尝试纠正一个 VBS 代码，其中打开一个 telnet 会话并执行命令，然后将输出保存在 telnet 会话中。我的问题是当我运行它运行的 .vbs 文件时，同时当我打开记事本时，sendkeys 函数将密钥发送到记事本，而不是在 telnet 会话中运行它。我希望这些命令只在 Telnet 会话中运行，无论任何程序同时运行。

这是我的vbs代码：

Option Explicit    
On Error Resume Next
Dim oShell
set oShell = CreateObject("WScript.Shell")
oShell.run "telnet.exe -f data.csv"
WScript.Sleep 3000
oShell.Sendkeys "o 10.1.1.142~"
WScript.Sleep 1000
oShell.Sendkeys "E{%}.~"
WScript.Sleep 3000
oShell.Sendkeys ".{%}c13,0;0.3.1{%}y"
WScript.Sleep 100000
oShell.Sendkeys "^]"
oShell.Sendkeys "quit~"

请帮忙。我尝试了 AppActivate 的东西。但没有奏效。我只想让我的命令在 telnet 中运行，而不是在目前打开的任何其他程序中运行。

提前致谢。

标签： vbscripttelnet