正在翻译VB的源码又遇到问题了，不得不再次求助大家，希望大家能帮助下，或者提供思路。谢谢
case EXCEPTION_DEBUG_EVENT:
{
if((DWORD)DebugEv.u.Exception.ExceptionRecord.ExceptionAddress==WAR3_BREAK_ADDRESS)
{
number++;
HANDLE hThread = OpenThread(THREAD_ALL_ACCESS, FALSE, DebugEv.dwThreadId);
SuspendThread(hThread);
CONTEXT Regs = {0};
Regs.ContextFlags = CONTEXT_DEBUG_REGISTERS|CONTEXT_INTEGER;
::GetThreadContext(hThread, &Regs);
Regs.Esi=Regs.Esi+4;
Regs.Dr0=WAR3_BREAK_ADDREST;
Regs.Dr7=BREAK_OPEN;
::SetThreadContext(hThread, &Regs);
ResumeThread(hThread);
CloseHandle(hThread);
}
if((DWORD)DebugEv.u.Exception.ExceptionRecord.ExceptionAddress==WAR3_BREAK_ADDREST)
{
HANDLE hThread = OpenThread(THREAD_ALL_ACCESS, FALSE, DebugEv.dwThreadId);
SuspendThread(hThread);
CONTEXT Regs = {0};
Regs.ContextFlags = CONTEXT_DEBUG_REGISTERS|CONTEXT_INTEGER;
::GetThreadContext(hThread, &Regs);
Regs.Dr0=WAR3_BREAK_ADDRESS;
Regs.Dr7=BREAK_OPEN;
::SetThreadContext(hThread, &Regs);
ResumeThread(hThread);
CloseHandle(hThread);
}
dwContinueStatus = DBG_CONTINUE;
break;
}
