Работа с консолью из 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.857 из 5