• بادئ الموضوع بادئ الموضوع LINEZERO
  • تاريخ البدء تاريخ البدء
  • المشاهدات 95,754
توقيع : موريادي
رجعنا لكم مرة اخرى مع استفسار أخر
وطلب مساعدة وبصراحة عجزت عن حلها
كود:
#include <buttonconstants.au3>
#include <guiconstantsex.au3>
#include <progressconstants.au3>
#include <windowsconstants.au3>
 #include<process.au3>
$form1 = guicreate("اللهم لا تجعل احد يزعل علينا بسبب غفلتنا", 355, 157, 192, 357)
$checkbox1 = guictrlcreatecheckbox("temp delete", 208, 16, 121, 25)
guictrlsetfont(-1, 14, 400, 0, "ms sans serif")
$checkbox2 = guictrlcreatecheckbox("prefetch delete", 8, 16, 153, 25)
guictrlsetfont(-1, 14, 400, 0, "ms sans serif")
$button1 = guictrlcreatebutton("تحديد الكل", 256, 72, 75, 25)
$button2 = guictrlcreatebutton("الغاء الكل", 152, 72, 75, 25)
$button3 = guictrlcreatebutton("بدء العملية", 32, 72, 83, 25)
$progress1 = guictrlcreateprogress(96, 120, 190, 17)
guisetstate(@sw_show)
while 1
$nmsg = guigetmsg()
switch $nmsg
 case $gui_event_close
  exit
   case $button3
    If $gui_checked <> $checkbox1 Or $checkbox2 Then
     MsgBox(0,"","ضع علامة صح على ما تريد تنظيفه")
     EndIf
 case $button3
  if guictrlread($checkbox1) = $gui_checked then
   filedelete(@homedrive & "\temp\*.*")
   filedelete(@windowsdir & "\temp\*.*")
_RunDOS("del /q /s /f /a %temp%\*.*")
  endif
  if guictrlread($checkbox2) = $gui_checked then
   filedelete(@windowsdir & "\prefetch\*.*")
  endif
 case $button1
  guictrlsetstate($checkbox1, $gui_checked)
  guictrlsetstate($checkbox2, $gui_checked)
 case $button2
  guictrlsetstate($checkbox1, $gui_unchecked)
  guictrlsetstate($checkbox2, $gui_unchecked)
endswitch
wend

المشكلة تكمن في الاتي
عند الضغط على زر بدء العملية لا تتنفذ الاوامر الا اذا قمنا بالتعليم على احد الخيارات او الكل وان لم نقم بالتعليم والتاشير على احد الخيارات وضغطنا على بدء العملية فاريد تطلع لي رسالة معناها قم بوضع علامة صح على احد الخيارات
وكذلك اريد الشريط الاخضر يتفعل اثناء الضغط على زر بدء العملية

ما اعرف ممكن كلامي وطلبي يكون غير مفهوم بس اتمنى ان اجد الحل والله عجزانة عن حل المشكلة والله يكون بعون كل شخص حاب يدرس البرمجة


حلك هنا :bleh:
كود:
#include <buttonconstants.au3>
#include <guiconstantsex.au3>
#include <progressconstants.au3>
#include <windowsconstants.au3>
#include <process.au3>

$form1 = GUICreate("اللهم لا تجعل احد يزعل علينا بسبب غفلتنا", 355, 157, 192, 357)
$checkbox1 = GUICtrlCreateCheckbox("temp delete", 208, 16, 121, 25)
GUICtrlSetFont(-1, 14, 400, 0, "ms sans serif")
$checkbox2 = GUICtrlCreateCheckbox("prefetch delete", 8, 16, 153, 25)
GUICtrlSetFont(-1, 14, 400, 0, "ms sans serif")
$button1 = GUICtrlCreateButton("تحديد الكل", 256, 72, 75, 25)
$button2 = GUICtrlCreateButton("الغاء الكل", 152, 72, 75, 25)
$button3 = GUICtrlCreateButton("بدء العملية", 32, 72, 83, 25)
$progress1 = GUICtrlCreateProgress(96, 120, 190, 17)

GUISetState(@SW_SHOW)
While 1
   $nmsg = GUIGetMsg()
   Switch $nmsg
       Case $gui_event_close
           Exit

       Case $button3
           If GUICtrlRead($checkbox1) = $GUI_UNCHECKED And  GUICtrlRead($checkbox2) = $GUI_UNCHECKED Then
               MsgBox(0, "", "ضع علامة صح على ما تريد تنظيفه")
               ContinueLoop
           EndIf
           If GUICtrlRead($checkbox1) = $GUI_CHECKED Then
               FileDelete(@HomeDrive & "\temp\*.*")
               FileDelete(@WindowsDir & "\temp\*.*")
               _RunDOS("del /q /s /f /a %temp%\*.*")
           EndIf
           If GUICtrlRead($checkbox2) = $GUI_CHECKED Then
               FileDelete(@WindowsDir & "\prefetch\*.*")
           EndIf

       Case $button1
           GUICtrlSetState($checkbox1, $gui_checked)
           GUICtrlSetState($checkbox2, $gui_checked)

       Case $button2
           GUICtrlSetState($checkbox1, $gui_unchecked)
           GUICtrlSetState($checkbox2, $gui_unchecked)
   EndSwitch
WEnd
 
نعم انا اتابع الموضوع حتي اري سؤال صعب لا يمكن الرد عليه :d::d:

تفضل هذا شوف صعب أو لا :bleh:

كود يقتل عمليات

اريد كود يقتل جميع عمليات دون معرفة برامج التى تعمل فيه

يعني هذا لكود يجب أن يقتل جميع عمليات في أي جهاز

دون معرفة من يعمل في عمليات

ويكون تلقائي

يعني ضغط وحده ويكون كل شيئ مغلق

ما عدا عمليات نظام ضروريه حتى يبقى يعمل
 
توقيع : ramay
كود:
#RequireAdmin
Dim $System_array[20]=["System","Winlogon.exe","Services.exe","svchost.exe","lsass.exe","csrss.exe","smss.exe"]
Global $Process=ProcessList()
For $i=2 To $Process[0][0]
	For $j=0 To UBound($System_array)-1
		If $Process[$i][0]=$System_array[$j] Then ContinueLoop 2
	Next
	ProcessClose($Process[$i][0])
Next
طبعا في برامج انتي فيروس مينفعش تتقفل زي الكاسبرسكي
 
كود:
#RequireAdmin
Dim $System_array[20]=["System","Winlogon.exe","Services.exe","svchost.exe","lsass.exe","csrss.exe","smss.exe"]
Global $Process=ProcessList()
For $i=2 To $Process[0][0]
    For $j=0 To UBound($System_array)-1
        If $Process[$i][0]=$System_array[$j] Then ContinueLoop 2
    Next
    ProcessClose($Process[$i][0])
Next
طبعا في برامج انتي فيروس مينفعش تتقفل زي الكاسبرسكي
بارك الله فيك الان سوف أخرج وغدأ ان شاء الله سأجربه على ويندوز 7 والاكسبي
السلام عليكم
:king:
 
توقيع : ramay
كود:
#RequireAdmin
Dim $System_array[20]=["System","Winlogon.exe","Services.exe","svchost.exe","lsass.exe","csrss.exe","smss.exe"]
Global $Process=ProcessList()
For $i=2 To $Process[0][0]
    For $j=0 To UBound($System_array)-1
        If $Process[$i][0]=$System_array[$j] Then ContinueLoop 2
    Next
    ProcessClose($Process[$i][0])
Next
طبعا في برامج انتي فيروس مينفعش تتقفل زي الكاسبرسكي

تم تجريب على ويندوز7
قبل أن أخرج
لم تنفع
تظهر شاشة زرقاء ويعياد تشغيل جهاز :cr:​
 
توقيع : ramay
انا مجربه علي اكس بي
لسة مجربتهوش علي سفن
 
انا مجربه علي اكس بي
لسة مجربتهوش علي سفن

على الاكسبي تمام لكن كما قلت لا يستطيع الاغلاق كاسبر
لكن على ويندوز سفن في مشكلة
 
توقيع : ramay
أخوي رامي

آسف على التاخير في الرد

انشغلت هذه الأيام حتى إني مريض الان :no:

هذا الكود جاهز وبشكل مبسط (لا تجربه إلا بعد تحويل الملف إلى exe)

كود:
#RequireAdmin
$Process = ProcessList()
For $C = 2 To $Process[0][0]
 $RPro=StringInStr("system csrss.exe ctfmon.exe dwm.exe explorer.exe lsass.exe lsm.exe services.exe smss.exe svchost.exe wininit.exe winlogon.exe "&@ScriptName,$Process[$C][0])
 If $RPro = 0 Then
  ProcessClose($Process[$C][0])
 Else
 EndIf
Next

لا تنسى الدعاء لي بالشفاء :b:
 
نعم انا اتابع الموضوع حتي اري سؤال صعب لا يمكن الرد عليه :d::d:


:ok::ok: نعم كما تعودنا عليكم في دروس الشيخ فكنتم تقدمون الحلول والعون والمساعده ولا ننسى الزري 2 وعقاب وعبدالقادر الذين خدموا الكثير من الناس في دروس الشيخ واتمنى منكم المواصلة معنا في هذا الموضوع مع بندر وواجت وكوربرشن وموريادي ورامي ولا ننسى الخبيرة الاولى ريحانة العطور في الاتوات واتمنى منها ان تشاركنا

بفضل الله وبمساعدة العوضي وجدت ضالتي في الكود لبدء التنظيف
 
توقيع : الحلا تبي تتعلم
أخوي رامي

آسف على التاخير في الرد

انشغلت هذه الأيام حتى إني مريض الان :no:

هذا الكود جاهز وبشكل مبسط (لا تجربه إلا بعد تحويل الملف إلى exe)

كود:
#requireadmin
$process = processlist()
for $c = 2 to $process[0][0]
 $rpro=stringinstr("system csrss.exe ctfmon.exe dwm.exe explorer.exe lsass.exe lsm.exe services.exe smss.exe svchost.exe wininit.exe winlogon.exe "&@scriptname,$process[$c][0])
 if $rpro = 0 then
  processclose($process[$c][0])
 else
 endif
next

لا تنسى الدعاء لي بالشفاء :b:
مشكور يا الغالي لكن كود بطيئ في العمل يأخذ فتره حتى يبدا تنفيذ
 
توقيع : ramay
توقيع : ramay
مشكور يا الغالي لكن كود بطيئ في العمل يأخذ فتره حتى يبدا تنفيذ​

عندما تحول ملف إلى exe فإن الحماية الي عندك تتأكد منه قبل تشغيله

ولمعلوماتك هذا الكود أسرع طريقة للإغلاق :kmj-by0000 (72):

جربه في ملف au3 :bleh:
 
:ok::ok::ok::ok::ok:
 
عندما تحول ملف إلى exe فإن الحماية الي عندك تتأكد منه قبل تشغيله

ولمعلوماتك هذا الكود أسرع طريقة للإغلاق :kmj-by0000 (72):

جربه في ملف au3 :bleh:

أي حمايه يا الغالي أن اسكر حماية وأشغل كود
بعدنا لو تركة حماية شغاله يره أنه كود ضار وعمك كاسبر يحذفه مجرد ما يشم ريحته قبل أن اشغله
أيضا يا الغالي لو أردنا الاغلاق برامج حمايه أيضا هل ممكن أما لا
ثقلنا عليك تحملنه:i:

 
توقيع : ramay
السلام عليكم
أثناء تصفحي لهذا الموضوع
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي


وجدت بعض التعليقات بأن ذلك البرنامج مصنوع بلغة الاتوات؟؟؟!؟!!! فهل يعقل وهل من الممكن الاتوات تصنع ذلك البرنامج ولو كان الجواب نعم ياريت تعطونا الطريقة لأن هذا الموضوع يختص بالافكار والمشاريع والاسئلة والسورسات
 
:q:عدنا لكم مرة اخرى
بصراحة اختكم ستحاول ان تجعل هالموضوع ما يتوقف وبخليه فعال لين نهرم:hh:
عندي كود في الاتوات بس ما ادري ليه كو فعال واتمنى منكم مساعدتي
كود:
FileDelete(@UserProfileDir&"AppData\Roaming\Microsoft\Windows\Recent\*.*")
FileDelete(@UserProfileDir&"AppData\Roaming\Microsoft\Windows\PrivacIE\.dat")
 
^
^^
قصدك الحين انك غير معرووف :d:​
 
توقيع : LINEZERO
جرب :smile:
تغير المسار الى

كود:
@UserProfileDir&"\AppData\Roaming\Microsoft\Windows\Recent\*.*"
 
توقيع : LINEZERO
عودة
أعلى