利用宏自動附加到WebServer進程

如果你像我一樣經常需要利用"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:

出處：http://zhangronghua.cnblogs.com