vs 调试 asp 宏

Sub AttachToCalc()
           Try

Dim dbg2 As EnvDTE80.Debugger2 = DTE.Debugger

Dim trans As EnvDTE80.Transport = dbg2.Transports.Item("Default")

Dim dbgeng(1) As EnvDTE80.Engine

dbgeng(0) = trans.Engines.Item("Native")

Dim proc2 As EnvDTE80.Process2 = dbg2.GetProcesses(trans, "JIMSMACHINE").Item("calc.exe")

proc2.Attach2(dbgeng)

Catch ex As System.Exception

MsgBox(ex.Message)

End Try

End Sub

转载于:https://www.cnblogs.com/hdl253/archive/2011/03/19/1989098.html