Дело в следующем.
Я сейчас ввожу в программу данные просто через эмуляцию ввода с клавиатуры и пауз WScript.Sleep t
В некоторый момент программа начинает расчёт, который может длиться 2 секунды, а может 20 минут. Я сейчас вычисляю требуемую паузу "на глазок". А вместо этого хотел следить, когда программа сообщит на экране об окончании расчёта, и затребует дальнейший ввод с клавиатуры.
Т. е. хотел циклически Do While… WScript.Sleep 100 :Loop проверять последнюю выведенную на экран строку.
С помощью варианта с WinAPI:ReadConsoleOutputCharacter вроде получается.
]]>n = 5 ' число последних строк
With CreateObject("WScript.Shell")
If InStrRev(WScript.FullName, "WScript.exe") Then
.Run "CScript.exe //NoLogo """ & WScript.ScriptFullName & """", 0
WScript.Quit
Else
Set Exe = .Exec("RADMODLS.EXE")
For i = 1 to 12 : Exe.StdIn.WriteLine "N" : Next
All = Split(Exe.StdOut.ReadAll, vbnewline) : Max = Ubound(All)
For i = Max - n to Max - 1 : S = S & vbNewLine & All(i) : Next
.Popup Mid(S, 3)
End If
End WithКакой-то один подвисший ntvdm.exe в списке процессов мешал.
Есть убрать, то с первого раза и старый вариант сработает. Нужно использовать текущий.
]]>Кавычку добавил. Проверьте. В пути, наверно, пробелы есть.
Теперь заработало. Почти ) Показывает MsgBox только после того, как через диспетчер задач убить процесс ntvdm.exe :-/
UPD: А, всё, заработало нормально. Один подвисший ntvdm.exe в списке процессов мешал.
Большое спасибо.
]]>Скрипт должен лежать в той же папке, что и программа, запускать обычным вызовом по Enter/даблклик.
Да, всё так и делаю.
]]>вот что у меня вышло:
Э-мм, а у меня это не работает.
Всегда выполняется условие If InStrRev(WScript.FullName, "WScript.exe").
Если конструкцию If убрать и оставить только кусок Set Exe = .Exec… MsgBox Exe.StdOut.ReadAll, то программа запускается и тут же закрывается, а скрипт выдаёт ошибку:
Ошибка: Идёт закрытие канала.
Код: 800700E8
Источник: (null)
ОС Windows 7 32-бит, пользователь с правами администратора.
]]>With CreateObject("WScript.Shell")
If InStrRev(WScript.FullName, "WScript.exe") Then
.Run "CScript.exe //NoLogo """ & WScript.ScriptFullName & """", 0
Else
Set Exe = .Exec("RADMODLS.EXE")
For i = 1 to 12
Exe.StdIn.WriteLine "N"
Next
.PopUp Exe.StdOut.ReadAll
End If
End WithХотя я вообще не понял, зачем нужно подобные программы выводить в окно, к тому же существенно ограниченное по высоте.
]]>Set ws = WScript.CreateObject("WScript.Shell")
Set DX = CreateObject("DynamicWrapperX")
DX.Register "user32.dll", "GetForegroundWindow", "r=h"
DX.Register "user32.dll", "GetWindowThreadProcessId", "i=hL", "r=l"
DX.Register "kernel32.dll", "AttachConsole", "i=l", "r=l"
DX.Register "kernel32.dll", "GetStdHandle", "i=l", "r=h"
DX.Register "kernel32.dll", "ReadConsoleOutputCharacter","i=hSlpL", "r=l"
ws.Run("abcd.exe") :WScript.Sleep 2000
wh = DX.GetForegroundWindow()
pid= 0
wh = DX.GetWindowThreadProcessId(wh, pid)
res= DX.AttachConsole(pid)
sh = DX.GetStdHandle(-11)
n = 100
s = Space(n)
x = 10 :y = 3 'координаты экрана, откуда надо начинать чтение
coord = y*2^16 + x
res = DX.ReadConsoleOutputCharacter(sh, s, n, coord, n)
msgbox(s):)
]]>