如果你像我一样经常需要利用"attached to process "来完成对网站应用程序的调试，那么你可能需要下面的宏来节省一点时间。
01: Imports System
02: Imports EnvDTE
03: Imports EnvDTE80
04: Imports EnvDTE90
05: Imports System.Diagnostics
06:
07: Public Module Debugger
08: Public Sub AttachToWebServer()
09:
10: Dim AspNetWp As String = "aspnet_wp.exe"
11: Dim W3WP As String = "w3wp.exe"
12:
13: If Not (AttachToProcess(AspNetWp)) Then
14: If Not AttachToProcess(W3WP) Then
15: System.Windows.Forms.MessageBox.Show(String.Format("Process {0} or {1} Cannot Be Found", AspNetWp, W3WP), "Attach To Web Server Macro")
16: End If
17: End If
18:
19: End Sub
20:
21: Public Function AttachToProcess(ByVal ProcessName As String) As Boolean
22:
23: Dim Processes As EnvDTE.Processes = DTE.Debugger.LocalProcesses
24: Dim Process As EnvDTE.Process
25: Dim ProcessFound As Boolean = False
26:
27: For Each Process In Processes
28: If (Process.Name.Substring(Process.Name.LastIndexOf("\") + 1) = ProcessName) Then
29: Process.Attach()
30: ProcessFound = True
31: End If
32: Next
33:
34: AttachToProcess = ProcessFound
35:
36: End Function
37:
38: End Module
39:
