Sub AttachToSpooler()
        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, "DELINS-380").Item("spoolsv.exe")
                proc2.Attach2(dbgeng)
        Catch ex As System.Exception
                MsgBox(ex.Message)
        End Try
End Sub

























































































Previous  |  Next ]     [ Up  |  First  |  Last ]     (Article 305 of 485)
 
Comments, flames, broken links?
Please send email to maintainer@intricate-simplicity.com