如何通过Visual Studio 2013菜单/工具栏优雅关闭运行中的应用？

首先明确：VS2013本身确实没有内置的菜单/工具栏命令直接发送WM_CLOSE来优雅关闭调试中的程序，但我们有几个不用AutoHotkey、或者优化「外部工具」的解决方案，完美解决你提到的HttpListener无法正常关闭的问题：

方案一：编写VS外接程序（Add-in），自定义工具栏命令 #

这是最灵活且集成度最高的方式，能直接在VS工具栏加个按钮，一键完成「断点继续→发送WM_CLOSE」的流程：

• 打开VS2013，创建一个「Visual Studio外接程序」项目，按照向导完成配置（选择支持VS2013）。
• 在外接程序的Exec方法里，添加核心逻辑：
  1. 获取当前调试器状态：如果处于断点暂停模式，先调用DTE.Debugger.Go()让程序继续运行。
  2. 获取当前调试的进程：var currentProc = DTE.Debugger.CurrentProcess;
  3. 通过进程ID找到程序的主窗口（可以用EnumWindows枚举所有窗口，匹配窗口所属的进程ID）。
  4. 调用Windows API的SendMessage给主窗口发送WM_CLOSE消息（消息ID为0x10）。
• 编译安装外接程序后，你可以把这个命令添加到VS工具栏，以后点击按钮就能优雅关闭程序了。

方案二：优化「外部工具」，动态获取当前调试进程 #

你之前说$(BinDir)无法满足需求，是因为它基于活动文件而非当前运行进程，但我们可以结合脚本实现动态获取：

1. 写一个简单的PowerShell脚本（或者C#控制台程序），功能是：
   • 枚举系统进程，找到正在被VS2013调试的进程（可以通过VS的进程ID关联，或者检查进程的调试器附加状态）。
   • 找到该进程的主窗口，调用user32.dll的SendMessage发送WM_CLOSE。
2. 在VS的「工具→外部工具」里添加这个脚本，不需要传递固定参数——脚本自己就能找到当前VS正在调试的进程。
3. 把这个外部工具命令添加到工具栏，同样能一键触发优雅关闭。

方案三：使用VS宏（VS2013仍支持），快速实现自定义命令 #

如果你不想写外接程序，VS宏是更轻量的选择：

• 打开VS的「宏资源管理器」（快捷键Alt+F8），创建一个新宏模块，添加如下VB代码（需要导入Windows API声明）：

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports System.Windows.Forms
Imports System.Runtime.InteropServices

Public Module GracefulCloseModule
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    End Function

    <DllImport("user32.dll", SetLastError:=True)>
    Private Function EnumWindows(ByVal lpEnumFunc As EnumWindowsProc, ByVal lParam As IntPtr) As Boolean
    End Function

    <DllImport("user32.dll", SetLastError:=True)>
    Private Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer
    End Function

    Private Delegate Function EnumWindowsProc(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean

    Private targetProcessId As Integer
    Private targetHwnd As IntPtr = IntPtr.Zero

    Sub GracefulCloseDebugApp()
        Dim debugger As Debugger = DTE.Debugger
        ' 如果处于断点状态，先继续运行
        If debugger.CurrentMode = dbgDebugMode.dbgBreakMode Then
            debugger.Go()
            ' 等待一下确保程序恢复运行
            System.Threading.Thread.Sleep(500)
        End If

        Dim currentProc As Process = debugger.CurrentProcess
        If currentProc Is Nothing Then
            MessageBox.Show("没有正在调试的进程！")
            Return
        End If

        targetProcessId = currentProc.ProcessID
        targetHwnd = IntPtr.Zero
        ' 枚举所有窗口找到对应进程的主窗口
        EnumWindows(AddressOf EnumWindowsCallback, IntPtr.Zero)

        If targetHwnd <> IntPtr.Zero Then
            Const WM_CLOSE As UInteger = &H10
            SendMessage(targetHwnd, WM_CLOSE, IntPtr.Zero, IntPtr.Zero)
        Else
            MessageBox.Show("未找到进程的主窗口！")
        End If
    End Sub

    Private Function EnumWindowsCallback(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean
        Dim procId As Integer = 0
        GetWindowThreadProcessId(hWnd, procId)
        If procId = targetProcessId Then
            ' 这里可以判断是否为主窗口（比如检查是否有WS_EX_APPWINDOW样式）
            targetHwnd = hWnd
            Return False ' 找到后停止枚举
        End If
        Return True
    End Function
End Module

• 保存宏后，你可以给它绑定快捷键，或者添加到VS工具栏，点击就能执行优雅关闭操作。

这些方案都能避免「停止调试」直接终止进程的问题，让HttpListener这类组件有机会正常释放资源，完美匹配你的需求。

内容的提问来源于stack exchange，提问作者pigeon