Сабклассинг без падений

Мдя
Причина то и у тебя и у меня очевидна - ret из "стабовой" процедуры кидает в выгруженный код отлаживаемой программы. Что тут делать, нужно думать

Добавлено 03.05.09, 17:44
Вообще есть очень простое решение - проверять в процедуре wndproc адрес возврата, если он указывает на неправильный код, запускать message pumping
Со временем это конечно немного нарастит потребляемую IDE память, но по крайней мере работать будет

ANDLL
А можно чуть подробнее? Я так понимаю, что адрес возврата можно как-то получить по адресу то ли первого, то ли последнего аргумента? (или нет?)

Собственно, чтобы определить, что вызван энд, может быть даже достаточно того, что EbMode вернула 0?

А message pumping - это что? и как его запустить?

Цитата Артур @ 03.05.09, 18:44

Собственно, чтобы определить, что вызван энд, может быть даже достаточно того, что EbMode вернула 0?

Поэкспирементируй, должно быть достаточно

Цитата Артур @ 03.05.09, 18:44

Я так понимаю, что адрес возврата можно как-то получить по адресу то ли первого, то ли последнего аргумента? (или нет?)

Да, но идея все равно ошибочная, забей

Цитата Артур @ 03.05.09, 18:44

А message pumping - это что? и как его запустить?

Вобщем вероятно в конце твоего wndproc должен быть код в стиле
if ebmode=0 then'(или какое там число свидетельствует о нажатии reset\end)
do while getmessage(...)
translatemessage(...)
dispatchmessage(...)
loop
exitthread(0)'Все равно корректно стек уже не раскрутится
endif

Цитата ANDLL @ 03.05.09, 18:48

'Все равно корректно стек уже не раскрутится

То есть, если энд, то просто гоняем цикл, пока бейсик не закроют естественным путём? как-то так, что ли? Или я не понял?

Я что-то такое и предполагал - в class_terminate вызывал меседжебокс и пока этот бокс висел, среда жила. Я заменил msgBox на MessageBox. Пока бокс висит, среда живет... И ИДЕ доступна... но запуск так и не остановился Как бокс закрываю, бейсик дохнет.

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

Добавлено 03.05.09, 19:59
В общем, попробова. При таком подходе проблема - недоостанов проекта. То есть, закрыть отладчик я теперь могу, а доостановить - нет Это и понятно - ИДЕ недоостановится, пока недоостановится подключенная к проекту библиотека, а библиотека не выгружается дожидаясь ИДЕ.

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

Сообщение отредактировано: Артур - 03.05.09, 20:13

Не, тут дело в другом, но раз не работает, то увы. Других идей вроде нет

Есть подозрение, что даже если ты среду закрываешь, то процесс висеть останется, поскольку msg-loop будет крутиться.

Нет, почему?

Цитата ANDLL @ 04.05.09, 10:22

но раз не работает, то увы

Нет, почему же - в общем-то, работает, просто не совсем так, как бы хотелось

Цитата ANDLL @ 04.05.09, 10:22

Других идей вроде нет

Жаль

Пока сделал так: Если нажать энд, будет выскакивать сообщение, что, мол, при субклассинге энд - не хорошо, и больше, мол, так не делайте. Бейсик закроется (предложив сохраниться, если нужно) и выдаст сообщение, мол, а не хотите ли перезагрузить проект.

'это в Class_Terminate
   If killEnd Then 'если нас убивали эндом и субклассинг уже снят
        MsgBox "Ай-яй-яй, не нужно использовать End при субклассинге! Библиотека в этом случае не может предотвратить выгрузку бейсика. Но вы сможете сохранить изменения, если они были."
        Dim s As String
          s = GetMyCommandLine
 
        
        SendMessage hwBs, WM_CLOSE, 0, ByVal 0 'Если это закомментировать,
                                  'бейсик не вылетает, но и остонов до конца не останавливается :(
        Dim ms As MSG
        Do While GetMessage(ms, 0, 0, 0)
          TranslateMessage ms
          DispatchMessage ms
        Loop
        If MsgBox("Хотите перезапустить этот же проект?", vbYesNo) = vbYes Then
          Shell s, vbNormalFocus
        End If
        ExitThread 0
 
   End If

Цитата ANDLL @ 04.05.09, 11:39

Нет, почему?

Делал как-то программку, которая UEH на свой меняла, вскидывала окошко с предложением продолжить выполнение на свой страх и риск, после чего закручивала цикл msg. Многие приложения продолжали корректно работать, но вот после закрытия окна, процесс оставался, ибо луп крутился. (В подробности затем не вдавался, поскольку забил на это дело).

Странно что он крутился-то... Обычно программы желая выйти вызывают postquitmessage и тогда цикл завершается. Наверное там чтото другое висло?

Нашел пример, который не рушится ни при каких эндах

В нем, как обычно, асм...
Из примера выбросил всё, что только смог - чтобы остался только непадающий субклассинг. Но оригинал тоже прилагаю

Гляньте, кто в Асме понимает: в чем там фишка?

Сообщение отредактировано: Артур - 07.05.09, 19:29

Прикреплённый файлSubclass.zip (145.25 Кбайт, скачиваний: 1056)

Дык в комментах написано

Цитата

IDE has stopped, unsubclass the window

да, но я в своем варианте тоже снимаю субклассинг - а оно всё равно падает

добавлено:

блинн... в прошлом топике положил неполный архив - без того класса, который "упростил". Перезалил

Сообщение отредактировано: Артур - 07.05.09, 19:34

Господа, а каже быть с офисом 2010. Ведь там нет vba6.dll в котрой сидит ebMode. VBA там 7-й версии да и vba7.dll тоже нет, нашел только vbe7.dll но ebMode там нет, подскажите как быть, как заставить рабоать все это на 2010 офисе?

ну что нет никаких вариантов?