Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 26170
Рейтинг: 2127
#31: 2012-08-31 11:41:23 ЛС | профиль | цитата
CriDos писал(а):
версия ОС?

Windows7 x86, сборка 7600
CriDos писал(а):
этот класс использует IE

Может быть, у меня этих классов много, и вот одному из них принадлежит SHELLDLL_DefView -> SysListView32
А IE у меня 9-я. Если я не ошибаюсь, то и у Tad-a тоже IE9
------------ Дoбавленo в 11.40:
Вот так у меня работает



Add(MainForm,2953706,189,147)
{
}
Add(Button,1945260,189,266)
{
Left=30
Top=75
Width=95
Height=25
link(onClick,14298425:doEnum,[])
}
Add(FindWindow,10676107,371,259)
{
ClassName="SHELLDLL_DefView"
SkipParam=1
link(onFind,1423846:doCase,[])
link(ParentHandle,14298425:Handle,[(377,247)(356,247)(356,317)(258,317)])
}
Add(FindWindow,3569183,483,252)
{
ClassName="SysListView32"
SkipParam=1
link(onFind,4746339:doSendMessage,[])
}
Add(SendMessage,4746339,532,252)
{
Point(Message)
link(onSend,2028139:doMessage,[])
link(Message,4819972:Value,[])
}
Add(Memory,4819972,553,203)
{
@Hint=#16:LVM_GETITEMCOUNT|
Default=Integer(4100)
AddHint(-160,13,129,13,@Hint)
}
Add(Message,2028139,581,252)
{
}
Add(InfoTip,11692601,154,189)
{
Info=#11:К-во иконок|
Width=498
Height=137
}
Add(WinEnum,14298425,252,266)
{
VisibleOnly=1
Point(doEnumChildWindows)
Point(onEnumChildWindows)
Point(ClassName)
link(onFindWindow,16293872:doCompare,[])
}
Add(If_else,16293872,315,266)
{
Op2=String(WorkerW)
link(onTrue,10676107:doFindChild,[])
link(Op1,14298425:ClassName,[(321,254)(293,254)(293,310)(265,310)])
}
Add(Case,1423846,427,259)
{
Value=Integer(0)
link(onNextCase,3569183:doFindChild,[])
}

карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#32: 2012-08-31 12:01:57 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-14 22:56:31
карма: 0

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#33: 2012-08-31 12:08:48 ЛС | профиль | цитата
dialin.customers.u-l.ru писал(а):
на Vista "молчит"

А про Висту никто ничего и не говорил. Элементарно же добавить проверку на Progman, что это мне за вас сделать, или сами сделаете
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#34: 2012-08-31 12:10:08 ЛС | профиль | цитата
nesco писал(а):
Вот так у меня работает
и у меня.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26170
Рейтинг: 2127
#35: 2012-08-31 12:15:27 ЛС | профиль | цитата
Вот вам универсальный вариант. Где-то, но найде то, что надо

code_28923.txt
карма: 22

0
файлы: 1code_28923.txt [1.2KB] [224]
Гость
Ответов: 17029
Рейтинг: 0
#36: 2012-08-31 13:00:54 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-14 22:56:31
карма: 0

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#37: 2012-08-31 13:22:22 ЛС | профиль | цитата
151.80.143.119 писал(а):
а от CriDos правильное к-во

Ага, но не работает на некоторых Win7. Вообще-то странно, почему не работает? И вообще странно, почему вообще что-то выдает?
------------ Дoбавленo в 13.21:
Хорошо, а вот так работает



Add(MainForm,2953706,238,224)
{
}
Add(Button,1945260,238,266)
{
Left=30
Top=75
Width=95
Height=25
link(onClick,14298425:doEnum,[])
}
Add(FindWindow,10676107,371,259)
{
ClassName="SHELLDLL_DefView"
SkipParam=1
link(onFind,1423846:doCase,[])
link(ParentHandle,14298425:Handle,[(377,247)(345,247)(345,310)(314,310)])
}
Add(FindWindow,3569183,469,252)
{
ClassName="SysListView32"
SkipParam=1
link(onFind,4746339:doSendMessage,[])
}
Add(SendMessage,4746339,609,252)
{
Point(Message)
link(onSend,2028139:doMessage,[])
link(Message,4819972:Value,[])
}
Add(Memory,4819972,630,203)
{
@Hint=#16:LVM_GETITEMCOUNT|
Default=Integer(4100)
AddHint(-160,13,129,13,@Hint)
}
Add(Message,2028139,658,252)
{
}
Add(InfoTip,11692601,210,189)
{
Info=#11:К-во иконок|
Width=575
Height=151
}
Add(WinEnum,14298425,308,266)
{
VisibleOnly=1
Point(doEnumChildWindows)
Point(onEnumChildWindows)
Point(ClassName)
link(onFindWindow,10676107:doFindChild,[])
}
Add(Case,1423846,420,259)
{
Value=Integer(0)
link(onNextCase,3569183:doFindChild,[])
}
Add(Hub,14012031,567,252)
{
link(onEvent2,14298425:doStop,[(597,265)(597,318)(296,318)(296,286)])
}
Add(Case,9835440,518,252)
{
Value=Integer(0)
}

карма: 22

0
Ответов: 1173
Рейтинг: 49
#38: 2012-08-31 13:28:18 ЛС | профиль | цитата
[offtop]А у меня вообще все варианты работают, кроме того, что из первого поста nesco на 3-ей странице -- он вообще ничего не выдаёт. [/offtop]
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#39: 2012-08-31 13:32:01 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-14 22:56:31
карма: 0

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#40: 2012-08-31 13:49:43 ЛС | профиль | цитата
151.80.143.119 писал(а):
два сообщения выводит, первое с "0", а после клика на ОК - второе с верным к-вом

Последняя схема должна работать нормально и выдавать только один раз
карма: 22

0
Ответов: 64
Рейтинг: 15
#41: 2012-08-31 15:33:13 ЛС | профиль | цитата
nesco писал(а):
Хорошо, а вот так работает

Последнее число совпадает
win xp sp3
карма: 0

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