以编程方式启动Visual Studio; C＃相当于VB的CreateObject的（“VisualStudio.DTE.8.0”）

Question

我可以从VBScript中启动一个新的隐藏Visual Studio的过程，并推动它编程，这样做：

Set DTE = CreateObject("VisualStudio.DTE.8.0") 
DTE.DoStuff() 

我怎么做，在C＃？

我已经试过：（编辑使用正确的类型，而不是一般的COM对象13759是VBScript代码。）这样的：

using EnvDTE; 
... 
DTE dte = new DTE(); 

但我得到“检索COM类工厂组件与CLSID {3C9CFE1E-389F-4118-9FAD-365385190329}失败“。

Answer 1

我找到了答案（感谢Sebastiaan Megens为把我在正确的轨道上）：

[STAThread] 
static void Main(string[] args) 
{ 
    System.Type t = System.Type.GetTypeFromProgID("VisualStudio.DTE.8.0", true); 
    DTE2 dte = (EnvDTE80.DTE2)System.Activator.CreateInstance(t, true); 

    // See http://msdn.microsoft.com/en-us/library/ms228772.aspx for the 
    // code for MessageFilter - just paste it in. 
    MessageFilter.Register(); 

    dte.DoStuff(); 
    dte.Quit(); 
} 

public class MessageFilter : IOleMessageFilter 
{ 
    ... Continues at http://msdn.microsoft.com/en-us/library/ms228772.aspx 

（与STAThread和的MessageFilter的废话“，因为对外部多线程应用程序和Visual Studio之间的争用问题进行线程化“，无论如何，从http://msdn.microsoft.com/en-us/library/ms228772.aspx的代码中粘贴它就可以工作。）

Answer 2

简单的答案：写在VB中，编译它，用反射器打开它，并在C＃模式下反编译！

Answer 3

我不知道如何启动Visual Studio的新实例，但我通过调用使用现有的实例：

EnvDTE.DTE dte = (EnvDTE.DTE)System.Runtime.InteropServices.Marshal.GetActiveObject("VisualStudio.DTE.8.0"); 

可能创造一个新的实例类似的东西？希望这个对你有帮助。

问候，

Sebastiaan

Answer 4

用于VB的CreateObject的微软源代码。

<HostProtection(Resources:=HostProtectionResource.ExternalProcessMgmt)> _ 
    <SecurityPermissionAttribute(SecurityAction.Demand, Flags:=SecurityPermissionFlag.UnmanagedCode)> _ 
    Public Function CreateObject(ByVal ProgId As String, Optional ByVal ServerName As String = "") As Object 
     'Creates local or remote COM2 objects. Should not be used to create COM+ objects. 
     'Applications that need to be STA should set STA either on their Sub Main via STAThreadAttribute 
     'or through Thread.CurrentThread.ApartmentState - the VB runtime will not change this. 
     'DO NOT SET THREAD STATE - Thread.CurrentThread.ApartmentState = ApartmentState.STA 

     Dim t As Type 

     If ProgId.Length = 0 Then 
      Throw VbMakeException(vbErrors.CantCreateObject) 
     End If 

     If ServerName Is Nothing OrElse ServerName.Length = 0 Then 
      ServerName = Nothing 
     Else 
      'Does the ServerName match the MachineName? 
      If String.Compare(Environment.MachineName, ServerName, StringComparison.OrdinalIgnoreCase) = 0 Then 
       ServerName = Nothing 
      End If 
     End If 

     Try 
      If ServerName Is Nothing Then 
       t = Type.GetTypeFromProgID(ProgId) 
      Else 
       t = Type.GetTypeFromProgID(ProgId, ServerName, True) 
      End If 

      Return System.Activator.CreateInstance(t) 
     Catch e As COMException 
      If e.ErrorCode = &H800706BA Then 
       '&H800706BA = The RPC Server is unavailable 
       Throw VbMakeException(vbErrors.ServerNotFound) 
      Else 
       Throw VbMakeException(vbErrors.CantCreateObject) 
      End If 
     Catch ex As StackOverflowException 
      Throw ex 
     Catch ex As OutOfMemoryException 
      Throw ex 
     Catch ex As System.Threading.ThreadAbortException 
      Throw ex 
     Catch e As Exception 
      Throw VbMakeException(vbErrors.CantCreateObject) 
     End Try 
    End Function