Отправляет email-рассылки с помощью сервиса Sendsay

[TC] скрипт, находящий нужное слово в окне

Здравствуйте, уважаемые!

Написал простенький скрипт читающий размер файла или папки, находящийся в
окне свойств, но беда в том, что в случае чтения окна свойств файла скрипт
читает сначала размещение, а уж потом размер. Скриптом предусмотрено чтение
двух строк, чтобы работало и для файла и для папки.
Так вот вопрос, как скрипту попасть не на строку, которая меняет своё
положение по счёту, а на нужное слово, в данном случае "Размер:".

Заранее благодарен,
Грызунов Александр, Самара
Моя Web-страничка:
http://eastreb.narod.ru

Ответить   "eastreb" Thu, 31 Aug 2006 19:15:11 +0500 (#585792)

 

Ответы:

Suilad, eastreb!

FindString ("Размер:", S_top, s_restricted)

Ответить   Anarendil Thu, 31 Aug 2006 19:48:29 +0400 (#585804)

 

Здравствуйте, Anarendil!

Вставил вашу функцию
FindString ("Размер:", S_top, s_restricted)

в свой скрипт "SaySizeOfObject" и диспечер скриптов выдал ошибку:
Ошибка компиляции
Function FindString requires 4 parameters not 3
Ok

Какой ему нужно ещё параметр, может быть, ручку? Но она у каждого окна
свойств разная!

Грызунов Александр, Самара
Моя Web-страничка:
http://eastreb.narod.ru

Ответить   "eastreb" Sat, 2 Sep 2006 01:17:41 +0500 (#586323)

 

Suilad, eastreb!

Очевидно.
Тогда получаем ручку. В начале скрипта объявляем переменную:

Var
Handle CurrWindow

А потом в скрипте _прямо_ перед вызовом findString пишем:
Let CurrWindow=GetCurrentWindow ()
FindString (CurrWindow, "Размер:", S_top, s_restricted)

Ответить   Anarendil Sun, 3 Sep 2006 21:22:16 +0400 (#586614)