VBS中的Sendkey在telnet会话中无法正常工作

Question

我正在尝试纠正在其中打开telnet会话并执行命令的VBS代码，然后将输出保存在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中运行，而不是在当前打开的任何其他程序中运行。

谢谢。