当前位置：文江博客话题详情

如何在WinDbg中查看VB6控制级变量？

发布于 2024-12-27 11:57:27 字数 209 浏览 0 评论 0原文

我有一个崩溃文件，在其中我可以看到我自己的 VB6 用户控件之一导致了崩溃；即它的方法之一是堆栈跟踪的一部分，我可以看到负责的行。

从这里，我想检查其成员变量的状态。我该怎么做？

注意：我还有控件的私有符号。问题是能够检查“我”。命令 !object address_of_Me 似乎没有达到目的，所以我不知所措。

谢谢。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

长途伴 2025-01-03 11:57:27

自从我不得不在 VB6 中执行此操作以来已经有 10 年了，但我记得我过去的生活中有很多 Printer.Print 语句:)

我曾经做过这样的事情来调试（但不是为了发布代码）

Sub MySub
    On Error Goto ErrorTrap
    Dim intX as integer
    Dim intY as integer

    ' do some horrible error here

Exit Sub

ErrorTrap:
    Printer.Print "Error"
    Printer.Print intX
    Printer.Print intY
    Printer.Print ...

End Sub

It's been 10 years since I had to do this in VB6, but I remember a lot of Printer.Print statements in my past life :)

I used to do things like this for debugging (but not for release code)

Sub MySub
    On Error Goto ErrorTrap
    Dim intX as integer
    Dim intY as integer

    ' do some horrible error here

Exit Sub

ErrorTrap:
    Printer.Print "Error"
    Printer.Print intX
    Printer.Print intY
    Printer.Print ...

End Sub

回复收藏 0 原文

随遇而安 2025-01-03 11:57:27

好吧，codeSMART 有一个选项在您的应用程序上安装全局句柄，第一次调用 SetUnhandledExceptionFilter (win api) 应该在加载模块主窗体或关闭程序时安装，因此调用 SetUnhandledExceptionFilter。

代码有点长，所以复制方法名称 y api 调用

Public Sub InstallGlobalHandler()
On Error Resume Next

If Not lnFilterInstalled Then
    Call SetUnhandledExceptionFilter(AddressOf GlobalExceptionHandler)
    lnFilterInstalled = True
End If
End Sub

Public Sub UninstallGlobalExceptionHandler()
On Error Resume Next

If lnFilterInstalled Then
    Call SetUnhandledExceptionFilter(0&)
    lnFilterInstalled = False
End If
End Sub

这里还有模块的记录结构 y api 声明

- CopyMemory 
- SetUnhandledExceptionFilter
- RaiseException
' Public enums
-EExceptionType
-EExceptionHandlerReturn    
-Private Const EXCEPTION_MAXIMUM_PARAMETERS = 15
' Private record structure
-Private Type CONTEXT      
'Structure that describes an exception.
-Private Type EXCEPTION_RECORD
'Structure that contains exception information that can be used by a debugger.
-Private Type EXCEPTION_DEBUG_INFO
-Private Type EXCEPTION_POINTERS

进行修改如何将 exe 异常路由回 VB6 应用程序？

well, codeSMART have one option install global handle on your application first call to SetUnhandledExceptionFilter (win api) is should be installed when load your module main or master form when is closing the program so call to SetUnhandledExceptionFilter.

The code is little long so copy methods names y api calls

Public Sub InstallGlobalHandler()
On Error Resume Next

If Not lnFilterInstalled Then
    Call SetUnhandledExceptionFilter(AddressOf GlobalExceptionHandler)
    lnFilterInstalled = True
End If
End Sub

Public Sub UninstallGlobalExceptionHandler()
On Error Resume Next

If lnFilterInstalled Then
    Call SetUnhandledExceptionFilter(0&)
    lnFilterInstalled = False
End If
End Sub

Also here is Record Structure y apis declarations for the module

- CopyMemory 
- SetUnhandledExceptionFilter
- RaiseException
' Public enums
-EExceptionType
-EExceptionHandlerReturn    
-Private Const EXCEPTION_MAXIMUM_PARAMETERS = 15
' Private record structure
-Private Type CONTEXT      
'Structure that describes an exception.
-Private Type EXCEPTION_RECORD
'Structure that contains exception information that can be used by a debugger.
-Private Type EXCEPTION_DEBUG_INFO
-Private Type EXCEPTION_POINTERS

Take a revised that How to route the exe exception back to VB6 app?

回复收藏 0 原文

~没有更多了~