Dim dte = Marshal.GetActiveObject("VisualStudio.DTE.10.0")
Dim ide As EnvDTE80.DTE2 = dte
Dim currentActiveWindow = dte.ActiveWindow
dte.Windows.Item("{ECB7191A-597B-41F5-9843-03A4CF275DDE}").Activate() 'Activate Immediate Window
dte.ExecuteCommand("Edit.SelectAll")
dte.ExecuteCommand("Edit.ClearAll")
currentActiveWindow.Activate()
Marshal.ReleaseComObject(dte)
Ответ 3
функция выходного окна документирована здесь, некоторые ребята говорят о том, как получить доступ к выходному окну здесь, поэтому я думаю, что вы можете пропустить его прогаматически.
Ответ 4
Я изменил нечитаемый код "{ECB7191A-597B-41F5-9843-03A4CF275DDE}" guid от ответа smirkingman на "Immediate Window", и он тоже работал (также удалил ненужные коды для моего):
Dim dte As EnvDTE80.DTE2 = Marshal.GetActiveObject("VisualStudio.DTE.11.0")
dte.Windows.Item("Immediate Window").Activate() 'Activate Immediate Window
dte.ExecuteCommand("Edit.SelectAll")
dte.ExecuteCommand("Edit.ClearAll")
Marshal.ReleaseComObject(dte)