Как сделать чтобы прога с сабклассингом не падала в IDE

[jangle]

Забыл уже как. В гугле ссылки мертвые.

[The trick]

Убирать сабклассинг перед закрытием проги, или через асм-вставку можно

[jangle]

Убирать сабклассинг перед закрытием проги, или через асм-вставку можно

Пример?

[The trick]

Да какой пример то? Вызывай Unhook перед закрытием и все (не останавливай проект кнопкой стоп). До этого стояла WinXP - вылетало при нажатии "стоп" (бывает забудешь или ошибка какая), недавно поставил Win7 x64 перестало, теперь торможу сабклассинг как хочу (хотя 7-ка честно не нравится мне).

[jangle]

Если проект валится с ошибкой в коде? Как я могу его не останавливать?

[The trick]

Если проект валится с ошибкой в коде? Как я могу его не останавливать?

Ну тык должно без ошибок быть. Запусти оконную процедуру перед сабклассингом напрямую и посмотри что за ошибка, либо если все нормально On error и смотри код ошибки через Debug.Print, брейкпоинт поставить тоже можно, не забывая DefWindowProc или CallWindowProc выполнять.

[Хакер]

jangle, тут arthur2 целый труд написал на эту тему. Ищи его топик.

Кстати, напомню, что причина падения в баге IDE. При остановке проекта все высунутые наружу процедуры не уничтожаются, а просто, так сказать «переводятся стрелки», чтобы они не выполнялись, а сразу эмулировался выход из них. Вот эта эмуляция делает неправильный retn — всегда делается retn 0 независимо от кол-ва аргументов, к которой относится переходничок. Переходнички генерируются средой на лету и там предусмотрено правильное выставление «аргумента» для retn, но то, откуда берётся значение — это поле тоже почему-то всегда содержит ноль.

Можно написать плагин, который исправляет это.

[jangle]

Хакер спасибо! Код работает.

Код: Выделить всё

Option Explicit

Public Event KeyDown(ByVal KeyCode As Long)

Private Const WM_KEYDOWN As Long = &H100
Private Const cNull As Long = &H0

Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Const AsmMain As String = "558BEC83C4FC8D45FC50FF7514FF7510FF750CFF75086800000000B800000000FFD08B45FCC9C21000"

'    0  1  2  3  4  5  6  7    8  9  A  B  C  D  E  F
' ---------------------------------------------------
'|  55 8B EC 83 C4 FC 8D 45   FC 50 FF 75 14 FF 75 10
'|  FF 75 0C FF 75 08 68 00   00 00 00 B8 00 00 00 00
'|  FF D0 8B 45 FC C9 C2 10   00


Private OldCtl      As Long, OldCtl1     As Long
Private ASM_Ctl()   As Byte
Private ASM()   As Byte
Dim mHwnd As Long, mHwnd1 As Long

'адрес этой функции получается по номеру ProcNumber
Public Function winProc0(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Select Case uMsg
  Case WM_KEYDOWN
    RaiseEvent KeyDown(wParam)
  End Select
   winProc0 = CallWindowProc(OldCtl, hWnd, uMsg, wParam, lParam)
End Function

'адрес этой функции получается по номеру ProcNumber
Public Function winProc1(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'  Select Case uMsg
'  Case WM_KEYDOWN
'    RaiseEvent KeyDown(wParam)
'  End Select
   winProc1 = CallWindowProc(OldCtl, hWnd, uMsg, wParam, lParam)
End Function

Public Function Hook(ByVal hWnd As Long)
  mHwnd = hWnd
  Call StartSubclass(hWnd, OldCtl, 0)
End Function


Private Sub StartSubclass(ByVal hWnd As Long, _
                          ByRef OldWndProc As Long, _
                          ByVal ProcNumber As Long)
  Dim lng As Long
  Dim tPtr As Long

  ASM = ASM_Ctl
  Call CopyMemory(tPtr, ByVal ObjPtr(Me), 4&)
  Call CopyMemory(lng, ByVal tPtr + &H1C + (4& * ProcNumber), 4&)
  Call CopyMemory(ASM(23), ObjPtr(Me), 4&)
  Call CopyMemory(ASM(28), lng, 4&)
  OldWndProc = SetWindowLong(hWnd, &HFFFC, VarPtr(ASM(0)))

' ProcNumber - номер функции в этом  классе, начиная сверху по порядку вниз...
End Sub

Public Sub Unhook()
  If OldCtl Then Call SetWindowLong(mHwnd, &HFFFC, OldCtl)
End Sub


Private Sub Class_Initialize()
  Dim lng As Long
  Dim tPtr As Long
  lng = Len(AsmMain) \ 2&
  ReDim ASM_Ctl(cNull To lng - vbNull)
  For lng = cNull To lng - vbNull
    ASM_Ctl(lng) = Val("&H" & Mid$(AsmMain, (lng) * 2& + vbNull, 2&))
  Next

End Sub

Private Sub Class_Terminate()
  Call Unhook
End Sub

[Хакер]

За такой код надо убивать. Не-DEP-compatible.

[jangle]

За такой код надо убивать. Не-DEP-compatible.

Чем это может грозить? Проверил проект на 3 машинах с Win7, Win8, Win8.1 везде работает без сбоев

[The trick]

Ты почитай тот пост весь до конца, целесообразней использовать вставку Хакера, с небольшой доработкой. Насчет DEP, можно создать кучу с разрешением на выполнение и в массиве поменять указатель на данные на адрес выделенной из этой кучи памяти. В таком случае можно работать через массив напрямую в разрешенной для области выполнения. Тут был пост про побитовый сдвиг, там можешь пример посмотреть. Только перед всеми манипуляциями надо сначала выделить размер, а после всего поменять все назад.
Кстати к чему это вообще? Для чего весь изврат для вызова внутри класса? Чем стандартный модуль не устраивает? Если есть ошибки внутри кода в модуле, также они будут и в модуле класса. Если у тебя все заработало через класс, значит скорее всего что-то ты с параметрами WindowProc намудрил. Мой пример с RichTextBox'ом работает? Вылетает?

[Хакер]

Чем это может грозить?

Ясное дело чем:

crappy_code_crashing_with_dep.png (9.59 Кб) Просмотров: 7934

Проверил проект на 3 машинах с Win7, Win8, Win8.1 везде работает без сбоев

Это говорит лишь о том, что DEP не поддерживается там процессором или же выключен в настройках ОС для прикладных программ.

[jangle]

Посмотрел настройки на всех машинах, DEP включен по дефолту только для программ и служб Windows.
Думаю особо беспокоится не о чем.

[alibek]

Думаю особо беспокоится не о чем.

viewtopic.php?t=41756

[jangle]

Ты почитай тот пост весь до конца, целесообразней использовать вставку Хакера, с небольшой доработкой. Насчет DEP, можно создать кучу с разрешением на выполнение и в массиве поменять указатель на данные на адрес выделенной из этой кучи памяти. В таком случае можно работать через массив напрямую в разрешенной для области выполнения. Тут был пост про побитовый сдвиг, там можешь пример посмотреть. Только перед всеми манипуляциями надо сначала выделить размер, а после всего поменять все назад.
Кстати к чему это вообще? Для чего весь изврат для вызова внутри класса? Чем стандартный модуль не устраивает? Если есть ошибки внутри кода в модуле, также они будут и в модуле класса. Если у тебя все заработало через класс, значит скорее всего что-то ты с параметрами WindowProc намудрил. Мой пример с RichTextBox'ом работает? Вылетает?

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

[iGrok]

Чем это может грозить?

Ничем, пока твоему софту не понадобится работать на любой серверной ОС, или просто на машине с включенным DEP (как у Хакера, или, например, у меня).
А к тому времени, как понадобится, ты и думать забудешь про какой-то там DEP. Так что happy debugging !

[Хакер]

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

Отличный пример того, как не надо делать. У тебя есть шанс сделать 5 дополнительных вызовов, или даже один (VirtualProtect), чтобы встать на правильный путь. Или ты можешь использовать свой ужасный подход, но применить мой трюк для проверки работы под IDE, чтобы этот неверный код не попадал в скомпилированную версию.

[jangle]

Хакер - выложи если не трудно пример кода. Этим проектом я завершаю карьеру VB-программиста, хочется все сделать красиво.

[Хакер]

Без примеров. Нужно вызвать HeapCreate с флагом ALLOW_EXECUTE (написанание без префиса, префикс не помню), затем в ней HeapAlloc'ом выделить память и уже в эту память писать любой native-код.

По ненадобности кусочек кучи с кодом освобождается вызовом HeapFree, а сама куча уничтожается вызовом HeapDestroy.

[jangle]

Без примеров. Нужно вызвать HeapCreate с флагом ALLOW_EXECUTE (написанание без префиса, префикс не помню), затем в ней HeapAlloc'ом выделить память и уже в эту память писать любой native-код.

По ненадобности кусочек кучи с кодом освобождается вызовом HeapFree, а сама куча уничтожается вызовом HeapDestroy.

Ок, напишу код и выложу сюда

[The trick]

jangle, Вы мой пост проигнорировали чтоли? Я Вам написал где посмотреть как правильно сделать. viewtopic.php?f=1&t=44779
К тому же непонятен смысл всех этих манипуляций? Зачем нужна ассемблерная вставка если Вы не хотите "напрягать мозги" и не понимаете как это работает? Делайте в обычном модуле, у Вас меньше головной боли будет.

[bon818]

А если просто сабклассинг перенести в OCX , и убирать обратно в код после отладки

[Qwertiy]

Этим проектом я завершаю карьеру VB-программиста

Почему? А что дальше?

[jangle]

Этим проектом я завершаю карьеру VB-программиста

Почему? А что дальше?

Давно уже пишу на тяжеловесном шарпе. Долго пришлось преодолевать отвращение к дотнету, но я справился)

[Хакер]

Кстати, перед тем, как выдать такое окошко, как я выше приаттачил, всё-таки выдаётся ещё вот такое:

dep_warning_snagit.png (15.94 Кб) Просмотров: 7843

Так что пожелание «Happy debugging», к сожалению одних и радости других, предвещает не такую уж мучительную отладку.

[iGrok]

Так что пожелание «Happy debugging», к сожалению одних и радости других, предвещает не такую уж мучительную отладку.

Это на XP. На Vista+ по DEP-исключению софт сразу падает с ошибкой и без каких-либо внятных комментариев.
Хотя, конечно, по имени ошибки (BEX) всё равно сходу гуглится "решение" по которому можно догадаться о причине проблемы.
Впрочем, иногда они падают и с APPCRASH, и там уже по коду ошибки догадаться о реальной причине в принципе невозможно.

[Хакер]

Это на XP. На Vista+ по DEP-исключению софт сразу падает с ошибкой и без каких-либо внятных комментариев.

Если это так, то кто ещё мне скажет, что Vista+ это прогресс по сравнению с XP?..

[iGrok]

[offtop]

Если это так, то кто ещё мне скажет, что Vista+ это прогресс по сравнению с XP?..

Про то, как выглядят BSOD-ы в Win8 ты же слышал уже?
И да, с определённой точки зрения это прогресс, т.к. домохозяек больше не смущают лишней информацией. Прям будто Джоэлевское руководство по дизайну UI прочитали. Соответственно, с точки зрения неподготовленного пользователя система становится проще и удобнее. А кто у них основная масса покупателей сейчас? Вот-вот..
Другой вопрос, что нужно было не прибивать эту информацию нафиг, а спрятать за каким-нибудь "подробнее", или хотя бы запрятать включение отображения подробных сообщений в настройки системы. Но тогда стало бы меньше поводов ругать майкрософт.
Ну а про равнение десктопных ОС на планшеты и сенсорное управление я лучше вообще промолчу...
[/offtop]

[jangle]

Кстати, перед тем, как выдать такое окошко, как я выше приаттачил, всё-таки выдаётся ещё вот такое:


Так что пожелание «Happy debugging», к сожалению одних и радости других, предвещает не такую уж мучительную отладку.

Код: Выделить всё

'API In General Declaration Section
Private Declare Function SetProcessDEPPolicy Lib "Kernel32.dll" (ByVal dwFlags As Long) As Long

'To Disable DEP
SetProcessDEPPolicy(0)

'To Enable DEP
SetProcessDEPPolicy(1)


ВНЕЗАПНО! Я просто отключу DEP для своей программы

[Qwertiy]

Private Declare Function SetProcessDEPPolicy Lib "Kernel32.dll" (ByVal dwFlags As Long) As Long

Что-то мне подсказывает, что она не будет работать без админских прав... Хотя не знаю. Ты не проверял?