externes Program schliessen

Bild

Betrifft: externes Program schliessen
von: Georg
Geschrieben am: 15.02.2005 15:03:20
Hallo alle zusammen,
ich möchte per VBA ein externes Programm schliessen.
Das Programm heisst übertragungcom1.exe.
Könnte mir da jemand helfen.
Vielen Dank im voraus.
Georg

Bild

Betrifft: AW: externes Program schliessen
von: Jens
Geschrieben am: 15.02.2005 15:20:42
Wurde das Programm auch mit VBA geöffnet?
mfg Jens
Bild

Betrifft: AW: externes Program schliessen
von: Georg
Geschrieben am: 15.02.2005 15:31:34
Hallo Jens,
ja, mit dem Befehl
Dim dblResult
dblResult = Shell ("C:\Programme\8300\übertagungscom1.exe"; 1)

mfg
Georg
Bild

Betrifft: AW: externes Program schliessen
von: Jens
Geschrieben am: 15.02.2005 16:18:28
Sorry, finde den Code nicht mehr und aus dem Kopf bekomme ich die API-Deklarationen nicht zusammen.
mfg Jens
Bild

Betrifft: AW: externes Program schliessen
von: Georg
Geschrieben am: 15.02.2005 16:32:46
vielen Dank trotzdem
Bild

Betrifft: AW: externes Program schliessen
von: bst
Geschrieben am: 15.02.2005 16:46:34
Auch Hallo,
a) via externem Tool pskill von http://www.sysinternals.com

Sub KillIt()
   Shell "Notepad.exe", 1
   ' ...
   Shell "c:\DeinProgUti\pskill.exe notepad.exe"
End Sub

b) via winapi:
die "Declares" und "Functions" gehören in EINE Zeile, kein Plan was hier passiert ...
Übrigens, IMHO kann sich niemand sowas merken. Ich suche of hier:
http://www.mentalis.org/agnet/apiguide.shtml
cu, Bernd
--
Option Explicit
Declare

Function CloseHandle Lib "kernel32" _
   (ByVal hObject As Long) As Long
         
Declare 

Function OpenProcess Lib "kernel32" _
   (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
   ByVal dwProcessId As Long) As Long
Declare 

Function TerminateProcess Lib "kernel32" _
   (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
   
Private Const PROCESS_TERMINATE = &H1

Sub KillIt_2()
   Dim iTask As Long, pHandle As Long
   iTask = Shell("Notepad.exe", 1)
   ' ...
   pHandle = OpenProcess(PROCESS_TERMINATE, False, iTask)
   ' ...
   TerminateProcess pHandle, 0
   CloseHandle pHandle
End Sub

 Bild

Beiträge aus den Excel-Beispielen zum Thema "externes Program schliessen"