Работа с консолью из VB6
Формулировка задачи:
Вот модуль класса, который я смонтировал,
черпая инфу из самых разнообразных источников...
который запускает консоль и даёт возможность вставлять туда свой текст...
теперь вопросы...
- Как заставить такую консоль реально выполнять комманды ?
- почему, не функционирует ReadLine ?.. собственно из за нее и делаю...
- как настроить параметр запуск в скрытом режиме... ?
- можно ли какнибудь подменить используемые хендлы, на Хэндл
Shell("cmd.exe")
...и тишина....
все молчат, тогда так, какой тут код поставить чтоб
взвамодействовать с окном консоли, причем в
скрытом режиме
пробывал черезSendKeys
, компьютер виснет приходилось из розетки выключать 2 попытки уже сделалРешение задачи: «Работа с консолью из VB6»
textual
Листинг программы
Private sinp As Scripting.TextStream Private sout As Scripting.TextStream Private serr As Scripting.TextStream Sub main Set myFSO = New Scripting.FileSystemObject Set sinp = myFSO.GetStandardStream(CLng(0)) Set sout = myFSO.GetStandardStream(CLng(1)) Set serr = myFSO.GetStandardStream(CLng(2)) '::: Теперь читай из sinp и пиши в sout End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д