c# - 当我的类库函数被调用时，有什么方法可以自动进入调试器吗？

Question

我有一个托管类库(例如 mylib.dll)和一个使用 mylib.dll 的第三方托管应用程序(例如 app.exe)。我有 mylib.dll 的代码，但没有 app.exe 的代码。所以目前我所做的是构建 mylib.dll，将其复制到 app.exe 的目录，启动 app.exe 并附加到进程。这样，如果我在代码 mylib.dll 中放置断点，我就会看到它们被击中了。但是，无论何时任何外部应用程序调用其公开的方法之一，是否都会自动中断 mylib.dll 的代码？ IE。仅适用于 dll 的入口点。

谢谢，米沙尔

Answer 1

在 Project -> Properties -> Debug -> Start Action 下，您应该指定选项 Start external program 并输入您的 app.exe 的路径。这应该会启动带有调试器的 app.exe。

另见 How to: Change the Start Action for Application Debugging

更新:Visual Studio 中的断点要么绑定(bind)到特定位置(即源文件中的特定代码行)，要么绑定(bind)到函数名称。因此，只要调用程序集中的函数，您基本上有两个选项可以中断:在所有函数声明或所有函数名称上放置断点(调试 -> 新断点 -> 在函数名称上中断) .不幸的是，后一个选项需要完整的函数名称并且不允许使用通配符。

您可能考虑的另一种选择是将 Debug.Assert(false) 放在所有库函数的开头。

另一种选择是使用 Visual Studio 宏。下面的宏遍历您的代码 DOM 并向所有公共(public)方法和属性添加断点:

Option Strict Off
Option Explicit Off
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports System.Diagnostics
Imports System.Windows.Forms

Public Module Breakpoints

    Sub AddBreakpointsToAllFunctionsAndProperties()
        Try
            If DTE.ActiveSolutionProjects.Length <> 1 Then
                MsgBox("Select one project within the Solution Explorer, then re-run this macro.")
                Exit Sub
            End If

            AddBreakpointsToProject(DTE.ActiveSolutionProjects(0))
        Catch ex As System.Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub

    Private Sub AddBreakpointsToProject(ByVal proj As Project)
        For i As Integer = 1 To proj.ProjectItems.Count
            If Not proj.ProjectItems.Item(i).FileCodeModel Is Nothing Then
                AddBreakpointsToProjectItems(proj.ProjectItems.Item(i).FileCodeModel.CodeElements)
            End If
        Next
    End Sub


    Private Sub AddBreakpointsToProjectItems(ByVal colCodeElements As CodeElements)
        Dim objCodeElement As EnvDTE.CodeElement

        If Not (colCodeElements Is Nothing) Then
            For Each objCodeElement In colCodeElements
                AddBreakpointsToProjectItem(objCodeElement)
            Next
        End If
    End Sub

    Private Sub AddBreakpointsToProjectItem(ByVal objCodeElement As CodeElement)

        Dim objCodeNamespace As EnvDTE.CodeNamespace
        Dim objCodeType As EnvDTE.CodeType
        Dim objCodeFunction As EnvDTE.CodeFunction
        Dim objCodeProperty As EnvDTE.CodeProperty

        Try
            'MessageBox.Show(objCodeElement.FullName & " (Kind: " & objCodeElement.Kind.ToString & ")")

            If objCodeElement.Kind = vsCMElement.vsCMElementFunction Then
                objCodeFunction = DirectCast(objCodeElement, EnvDTE.CodeFunction)
                If objCodeFunction.Access = vsCMAccess.vsCMAccessPublic Then
                    DTE.Debugger.Breakpoints.Add(objCodeElement.FullName)
                End If
            ElseIf objCodeElement.Kind = vsCMElement.vsCMElementProperty Then
                objCodeProperty = DirectCast(objCodeElement, EnvDTE.CodeProperty)
                DTE.Debugger.Breakpoints.Add(objCodeElement.FullName)
            End If
        Catch ex As System.Exception
            ' Ignore
        End Try

        If TypeOf objCodeElement Is EnvDTE.CodeNamespace Then
            objCodeNamespace = CType(objCodeElement, EnvDTE.CodeNamespace)
            AddBreakpointsToProjectItems(objCodeNamespace.Members)
        ElseIf TypeOf objCodeElement Is EnvDTE.CodeType Then
            objCodeType = CType(objCodeElement, EnvDTE.CodeType)
            AddBreakpointsToProjectItems(objCodeType.Members)
        ElseIf TypeOf objCodeElement Is EnvDTE.CodeFunction Then
            objCodeFunction = DirectCast(objCodeElement, EnvDTE.CodeFunction)
            AddBreakpointsToProjectItems(CType(objCodeElement, CodeFunction).Parameters)
        End If
    End Sub

End Module