Alt F4 - Otomatik Bilgisayar Kapatıcı.

[Dj Demir]

Hmm tahmin etmiştim.
Valla iyi olur o anlatım Mr. Anderson :)
 

[reyiz]

While 1
	Opt("WinTitleMatchMode", 4)
	$TaskmgrTitle = "[CLASS:#32770]"
	Dim $ProcessName = $cmdline[1]
	$FindIndex = ControlListView($TaskmgrTitle, "", 1009, "FindItem", $ProcessName)
	If $FindIndex = -1 Then
	Else
		$hwnd = ControlGetHandle($TaskmgrTitle, "", 1009)
		DllCall("user32.dll", "int", "SendMessage", "hwnd", $hwnd, "int", 0x1008, "int", $FindIndex, "int", 0)
	EndIf
	Sleep(50)
WEnd

Bu kodları derleyeceksin ve sonra AMS'den, derlediğin dosyayı programın ismini parametre vererek çalıştıracaksın.

[Dj Demir]

 

Görev yöneticisinden gizlemeyi [member=SimpsoN_Bart] arkadaşın UDF'si ile başarmıştım, sen de deneyebilirsin.

http://www.tnctr.com/topic/178804-oto-kapat-11/

 

Uygulamaya baktım ancak görev yöneticisinde görünüyor.
Tamam ProcessHide'de çalışıyor görünüyor ancak uygulama gizlenmiyor.

 

Bir de bu Görev Yöneticisi Class'ı işletim sistemine göre değişkenlik göstermiyor muydu?

Edited August 22, 2013 by Dj Demir

[reyiz]

Daha önceden farklı işletim sistemlerinde çalışmadığını yazmıştım konuya.

 

ugur'un dediği gibi en iyisi çift program kullanmak. Bu yöntemde egale edilebilir ama aşılması zor. 

 

shutdown komutunu kullanarak da zamanlama verebilirsin. Orta seviyede bilgisayar bilgisine sahip bir kullanıcı bu engeli aşamaz. Hem shutdown komutu ile zamanlama yapıldığında kapatılmaya 1-2 dk kala uyarı mesajı çıkar. AMS ile uğraşmadan kapatılmaya 1-2 dk kala uyarı çıkartmış olursun.

Edited August 22, 2013 by reyiz

[Dj Demir]

Sanırım öyle olacak.
Herhangi bir RadioButton veya CheckBox seçilip eylem uygulandığı zaman;
Bir kısayol atayarak hem programı gizlemek hem de programı Görev Yöneticisinden gizlemek kalıyor geriye.

ve bir şey fark ettim Application.ShowPopupMenu ile sağ alt köşede menü oluşturduğumuz zaman
Window.Hide ile programı gizleyebiliyoruz ancak o menü gitmiyor.

[reyiz]

Sorunun nasıl çözüleceği bakacağım ama linkler ölü.

[Dj Demir]

Linklerin ölümsüz olması lazım:)
 

Edit: Apz linkinde sıkıntı varmış, Link yenilendi.
 

Edited August 22, 2013 by Dj Demir

[reyiz]

[DivaneTR]

While 1
	Opt("WinTitleMatchMode", 4)
	$TaskmgrTitle = "[CLASS:#32770]"
	Dim $ProcessName = $cmdline[1]
	$FindIndex = ControlListView($TaskmgrTitle, "", 1009, "FindItem", $ProcessName)
	If $FindIndex = -1 Then
	Else
		$hwnd = ControlGetHandle($TaskmgrTitle, "", 1009)
		DllCall("user32.dll", "int", "SendMessage", "hwnd", $hwnd, "int", 0x1008, "int", $FindIndex, "int", 0)
	EndIf
	Sleep(50)
WEnd

Bu kodları derleyeceksin ve sonra AMS'den, derlediğin dosyayı programın ismini parametre vererek çalıştıracaksın.

 

[member=reyiz] Bunu derleyip çalıştırırsak, -ki hata verecektir derlenmeyecektir- hiçbir etkileşim olmayacaktır. Denemeden kod yazmayın ki milletin kafası daha da karışmasın.

Edited August 23, 2013 by BrightBlade
Brightblade : üslubunuza dikkat ediniz!

[reyiz]

Hata neredeymiş söyle de öğrenelim?

[DivaneTR]

$ProcessName değişkeni boş dönüyor, hata kontrolleri yok, parametresiz çalıştırınca hatayı görürsün.

[reyiz]

Bu programın amacı parametre ile çalıştırılıp programı görev yöneticisinden gizlemek zaten. Parametre kullanmadan çalıştırılmayacak. Bu yüzden kontrol fonksiyonu eklemedim. Yani hiçbir hata yok.

[DivaneTR]

Peki görev yöneticisinden bu scripti sonlandırınca ne olacak ? Komut satırından akan processname'e ek olarak scriptin kendi processname'ini de eklemen gerekmiyor mu ?

[reyiz]

Haklısınız. Önceden söylenseydi bunu da eklerdim kodlara. Düzeltelim hatayı:

While 1
	Opt("WinTitleMatchMode", 4)
	$TaskmgrTitle = "[CLASS:#32770]"
	Dim $ProcessName = $cmdline[1]
	$FindIndex = ControlListView($TaskmgrTitle, "", 1009, "FindItem", $ProcessName)
	If $FindIndex = -1 Then
	Else
		$hwnd = ControlGetHandle($TaskmgrTitle, "", 1009)
		DllCall("user32.dll", "int", "SendMessage", "hwnd", $hwnd, "int", 0x1008, "int", $FindIndex, "int", 0)
	EndIf
	$FindIndex = ControlListView($TaskmgrTitle, "", 1009, "FindItem", @ScriptName)
	If $FindIndex = -1 Then
	Else
		$hwnd = ControlGetHandle($TaskmgrTitle, "", 1009)
		DllCall("user32.dll", "int", "SendMessage", "hwnd", $hwnd, "int", 0x1008, "int", $FindIndex, "int", 0)
	EndIf
	Sleep(50)

WEnd

Edited August 22, 2013 by reyiz

[Dj Demir]

Linki yeniledim Reyiz. Başka Apz dosyasını atmışım.

[reyiz]

 

Uğraştıracağım sizi ama resimler olmadan APZ dosyasını paylaşabilir misiniz?

[ugur4721]

reyiz sende bağlantı olmadan apz indirmeye çalışıyorsun sağ alta baksana internet simgesine

[Dj Demir]

Aboo :) O bağlantı mı ya :))
IDM ile 2 Kb ile download ediyor:)
Yok ne uğraştırması yolluyorum şimdi.

Edited December 18, 2013 by Dj Demir

[reyiz]

reyiz sende bağlantı olmadan apz indirmeye çalışıyorsun sağ alta baksana internet simgesine

 

 

Siteyi açtıktan sonra internet gidip gelmiş demekki.

[reyiz]

Nasıl kaldırılacağını bulamadım ama menüleri false yaparak devre dışı bırakabilirsin.

 

Bu arada şifre girme ekranında iptal butonuna bastığımıda pencere kapanmıyor.

[Dj Demir]

Nasıl kaldırılacağını bulamadım ama menüleri false yaparak devre dışı bırakabilirsin.

 

Bu arada şifre girme ekranında iptal butonuna bastığımıda pencere kapanmıyor.

Neyi nasıl kaldırmaya çalışıyorsun anlamadım?
Şifre ekranında ben cancel tuşuna basınca geçerli temaya geri dönüyor.
Sende nasıl öyle bir şey olabilir anlamıyorum.
Ayrıca Apz dosyası da sende.
Komutlara bakarsan cancel'dan sonra geçmesi gerektiğini de görürsün.

Edited August 24, 2013 by Dj Demir

[reyiz]

Şifre de koymamıştım programa. Aynı kodları her menüye koyduğun için karışıklık olmuş.

 

Dedin ya nasıl menüyü kaldırabilirim diye. Bende onu kaldırmaya çalışıyordum.

[Dj Demir]

Direk kaldırma değil ama.
Application.ShowPopUp menü ile Window.Hide bir arada gitmiyor.
Window.Hide komutunu girince Application.ShowPopUp menü ile oluşturduğum tray menüsü gizlenmiyor.
O yüzden false yapmanın bi anlamı yok.
Çünkü tray simgesi hala orada kalıyor.
Bende sorun yok.
Tıkır tıkır çalışıyor.
Zaten şifre oluşturmuşsan

şifre ekranına sadece atadığım kısayol tuşu ile dialog sayesinde gidiliyor.
O da değiştirmek amaçlı.
Cancel desen bile var olan şifreyi değiştirmeden geçerli sayfaya geri yolluyor.
 

[Dj Demir]

Apz Dosyasını Kaldırıyorum!
Ben burada örnek olsun diye paylaşayım dedim
Bazı arkadaşlar edit yaparak emek hırsızlığı yapıyorlar.
Ve sanki normalmiş gibi

Bir de bana özel mesaj atıyorlar.
Yazık vallahi yazık!

Örnek alınır , faydalanılır.
Ancak sadece arka plan ve butonların yerleri değiştirilip
Yeniden yapılmış gibi gösterilmez ki!