Вверх ↑
Этот топик читают: Гость
Ответов: 12
Рейтинг: 0
#1: 2019-10-04 16:39:05 ЛС | профиль | цитата
Я не могу с помощью WinExec открыть консоль, открываю она сразу же закрывается и окно программы просто дублируется.Помогите пожалуйста.
Схема: Add(WinExec,2896137,126,105)
{
FileName="cmd.exe"
RunEvent=1
Point(doConsoleExec)
Point(doConsoleInput)
Point(doConsoleTerminate)
Point(onConsoleResult)
Point(onConsoleError)
Point(onConsoleTerminate)
link(Params,13523908:GetData,[(139,100)(195,100)])
}
Add(MainForm,16386581,42,105)
{
Width=620
Height=553
Caption="Ping localhost"
}
Add(Button,195676,35,154)
{
Left=60
Top=160
link(onClick,78856:doEvent1,[])
}
Add(Hub,78856,77,154)
{
OutCount=3
link(onEvent1,1444196:doData,[(115,160)(115,69)])
link(onEvent3,2896137:doConsoleExec,[(109,174)(109,125)])
}
Add(EventFromData,13523908,189,63)
{
}
Add(DoData,1444196,140,63)
{
Data=String(HELP)
link(onEventData,13523908:doData,[])
}

--- Добавлено в 2019-10-04 16:41:59

"fox-video" привет

Редактировалось 6 раз(а), последний 2019-10-04 16:43:29
2.3.2. Максимальный размер изображений или видео без спойлера не должен превышать по большей стороне 600 пикселей.

карма: 0
RimA
0
vip
#1.1контекстная реклама от партнеров
Ответов: 205
Рейтинг: 12
#2: 2019-10-04 16:50:36 ЛС | профиль | цитата
Вот не большой пример работы с CMD

Пример


Add(MainForm,2953706,147,147)
{
Width=598
Height=458
Caption="Ping localhost"
}
Add(WinExec,12731325,315,203)
{
FileName="cmd.exe"
Mode=0
Point(doConsoleExec)
Point(onConsoleResult)
link(Params,10060359:Result,[])
link(onConsoleResult,16231670:doCharset,[])
}
Add(Charset,16231670,364,217)
{
link(onCharset,5996643:doAdd,[])
}
Add(Memo,5996643,497,217)
{
Top=27
Width=582
Height=392
Align=5
ScrollBars=3
}
Add(StrCat,10060359,322,147)
{
Str1="/c "
}
Add(ChildPanel,15378091,217,147)
{
link(onEvent1,10060359:doStrCat,[])
link(onEvent2,1763311:doEvent1,[(261,160)(261,216)])
}
BEGIN_SDK
Add(EditMulti,13496839,14,21)
{
EventCount=2
Width=216
Height=88
}
Add(Panel,3681916,28,26)
{
Width=582
Height=27
Align=2
}
Add(Edit,4159786,133,21)
{
Left=2
Top=2
Width=524
Height=23
Align=5
Font=[MS Sans Serif,10,1,0,1]
Text="ping ya.ru /t"
ClearAfterEnter=1
link(onChange,15113249:doWork2,[])
link(onEnter,1327905:doWork2,[])
}
Add(DoData,12386569,133,63)
{
link(onEventData,15113249:doWork3,[(185,69)])
link(Data,4159786:Text,[])
}
Add(HubEx,15113249,181,21)
{
link(onEvent,13496839:onEvent1,[])
}
Add(Button,1191366,28,63)
{
Left=526
Top=2
Height=23
Align=3
Caption="GO"
link(onClick,799487:doEvent1,[])
}
Add(Hub,799487,77,63)
{
link(onEvent1,12386569:doData,[])
link(onEvent2,1327905:doWork3,[(197,76)])
}
Add(HubEx,1327905,193,28)
{
link(onEvent,13496839:onEvent2,[])
}
END_SDK
Add(Hub,1763311,273,210)
{
link(onEvent1,5996643:doClear,[(298,216)(298,251)(403,251)(403,230)])
link(onEvent2,12731325:doConsoleExec,[])
}
карма: 3

0
Главный модератор
Ответов: 2982
Рейтинг: 393
#3: 2019-10-04 17:08:07 ЛС | профиль | цитата
RomanRU, Если не научитесь пользоваться тегами code:

Здесь вставлять Ваш код
то автоматически получите бан после третьего предупреждения: читайте правила ресурса.
карма: 7
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 12
Рейтинг: 0
#4: 2021-11-09 16:23:09 ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2021-11-09 16:25:44
карма: 0
RimA
0
4
Сообщение
...
Прикрепленные файлы
(файлы не залиты)