Tüm Web Sitelerini Kapatma

[Seyit Tiken]

Selamün Aleyküm Arkadaşlar,
Aşağıda gördüğünüz kod farklı tüm web sitelerini kapatıyor, yalnız farklı bir web penceresini kapatmıyor, kodta nasıl bir değişiklik yaparsak, tüm web ve kırıntılarını silebiliriz? Yardımlarınız için şimdiden teşekkür ediyorum.

Sub webkapat()
On Error Resume Next
Shell "taskkill /im firefox.exe"
Set uygulama = CreateObject("Shell.Application")
For Each nesne In uygulama.Windows
If TypeName(nesne.Document) = "HTMLDocument" Then
nesne.Quit
End If
Next
End Sub

Yukarıdaki kodun silmediği web penceresi görseli, bu pencerelerden onlarcası var.

 

[Taruz]

Merhaba Seyit Bey..

İlgili satırı bu şekilde değiştirip dener misiniz?

Shell "taskkill /im firefox.exe /f"

 

[Seyit Tiken]

Sayın Taruz çözüm için teşekkür ediyorum, değişen bir şey olmadı, yukarıda görselini gördüğünüz obje(leri) silinmedi, başka ne yapılabilir?

Not : Obje, Adobe Reader'dir.

 

[halit3]

Bu sayfalar web sayfası değil herhalde bildiğim kadarıyla say 200i çalışma sistemi iletişimleri ORACLE ile yapılıyor.

Bilgisayarlarda makroların silmesi ile ilgili kısıtlamalarda olabilir

 

[Seyit Tiken]

Halit bey haklısınız, kod, Mozilla Firefox ve Explorer üzerinde açılan Say2000i web sitelerinin tümünü kapatıyor, yalnız Explorer üzerinde açılan Say200i Oracle iletişim pencrelerini kod kapatamıyor, yani ilgili kod diğer tüm web ve kırıntıları siliyor, yalnız Explorer üzerinde açılan Oracle iletişim pencerelerini kapatamıyor(silemiyor). Buna bir çözüm bulanabilir mi arkadaşlar? Yardımlarınız için şimdiden teşekkür ediyorum.

 

[Seyit Tiken]

 

[halit3]

Seyit Bey kod ile şöyle bir şey yapalım mesajla okutalım bakalım okuyormu.?

Sub Kapat()
Set uygulama = CreateObject("Shell.Application")
For Each nesne In uygulama.Windows
If TypeName(nesne.Document) = "HTMLDocument" Then
MsgBox nesne.LocationURL
End If
Next
End Sub

Sub Kapat1()
Set uygulama = CreateObject("Shell.Application")
For Each nesne In uygulama.Windows
MsgBox nesne.LocationURL
Next
End Sub

 

[Seyit Tiken]

Halit bey teşekkür ediyorum, hiç bir hareket yok, değişen bir şey yok, ilgili nesnenin görselini ekliyorum, nesne PDF'dir, belki bu bizi bir sonuca götürebilir.

 

[halit3]

Benim Bilgisayarımdaki açık olan pdf dosyalarını kapatıyor bu kod

Sub kapat()
Set colProcessList = Nothing
strProcess = "[COLOR=red]AcroRd32.exe[/COLOR]" 'burası değişken yani dosya türü
On Error Resume Next
Set colProcessList = GetObject("Winmgmts:").ExecQuery("Select * from Win32_Process Where Name ='" & strProcess & "'")
For Each objprocess In colProcessList
objprocess.Terminate
Next
Set colProcessList = Nothing
End Sub

 

[Seyit Tiken]

Halit bey teşekkür ediyorum, zahmet veriyorum kusura bakmayın, uygulamada ilerleme var, pencerenin içindeki PDF'yi siliyor, ama, uygulamayı kapatamıyor. Görsel şu şekildedir:

 

[halit3]

Windows görev yöneticisini aç oradaki işlemler bölümüne gel açık olupta kapatmak istediğin dosya türünü 9 nolu mesajdaki kırmızı yere yaz kodu yeniden çlıştır.

 

[halit3]

Birde böyle bir kod var burada açık olan excel dosyalarını ve pdf uzantılı bütün dosyaları kapatıyor.
Diğer taraftan kod excel sayfasına A sutununa açık olan proğramları sıralıyor siz kapatmak istediğiniz proğramları kırmızı yere yazmanız yeterli.

Sub kapat3()
Dim colProcessList
Dim objprocess
Set colProcessList = GetObject("Winmgmts:").ExecQuery("Select * from Win32_Process ")
For Each objprocess In colProcessList
If objprocess.Caption = "[COLOR=red]AcroRd32.exe[/COLOR]" Then objprocess.Terminate
'If objprocess.Caption = "[COLOR=red]EXC[/COLOR][COLOR=red]EL.EXE[/COLOR]" Then objprocess.Terminate
i = i + 1
Cells(i, 1).Value = objprocess.Caption
MsgBox objprocess.Caption
Next
End Sub

 

[Seyit Tiken]

Halit bey, çok teşekkür ediyorum, Allah razı olsun, evde denedim PDF'yi sildi, Pazartesi günü dairede de deneyip sonucunu yazarım inşallah.

 

[halit3]

Halit bey, çok teşekkür ediyorum, Allah razı olsun, evde denedim PDF'yi sildi, Pazartesi günü dairede de deneyip sonucunu yazarım inşallah.

Seyit Bey İyi akşamlar iyi çalışmalar

 

[Seyit Tiken]

Halit bey, kodu bu şekilde revize ederek, istenilen objeler silindi.

Set uygulama = CreateObject("Shell.Application")
For Each nesne In uygulama.Windows
nesne.Quit
Next

Teşekkür ediyorum.

 

[halit3]

Halit bey, kodu bu şekilde revize ederek, istenilen objeler silindi.

Set uygulama = CreateObject("Shell.Application")
For Each nesne In uygulama.Windows
nesne.Quit
Next

Teşekkür ediyorum.

Çözüm bulmuşsunuz Seyit Bey aslında bu kod ilk mesajınızda vardı.

 

[Seyit Tiken]

Haklısınız, bu şekilde hallettim.

Shell "taskkill /im firefox.exe"
Set uygulama = CreateObject("Shell.Application")
For Each nesne In uygulama.Windows
nesne.Quit
If TypeName(nesne.Document) = "HTMLDocument" Then
nesne.Quit
End If

 

[irfancantr]

Benim Bilgisayarımdaki açık olan pdf dosyalarını kapatıyor bu kod

Sub kapat()
Set colProcessList = Nothing
strProcess = "[COLOR=red]AcroRd32.exe[/COLOR]" 'burası değişken yani dosya türü
On Error Resume Next
Set colProcessList = GetObject("Winmgmts:").ExecQuery("Select * from Win32_Process Where Name ='" & strProcess & "'")
For Each objprocess In colProcessList
objprocess.Terminate
Next
Set colProcessList = Nothing
End Sub

Hiç aklıma gelmezdi bu kadar ihtiyacım olduğu . Kod için çok teşekkürler Halit bey.