Select Case fGetLong(DebEv.dwData, 3)''DebEv.u.Exception.ExceptionRecord.ExceptionCode
Case EXCEPTION_BREAKPOINT:
dwStatus = DBG_CONTINUE
Select Case Bpcount:
Case 0:
Debug.Print "Breakpoint Surntdll.DbgBreak(c normal): &H" & Hex(fGetLong(DebEv.dwData, 15))
Bpcount = Bpcount + 1
Case 1:
Debug.Print "endof debug"
Ret =WriteProcessMemory(lpPi.hProcess, ByVal OEP, ByVal VarPtr(BytesEP(0)), 1, 0)
Ret =TerminateProcess(lpPi.hProcess, 0)
GoTo Exit1
End Selectt]
Case EXCEPTION_ACCESS_VIOLATION:'//don't care about THE SEH !
dwStatus =DBG_EXCEPTION_NOT_HANDLED
Case Else:
dwStatus = DBG_CONTINUE
End Select
End Select
