Kod İle Exe Dosyası Kapatma

[BedriA]

Arkadaşlar,

Aşağıdaki kod ile programı açıyorum.
Aynı programı yine kod ile kapatmak istiyorum.

Mümkün mü acaba?

Shell ThisWorkbook.Path & "\Azmun\Math Editor\Editor.exe"

 

[askm]

Dosya="Editor.exe"
AppActivate Dosya 
SendKeys "%{F4}"

 

[Emir Hüseyin Çoban]

.

Görev Yöneticisinde programın ismini tam görebileceğimiz şekilde bir resim ekleyebilir misiniz.



.

 

[BedriA]

Dosya="Editor.exe"
AppActivate Dosya 
SendKeys "%{F4}"

Teşekkür ederim.

Resimdeki hatayı alıyorum.

LightShop arka planda çalışan, PrintScreen ile
anlık görüntü yakalama programı...

Arka planda çalışması Alt + F4 ile kapanmamasının
nedeni olabilir mi?

 

[BedriA]

Teşekkür ederim.

Arka Plan İşlemleri başlığının altında resimdeki gibi...

 

[Emir Hüseyin Çoban]

.

Sayfaya CommandButton1 ekleyerek deneyiniz.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Private Const EVN_KAPAT = 16


Private Sub GorevYoneticisindenSonlandır(ByVal pencereadi As String)
       Dim pencereHwnd As Long
       pencereHwnd = FindWindow(vbNullString, pencereadi)
       If pencereHwnd <> 0 Then
          PostMessage pencereHwnd, EVN_KAPAT, 0&, 0&
       Else
           MsgBox "Aradığınız türde bir uygulama bulunamadı" & vbCr & _
           "Aranan Uygulama : " & pencereadi, vbExclamation, "www"
       End If
End Sub

Private Sub CommandButton1_Click()
GorevYoneticisindenSonlandır "[B][COLOR="Blue"]Lightshot[/COLOR][/B]"
End Sub

.

 

[BedriA]

Kodlar herhangi bir hata vermedi ama programı da kapatmadı.
Program sadece resimdeki gibi kapanabiliyor.

 

[Emir Hüseyin Çoban]

.

Ekteki programı deneyiniz. Bu program ile kapatabiliyor musunuz.

Not: Gereksiz alıntı yaparak sayfanın okunaklığını azaltmayın. Üst mesajları güncellemenizi rica ederim.

.

 

[BedriA]

Evet, İşlemler'den bulup seçince kapatıyor.

 

[Emir Hüseyin Çoban]

.

Outlook' u ekteki program ile kapatabiliyorum.
İlgili kısmı değiştirerek deneyiniz.

.

 

[BedriA]

Emir Hocam çok teşekkür ederim.

Ama attığınız program ile "Lightshot.exe" çıktısını alıp
adımları uygulamama rağmen sonuç alamıyorum.

 

[BedriA]

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Private Const EVN_KAPAT = 16


Private Sub GorevYoneticisindenSonlandır(ByVal pencereadi As String)
       Dim pencereHwnd As Long
       pencereHwnd = FindWindow(vbNullString, pencereadi)
       If pencereHwnd <> 0 Then
          PostMessage pencereHwnd, EVN_KAPAT, 0&, 0&
       Else
           MsgBox "Aradığınız türde bir uygulama bulunamadı" & vbCr & _
           "Aranan Uygulama : " & pencereadi, vbExclamation, "www"
       End If
End Sub

Private Sub CommandButton3_Click()

TerminateEXE ("Lightshot.exe")

End Sub

Bu haliyle "Compile Error" hatası alıyorum.

 

[Haluk]

Programı çalıştırdığınızda, en tepesinde başlık çubuğunda ne yazıyor ?

Mesela; ekli resimde "UserForm1" yazan yerde, bahsettiğiniz program penceresinde ne yazıyor?

 

[BedriA]

Programı çalıştırdığınızda, en tepesinde başlık çubuğunda ne yazıyor ?

Mesela; ekli resimde "UserForm1" yazan yerde, bahsettiğiniz program penceresinde ne yazıyor?

İlginiz için teşekkür ederim Haluk hocam.

İşte bu programın penceresi falan yok Haluk Hocam, arka planda çalışıyor ve Print Screen tuşuyla aktifleşiyor. Sağ alt köşedeki simgesine sağ tıklayıp "Çıkış" denilerek kapatılabiliyor ancak.

Emir Hocam'ın attığı bir dosya vardı, o dosyayla kapanıyor ancak o dosyada bir yığın kod var, o kodları kullanınca, programın farklı Office sürümlerinde hata vereceğinden kaygılanıyorum ama bakalım, Emir Hoca ilgileneceğini söyledi.

 

[halit3]

Alternatif olarak bu kodu bir denermisiniz.

Sub KAPAT()

Shell ("taskkill /F /IM Editor.exe*")
End Sub

 

[Emir Hüseyin Çoban]

.

# 10 nolu iletimdeki dosya ekini yeniledim. Deneyiniz.

.

 

[BedriA]

Alternatif olarak bu kodu bir denermisiniz.

Sub KAPAT()

Shell ("taskkill /F /IM Editor.exe*")
End Sub

Halit Hocam,

Size nasıl teşekkür edeceğimi bilemiyorum.
Harikasınız gerçekten.

Programı kapatıyor verdiğiniz kod.

Çok ama çok teşekkür ederim.

Selam ve saygılarımla.

 

[BedriA]

Teşekkür ederim Emir Hocam.

Halit Hoca daha kısa bir kod önerdi sağolsun, sorunu çözdü.

Emeğinize sağlık, çok sağolun.

 

[Haluk]

Sorun çözüldü anlaşılan ama bir ara aşağıdaki kodu denersiniz, belki işinize yarar.

Sub Test_CloseProgram()
    Dim MyProg As String, Process As Object
    MyProg = "Editor.exe"
    For Each Process In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & MyProg & "'")
        Process.Terminate
    Next
End Sub

 

[BedriA]

@Haluk Hocam,

Bu kod da çalışıyor.

Bunu da aldım arşivime.
Çok sağ olun.

Baba toprağım Mardin'den, Ana diyarım Diyarbakır'dan,
ekmek yediğim Antalya'dan selam ve hürmetler...