使用Visual Studio Macro除錯VSPackage專案

iDotNetSpace發表於2009-07-20
Mac除錯Package

   最近在做一個Visual Studio 2008的擴充套件專案，主要是基於VSPackage進行開發，在使用Team Foundation進行原始碼管理時發現如下問題：

    解決方案中有一個使用Visual Studio Integration Package嚮導建立出來的專案，該專案調式時通過執行外部應用程式(如:"D:\Develop Tools\Microsoft Visual Studio 9.0\Common7\IDE\devenv.exe /ranu /rootsuffix Exp”)啟動Microsoft Visual Studio - Experimental Hive，但是專案組成員Visual Studio 2008的安裝路徑都不相同，在除錯時如果修改外部程式路徑就會簽出該專案檔案，並且由於需要簽出的是專案檔案還不能使用去掉只讀屬性在本地修改的方式。

    嘗試在外部程式中使用儲存Visual Studio 2008安裝路徑的環境變數不成功後，又嘗試新增一個控制檯專案然後通過Process.Start()方式啟動一個Visual Studio程式，使用新建程式的問題在於無法自動附加程式進行除錯，最後決定使用Visual Studio Marco通過Visual Studio 2008安裝時設定的VS90COMNTOOLS環境變數獲取安裝目錄，然後通過Process.Start()啟動devenv程式，然後遍歷本地計算機中所有程式找到該程式然後呼叫EnvDTE附加程式。

    Macro的實現程式碼如下：

   1: Imports System
   2: Imports EnvDTE
   3: Imports EnvDTE80
   4: Imports EnvDTE90
   5: Imports System.Diagnostics
   6:  
   7: Public Module VSXDebugger
   8:  
   9:     Sub VSXDebugger()
  10:  
  11:         Try
  12:             Dim comnTools As String = Environment.GetEnvironmentVariable("VS90COMNTOOLS")
  13:  
  14:             Dim comnDir As String = System.IO.Path.GetDirectoryName(comnTools)
  15:  
  16:             Dim idePath As String = System.IO.Path.Combine(comnDir, "..\\IDE\\devenv.exe")
  17:  
  18:             idePath = System.IO.Path.GetFullPath(idePath)
  19:  
  20:             Dim proc As System.Diagnostics.Process = New System.Diagnostics.Process()
  21:  
  22:             proc.StartInfo = New System.Diagnostics.ProcessStartInfo(idePath, "/ranu /rootsuffix Exp")
  23:  
  24:             proc.Start()
  25:  
  26:             Dim dbg2 As EnvDTE80.Debugger2 = DTE.Debugger
  27:  
  28:             Dim trans As EnvDTE80.Transport = dbg2.Transports.Item("Default")
  29:  
  30:             Dim dbgeng(1) As EnvDTE80.Engine
  31:  
  32:             dbgeng(0) = trans.Engines.Item("Managed")
  33:  
  34:             Dim procTmp As EnvDTE80.Process2
  35:             For Each p In dbg2.GetProcesses(trans, Environment.MachineName)
  36:                 procTmp = CType(p, EnvDTE80.Process2)
  37:                 If procTmp.ProcessID = proc.Id Then
  38:                     procTmp.Attach2(dbgeng)
  39:                     Exit For
  40:                 End If
  41:             Next
  42:  
  43:         Catch ex As System.Exception
  44:  
  45:             MsgBox(ex.Message)
  46:  
  47:         End Try
  48:  
  49:     End Sub
  50:  
  51: End Module

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/12639172/viewspace-609715/，如需轉載，請註明出處，否則將追究法律責任。

相關文章