COM-Wrapper für die Process-Klasse

    • VB.NET

      COM-Wrapper für die Process-Klasse

      Der Thread Externe Anwendung Schließen hat mich heute darauf gebracht, dass es wirklich keine vernünftige Methode gibt, um in VBA mit externen Programmen zu arbeiten (Shell() kann nur öffnen, schließen sieht da schon wieder anders aus).

      Darum habe ich einen kleinen Wrapper für COM erstellt.

      Spoiler anzeigen

      VB.NET-Quellcode

      1. <ComClass(Process.ClassId, Process.InterfaceId, Process.EventsId)> _
      2. <System.Runtime.InteropServices.ComVisible(True)>
      3. Public Class Process
      4. #Region "COM-GUIDs"
      5. ' Diese GUIDs stellen die COM-Identität für diese Klasse
      6. ' und ihre COM-Schnittstellen bereit. Wenn Sie sie ändern, können vorhandene
      7. ' Clients nicht mehr auf die Klasse zugreifen.
      8. Public Const ClassId As String = "35f8ff17-a69e-4d53-acbf-ea93caf87f98"
      9. Public Const InterfaceId As String = "af9ff5d0-2b4f-4a19-8d66-32a54dbbbb62"
      10. Public Const EventsId As String = "7b0c6069-275d-42f5-b7d9-50a70fae01ad"
      11. #End Region
      12. ' Eine erstellbare COM-Klasse muss eine Public Sub New()
      13. ' ohne Parameter aufweisen. Andernfalls wird die Klasse
      14. ' nicht in der COM-Registrierung registriert und kann nicht
      15. ' über CreateObject erstellt werden.
      16. Public Sub New()
      17. MyBase.New()
      18. _p = New System.Diagnostics.Process
      19. End Sub
      21. Public Sub Start()
      22. _p.Start()
      23. End Sub
      25. Public Sub StartWait()
      26. _p.Start()
      27. _p.WaitForExit()
      28. End Sub
      30. Public Sub Kill()
      31. _p.Kill()
      32. End Sub
      34. Public Sub GetProcessByName(ByVal Name As String)
      35. _p = Diagnostics.Process.GetProcessesByName(Name)(0)
      36. End Sub
      38. Public Sub GetProcessByID(ByVal ID As Integer)
      39. _p = Diagnostics.Process.GetProcessById(ID)
      40. End Sub
      42. Private _p As System.Diagnostics.Process
      43. Public Property FileName As String
      44. Get
      45. Return _p.StartInfo.FileName
      46. End Get
      47. Set(value As String)
      48. _p.StartInfo.FileName = value
      49. End Set
      50. End Property
      52. Public Property WorkingDirectory As String
      53. Get
      54. Return _p.StartInfo.WorkingDirectory
      55. End Get
      56. Set(value As String)
      57. _p.StartInfo.WorkingDirectory = value
      58. End Set
      59. End Property
      61. Public ReadOnly Property ExitCode As Integer
      62. Get
      63. Return _p.ExitCode
      64. End Get
      65. End Property
      67. Public Property Arguments As String
      68. Get
      69. Return _p.StartInfo.Arguments
      70. End Get
      71. Set(value As String)
      72. _p.StartInfo.Arguments = value
      73. End Set
      74. End Property
      76. Public Property CreateNoWindow As Boolean
      77. Get
      78. Return _p.StartInfo.CreateNoWindow
      79. End Get
      80. Set(value As Boolean)
      81. _p.StartInfo.CreateNoWindow = value
      82. End Set
      83. End Property
      85. Public Property UseShellExecute As Boolean
      86. Get
      87. Return _p.StartInfo.UseShellExecute
      88. End Get
      89. Set(value As Boolean)
      90. _p.StartInfo.UseShellExecute = value
      91. End Set
      92. End Property
      94. Public Property WindowStyle As COMProcessWindowStyle
      95. Get
      96. Return _p.StartInfo.WindowStyle
      97. End Get
      98. Set(value As COMProcessWindowStyle)
      99. _p.StartInfo.WindowStyle = value
      100. End Set
      101. End Property
      103. Public ReadOnly Property HasExited As Boolean
      104. Get
      105. Return _p.HasExited
      106. End Get
      107. End Property
      109. Public ReadOnly Property ID As Integer
      110. Get
      111. Return _p.Id
      112. End Get
      113. End Property
      115. Public ReadOnly Property Handle As Integer
      116. Get
      117. Return _p.Handle.ToInt32
      118. End Get
      119. End Property
      121. <System.Runtime.InteropServices.ComVisible(True)>
      122. Public Enum COMProcessWindowStyle As Integer
      123. Normal = 0
      124. Hidden = 1
      125. Minimized = 2
      126. Maximized = 3
      127. End Enum
      128. End Class


      Der Wrapper umfasst zwar nicht alle Funktionen der Process-Klasse, aber es sollte reichen um damit zu arbeiten. Projekt mit vorkompilierter Binary befindet sich im Anhang.
      COMDiagnosticsProcess.zip

      Damit das Ganze in VBA sichtbar wird, muss man die DLL nur noch registrieren.

      [Windows XP]:
      den Ordner bin\Release öffnen und die Datei "Register.bat" ausführen.

      [Windows Vista/7]:
      Eingabeaufforderung von Visual Studio (2010) als Administrator öffnen
      in den Ordner bin\Release wechseln
      DLL mit folgendem Befehl registrieren:

      Quellcode

      1. regasm.exe COMDiagnosticsProcess.dll /tlb:COMDiagnosticsProcess.tlb /codebase
      SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

      Weil einfach, einfach zu einfach ist! :D