Версия 5.78 Запуск процесса и налаживание Pipe канала с ним

createpipeprocess("C:\Windows\System32\cmd.exe -i");

createpipeprocess("C:\Windows\System32\cmd.exe -i", STARTF_USESHOWWINDOW | STARTF_USESTDHANDLES, SW_HIDE);

sendpipe("dir^n");//Отправить dir и ентер

waitpipe();

string S;
int C=getpipe(#S);

char G[1000000];
int C=getpipe(#G[0]);

char G[11];
int C=getpipe(#G[0], 10);

closepipeprocess();

if (createpipeprocess("C:\Windows\System32\cmd.exe -i"))
{
sendpipe("chcp 1251^n");//Устанавливаем кодировку windows 1251 для русс шрифта
sendpipe("dir^n");//Отправляем команду dir
waitpipe();//Ждем пока отработает и появятся данные
sleep(500);//для надежности
string rez="";
char G[9999999];
while (getpipe(#G[0], size(#G[0]))) rez=rez+format(#G[0]);//Считываем весь ответ пока он идет
messagebox (rez);
closepipeprocess();//Завершим процесс и закрываем канал
}

if (createpipeprocess("C:\Windows\System32\cmd.exe -i"))
{
sendpipe("chcp 1251^n");//Устанавливаем кодировку windows 1251 для русс шрифта
sendpipe("dir^n");//Отправляем команду dir
waitpipe();//Ждем пока отработает и появятся данные
sleep(500);//для надежности
int C;
string S;
C=getpipe(#S);//Читаем
messagebox (C);
messagebox (S);

closepipeprocess();//Завершим процесс и закрываем канал
}

if (createpipeprocess("C:\Windows\System32\cmd.exe -i"))
{
sendpipe("chcp 1251^n");//Устанавливаем кодировку windows 1251 для русс шрифта
sendpipe("dir^n");//Отправляем команду dir
waitpipe();

char G[1000000];
int C;
int n=0;
A: looptime(3000)//Считываем в течение 3 секунд
{
C=getpipe(#G[n]);
n=n+C;
if (C!=0) goto A;
}
C=n;
messagebox (C);
messagebox (format(#G[0]));

closepipeprocess();//Завершим процесс и закрываем канал
}

if (createpipeprocess("C:\Windows\System32\cmd.exe -i"))
{
sendpipe("chcp 1251^n");//Устанавливаем кодировку windows 1251 для русс шрифта
sendpipe("dir^n");//Отправляем команду dir
waitpipe();

char G[11];

int C=getpipe(#G[0], 10);

messagebox (C);
messagebox (format(#G[0]));

closepipeprocess();//Завершим процесс и закрываем канал
}

sendpipe("chcp 1251^n");//Устанавливаем кодировку windows 1251 для русс шрифта

if (createpipeprocess("C:\Windows\System32\cmd.exe -i"))
{
int C;
string S;

//Если не хотим что бы приветстие было в выводе считаем его из канала
waitpipe();//Ждем пока отработает и появятся данные
sleep(500);//для надежности
getpipe(#S);//Читаем все с канала

sendpipe("chcp 1251^n");//Устанавливаем кодировку windows 1251 для русс шрифта

//Если не хотим что бы ответ на команду был в выводе считаем его из канала
waitpipe();//Ждем пока отработает и появятся данные
sleep(500);//для надежности
getpipe(#S);//Читаем все с канала



sendpipe("help^n");//Отправляем команду help
waitpipe();//Ждем пока отработает и появятся данные
sleep(500);//для надежности
C=getpipe(#S);//Читаем
messagebox (C);
messagebox (S);

closepipeprocess();//Завершим процесс и закрываем канал
}

if (createpipeprocess("C:\Windows\System32\cmd.exe -i"))
{
int C;
string S;
sendpipe("help^n");//Отправляем команду help
waitpipe();//Ждем пока отработает и появятся данные
sleep(500);//для надежности
C=getpipe(#S);//Читаем
messagebox (C);
messagebox (S);
S=d866tow1251 (S);//перекодирует текст из DOS 866 в WINDOWS 1251
messagebox (S);
closepipeprocess();//Завершим процесс и закрываем канал
}

int pos_size_static0[1][4];
string text_static0[1];

pos_size_static0[0][0]=9; pos_size_static0[0][1]=9; pos_size_static0[0][2]=398; pos_size_static0[0][3]=367;
text_static0[0]="";

//////////

createdialog(0, STATIC, #pos_size_static0[0][0], #text_static0[0]);
//////////

showdialog(0, "Диалог", 207, 109, 426, 422, 1, 1);
//////////

//loop() sleep(10);//Убрать после теста

if (createpipeprocess("C:\Windows\System32\cmd.exe -i"))
{
int C;
string S;
char G[1000000];
int n=0;
sendpipe("ping googl.com -t^n");//Отправляем команду ping googl.com -t
waitpipe();//Ждем пока отработает и появятся данные
sleep(500);//для надежности
A: looptime(3000)//Считываем в течение 3 секунд
{
C=getpipe(#G[n]);
n=n+C;
text_static0[0]=d866tow1251 (format(#G[0]));
if (n>1000) break;
sleep(10);
if (C!=0) goto A;
}
messagebox ("Завершено");
closepipeprocess();//Завершим процесс и закрываем канал
}

int result = createpipeprocess("powershell.exe -NoLogo");
messagebox(result);

if(createpipeprocess("powershell.exe -NoLogo")==1)
{
sendpipe("start calc.exe^n"); // открыть калькулятор
pause(1000);
closepipeprocess();
}
else messagebox("Канал не создан");