切换“抛出异常时中断”。 使用宏或键盘快捷键

Question

编辑：Visual Studio 2015 的新异常窗口比 我不再关心使用键盘的旧对话框 它的快捷方式。

是否有宏或键盘快捷键可以在不使用 GUI 的情况下切换“抛出异常时中断”？

使用 ctrl+alt+e 打开对话框并选中“公共语言运行时异常”“抛出”框，然后单击“确定”非常简单，但这是我经常做的事情。 我宁愿有一个键盘快捷键。

这个问题是重复的 任何有视觉效果用于在已处理/未处理的异常上切换中断的 Studio 快捷方式/宏？

但是，发布者接受了一个实际上不起作用的答案，我真的很想要一个确实有效的答案。

重复问题中的答案是不可接受的，因为它仅切换一个特定的异常，而不是整个 CLR 组。

“那就写一个循环吧。” 你说。 但没那么快！ 已经有人尝试过 而且速度慢得毫无用处。 （是的，我已经验证它在我的系统上也很慢。）

因此，挑战是使用宏在不到 1 或 2 秒的时间内切换整个 CLR 异常类别。 这个问题是重复的 任何有视觉效果用于在已处理/未处理的异常上切换中断的 Studio 快捷方式/宏？

Answer 1

与其他答案非常相似，但该组有一个特殊的 ExceptionSetting。

Dim dbg As EnvDTE90.Debugger3 = DTE.Debugger
Dim exSettings As EnvDTE90.ExceptionSettings = dbg.ExceptionGroups.Item("Common Language Runtime Exceptions")
Dim exSetting As EnvDTE90.ExceptionSetting
Try
    exSetting = exSettings.Item("Common Language Runtime Exceptions")
Catch ex As COMException
    If ex.ErrorCode = -2147352565 Then
        exSetting = exSettings.NewException("Common Language Runtime Exceptions", 0)
    End If
End Try

If exSetting.BreakWhenThrown Then
    exSettings.SetBreakWhenThrown(False, exSetting)
Else
    exSettings.SetBreakWhenThrown(True, exSetting)
End If

Answer 2

我创建了一个免费的 Visual Studio 扩展，可以可靠地做到这一点： Exception Breaker< /a>.
它使用未记录的 IDebugSession2.SetException 调用，速度非常快：所有异常都在 20 到 60 毫秒内设置/取消设置。

Answer 3

这是 Bryce Kahle 的非常有用的宏，盲目更新为在 VS2010 中运行：

Sub ToggleExceptions()
    Dim dbg As EnvDTE100.Debugger5 = DTE.Debugger
    Dim exSettings As ExceptionSettings = dbg.ExceptionGroups.Item("Common Language Runtime Exceptions")
    Dim exSetting As ExceptionSetting
    Try
        exSetting = exSettings.Item("Common Language Runtime Exceptions")
    Catch ex As COMException
        If ex.ErrorCode = -2147352565 Then
            exSetting = exSettings.NewException("Common Language Runtime Exceptions", 0)
        End If
    End Try

    If exSetting.BreakWhenThrown Then
        exSettings.SetBreakWhenThrown(False, exSetting)
    Else
        exSettings.SetBreakWhenThrown(True, exSetting)
    End If

End Sub

Answer 4

嗯，我写了一个基于 VS2008 C# 的插件，可以切换 386 个异常，每个状态切换大约需要 1 秒。 我假设这是由于 COM 互操作造成的。

这是基于您的链接之一中的 VB/宏代码。 我找不到更简单的 C++ 方法（但不排除它）。

下一个级别是制作一个具有键盘绑定的插件，然后打开例外 UI，然后为您“单击”正确的复选框。

祝你好运。

Answer 5

您可以使用 AutoHotKey 之类的工具来创建录制的脚本（鼠标单击或按键），然后对其进行分配按下时会播放的热键...

Answer 6

只是提供一些我在这方面找到的信息（此处），就像我一样在我徒劳的尝试中搜索网络以提供帮助...

其他人提出了同样的问题，MS 支持的 Gary Chang 对此做出了回应，以下是引用的回应：

恐怕宏代码不能
操纵操作
例外对话框...

需要注意的是，此帖子是 2005 年 12 月发布的，因此此响应可能不再准确；请务必注意。 不管怎样，我想我会把它扔在那里。

Answer 7

首先我初始化了一个计时器，然后调用命令 Exception.Debug。
当模态对话框打开时，计时器开始计时。
如果您使用 Win 7 并停用 UAC SendKeys 和 ALT-Key 将失败...我不知道为什么。

我玩了一点...试试这个（VS2010 EN）：

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics
Imports System.Runtime.InteropServices

'...

Private WithEvents t As Timers.Timer
Private Sub t_Elapsed(ByVal ee As Object, ByVal dd As Timers.ElapsedEventArgs) Handles t.Elapsed
    t.Stop()
    ' Tastatureingaben simulieren
    System.Windows.Forms.SendKeys.SendWait("{DOWN}")
    System.Threading.Thread.Sleep(1500) ' Pause wichtig zum Laden des Exceptionbaums
    System.Windows.Forms.SendKeys.SendWait("%t")
    System.Windows.Forms.SendKeys.SendWait("{ENTER}")
End Sub
Public Sub toggleCLRExceptions()
    If DTE.Solution.Count <= 0 Then
        MsgBox("Nicht ohne geöffnete Solution!")
        Exit Sub
    End If
    ' Timer wird benötigt, da der Dialog Modal ist
    ' und weitere Befehle im Macro werden erst nach beenden des Dialogs ausgeführt
    t = New Timers.Timer()
    t.Interval = 0.5
    t.Start()
    DTE.ExecuteCommand("Debug.Exceptions")
    'System.Windows.Forms.SendKeys.SendWait("^%e") ' alternativ: STRG+ALT+e
    System.Threading.Thread.Sleep(200)
    If isCLRExceptionsActive() Then
        MsgBox("BREAK @CLR-Exception", MsgBoxStyle.Information, "Info")
    Else
        MsgBox("NO BREAK @CLR-Exception", MsgBoxStyle.Information, "Info")
    End If
End Sub

Function isCLRExceptionsActive() As Boolean
    ' prüft, ob Setting Debug CLR-Exceptions aktiviert/deaktivert ist
    Dim dbg As EnvDTE100.Debugger5 = DTE.Debugger
    Dim exSettings As ExceptionSettings = dbg.ExceptionGroups.Item("Common Language Runtime Exceptions")
    Dim exSetting As ExceptionSetting
    Try
        exSetting = exSettings.Item("Common Language Runtime Exceptions")
    Catch ex As COMException
        If ex.ErrorCode = -2147352565 Then
            exSetting = exSettings.NewException("Common Language Runtime Exceptions", 0)
        End If
    End Try
    Return exSetting.BreakWhenThrown
End Function

'...

Answer 8

为组设置特殊 ExceptionSetting 的建议确实会切换顶级复选框的状态。 但是，它似乎并没有切换树中其下方的各个异常，而且，当抛出此类异常时，我的进程不会停止，就像我手动检查顶级复选框一样。 您看到不同的行为吗？

Answer 9

我的宏在运行时忽略当前的 CLR 异常。 当调试时弹出异常时，它的工作原理就像一个“禁用捕获此异常类型”的按钮。

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.ControlChars

' execute Macros.MyMacros.VSDebuggerExceptions.IgnoreCurrentExceptionWhenThrown from VS Command Window

Public Module VSDebuggerExceptions

    Sub BreakWhenThrown(Optional ByVal strException As String = "")
        Dim dbg As Debugger3 = DTE.Debugger
        Dim eg As ExceptionSettings = _
            dbg.ExceptionGroups.Item("Common Language Runtime Exceptions")
        eg.SetBreakWhenThrown(True, eg.Item(strException))
    End Sub

    ' copied from Utilities module (samples)
    Function GetOutputWindowPane(ByVal Name As String, Optional ByVal show As Boolean = True) As OutputWindowPane
        Dim window As Window
        Dim outputWindow As OutputWindow
        Dim outputWindowPane As OutputWindowPane

        window = DTE.Windows.Item(EnvDTE.Constants.vsWindowKindOutput)
        If show Then window.Visible = True
        outputWindow = window.Object
        Try
            outputWindowPane = outputWindow.OutputWindowPanes.Item(Name)
        Catch e As System.Exception
            outputWindowPane = outputWindow.OutputWindowPanes.Add(Name)
        End Try
        outputWindowPane.Activate()
        Return outputWindowPane
    End Function

    Private WithEvents t As Timers.Timer

    ' Adds the current exception to ignore list
    Sub IgnoreCurrentExceptionWhenThrown()
        Dim commandWin As EnvDTE.CommandWindow
        commandWin = DTE.Windows.Item(EnvDTE.Constants.vsWindowKindCommandWindow).Object

        Select Case DTE.Debugger.CurrentMode
            Case dbgDebugMode.dbgDesignMode
                commandWin.OutputString("This macro is not enabled in Design Mode. Run it in Break Mode." + vbCrLf)
                Return

            Case dbgDebugMode.dbgRunMode
                commandWin.OutputString("This macro is not enabled in Run Mode. Run it in Break Mode." + vbCrLf)
                Return
        End Select

        commandWin.OutputString(Environment.NewLine)
        commandWin.OutputString("Trying to get the information about current exception.." + Environment.NewLine)

        Dim dbg As Debugger3 = DTE.Debugger
        Dim currentExpression As Expression = dbg.GetExpression("$exception", False)
        Try    
            Dim currentExceptionTypeString As String = currentExpression.DataMembers.Item(1).Type
            commandWin.OutputString("Detected current exception type is : " + currentExceptionTypeString + Environment.NewLine)

            Dim flag As Boolean = True
            Dim eg As ExceptionSettings = dbg.ExceptionGroups.Item("Common Language Runtime Exceptions")
            Try
                eg.SetBreakWhenThrown(False, eg.Item(currentExceptionTypeString))
            Catch exc As Exception
                commandWin.OutputString("Cannot find this exception, trying to create.." + currentExceptionTypeString + Environment.NewLine)
                '
                eg.NewException(currentExceptionTypeString, New Random().Next)
                eg.SetBreakWhenThrown(False, eg.Item(currentExceptionTypeString))
                eg.SetBreakWhenUserUnhandled(True, eg.Item(currentExceptionTypeString))
                flag = False
            End Try

            commandWin.OutputString(Environment.NewLine)
            commandWin.OutputString("Exception '" + currentExceptionTypeString + "' added to ignore list.")
            commandWin.OutputString(Environment.NewLine)

            t = New Timers.Timer()
            ' small interval to send keys after DTE will start to exec command
            t.Interval = 0.1
            t.Start()
            DTE.ExecuteCommand("Debug.Exceptions")

        Catch exc As Exception
            commandWin.OutputString("Error occured")
        End Try
    End Sub

    Private Sub t_Elapsed(ByVal ee As Object, ByVal dd As Timers.ElapsedEventArgs) Handles t.Elapsed
        t.Stop()
        ' only press Ok to apply changed exceptions settings to debugger
        System.Windows.Forms.SendKeys.SendWait("%t")
        System.Windows.Forms.SendKeys.SendWait("{ENTER}")
    End Sub

End Module

Answer 10

CTRL + ALT + E
ALT+T
输入

对我有用