Вверх ↑
Этот топик читают: Гость
Ответов: 84
Рейтинг: 1
#31: 2015-01-20 15:37:30 ЛС | профиль | цитата
Вот по поводу свернуть и развернуть у меня как раз и возникла проблема.
code_34947.txt
Пытаюсь скрыть окно через doVisible и нифига не выходит.
Так же пытаюсь при закрытии формы с кнопкой заставить и "калькулятор" закрываться - то же не получается.
------------ Дoбавленo в 15.37:
Galkov писал(а):
А чего на Lable-ы прицел не наводишь
Действительно, все текстовые метки имеют имя класса obj_STATIC и различить их можно только по тексту, но тексты могут повторяться - тогда засада.
карма: 1

0
файлы: 1code_34947.txt [583B] [411]
Ответов: 9906
Рейтинг: 351
#32: 2015-01-20 16:25:46 ЛС | профиль | цитата
Вот чего мой шпион показывает (в "не прицельном" режиме):
spy-1.png
Как оказалось, подзабыл я кой-чего: у аплета класс obj_App - поэтому поиску главного окна он не мешает. А вот отладочное окно Debug - может помешать запросто (у меня, видимо - так и было)
Посмотри на скриншот: owner нашего окна как раз на него и показывает.


------------ Дoбавленo в 16.25:
Про Calc.exe - ничего не скажу. У меня его тупо нету
Возможно, я его сам убил напрочь, и пользуюсь своим.
Попробую завтра на работе...

Хотя, мы ведь тоже можем заблокировать закрытие. Через верхний Close

карма: 9

0
файлы: 1spy-1.png [31.1KB] [1147]
Ответов: 84
Рейтинг: 1
#33: 2015-01-20 18:41:25 ЛС | профиль | цитата
Galkov писал(а):
Про Calc.exe - ничего не скажу. У меня его тупо нету. Попробую завтра на работе...

Уже не нужно... Я сам затупил. При поиске окна не задал критерий поиска. В результате при попытке закрыть окно я пытался закрыть что угодно, только не то что нужно.

А вот срывать/показывать окно точно не получается. Не работает у меня такая схема почему-то.


карма: 1

0
Ответов: 19
Рейтинг: 7
#34: 2015-01-20 19:09:14 ЛС | профиль | цитата
NordWest, True False 0 1

карма: 0

0
Ответов: 84
Рейтинг: 1
#35: 2015-01-21 00:12:15 ЛС | профиль | цитата
Buns, понял, был не прав. Теперь всё работает, спасибо.
карма: 1

0
Ответов: 9906
Рейтинг: 351
#36: 2015-01-21 08:32:59 ЛС | профиль | цитата
Ну да, у меня тоже все работает.
В таком виде:
Add(MainForm,13873948,385,133)
{
Width=222
Height=105
Position=1
Point(onClose)
link(onCreate,14514631:doExec,[])
link(onClose,4848648:doClose,[(428,160)(428,216)])
}
Add(WinExec,14514631,441,147)
{
FileName="Calc.exe"
link(onExec,12143191:doFind,[])
}
Add(WinEnum,12143191,504,140)
{
link(Caption,9558888:Value,[])
}
Add(Memory,9558888,504,91)
{
Default=String(Калькулятор Плюс)
}
Add(WinTools,4848648,504,189)
{
Point(doMinimize)
link(Handle,12143191:Handle,[])
}
Add(CheckBox,11862778,441,189)
{
Left=40
Top=20
Width=130
Checked=0
Caption="Калькулятор"
link(onCheck,4848648:doVisible,[])
}
карма: 9

0
Ответов: 84
Рейтинг: 1
#37: 2015-01-21 21:53:50 ЛС | профиль | цитата
Что-то у меня снова мозги закипают...
Пытаюсь применить полученные умения к проге MyDiskFix.
Пытаюсь через HiAsm поправить её интерфейс. Планировал находить элементы и подменять названия на читаемые.
Сразу скажу, что в курсе, что подобные действия обычно делают софтом для редактирования ресурсов, но в данном случае это не срабатывает - прога упакована.

Почему то "крякозяблы" в названиях негативно влияют на поиск.
Если данные для поиска вводить через компоненты "Edit" - вообще ничего не находит. Стоит отключить эти элементы от верхних точек "Caption" и прописать искомые данные прямо в компонент то главное окно проги находится, а вот дочерние окна находятся только если вообще пропускать свойство "Caption".

Ищу вот эти элементы:


code_34959.txt
карма: 1

0
файлы: 1code_34959.txt [2.5KB] [501]
Ответов: 196
Рейтинг: 43
#38: 2015-01-22 14:07:32 ЛС | профиль | цитата
NordWest писал(а):
в данном случае это не срабатывает - прога упакована.

Так там обычный UPX. Вот распакованный.
http://forum.d2h.ru/forum_serv.php?q=56&id=3863
Правьте на здоровье.
карма: 2

0
Ответов: 19
Рейтинг: 7
#39: 2015-01-22 15:31:28 ЛС | профиль | цитата
halt, каким образом, Microsoft Visual Basic 5.0 / 6.0

NordWest, примерно так

Add(MainForm,2953706,7,56)
{
Width=330
Height=114
Caption="MiniWinMon"
BorderStyle=4
Point(Handle)
Point(onClose)
}
Add(MouseEvent,13429574,196,98)
{
Point(Handle)
}
Add(Timer,19873,168,147)
{
Interval=500
link(onTimer,16579421:doData,[])
}
Add(DoData,16579421,210,147)
{
link(onEventData,6394182:doEvent1,[])
link(Data,13429574:Handle,[])
}
Add(WinInfo,10694279,350,154)
{
}
Add(Hub,16384350,301,154)
{
OutCount=3
link(onEvent1,10694279:doWinInfo,[])
link(onEvent2,11601673:doText,[(333,167)(333,209)])
link(onEvent3,4934373:doText,[(329,174)(329,251)])
}
Add(Hub,6394182,259,147)
{
link(onEvent1,11648737:doText,[(284,153)(284,62)])
link(onEvent2,16384350:doEvent1,[])
}
Add(Label,3198782,56,14)
{
Left=20
Top=10
Width=48
Height=17
Font=[MS Sans Serif,8,1,255,1]
Caption="Handle:"
}
Add(Label,13757441,63,21)
{
Left=20
Top=29
Width=70
Height=17
Font=[MS Sans Serif,8,1,255,1]
Caption="ClassName:"
}
Add(Label,2765683,70,28)
{
Left=20
Top=48
Width=51
Height=17
Font=[MS Sans Serif,8,1,255,1]
Caption="Caption:"
}
Add(Edit,11648737,294,56)
{
Left=95
Top=5
Width=225
Height=18
Color=-16777201
}
Add(Edit,11601673,350,203)
{
Left=95
Top=25
Width=225
Height=18
Color=-16777201
link(Str,10694279:ClassName,[])
}
Add(Edit,4934373,357,245)
{
Left=95
Top=45
Width=225
Height=18
Color=-16777201
link(Str,10694279:Caption,[])
}
Add(StyleXP,15618063,7,14)
{
}
Add(Switch,9452833,126,140)
{
DataOn=Integer(1)
DataOff=Integer(1)
Default=0
Point(onOn)
Point(onOff)
link(onOn,19873:doTimer,[])
link(onOff,19873:doStop,[])
}
Add(KeyHook,9386569,28,140)
{
link(onKeyDown,11771475:doCheckMask,[])
}
Add(KeyMask,11771475,77,140)
{
Alt=1
Key=49
link(onTrue,9452833:doSwitch,[(117,153)(117,146)])
}
Add(Edit,7484158,168,231)
{
Left=95
Top=65
Width=225
Height=18
Color=-16777201
Text=""Текст для исправления""
}
Add(Button,2903955,119,280)
{
Left=20
Top=65
Width=65
Height=18
TabOrder=-1
Caption="Заменить"
link(onClick,1878384:doData,[])
}
Add(DoData,1878384,168,280)
{
link(onEventData,11654446:doEvent1,[(216,286)(216,314)])
link(Data,7484158:Text,[])
}
Add(WinTools,10039688,252,280)
{
Point(doCaption)
Point(doRedraw)
link(Handle,10144723:Var,[])
}
Add(LineBreak,13817967,294,98)
{
Type=1
link(Data,11648737:Text,[])
Primary=[10144723,-42,154]
}
Add(Hub,11654446,224,308)
{
link(onEvent1,10039688:doCaption,[])
link(onEvent2,10039688:doRedraw,[])
}
Add(Label,6244717,147,28)
{
Left=5
Top=5
Width=11
Height=17
Color=12632256
Font=[MS Sans Serif,8,1,0,1]
Hint="Help"
Caption="?"
link(onClick,13841724:doMessage,[])
}
Add(Message,13841724,196,28)
{
Message="Находим окно
жмём Alt + 1
Заполняем поле
"Текст для исправления"
Нажимаем заменить
И так далее
buns."
Caption="Info"
}

Английский перевод с просторов интернета
MyDiskFix.jpg
карма: 0

0
Ответов: 233
Рейтинг: 12
#40: 2017-02-19 14:58:30 ЛС | профиль | цитата
Кто нибудь пробовал считывать текст из Notepad++ ? Почему то получаю вместо текста ????
Менял по разному кодировку но ничего не помогает

Редактировалось 2 раз(а), последний 2017-02-19 17:26:09
карма: 2

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