---

Hallo zusammen,

(wie) kann man mit einem VB-Programm eine andere Anwendung beenden?

Ich habe eine Autostart-Manager in der Autostartgruppe, der die zu startenden Anwendungen in genau definierter Reihenfolge etc. startet ... super tool, aber leider beendet es sich nicht selber nach der Abarbeitung der Liste. Deshalb möchte ich als letzte zu startende Anwendung ein VB-Programm einbauen, das den Autostart-Manager beendet.
Ciao
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Klaus,
offensichtlich hat sich noch keiner Deines Problems angenommen, schade auch. Meines Wissens gibt es in VB keine Methode/Funktion, um Fremdanwendungen zu beenden. Ich empfehle VC++, denn hier kann man, wenn alle Stricke reißen zumindestens die ultrabrutale Version anwenden, nämlich mit FindWindow sich ein Handle auf die Anwendung holen und ihr eine Windows-Message zum beenden schicken. Wie die Message heißt mußt Du in der MSDN-Library suchen. Oder hast Du in der Zwischenzeit schon eine Lösung gefunden?
Gruß
Rolf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Rolf,

nö, habe leider noch keine andere Lösung gefunden...und habe leider auch kein VC++.
Schade, aber vielleicht finde ich ja noch irgendwo ein kleines Tool, das sowas kann.
Danke und Ciao

Klaus

------------------
Klaus Massler
Alois Kober GmbH
http://www.al-ko.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Klaus,

schau mal bei nachstehendem Link rein: http://www.industrie24.com/bbs/list.php?f=5
Ich glaube da wurde das schon mal abgehandelt mit Loesungen. Hab aber gerade keine Zeit zum Suchen, musst Du leider selber suchen.
Hope it helps.

------------------
Gruss aus dem sonnigen Athen
Wolfgang

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Klaus,

schau mal unter www.activevb6.de//tipps/vb6tipps/tipp0217.html

Vieleicht hilft dir das weiter.

Wolfgang

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wolfgangs,

danke für die Tipps.

@wkopp: leider nichts gefunden

@WolfSalzburg: hat leider nicht funktioniert-es passiert nichts
Ciao
Klaus

------------------
Klaus Massler
Alois Kober GmbH
http://www.al-ko.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo KLaus,
habe das Programm innerhalb Kürze zumindest halbwegs am laufen. Was ich vermisse ist eine schnell verfügbare und mgl. komplette Referenz auf die Konstanten der Parameterbelegung von SendNotiFyMessage für VB. Vieleicht kannst Du mir hier Hilfestellung leisten? Dann werde ich sicher den Rest auch noch hinbekommen
Gruß
Rolf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
ich habe mal ein Programm ferngesteuert aus Excel aufgerufen und es am Schluss beendet, indem ich Alt-F4 an die Application gesendet habe:
AppActivate AppID
SendKeys "%{F4}", 1

Das geht aber wohl nur, wenn auch ein Fenster da ist.
Viele Grüsse
Markus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Rolf,

Zitat:

---

Original erstellt von supportkisters:
... Was ich vermisse ist eine schnell verfügbare und mgl. komplette Referenz auf die Konstanten der Parameterbelegung von SendNotiFyMessage für VB. Vieleicht kannst Du mir hier Hilfestellung leisten? ...

---

Sorry, auch wenn's mir wehtut, da kann ich leider nicht weiterhelfen.

Ciao

------------------
Klaus Massler
Alois Kober GmbH
http://www.al-ko.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Um ein Fremdprogramm unter VB zu beenden, benötigst du einige API-Funktionen. Füge untenstehende Zeilen in ein VB-Modul (nicht in die Form!) ein. Vorbedingung ist allerdings, daß du die genaue Fenster-Überschrift des zu beendennen Programms kennst.

Das Beenden mittels AppActivate und SendKeys funktioniert zwar auch, ist aber nicht 100%ig zuverlässig. AppActivate aktiviert (falls vorhanden) ein Fenster, daß mit dem beim Aufruf angegebenen Fenstertitel (AppID) beginnt. SendKeys schickt die angegebenen Tastatur-Events an das zur Zeit aktive Fenster. Ob das Fenster noch das selbe ist wie das, was zuvor durch AppActivate aktiviert wurde, ist nicht sicher. Und ob dort Alt-F4 richtig umgesetzt wird, auch nicht. Auf der anderen Seite braucht AppActivate nicht den kompletten Fensternamen...

Declare Function FindWindow Lib "user32" Alias _
        "FindWindowA" (ByVal lpClassName As Long, _
        ByVal lpWindowName As String) As Long

Declare Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
        ByVal wParam As Long, lParam As Any) As Long

Const WM_CLOSE As Long = &H10

Public Sub BeendeExternesProgramm (sFenstertitel as String)
Dim hwnd As Long
  hwnd = FindWindow(0&, sFenstertitel)   
  If hwnd <> 0 Then
    lReturn = SendMessage(hwnd, WM_CLOSE, 0&, 0&)
    Debug.Print sFenstertitel & " wurde beendet"
  Else
    Debug.Print sFenstertitel & " wurde nicht gefunden"
  End If
End Sub





Ach ja, noch was:
(Quelle: Dan Appleman, "Visual Basic Programmer's Guide to the Win32 API)

SendNotifyMessage

VB Declaration

Declare Function SendNotifyMessage& Lib "user32" Alias "SendNotifyMessageA" _
(ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As _
Long)

Description

Sends a message to a window. If the target window belongs to the same thread as the caller, this function behaves like the SendMessage function and does not return until the message is processed. If the target window belongs to a different thread, the function returns immediately.

Use with VB

No problem.

Parameter Type/Description
hwnd Long—Handle of a window to receive the message.
msg Long—The identifier of the message.
wParam Long—Depends on the message.
lParam Long—Depends on the message.
Return Value

Long—True on success, False on error. Sets GetLastError.

Platform

Windows 95, Windows NT

...ansgar

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP