Programın Çalışmamasını Sağlamak?

[yusuf1284]

Edited September 4, 2014 by yusuf1284

[crazy_pretty_murat]

Birşeyler yapıp,nerde ne eklemen gerektiğine v.s. takıldığın yerleri filan sorsaydın daha iyi olurdu.Her neyse dediğin şey zor bişey değil.Ama msconfige koyacak mısın bunu.Buda önemli.Ona göre hazırlasınlar arkadaşlar.Sıfırdan hazırlamaya vakti olan ve üşenmeyen bir arkadaş olursa cevap atarlar.Yarın akşam bu konuya bir daha bakarım.Eğer sana yardımcı olan çıkmazsa,yarın akşam hazırlarım söz :)

Edited March 17, 2014 by crazy_pretty_murat

[yusuf1284]

hayır denedim de olmadı daha gui yapmayı tek başarabildim :D

 

basit bir gui üzerinde Checkbox larla programları engelemek istyorum 2 tane li Checkbox ları ayarlarsanız yeterli ben ekleyip büyütme filan yaparım :D örnek üzerinden yapabilirm ancak :)

Edited March 17, 2014 by yusuf1284

[DivaneTR]

Küçük bir örnek hazırladım ;

 

[spoiler]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 185, 191, 192, 124)
$winamp = GUICtrlCreateCheckbox("Winamp", 32, 24, 137, 17)
$ccleaner = GUICtrlCreateCheckbox("CCleaner", 32, 64, 97, 17)
$Engelle = GUICtrlCreateButton("Engelle", 32, 120, 75, 25)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Engelle
		If GUICtrlRead($winamp) = 1 Then
			AdlibRegister("WinampKapat", 250)
		Else
			AdlibUnRegister("WinampKapat")
		EndIf

		If GUICtrlRead($ccleaner) = 1 Then
			AdlibRegister("Cleaner", 250)
		Else
			AdlibUnRegister("Cleaner")
		EndIf
	EndSwitch
WEnd

Func WinampKapat()
If ProcessExists("winamp.exe") Then
	ProcessClose("winamp.exe")
EndIf
EndFunc

Func Cleaner()
	If ProcessExists("ccleaner64.exe") Then
	ProcessClose("ccleaner64.exe")
EndIf
EndFunc

[/spoiler]

[tenekecezve]

Bu konu "Örnek Çalışmalar" forumundan "AutoIT" forumuna taşınmıştır.

[yusuf1284]

malasef çalşmadı ya da ben yapmadım 

[Mehmet]

malasef çalşmadı ya da ben yapmadım 

Yapmak istediğin tam olarak nedir @DivaneTR arkadaşımızın örneği senin istediğin gibi nasıl çalışmıyor.sende bi örnek versen anlaşılır nasıl bir şey istediğin, sadece çalışmadı dersen olmazki.

[forjest]

Bu belki işinize yarayabilir..

http://www.tnctr.com/topic/207614-oto-ythlem-v10/

[yusuf1284]

Yapmak istediğin tam olarak nedir @DivaneTR arkadaşımızın örneği senin istediğin gibi nasıl çalışmıyor.sende bi örnek versen anlaşılır nasıl bir şey istediğin, sadece çalışmadı dersen olmazki.

 

Programı kapatmadı sadace şekil olarak aynı

[Mehmet]

kapatmak istediğin program nedir tam ismi ve görev yöneticisindeki ismini yazarmısın.

[crazy_pretty_murat]

Bak senin değiştirmen gereken komutlar bunlar.

Case $Engelle = Engelle butonuna bastığında;
If GUICtrlRead($winamp) = 1 Then = Eğer yukarıdaki  $winamp ismiyle başlayan Checkbox kutucuğu işaretli ise;

AdlibRegister("WinampKapat", 250) = 250 milisaniyede bir aşağıdaki winampkapat fonksiyonunu çalıştır;
Else = Eğer winamptaki kutucuk işaretli değil ise;
AdlibUnRegister("WinampKapat") = 250 milisaniyede bir çalışan winampkapat fonksiyonunu iptal et.Artık çalışmasın;
EndIf = 4 satır yukarıdaki eğer komutunu yani (if) komutunu açtık.Eğer şöyleyse şöyle olsun dediğimiz işlerimiz bittiği için bunu kapatmamız lazımdı ve kapattık;

 

Func WinampKapat() = Winampkapat adında bir fonksiyon aç.

If ProcessExists("winamp.exe") Then = Eğer Görev yöneticisindeki işlemlerde winamp.exe adlı bir program çalışıyorsa ise;
ProcessClose("winamp.exe") = Görev yöneticisindeki işlemlerde çalışan winamp.exe programını kapat.

EndIf = Eğer komutunu kapat.
EndFunc = Winampkapat fonskiyonu bu kadardı.Bunu da kapat.

Edited March 19, 2014 by crazy_pretty_murat

[DivaneTR]

Denemeden kod paylaşmam genelde, bunu da kendim yazdığımdan test ettim haliyle, kendi istediğiniz işlemlere göre düzenlemediyseniz çalışmaması normaldir.

[yusuf1284]

Çok pardon ben engele yazısnı görmedim seçince engeliyor sandım :give_rose:  :whistle: 

 

bu konu için biraz fazla oldum gibi ama engele butonu yerine kur yapsak AIO da olur bu :D yanlışmıyım ama sırayla kurar mı :)

Edited March 19, 2014 by yusuf1284