موضوع خاص لدعــم الـ AutoIt -- افكار ؛ مشاريع ؛ سورسات ؛ اسئله ؛ نقاشات ...... الخ

  • بادئ الموضوع بادئ الموضوع LINEZERO
  • تاريخ البدء تاريخ البدء
  • المشاهدات 97,013
توقيع : موريادي
الحلا تبي تتعلم قال:
رجعنا لكم مرة اخرى مع استفسار أخر
وطلب مساعدة وبصراحة عجزت عن حلها
كود: 
#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
 
elawady قال:
نعم انا اتابع الموضوع حتي اري سؤال صعب لا يمكن الرد عليه :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
طبعا في برامج انتي فيروس مينفعش تتقفل زي الكاسبرسكي
 
elawady قال:
كود: 
#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
elawady قال:
كود: 
#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
انا مجربه علي اكس بي
لسة مجربتهوش علي سفن
 
elawady قال:
انا مجربه علي اكس بي
لسة مجربتهوش علي سفن
أنقر للتوسيع...

على الاكسبي تمام لكن كما قلت لا يستطيع الاغلاق كاسبر
لكن على ويندوز سفن في مشكلة
​
 
توقيع : 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:
 
توقيع : yones7x
elawady قال:
نعم انا اتابع الموضوع حتي اري سؤال صعب لا يمكن الرد عليه :d::d:
أنقر للتوسيع...


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

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

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

انشغلت هذه الأيام حتى إني مريض الان :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
ramay قال:
مشكور يا الغالي لكن كود بطيئ في العمل يأخذ فتره حتى يبدا تنفيذ​
أنقر للتوسيع...

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

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

جربه في ملف au3 :bleh:
 
توقيع : yones7x
:ok::ok::ok::ok::ok:
 
yones7x قال:
عندما تحول ملف إلى 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
يجب تسجيل الدخول أو التسجيل كي تتمكن من الرد هنا.
عودة
أعلى