birdfree вы не злитесь. просто вы в данном случае меня, например, поймите - попахивает тем что нужно просто взять и написать программу за вас. а это не дело. 
если вы начинающий то это скорее плюс нежели минус - стремитесь что-то новое постичь. задачи достаточно простые да и направление вам указывают верное.

Tkx это ужос  блин попытался запустить скрипт не вышло  отвык я от них

  
и это все для рисования одного окошка 

я проверить не смог, а вы попытайтесь, особенно если у вас окошко нормально рисуется. Перед вызовом my @info = $pi->GetProcInfo(); просто добавьте бесконечный цикл while(1). Это позволит вам продолжить поиск нужного окошка.

shamber, я пробовал ставить бесконечный цикл не получилось. По этому и обратился зп помощью.
dva300, я понимаю что это выглядит не очень хорошо, я вам крайне благодарен за помощь. Я постараюсь в дальнейшем разбираться самостоятельно.   

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


Это сообщение отредактировал(а) dva300 - 14.6.2010, 22:12

shamber, я пробовал ставить бесконечный цикл не получилось. По этому и обратился зп помощью.
dva300, я понимаю что это выглядит не очень хорошо, я вам крайне благодарен за помощь. Я постараюсь в дальнейшем разбираться самостоятельно.   

а чего дважды то повторять ?   

ниже код согласно твоих условий. пока будешь жать "Да" программа будет проверять наличие процесса в системе. Если процесс исчезнет - продолжиться выполнение программы. Нажмешь "Нет" - программа завершиться.

P.S. Извини. на Tkx сам перепишешь    

dva300, Спасибо вам большое, есче раз! 
Все оказалось просто, оказывается не умею пользоваться оператором last       
Честно говоря, ту конструкцию что предложил, уважаемый dva300, я решил использовать с самого начала, я просто не умею пользоваться last   

Это сообщение отредактировал(а) birdfree - 17.6.2010, 01:55

   согласно диалога выше проблема как мне думалось была в цикле while 
программа будет и без last работать (за комментируйте и проверьте) только немного не правильно потому как....

Объясню зачем нужен last - т.к. в задаче не стоит условие количественного определения запущенных процессов т.е. массив @info пробегать весь не надо
поэтому мы ввели признак $flag который станет правдой как только первое упоминание об интересующих нас процессах будет найдено. оно же есть условие выхода и из глобального цикла while.
как только значение найдено - выходим из циклов и обновляем массив @info новыми данными и повторяем все заново.
 
как видите цикл foreach и вложенный while по хешам можно и не прерывать - просто придется еще пару раз нажать на кнопку "Далее"
хотя это естественно не правильно потому как процессов в системе больше нет. для этого и нужен last.

Вот у меня как раз в этом и была проблема, что я не мог сделать выход из цикла, все срабатывало но из цикла он не выходил. Большое спасибо! 

Большое пожалуйста   

что хоть за задача была ? а то мы как китайские программисты - пишем часть не понимая что есть целое 
P.S. надеюсь задача была не просто вывести кнопку на экран   

Программа вытаскивала из 1с данные потом преобразовывала, туда добавлялись, данные из exel, в итоге все выкладывалось по фтп на сервера, в общем то это все автоматизированно, графический интерфейс создан для отлова ошибок при работе с отображением у оператора на экране ))) ВОт такая вот не хитрая программа ))