Объединение двух циклов

[ANDYANDREY]

Всем привет, прошу помощи в решении, как можно объединить цикл? Пробовал по всякому, в гугле уже все прогуглил, тут тоже решения не нашел.

While 1
Run('E:\SOFTWARE\UT\UT.exe')
ProcessWait("MWfare.exe")
ProcessClose('UT.exe')
ProcessWaitClose ("MWfare.exe")
WEnd

While 1
ProcessWaitClose ("start.exe")
Run('start.exe')
WEnd
WEnd

 

[Prog]

Чтобы объединить циклы потребуется функции ProcessWait и ProcessWaitClose заменить на ProcessExists, и оператором If проверять существование процесса.

OffTopic:
Но можно не вносить кардинальные изменения в основной код, перенеся второй цикл в фоновый поток и собрав программу в среде PureBasic 5.24 AutoIt которую недавно видел на известном трекере

XIncludeFile #PB_Compiler_Home+"Include\PureAutoIt.pbi"
UseModule PureAutoIt

Procedure Thread(*Value)
  While 1
    ProcessWaitClose("start.exe")
    Run("start.exe")
  Wend
EndProcedure

CreateThread(@Thread(), 0)

While 1
  Run("E:\SOFTWARE\UT\UT.exe")
  ProcessWait("MWfare.exe")
  ProcessClose("UT.exe")
  ProcessWaitClose("MWfare.exe")
Wend

 

[ANDYANDREY]

Чтобы объединить циклы потребуется функции ProcessWait и ProcessWaitClose заменить на ProcessExists, и оператором If проверять существование процесса.

OffTopic:
Но можно не вносить кардинальные изменения в основной код, перенеся второй цикл в фоновый поток и собрав программу в среде PureBasic 5.24 AutoIt которую недавно видел на известном трекере

XIncludeFile #PB_Compiler_Home+"Include\PureAutoIt.pbi"
UseModule PureAutoIt

Procedure Thread(*Value)
  While 1
    ProcessWaitClose("start.exe")
    Run("start.exe")
  Wend
EndProcedure

CreateThread(@Thread(), 0)

While 1
  Run("E:\SOFTWARE\UT\UT.exe")
  ProcessWait("MWfare.exe")
  ProcessClose("UT.exe")
  ProcessWaitClose("MWfare.exe")
Wend

Я может не совсем понимаю, но делаю как Вы написали, даже компилироваться не хочет, можеб есть какие-то другие способы?

 

[Garrett]

ANDYANDREY

Предупреждение

За нарушение общих правил (пункт В.2):

Старайтесь избегать “Over quoting” (преувеличенное цитирование) - цитируйте только необходимую часть сообщения, которая наилучшим образом подчеркнёт суть цитируемого.

С уважением, ваш Глобальный модератор.

 

[ANDYANDREY]

Помогите кто-нибудь, я уже не знаю, что и делать. Можно ли как то эти два кода сделать, что бы они постоянно были в цикле и выполнялись?

 

[Prog]

ANDYANDREY [?]

делаю как Вы написали, даже компилироваться не хочет

Как делаете?

 

[ANDYANDREY]

ANDYANDREY [?]
Как делаете?

Все успешно скомпилировалось через Pure Basic Autoit, вот только при запуске не запускается приложение по адресу Run("E:\SOFTWARE\UT\UT.exe"), в чем может быть проблема?

Помогите пожалуйста изменить сам скрипт на Autoit, если это возможно. По отдельности эти два кода работают на ура, а вместе самый верхний работает, а второй нет, вот мне нужно объеденить.

 

[Prog]

ANDYANDREY [?]

при запуске не запускается приложение по адресу Run("E:\SOFTWARE\UT\UT.exe"), в чем может быть проблема?

Может в том что такой путь отсутствует?

Помогите пожалуйста изменить сам скрипт на Autoit, если это возможно.

While 1

  if ProcessExists("MWfare.exe") = 0 and ProcessExists("UT.exe") = 0 Then
	 Run('E:\SOFTWARE\UT\UT.exe')
  elseif ProcessExists("MWfare.exe") and ProcessExists("UT.exe") Then
	 ProcessClose('UT.exe')
  endif

  if ProcessExists("start.exe") = 0 Then
    Run('start.exe')
  endif

  sleep(10)

WEnd

 

[ANDYANDREY]

ANDYANDREY [?]

при запуске не запускается приложение по адресу Run("E:\SOFTWARE\UT\UT.exe"), в чем может быть проблема?

Может в том что такой путь отсутствует?

Нет путь правильный. А вот этот код, который Вы мне прислали, при запуске запускается программу по адресу E:\SOFTWARE\UT\UT.exe и закрывает, потом снова открывает и закрывает скрытно, итак постоянно. Мне нужно, что бы она открывалась, конечно попробую разобраться, но голова уже кипит, весь день маюсь) Заранее спасибо.

 

[Prog]

Отредактировал код.

 

[ANDYANDREY]

Кстати в Pure Basic Autoit программа уже запускается, только при открытии программы MWfare.exe, программа UT.exe не закрывается.


Добавлено:

Сообщение автоматически объединено: 17 Июн 2017

Отредактировал код.

Ошибку пишет, Error: Error in expression
Убрал "and" там где стоял 0, ошибка перестала появляться, но при открытии MWfare.exe, программа UT.exe не завершается

 

[Garrett]

ANDYANDREY
Как нужно цитировать в трёх действиях!!!

Делай раз!


Делай два!


Делай три!


Сложно?

 

[ANDYANDREY]

ANDYANDREY

Сложно?

Да нет не сложно, просто целый день с кодом маюсь, не могу решить задачу, извиняюсь.
P.S. У вас на "Делай раз" не работает почему-то, по крайнем мере у меня.

 

[Garrett]

ANDYANDREY [?]

У вас на "Делай раз" не работает почему-то

Ставим курсор в начало выделяемого участка. Зажимаем ЛКМ и тянем до конца выделяемого участка. Отпускаем ЛКМ. И-и-и...

 

[vovsla]

У меня тоже трудности с цитатами
"Делай раз!" не работает в Firefox 53.03
А как получить текст первой строки на шаге "Делай два!" не понятно

А по поводу кода можно попробовать так

AdlibRegister('loop1')
AdlibRegister('loop2')

While Sleep(100)
WEnd

Func loop1()
	Run('E:\SOFTWARE\UT\UT.exe')
	ProcessWait("MWfare.exe")
	ProcessClose('UT.exe')
	ProcessWaitClose ("MWfare.exe")
EndFunc

Func loop2()
	ProcessWaitClose ("start.exe")
	Run('start.exe')
EndFunc

Хотя, и так должно работать

While Sleep(100)
	If Not ProcessExists('MWfare.exe') Then
		Run('E:\SOFTWARE\UT\UT.exe')
		ProcessWait('MWfare.exe')
		ProcessClose('UT.exe')
	EndIf
	
	If Not ProcessExists('start.exe') Then Run('start.exe')
WEnd

В крайнем случае можно сделать 2 утилиты

 

[Alofa]

OffTopic:

... на "Делай раз" не работает...

Отключите в браузере всякого рода плагины и расширения - антбанеры (типа Adblock).