Sendkeys в VBS не работают должным образом в сеансе telnet - PullRequest
Новая
       21

Sendkeys в VBS не работают должным образом в сеансе telnet

0 голосов
/ 20 февраля 2019

Я пытаюсь исправить код 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, а не в любой другой программе, открытой в данный момент.

Заранее спасибо.

...