Anwendung beenden mit Userform1

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Oraculix,
hier zwei Möglichkeiten, externe Programme zu beenden.
Die feine Art mittels Senden einer Close-Message und die codesparende Holzhammermethode. Beides funktioniert.
Dazu wird der Caption der zu schließenden Anwendung benötigt und ich hoffe, dass ich ihn richtig getroffen habe.
Probiere es halt mal aus....

Code:


[Cc][+][-]

Private Declare PtrSafe Function FindWindowA Lib "user32" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function PostMessageA Lib "user32" ( _
        ByVal hwnd As LongPtr, ByVal wMsg As Long, _
        ByVal wParam As LongPtr, _
        ByVal lParam As LongPtr) As Long
Private Const WM_CLOSE = &H10

Dim hwnd As LongPtr

Sub AnwendungSchliessen1()
' Anwendung schließen
  hwnd = FindWindowA(vbNullString, "Bildschirmlupe")
  PostMessageA hwnd, WM_CLOSE, 0&, 0&
End Sub

' #############################################################
Private Declare PtrSafe Function FindWindowA Lib "user32" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function DestroyWindow Lib "user32" ( _
        ByVal hwnd As LongPtr) As Long

Sub AnwendungSchliessen2()
' Anwendung schließen
  DestroyWindow FindWindowA(vbNullString, "Bildschirmlupe")
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Private Sub CommandButton19_Click() hwnd = FindWindowA(vbNullString, "Bildschirmlupe") PostMessageA hwnd, WM_CLOSE, 0&, 0& Worksheets("FilmeAnsehen").Activate Unload Me Was mach ich da falsch? Gruß Oraculix End Sub

Code: [Cc][+][-] Private Declare PtrSafe Sub Sleep Lib "kernel32" ( _ ByVal dwMilliseconds As Long) Private Declare PtrSafe Function FindWindowA Lib "user32" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function PostMessageA Lib "user32" ( _ ByVal hwnd As LongPtr, ByVal wMsg As Long, _ ByVal wParam As LongPtr, _ ByVal lParam As LongPtr) As Long Private Declare PtrSafe Function DestroyWindow Lib "user32" ( _ ByVal hwnd As LongPtr) As Long Private Const WM_CLOSE = &H10 Dim hwnd As LongPtr Sub AnwendungSchliessenTest() ' Anwendung schließen VBA.CreateObject("WScript.Shell").Run "C:\WINDOWS\system32\Magnify.exe" Sleep 5000 hwnd = FindWindowA(vbNullString, "Bildschirmlupe") If hwnd <> 0 Then Debug.Print hwnd ' PostMessageA hwnd, WM_CLOSE, 0&, 0& DestroyWindow hwnd Else MsgBox "Anwendung nicht gefunden!", vbCritical End If End Sub

Sub test2() Dim objWMI As Object, objProcessList As Object, objProcess As Object Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set objProcessList = objWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'Magnify.exe'") For Each objProcess In objProcessList Call objProcess.Terminate(0) Next Set objProcessList = Nothing Set objWMI = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Anwendung beenden mit Userform1

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread