Помогите с CMD в хиасм

Форумы СхемыПомогите с CMD в хиасм ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 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

Ответов: 263

Рейтинг: 18

#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

Голосовали: sla8a

Главный модератор

Ответов: 2999

Рейтинг: 396

#3: 2019-10-04 17:08:07 ЛС | профиль | цитата

RomanRU, Если не научитесь пользоваться тегами code:


Здесь вставлять Ваш код

то автоматически получите бан после третьего предупреждения: читайте правила ресурса.

карма: 6

Дорогу осилит идущий. Install/Update HiAsm.NET

Ответов: 12

Рейтинг: 0

#4: 2021-11-09 16:23:09 ЛС | профиль | цитата

Редактировалось 5 раз(а), последний 2021-11-09 16:25:44

карма: 0

RimA

Форумы СхемыПомогите с CMD в хиасм ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)