Переключите “Прерываться при возникновении исключения”. используя макрос или сочетание клавиш
-
12-09-2019 - |
Вопрос
Редактировать:Новое окно исключений Visual Studio 2015 настолько быстрее, чем старое диалоговое окно, что меня больше не волнует использование для него сочетания клавиш .
Есть ли макрос или сочетание клавиш, которое переключает "прерывание при возникновении исключения" без использования графического интерфейса?
Открыть диалоговое окно с помощью ctrl + alt + e и установить флажок "Выброшенные исключения Common Language Runtime", а затем нажать "ОК", достаточно просто, но это то, что я часто делаю.Я бы предпочел иметь для этого сочетание клавиш.
Этот вопрос является дубликатом У кого-нибудь есть ярлык / макрос Visual Studio для переключения break для обработанных / необработанных исключений?
Тем не менее, плакат принял ответ, который на самом деле не работает, и мне бы очень хотелось получить ответ, который делает работать.
Ответ в повторяющемся вопросе неприемлем, поскольку он переключает только одно конкретное исключение, а не всю группу CLR.
"Тогда напиши цикл", - говоришь ты.Но не так быстро! Кто-то уже пробовал это сделать и это было бесполезно медленно.(Да, я проверил, что это медленно и в моей системе.)
Таким образом, задача состоит в том, чтобы использовать макрос для переключения всей категории исключений CLR менее чем за 1 или 2 секунды.Этот вопрос является дубликатом У кого-нибудь есть ярлык / макрос Visual Studio для переключения break для обработанных / необработанных исключений?
Решение
Я создал бесплатное расширение Visual Studio, которое может делать это надежно: Прерыватель исключений.
Он использует недокументированные IDebugSession2.SetException
вызов, который выполняется очень быстро:все исключения устанавливаются / отменяются в течение 20-60 миллисекунд.
Другие советы
Очень похоже на другой ответ, но для группы есть специальная настройка исключений.
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
Вот очень полезный макрос Брайса Кале, слепо обновленный для запуска в 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
Сначала я инициализировал таймер, а затем вызываю команду Exception.Debug.Срабатывает таймер, когда открывается модальное диалоговое окно.Если вы используете Win 7 с деактивированными ключами отправки UAC с помощью клавиши ALT, произойдет сбой ... я не знаю почему.
я немного поиграл ... попробуй это (VS2010 RU):
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
'...
Ну, я написал подключаемый модуль на базе VS2008 C #, который переключает 386 исключений, и это занимает около 1 секунды на переключение состояния.Я предполагаю, что это связано с COM-взаимодействием.
Это было основано на коде VB / macro в одной из ваших ссылок.Я не смог найти более простой метод C ++ (но не исключаю этого).
Следующим уровнем было бы создание плагина с привязкой к клавиатуре, который затем открывает пользовательский интерфейс исключений, а затем "нажимает" на нужную вам галочку.
Удачи.
Вы могли бы использовать такой инструмент, как Автоотключатель создать записанный сценарий (щелчком мыши или нажатием клавиши), а затем назначить ему горячую клавишу, которая будет воспроизводить его при нажатии...
Просто предлагаю некоторую информацию, которую я нашел по этому поводу (здесь) пока я рыскал по сети в своей тщетной попытке помочь...
Кто-то другой задал этот же вопрос, и на него ответил Гэри Чанг из службы поддержки MS, вот цитируемый ответ:
Я боюсь, что код макроса не может манипулировать операциями в диалоговом окне Исключения...
Важно отметить, что эта публикация датирована декабрем 2005 года, поэтому этот ответ может быть неточным;в любом случае, я решил выбросить это вон там.
Предложение установить специальный параметр ExceptionSetting для группы действительно переключает состояние флажка верхнего уровня.Однако, похоже, что он не переключает отдельные исключения под ним в дереве, и, более того, мой процесс не останавливается при возникновении таких исключений, как это происходит, если я вручную устанавливаю флажок верхнего уровня.Видите ли вы другое поведение?
Мой макрос игнорирует текущее исключение 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
CTRL + ALT + E ALT + T Введите
работает на меня