SetUnhandledExceptionFilter в VB

[xenomorph]

Привет всем!

Установка глобального обработчика ошибок

Прогуглился - не нашёл.

Кто-нить сталкивался с SetUnhandledExceptionFilter?
Дайте пожайлуста код с примером \ пошлите по ссылке.
--
Заранее спасибо!

[keks-n]

ЛОЛ. А в API-Guide что?

[Sebas]

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

Declare Function SetUnhandledExceptionFilter Lib "kernel32" (ByVal lpTopLevelExceptionFilter As Long) As Long

Type EXCEPTION_POINTERS
    pExceptionRecord As Long
    pContextRecord As Long
End Type

Type EXCEPTION_RECORD
    ExceptionCode As Long
    ExceptionFlags As Long
    pExceptRecord As Long
    ExceptionAddress As Long
    NumberParameters As Long
    ExceptionInformation(2) As Long
End Type

'using
SetUnhandledExceptionFilter AddressOf GPF_Exception

Function GPF_Exception(ByRef lpExceptionPointers As EXCEPTION_POINTERS) As Long
'Не ставить обработчик ошибок!!!!!!!!!

    Err.Raise 1, , "General Protection Failure"

End Function

[tyomitch]

xenomorph, раз.

tag_warning

[xenomorph]

2 Sebas
--
ОНО! Пасибо Большое и красивое!

[xenomorph]

2 Sebas:

эээ - а почему оно НЕ ВСЁ обрабатывает?

я ему скормил Msgbox 2 / 0,

а оно НЕ перехватівает еррор. Вай?
(в ассемблере - всё перехватывало ...) ...
--
Пытаюсь накодить SEH вставочку для ВСЕГО приложения,
а не тыкать где ни попадя On Error ///
--
Module:

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

Option Explicit
Declare Function SetUnhandledExceptionFilter Lib "kernel32" (ByVal lpTopLevelExceptionFilter As Long) As Long
Type EXCEPTION_POINTERS
    pExceptionRecord As Long
    pContextRecord As Long
End Type
Type EXCEPTION_RECORD
    ExceptionCode As Long
    ExceptionFlags As Long
    pExceptRecord As Long
    ExceptionAddress As Long
    NumberParameters As Long
    ExceptionInformation(2) As Long
End Type

Public Sub SetSEH()
    SetUnhandledExceptionFilter AddressOf GPF_Exception
End Sub
Function GPF_Exception(ByRef lpExceptionPointers As EXCEPTION_POINTERS) As Long
'Не ставить обработчик ошибок!!!!!!!!!
    Err.Raise 1, , "General Protection Failure"
End Function


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

Option Explicit
Private Sub Form_Load()
    Call SetSEH
    Call Test
End Sub
Private Sub Test()
    MsgBox 2 / 0
End Sub


Где криво?
--
Пасиб!

[xenomorph]

p.s. то же касается примера из АПИ гайда ...

конструкции типа:

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

MsgBox CLng("123sdf123")

неинициализированые объекты ...

и т.п. НЕ перехватываются SetUnhandledExceptionFilter
т.е. глобальный перехватчик не поставить?

ВБ втыкает свою обработку?
т.е. SetUnhandledExceptionFilter - до лампочки?[/code]

[tyomitch]

ВБ втыкает свою обработку?
т.е. SetUnhandledExceptionFilter - до лампочки?

Ессно. Кучу раз это обсуждалось.

[Sebas]

xenomorph

Ошибка VB не есть ошибка защиты виндовс.