SimpsoN_Bart Posted June 26, 2012 Share Posted June 26, 2012 (edited) Yaptığımız çoğu işlemlerin explorer da gerçekleştiğini biliyoruz.Bu yüzden ne kadar işlem yaparsak o kadar ram miktarını yükseltmiş oluyoruz ve bilgisayarda explorer çökmeleri oluyor ki en istemediğimiz olaydır çünkü çalışmalarımız,klasörlerimiz kapanıyor.Bunun önüne geçmek için bu programı yazdım.Gerçekten işe yarıyor ve capslerde ne kadar doğru olduğunu göreceksiniz zaten.Bu programı kullandıktan sonra çoğu işleminiz daha seri olacak ve explorer çökmeleri yaşamıcaksınız en önemlisi ram kullanımından büyük ölçüde tasarruf sağlayacaksınız.Aslında bu program benim Turbo Mode adında gelişmiş bir projemin ufak bir kısmından alıntıdır.Neyse paket içeriğinde kodlar ve program mevcut incelemeyi unutmayın.Umarım işinize yarar.Kolay gelsin.. Code: #RequireAdmin #region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=icon.ico #AutoIt3Wrapper_UseX64=n #AutoIt3Wrapper_Res_Comment=www.tnctr.com #AutoIt3Wrapper_Res_Description=SK CODER #AutoIt3Wrapper_Res_Fileversion=1.0.0.0 #AutoIt3Wrapper_Res_LegalCopyright=© 2012 SK CODER #AutoIt3Wrapper_Res_Field=CompanyName|www.tnctr.com #AutoIt3Wrapper_Res_Field=Author|SimpsoN_Bart #endregion ;**** Directives created by AutoIt3Wrapper_GUI **** FileInstall("about.bmp", @TempDir & "\about.bmp") Opt("TrayMenuMode", 1) Opt("TrayOnEventMode", 1) OnAutoItExitRegister("_EXIT") _ERRORS() Global $REGKEY = 'Explorer Optimizer' Global $INTERVAL = 100 Global $LIST = "explorer.exe|explorer.exe" Global $PROCESSLIST = StringSplit($LIST, "|") $STARTUP = TrayCreateItem("Başlangıçta Çalıştır") TrayItemSetOnEvent(-1, "_STARTUP_WINDOWS") $ABOUT = TrayCreateItem("Hakkında") TrayItemSetOnEvent(-1, "_ABOUT") $REG_READ = RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Run", $REGKEY) If $REG_READ <> '' Then TrayItemSetState($STARTUP, 1) TrayCreateItem("Çıkış") TrayItemSetOnEvent(-1, "_EXIT") TraySetState() While 1 If @error <> 0 Then ContinueLoop For $i = 1 To UBound($PROCESSLIST) - 1 $PID = ProcessExists($PROCESSLIST[$i]) If $PID Then _ReduceMemory($PID) Next _ReduceMemory() Sleep($INTERVAL) WEnd Func _ReduceMemory($i_PID = -1) If $i_PID <> -1 Then Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID) Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0]) DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0]) Else Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1) EndIf Return $ai_Return[0] EndFunc ;==>_ReduceMemory Func _STARTUP_WINDOWS() Local $GET_STATE = TrayItemGetState($STARTUP) If $GET_STATE = 64 + 1 Then RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Run", $REGKEY, "REG_SZ", @ScriptFullPath) Else RegDelete("HKCU\Software\Microsoft\Windows\CurrentVersion\Run", $REGKEY) EndIf EndFunc ;==>_STARTUP_WINDOWS Func _ERRORS() If Not @Compiled Then MsgBox(16, "Hata!", "Programın düzgün çalışması için scripti derlemeniz gerekmektedir.!") Exit EndIf If UBound(ProcessList(@ScriptName)) > 2 Then MsgBox(16, "Hata!", " " & @ScriptName & " zaten çalışıyor! ", 5) Exit 0 EndIf EndFunc ;==>_ERRORS Func _ABOUT() Local $DEST = @TempDir & "\about.bmp" SplashImageOn("Hakkında", $DEST, 300, 107, -1, -1) Sleep(5000) SplashOff() EndFunc ;==>_ABOUT Func _EXIT() Exit EndFunc ;==>_EXIT Paket içeriği: kaynak kod, program, icon, bitmap vs.https://www.box.com/s/4f1a448e2558180bca3f Before: After: Edited February 6, 2013 by SimpsoN_Bart Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted June 26, 2012 Share Posted June 26, 2012 [color="#8B0000"][font="Lucida Sans Unicode"]Programı daha önceden test ettiğimden biliyorum, fark edilir ölçüde RAM tüketimini azaltıyor (explorer.exe için). Programa güzel bir arayüz ve birkaç özellik daha eklersek güzel birşey çıkacağına inanıyorum. Ellerine sağlık dostum.[/font][/color] Quote Link to comment Share on other sites More sharing options...
FLaky Posted November 29, 2012 Share Posted November 29, 2012 çok başarılı bir çalışma teşekkürlerr Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted November 29, 2012 Author Share Posted November 29, 2012 (edited) [size=4][font=tahoma, geneva, sans-serif]Bu arada küçük bir kaç hatırlatma daha yapayım,[color=#000000] [/color][color=#000000][background=rgb(248, 248, 248)]$LIST değişkenine istediğiniz kadar process yazabilirsiniz tabi yazım şekline uyarak program onları split eder ek olarak kullanım sırasında sorun yaşarsanız intervali yükseltin 10000 ms (10sn) veya üstü yaparsanız daha iyi performans sağlarsınız.İyi günlerde kullanın.[/background][/color][/font][/size] Edited November 29, 2012 by SimpsoN_Bart Quote Link to comment Share on other sites More sharing options...
x_files_x Posted August 2, 2013 Share Posted August 2, 2013 (edited) Sen $list kısmına iki tane explorer yazmıssın sebebi nedir? biz bir exe yi oraya eklersek mesela scvhost.exe yada benim firefox cok ram yiyor firefox.exe gibi onlarında işlemini düsürür mü? ve yine iki tane mi yazmamız lazım senin gibi, bilgi verirsen sevinirim kardeş, iyi günler Edited August 2, 2013 by x_files_x Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted August 3, 2013 Share Posted August 3, 2013 İki tane yazmanız gerekmez. Orda birden fazla işlem için kullanabileceğini göstermiş. Oraya istediğin işlemin adını yazarak RAM tüketimini azaltabilirsin. Örneğin ; $LIST = "explorer.exe|splayer.exe|firefox.exe|winamp.exe" Quote Link to comment Share on other sites More sharing options...
x_files_x Posted August 3, 2013 Share Posted August 3, 2013 Tşk ederim cevap verdiğin için @Divane kardeş, hyırlı kandiller Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted August 3, 2013 Author Share Posted August 3, 2013 İlk sorunuzun cevabı: İki tane yazmanız gerekmez. Orda birden fazla işlem için kullanabileceğini göstermiş. Oraya istediğin işlemin adını yazarak RAM tüketimini azaltabilirsin. Örneğin ; $LIST = "explorer.exe|splayer.exe|firefox.exe|winamp.exe" CPU çok kasıyorsa ; Bu arada küçük bir kaç hatırlatma daha yapayım, $LIST değişkenine istediğiniz kadar process yazabilirsiniz tabi yazım şekline uyarak program onları split eder ek olarak kullanım sırasında sorun yaşarsanız intervali yükseltin 10000 ms (10sn) veya üstü yaparsanız daha iyi performans sağlarsınız.İyi günlerde kullanın. Yazılan iletileri güzel bir şekilde okuyun. Aradığınız mutlaka yazılı olacaktır ki sorduğunu 2 sorunun cevabı burada mevcut idi. PM nize bu yüzden cevap vermedim. Quote Link to comment Share on other sites More sharing options...
G)-(OST Posted July 5, 2014 Share Posted July 5, 2014 Arkadaşlar çalıştırdım ve gördüm çok başarılı olmuş bilgisayarda gözle görülür bir hız artışı var. teşekkür ederim tüm emekleri için. Quote Link to comment Share on other sites More sharing options...
8506furkan Posted July 5, 2014 Share Posted July 5, 2014 8.1 de deneyen var mı ? Quote Link to comment Share on other sites More sharing options...
bilalozdemir Posted July 9, 2014 Share Posted July 9, 2014 firefox.exe yi ekledim fakat bi düşüş olmadı Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted July 9, 2014 Author Share Posted July 9, 2014 Firefox için tasarlanmadı o yüzden sonuç alamadın. Onun için de bir programım var biraz bekle :) Quote Link to comment Share on other sites More sharing options...
bilalozdemir Posted July 9, 2014 Share Posted July 9, 2014 Firefox için tasarlanmadı o yüzden sonuç alamadın. Onun için de bir programım var biraz bekle :) Tamam beklemedeyim :) Quote Link to comment Share on other sites More sharing options...
bypassiment Posted November 9, 2014 Share Posted November 9, 2014 (edited) hocam uygulamaya tek tıklamamızla windowsa kendini nasıl ekleyebilirim yani otomotik olarak kendini sisteme kopyalayıp calısması için ? görev çubuğu için notrayicon yazmıs olursak göstermez herhalde ? format attığım bilgisayarlara yüklüyorum ama son kullanıcı kurcalamasın istiyorum ayarladıgım sekılde ve gizlilikte calıssın istiyorum.bu arada kodlarına sağlık işe yarıyo gercekten Edited November 9, 2014 by bypassiment Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted November 9, 2014 Author Share Posted November 9, 2014 Önce boş bir script dosyası aç sonra elindeki düzenlenmiş exploreroptimizer.exe yi fileinstall ile içine al sonra fileinstall ile çıkarttığın exeyi run ile çalıştır bu kadar. Quote Link to comment Share on other sites More sharing options...
bypassiment Posted November 9, 2014 Share Posted November 9, 2014 açıkcası sizin verdiğiniz gibi kullandım hep autoitle olan işim sadece katılımsızdan öteye gitmedi kodlara bi göz atayım hocam Quote Link to comment Share on other sites More sharing options...
FeritEtemSinBin Posted November 16, 2014 Share Posted November 16, 2014 (edited) sa ben bunu çalışan tüm işlemler için yapmak istiyorum nasıl yaparım ? kodu nedir ?(Acelem Var) Edited November 16, 2014 by FeritEtemSinBin Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted November 16, 2014 Editor Share Posted November 16, 2014 sa ben bunu çalışan tüm işlemler için yapmak istiyorum nasıl yaparım ? kodu nedir ?(Acelem Var) ACelem varda ne demek arkadaş kodları vermiş kendine göre düzenlersin. Autoit bilmiyorsanda autoit bölümünden öğrenebilirsin yeterince. Quote Link to comment Share on other sites More sharing options...
FeritEtemSinBin Posted November 16, 2014 Share Posted November 16, 2014 (edited) hangi konuya bakmam lazım arıyorum ama bulamıyorum yardım edermisin ? Edited November 16, 2014 by FeritEtemSinBin Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.