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

waget قال:
أخوي KinXG BlacK​


ما أعتقد تقدر تدمج مجلد ... لكن​

في طريقتين الاولى
من خلال السكريبت
تنشى المجلد في المسار ألي تريدة
تدمج الملفات في السكريبت ..FileInstall..
مكان الاستخراج يكون مسار المجلد إلي أنشأته ...​

الطريقة الثانية
تضع المجلد بجانب السكريبت و تخلي السكريبت ينسخه من المجلد اللي متواجدين في إلى المسار ألي تريده
بعد كذا تضغط المجلد والسكريبت في ملف sfx بالوينرار أو 7zip وتخلي السكريبت ويشتغل فور الاستخراج​

:d:​

الحلا ...​

اللي تبحثين عنه هو udf مو دوال متعرفه مع اللغة
يعني ماراح تلقينه في الكتاب المساعد في منتدى اللغه تلقينه على العموم هذا هو ملف udf مع المثال حقه​

يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
أنقر للتوسيع...

:ok::ok: مشكور ما تقصر
 
توقيع : الحلا تبي تتعلم
AutoIt

الحلا تبي تتعلم قال:
وش تريد تسوي بالضبط
نحن هنا لنعلم الاخلاقيات الحسنة ولسنا بصدد نشر الفساد
وتعاونوا على التقوى والبر ولا تعاونوا على الاثم والعدوان
أنقر للتوسيع...
ليش نظرتك سوداوية ؟
:i:

لو أبي أنسخ ملفات ضارة ومشفرة ابلقى أسهل وأسرع بكثير وبتمشي على الكثيرين ،،

اللي بسوي صراحة كراكات ونقل مجلد تعريبات للبرامج بشكل تلقائي دون الحاجة تدخل من المستخدم
وهذي تختصر علي الكثير من الخطوات وتخدم المبتدئين بشكل كبير

waget قال:
أخوي KinXG BlacK

ما أعتقد تقدر تدمج مجلد ... لكن

في طريقتين الاولى
من خلال السكريبت
تنشى المجلد في المسار ألي تريدة
تدمج الملفات في السكريبت ..FileInstall..
مكان الاستخراج يكون مسار المجلد إلي أنشأته ...

الطريقة الثانية
تضع المجلد بجانب السكريبت و تخلي السكريبت ينسخه من المجلد اللي متواجدين في إلى المسار ألي تريده
بعد كذا تضغط المجلد والسكريبت في ملف sfx بالوينرار أو 7zip وتخلي السكريبت ويشتغل فور الاستخراج

:d:

الحلا ...

اللي تبحثين عنه هو udf مو دوال متعرفه مع اللغة
يعني ماراح تلقينه في الكتاب المساعد في منتدى اللغه تلقينه على العموم هذا هو ملف udf مع المثال حقه

يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي



​
أنقر للتوسيع...

ياحليلي وأنا أنوقز في ذا المواقع حتي الصين ما سلموا مني ..:no:
اثره مافيه
الطريقة الاولى ماتصلح لي

ياسلام الطريقة الثاني :ok:
"|exe"عندي ملفات مسويها من زمان
للمشروع كنت ناوي أسويها بأوتوبلاي

أوحط أزرار التحول إلى كذا التحول كذا للبرنامج الفلاني بس أبي أحذف المجلد ثم ينسخ المجلد اللي ثاني بمكانه والعكس عند الرغبة بالعودة
AutoItلذلك أبي استخدم الـ

فيني النوم مأقدر أستوعب زين
وبيض الله وجهك ريحتني من البحث والعناء ،
لي عودة إن شاء الله

​
 
توقيع : KinXG BlacK
توقيع : yones7x
السلام عليكم كيفكم يا أحباب أن شاء الله تكون في الافضل صحة وعافيه

هل هذا كود ممكن يمسح ملفات تامب وأن كلن لا لماذا
كود: 
FileDelete(@TempDir &"\*.*")

وسأطلب منكم كود صعب لللخبراء فقط

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

وعذرنا منكم يا الغوالي
:king:
​
 
توقيع : ramay
ramay قال:
السلام عليكم كيفكم يا أحباب أن شاء الله تكون في الافضل صحة وعافيه​


هل هذا كود ممكن يمسح ملفات تامب وأن كلن لا لماذا
كود: 
FileDelete(@TempDir &"\*.*")

وسأطلب منكم كود صعب لللخبراء فقط​

هو طلبته في موضوع الدورة
لكن يمكن أستاذ عبد الله لم يعدي عليه
المهم
نريد من كود
الاغلاق جميع مهام في Process
ماعدا من هو المهم لتشغيل النظام
لو ماحدا فهم عليا
روح لجهازك وأدخل عن طريق سيف مود
أضغط أدراة مهام ثم Process هل رأيت هذه العمليات
أريد هذه عمليات فقط التى تعمل بعد تشغيل كود​

وعذرنا منكم يا الغوالي
:king:​
أنقر للتوسيع...

بالنسبة لسؤالك الاول
في ويندوز سفن تكون الملفات الموجود في مجلد التيمب في حالة قيد تشغيل ولا يمكن حذفها او بمعنى اخر مثل ما قال واجت ان السكربت يقوم بحذف الملفات وفي حالة عدم استطاعه لحذف ملف معين فأن عمل السكربت يتوقف وقد وجهنا واجت بان توجد طريقتين لحذف تلك الملفات بالسكربت بس الحلا تقول لك اسهل طريقة لحذف الملفات عن طريق الدوس بالاتوات واليك الكود التالي وهو كافي ووافي ويقوم بعمل ما تريده
كود: 
#include<process.au3>
_RunDOS("del /q /s /f /a %temp%\*.*")


بالنسبة للاستفسارك الثاني فالامر المسؤول عن اغلاق اي عملية بالجهاز هو الامر التالي
كود: 
processclose

لكن بعض العمليات لا يمكن اغلاقها بهذا الامر مثل برامج الحماية وبعض العمليات الاخرى
بمعنى اخر انك تطلب المستحيل فهذه اللغة لا تستطيع ايقاف كل العمليات بالجهاز وعلى سبيل المثال برنامج الحمياة لا تستطيع ايقافه بواسطة الاتوات
 
توقيع : الحلا تبي تتعلم
elawady
ومن ينساك انت واوكاب والزري2
وكنتم من أشد الناس المشاركين في موضوع اخونا الشيخ
قراءة هنئية للموضوع وشرفتنا بالمنتدى ولا تحرمنا من خبراتك ونتمنى منك ان لا تقرأ الموضوع وتغادر الصفحة بدون وضع بصمة :d:
 
توقيع : الحلا تبي تتعلم
الحلا تبي تتعلم قال:
elawady
ومن ينساك انت واوكاب والزري2
وكنتم من أشد الناس المشاركين في موضوع اخونا الشيخ
قراءة هنئية للموضوع وشرفتنا بالمنتدى ولا تحرمنا من خبراتك ونتمنى منك ان لا تقرأ الموضوع وتغادر الصفحة بدون وضع بصمة :d:
أنقر للتوسيع...

وجدتك ضمن الاعضاء الذين يشاهدون الموضوع
 
توقيع : الحلا تبي تتعلم
رجعنا لكم مرة اخرى مع استفسار أخر
وطلب مساعدة وبصراحة عجزت عن حلها
كود: 
#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

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

ما اعرف ممكن كلامي وطلبي يكون غير مفهوم بس اتمنى ان اجد الحل والله عجزانة عن حل المشكلة والله يكون بعون كل شخص حاب يدرس البرمجة
 
توقيع : الحلا تبي تتعلم
الحلا تبي تتعلم قال:
بالنسبة لسؤالك الاول
أنقر للتوسيع...
الحلا تبي تتعلم قال:
في ويندوز سفن تكون الملفات الموجود في مجلد التيمب في حالة قيد تشغيل ولا يمكن حذفها او بمعنى اخر مثل ما قال واجت ان السكربت يقوم بحذف الملفات وفي حالة عدم استطاعه لحذف ملف معين فأن عمل السكربت يتوقف وقد وجهنا واجت بان توجد طريقتين لحذف تلك الملفات بالسكربت بس الحلا تقول لك اسهل طريقة لحذف الملفات عن طريق الدوس بالاتوات واليك الكود التالي وهو كافي ووافي ويقوم بعمل ما تريده​

كود: 
#include<process.au3>


كود: 
[CENTER]_RunDOS("del /q /s /f /a %temp%\*.*")[/CENTER]



بالنسبة للاستفسارك الثاني فالامر المسؤول عن اغلاق اي عملية بالجهاز هو الامر التالي​

كود: 
processclose



[​



لكن بعض العمليات لا يمكن اغلاقها بهذا الامر مثل برامج الحماية وبعض العمليات الاخرى

بمعنى اخر انك تطلب المستحيل فهذه اللغة لا تستطيع ايقاف كل العمليات بالجهاز وعلى سبيل المثال برنامج الحمياة لا تستطيع ايقافه بواسطة الاتوات​
أنقر للتوسيع...



وقد وجهنا واجت بان توجد طريقتين لحذف تلك الملفات بالسكربت بس
أنقر للتوسيع...



ننتظر أستاذنا عبدالله للتوضيح طريقتين بعد امره

يا حلا طريقتك أعرفه​






بالنسبة للاستفسارك الثاني فالامر المسؤول عن اغلاق اي عملية بالجهاز هو الامر التالي

كود: 
processclose





هذا ننتظر فيه عبد الله أيضا

عبد الله صار عندك شغل يا الغالي :bleh:​
 
توقيع : ramay
ramay قال:
ننتظر أستاذنا عبدالله للتوضيح طريقتين بعد امره​

يا حلا طريقتك أعرفه​






بالنسبة للاستفسارك الثاني فالامر المسؤول عن اغلاق اي عملية بالجهاز هو الامر التالي​

كود: 
processclose





هذا ننتظر فيه عبد الله أيضا ​


عبد الله صار عندك شغل يا الغالي :bleh:​
أنقر للتوسيع...

بالنسبة للاستفسار الاول عندك طريقين طريق معبد وسهل وما به شوك وهي طريقتي:d::bleh:
وطريق طويل وشاق وكله مخاطر وشوك واكواد طويلة وهي طريقة عبدالله:ok::ok:
فليه تختار لنفسك الصعب يعني نفس اليهود يحبوا يكلفوا على انفسهم ويحبوا المشقة وما يقنعوا بما لديهم:hh::bleh:

اما بالنسبة للاستفسار الثاني
فجرب اغلاق برنامج الكاسبر بالامر التالي
كود: 
processclose("avp.exe")

فمن البديهي ان هذه البرمجة لغة الاتوات لا تستطيع غلق بعض العمليات نفس برامج الحماية وغيرها

وتقبل مروري ولا تنسوا ان لي طلب واستفسار قبل هذه المشاركة
 
توقيع : الحلا تبي تتعلم
الحلا تبي تتعلم قال:
فليه تختار لنفسك الصعب يعني نفس اليهود يحبوا يكلفوا على انفسهم ويحبوا المشقة وما يقنعوا بما لديهم:hh::bleh:
أنقر للتوسيع...
والله تذكرت قصة اليهود لما امرهم الله عز وجل بذبح بقرة -- فكل مرة اليهود يسالوا نبيهم ليسال الله عز وجل هن لون البقرة ومرة عن صفاتها ومرة عن ما دري ويش هههه ضيقوا اليهود على انفسهم وصعبوا الامر بكثرة اسئلتهم
 
توقيع : الحلا تبي تتعلم
يعني نفس اليهود
أنقر للتوسيع...
سامحك الله يا حلا هل تشبهي مسلمين في اليهود
وطريق طويل وشاق وكله مخاطر وشوك واكواد طويلة وهي طريقة عبدالله
أنقر للتوسيع...
من هاب صعود الجبالي باقيه دائما بين حافر
يعني ليش ما نتعلم جميع الطرق
:bleh:​
 
توقيع : ramay
الحلا تبي تتعلم قال:
رجعنا لكم مرة اخرى مع استفسار أخر
وطلب مساعدة وبصراحة عجزت عن حلها
كود: 
#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

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

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

للرفع وحتى لا يختفي طلبي
 
توقيع : الحلا تبي تتعلم
سلام عليكم ...

هلا ومرحبا رامي

بالنسبه لموضوع حذف الملفات فالطريقة وضعت كودها سابقاً..

وهي بإستخدام دالتي {FileFindFirstFile + FileFindNextFile}

والطريقة الثانية في بنيتها في الاساس تعتمد على الاولى <<< رغم إن هذا ماراح يهمك ... بما إنك تتعامل مع مصفوفه في النهاية ...
أقصد بذالك الدالة {_FileListToArray}

لكن كلا الطريقتين تعتمد على فهم الحالقات + الاخيره توضيف الحلقه في مصفوفه ..

نجي لموضوع العمليات ...

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

وثم نستخدم ProcessClose >> داخل الحلقة

وهذا مثال عليها

كود: 
[COLOR=#AA0000]$_Result[/COLOR] [COLOR=#FF0000]=[/COLOR] [URL="http://www.autoitscript.com/autoit3/docs/functions/ProcessList.htm"][COLOR=#000090][I]ProcessList[/I][/COLOR][/URL] [COLOR=#FF0000]()[/COLOR]

[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm#For"][COLOR=#0000FF]for[/COLOR][/URL] [COLOR=#AA0000]$i[/COLOR][COLOR=#FF0000]=[/COLOR][COLOR=#AC00A9][I]1[/I][/COLOR] [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm#To"][COLOR=#0000FF]to[/COLOR][/URL] [COLOR=#AA0000]$_Result[/COLOR][COLOR=#FF0000][[/COLOR][COLOR=#AC00A9][I]0[/I][/COLOR][COLOR=#FF0000]][[/COLOR][COLOR=#AC00A9][I]0[/I][/COLOR][COLOR=#FF0000]][/COLOR]
    [URL="http://www.autoitscript.com/autoit3/docs/functions/MsgBox.htm"][COLOR=#000090][I]MsgBox[/I][/COLOR][/URL][COLOR=#FF0000]([/COLOR][COLOR=#AC00A9][I]0[/I][/COLOR][COLOR=#FF0000],[/COLOR][COLOR=#9999CC]""[/COLOR][COLOR=#FF0000],[/COLOR][COLOR=#AA0000]$_Result[/COLOR][COLOR=#FF0000][[/COLOR][COLOR=#AA0000]$i[/COLOR][COLOR=#FF0000]][[/COLOR][COLOR=#AC00A9][I]0[/I][/COLOR][COLOR=#FF0000]] &[/COLOR] [URL="http://www.autoitscript.com/autoit3/docs/macros.htm#@crlf"][COLOR=#FF33FF]@CRLF[/COLOR][/URL] [COLOR=#FF0000]&[/COLOR] [COLOR=#AA0000]$_Result[/COLOR][COLOR=#FF0000][[/COLOR][COLOR=#AA0000]$i[/COLOR][COLOR=#FF0000]][[/COLOR][COLOR=#AC00A9][I]1[/I][/COLOR][COLOR=#FF0000]])[/COLOR]
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm#Next"][COLOR=#0000FF]next[/COLOR][/URL]
يمكن في طريقة أفضل من هذي لا أعلمها :d:
وفق الله الجميع
​
 
توقيع : waget
waget قال:
سلام عليكم ...


هلا ومربحا رامي

بالنسبه لموضوع حذف الملفات فالطريقة وضعت كودها سابقاً..

وهي بإستخدام دالتي {filefindfirstfile + filefindnextfile}

والطريقة الثانية في بنيتها في الاساس تعتمد على الاولى <<< رغم إن هذا ماراح يهمك ... بما إنك تتعامل مع مصفوفه في النهاية ...
أقصد بذالك الدالة {_filelisttoarray}

لكن كلا الطريقتين تعتمد على فهم الحالقات + الاخيره توضيف الحلقه في مصفوفه ..

نجي لموضوع العمليات ...

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

وثم نستخدم processclose >> داخل الحلقة

وهذا مثال عليها

كود: 
[color=#aa0000]$_result[/color] [color=#ff0000]=[/color] [url="http://www.autoitscript.com/autoit3/docs/functions/processlist.htm"][color=#000090][i]processlist[/i][/color][/url] [color=#ff0000]()[/color]
 
[url="http://www.autoitscript.com/autoit3/docs/keywords.htm#for"][color=#0000ff]for[/color][/url] [color=#aa0000]$i[/color][color=#ff0000]=[/color][color=#ac00a9][i]1[/i][/color] [url="http://www.autoitscript.com/autoit3/docs/keywords.htm#to"][color=#0000ff]to[/color][/url] [color=#aa0000]$_result[/color][color=#ff0000][[/color][color=#ac00a9][i]0[/i][/color][color=#ff0000]][[/color][color=#ac00a9][i]0[/i][/color][color=#ff0000]][/color]
   [url="http://www.autoitscript.com/autoit3/docs/functions/msgbox.htm"][color=#000090][i]msgbox[/i][/color][/url][color=#ff0000]([/color][color=#ac00a9][i]0[/i][/color][color=#ff0000],[/color][color=#9999cc]""[/color][color=#ff0000],[/color][color=#aa0000]$_result[/color][color=#ff0000][[/color][color=#aa0000]$i[/color][color=#ff0000]][[/color][color=#ac00a9][i]0[/i][/color][color=#ff0000]] &[/color] [url="http://www.autoitscript.com/autoit3/docs/macros.htm#@crlf"][color=#ff33ff]@crlf[/color][/url] [color=#ff0000]&[/color] [color=#aa0000]$_result[/color][color=#ff0000][[/color][color=#aa0000]$i[/color][color=#ff0000]][[/color][color=#ac00a9][i]1[/i][/color][color=#ff0000]])[/color]
[url="http://www.autoitscript.com/autoit3/docs/keywords.htm#next"][color=#0000ff]next[/color][/url]
يمكن في طريقة أفضل من هذي لا أعلمها :d:
وفق الله الجميع
​
أنقر للتوسيع...


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

وعن عمليات
لا اظن هذا كود ما أريد
لأن اريد كود يقتل جميع عمليات دون معرفة برامج التى تعمل فيه
يعني هذا لكود يجب أن يقتل جميع عمليات في أي جهاز
دون معرفة من يعمل فه عمليات
​
 
توقيع : ramay
ramay قال:
وعن عمليات
[/center]
أنقر للتوسيع...

مزعج:d::d:

اليك كود احد الاخوان اعطانا اياه اثناء دروس ونقاشات الاستاذ الشيخ
بس والله لا اعلم من هو بالضبط الذي اعطانا هذا الكود لقتل العمليات بالجهاز:q:
أفضل شي عند اختك الحلا انها مرتبة نفسها ومسوية مجلدات وتحفظ الاعمال والدروس:d::y:
كود: 
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <TreeViewConstants.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListboxConstants.au3>
#include <IE.au3>
Global $list = ProcessList()
Global $iniPath = @HomePath & "\ShutIT.ini"
Global $max = $list[0][0]+1
Global $arr[$max]
If FileExists($iniPath) Then
    $var = IniReadSection($iniPath, "Action")
    If @error Then
        _Start()
    Else
    For $i = 1 To $var[0][0]
        If ($var[$i][1] = "1") Then
            Global $option = $var[$i][0]
            _PreShut()
        Else
            _Start()
        EndIf
    Next
    EndIf
Else
    _Start()
EndIf

;===============================================================
;Start Function GUI
;===============================================================
Func _Start()
$Start = GUICreate("ShutIT",230, 320)
;~~~~~~~~~~GUI Top Menu~~~~~~~~~~
$fileMenu = GUICtrlCreateMenu("&File")
$exititem = GUICtrlCreateMenuItem("Exit", $filemenu)
$settingsMenu = GUICtrlCreateMenu("Tools")
$settingsitem = GUICtrlCreateMenuItem("Settings", $SettingsMenu)
$deleteitem = GUICtrlCreateMenuItem("Delete ini", $SettingsMenu)
$helpMenu = GUICtrlCreateMenu("Help")
$infoitem = GUICtrlCreateMenuItem("Info", $helpMenu)
;~~~~~~~~~~GUI List~~~~~~~~~~
GUICtrlCreateGroup("Program Settings", 10, 40, 210, 150)
GUICtrlCreateLabel("Chose programs to exit and which action to take when running ShutIT", 10, 10, 210,30)
$procList = GUICtrlCreateList("", 20,60, 190, 105, $LBS_NOSEL)
;~~~~~~~~~~GUI Combo~~~~~~~~~~
GUICtrlCreateGroup("Action Settings", 10, 195, 210, 68)
$labelCombo = GUICtrlCreateLabel("Action:", 35, 215)
Global $decisionCombo = GUICtrlCreateCombo("Close Programs", 75,212, 120)
GUICtrlSetData(-1, "Shutdown|Restart|Hibernate")
;~~~~~~~~~~GUI Check Box~~~~~~~~~~
$labelCheckBox = GUICtrlCreateLabel("Use same settings next time:", 35, 240)
Global $startCheckBox = GUICtrlCreateCheckBox("", 178,238,20,20)
;~~~~~~~~~~GUI Buttons~~~~~~~~~~
$buttonStart = GUICtrlCreateButton("Start", 30, 270, 75, 25)
$buttonCancel = GUICtrlCreateButton("Cancel", 125, 270, 75,25)
$buttonPrograms = GUICtrlCreateButton("Programs", 20, 160, 70, 23)
 

;~~~~~~~~~~List chosen programs to close ~~~~~~~~~~
For $i = 1 to $list[0][0]
    If ($list[$i][0] == "[System Process]") Or ($list[$i][0] == "svchost.exe") Then
        ;Do Nothing
    Else
    $iniCheck = IniRead($iniPath, "Checked", $list[$i][0], "empty")
        If FileExists($iniPath) Then
            If Not(($iniCheck == 4) Or ($iniCheck == 260) Or ($iniCheck == 0) Or ($iniCheck = "empty")) Then
                $test = GUICtrlSetData($procList, $list[$i][0])
            Else
                ;Do Nothing
            EndIf
        Else
            ;Do Nothing
        EndIf
    EndIf
Next
GUISetState()
While 1
$msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE Or $msg = $exititem Or $msg = $buttonCancel
            ExitLoop
        Case $msg = $settingsitem Or $msg = $buttonPrograms
            GUIDelete()
            Sleep(100)
            _ProcessChoice()
        Case $msg = $buttonStart
            _Shutit()
        Case $msg = $infoitem
            _Info()
        Case $msg = $deleteitem
            FileDelete($iniPath)
            TrayTip("ShutIT", "The ini file has been deleted", 5,1)
    EndSelect
WEnd
_Close()
EndFunc
;===============================================================
;Process Picker GUI
;===============================================================
Func _ProcessChoice()
Global $Choice = GUICreate("ShutIT",300, 530)
;~~~~~~~~~~GUI TreeView~~~~~~~~~~
$CBTree = GUICtrlCreateTreeView(10,50,280,390, BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_DISABLEDRAGDROP, $TVS_CHECKBOXES), $WS_EX_CLIENTEDGE)
;~~~~~~~~~~GUI Buttons~~~~~~~~~~
$buttonCheck = GUICtrlCreateButton("Save", 140, 500, 70, 25)
$buttonCancel = GUICtrlCreateButton("Cancel", 220, 500, 70, 25)
$buttonCheckAll = GUICtrlCreateButton("Check All", 10, 445, 70, 20)
$buttonUnCheckAll = GUICtrlCreateButton("UnCheck All", 90, 445, 70, 20)
;~~~~~~~~~~Misc~~~~~~~~~~
$labelTop = GUICtrlCreateLabel("Choose which programs/applications you want to close during the shutdown process", 10, 10, 280,40)
$iniFile = IniReadSection($iniPath, "Checked")
;~~~~~~~~~~Check previously chosen programs~~~~~~~~~~
For $i = 1 to $list[0][0]
    If ($list[$i][0] == "[System Process]") Or ($list[$i][0] == "svchost.exe") Then
        ;Do Nothing
    Else
        $arr[$i] = GUICtrlCreateTreeViewItem($list[$i][0], $CBTree)
        $iniCheck = IniRead($iniPath, "Checked", $list[$i][0], "empty")
        If FileExists($iniPath) Then
            If Not(($iniCheck == 4) Or ($iniCheck == 260)) Then
                For $z = 1 To $iniFile[0][0]
                    If ($list[$i][0] ==  $iniFile[$z][0]) Then
                        GUICtrlSetState($arr[$i], $GUI_CHECKED)
                    Else
                        ;Do nothing
                    EndIf
                Next
            Else
                ;Do Nothing
            EndIf
        Else
            ;Do nothing
        EndIf
    EndIf
Next
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $buttonCheck
            _Check()
            GUIDelete()
            Sleep(100)
            _Start()
        Case $msg = $buttonCancel
            GUIDelete()
            Sleep(100)
            _Start()
        Case $msg = $buttonCheckAll
            For $z = 1 To $max-1
            GUICtrlSetState($arr[$z], $GUI_CHECKED)
            Next
        Case $msg = $buttonUnCheckAll
            For $z = 1 To $max-1
            GUICtrlSetState($arr[$z], $GUI_UNCHECKED)
            Next
    EndSelect
WEnd
GUIDelete()
Sleep(100)
_Start()
EndFunc
;===============================================================
;Check if a Process has been saved befor
;===============================================================
Func _Check()
for $i = 1 to $max-1
$test = GUICtrlRead($arr[$i])
$name = GUICtrlRead($arr[$i],1)
    If ($name == "0") Then
        ;Do Nothing
    Else
        IniWrite($iniPath, "Checked", $name, $test)
    EndIf
Next
EndFunc
;===============================================================
;Start the ShutIT function
;===============================================================
Func _Shutit()
$inputDecision = GUICtrlRead($decisionCombo)
$inputSave = GUICtrlRead($startCheckBox)
;~~~~~~~~~~Close the chosen programs~~~~~~~~~~
For $i = 1 to $list[0][0]
    If ($list[$i][0] == "[System Process]") Or ($list[$i][0] == "svchost.exe") Then
        ;Do Nothing
    Else
    $iniCheck = IniRead($iniPath, "Checked", $list[$i][0], "empty")
        If FileExists($iniPath) Then
            If Not(($iniCheck == 4) Or ($iniCheck == 260)) Then
                ProcessClose($list[$i][0])
                TrayTip("ShutIT", "Closing "&$list[$i][0],3,1)
            Else
                ;Do Nothing
            EndIf
        Else
            ;Do Nothing
        EndIf
    EndIf
Next
If ($inputDecision = "Shutdown") Then
    If ($inputSave = 1) Then
        $cont = MsgBox(36,"","You have set ShutIT to "&$inputDecision&", this setting will be saved and the next time you run ShutIT this action will take place without any window pop-up."[EMAIL="&@CRLF&""&@CRLF&"To"]&@CRLF&""&@CRLF&"To[/EMAIL] be able to chose new programs or another action you will have to change the value under [Action] section in shutit.ini to a 0.")
        Select
            Case $cont = $GUI_EVENT_CLOSE
                GUIDelete()
                _Start()
            Case $cont = 6
                IniWrite($iniPath, "Action", $inputDecision, "1")
            Case $cont = 7
                GUIDelete()
                _Start()
        EndSelect
    Else
        IniWrite($iniPath, "Action", $inputDecision, "0")
    EndIf
    Sleep(1000)
    Shutdown(5, "Forced AutoIT Shutdown")
ElseIf ($inputDecision = "Restart") Then
    If ($inputSave = 1) Then
        $cont = MsgBox(36,"","You have set ShutIT to "&$inputDecision&", this setting will be saved and the next time you run ShutIT this action will take place without any window pop-up."[EMAIL="&@CRLF&""&@CRLF&"To"]&@CRLF&""&@CRLF&"To[/EMAIL] be able to chose new programs or another action you will have to change the value under [Action] section in shutit.ini to a 0.")
        Select
            Case $cont = $GUI_EVENT_CLOSE
                GUIDelete()
                _Start()
            Case $cont = 6
                IniWrite($iniPath, "Action", $inputDecision, "1")
            Case $cont = 7
                GUIDelete()
                _Start()
        EndSelect
    Else
        IniWrite($iniPath, "Action", $inputDecision, "0")
    EndIf
    Sleep(1000)
    Shutdown(6, "Forced AutoIT Restart")
ElseIf ($inputDecision = "Hibernate") Then
    If ($inputSave = 1) Then
    $cont = MsgBox(36,"","You have set ShutIT to "&$inputDecision&", this setting will be saved and the next time you run ShutIT this action will take place without any window pop-up."[EMAIL="&@CRLF&""&@CRLF&"To"]&@CRLF&""&@CRLF&"To[/EMAIL] be able to chose new programs or another action you will have to change the value under [Action] section in shutit.ini to a 0.")
        Select
            Case $cont = $GUI_EVENT_CLOSE
                GUIDelete()
                _Start()
            Case $cont = 6
                IniWrite($iniPath, "Action", $inputDecision, "1")
            Case $cont = 7
                GUIDelete()
                _Start()
        EndSelect
    Else
        IniWrite($iniPath, "Action", $inputDecision, "0")
    EndIf
    Sleep(1000)
    Shutdown(68, "Forced AutoIT Hibernate")
ElseIf ($inputDecision = "Close Programs") Then
    If ($inputSave = 1) Then
        $cont = MsgBox(36,"","You have set ShutIT to "&$inputDecision&", this setting will be saved and the next time you run ShutIT this action will take place without any window pop-up."[EMAIL="&@CRLF&""&@CRLF&"To"]&@CRLF&""&@CRLF&"To[/EMAIL] be able to chose new programs or another action you will have to change the value under [Action] section in shutit.ini to a 0.")
        Select
            Case $cont = $GUI_EVENT_CLOSE
                GUIDelete()
                _Start()
            Case $cont = 6
                IniWrite($iniPath, "Action", $inputDecision, "1")
            Case $cont = 7
                GUIDelete()
                _Start()
        EndSelect
    Else
        IniWrite($iniPath, "Action", $inputDecision, "0")
    EndIf
    Sleep(1000)
Else
    ;Do nothing
EndIf
EndFunc
Func _PreShut()
;~~~~~~~~~~Close the chosen programs~~~~~~~~~~
For $i = 1 to $list[0][0]
    If ($list[$i][0] == "[System Process]") Or ($list[$i][0] == "svchost.exe") Then
        ;Do Nothing
    Else
    $iniCheck = IniRead($iniPath, "Checked", $list[$i][0], "empty")
        If FileExists($iniPath) Then
            If Not(($iniCheck == 4) Or ($iniCheck == 260)) Then
                ProcessClose($list[$i][0])
                TrayTip("ShutIT", "Closing "&$list[$i][0],3,1)
            Else
                ;Do Nothing
            EndIf
        Else
            ;Do Nothing
        EndIf
    EndIf
Next
If ($option = "Shutdown") Then
    Shutdown(5, "Forced AutoIT Shutdown")
ElseIf ($option = "Restart") Then
    Shutdown(6, "Forced AutoIT Restart")
ElseIf ($option = "Hibernate") Then
    Shutdown(68, "Forced AutoIT Hibernate")
ElseIf ($option = "Close Programs") Then
    ;Do Nothing
Else
    ;Do nothing
EndIf

EndFunc
;===============================================================
;Close the script
;===============================================================
Func _Close()
    Exit
EndFunc
;===============================================================
;Information GUI
;===============================================================
Func _Info()
    $text = ""[EMAIL="&@CRLF&"This"]&@CRLF&"This[/EMAIL] program is made for thouse who want to shutdown certain programs with one click. You can chose if you want to just shutdown programs or if you want to shutdown programs and Restart/Shutdown/Hybernate your computer"[EMAIL="&@CRLF&""&@CRLF&"Step-by-Step"&@CRLF&"1"]&@CRLF&""&@CRLF&"Step-by-Step"&@CRLF&"1[/EMAIL]. Go to Tools > Settings and chose which programs to close"[EMAIL="&@CRLF&"2"]&@CRLF&"2[/EMAIL]. Click the Save button"[EMAIL="&@CRLF&"3"]&@CRLF&"3[/EMAIL]. Decide if you want to Restart/Shutdown/Hybernate or just close programs"[EMAIL="&@CRLF&"4"]&@CRLF&"4[/EMAIL]. Click the Start button"[EMAIL="&@CRLF&"5"]&@CRLF&"5[/EMAIL]. Let the program do its job"[EMAIL="&@CRLF&""&@CRLF&"This"]&@CRLF&""&@CRLF&"This[/EMAIL] program is coded in AutoIt scripting language if you have any feedback or is interested in more visit [URL]http://www.rocksta.se[/URL]"
    GUICreate("ShutIT - Information",400,350)
    $title = GUICtrlCreateLabel("ShutIT", 170, 20, 100)
    GUICtrlSetFont(-1, 12, 800)
    $owner = GUICtrlCreateLabel("Tony Sundstr?m Langlet", 140, 50, 200)
    $link = GUICtrlCreateLabel("[URL="http://www.rocksta.se",160"]www.rocksta.se",160[/URL], 70, 100)
    GUICtrlSetColor(-1, 0x0000FF)
    $buttonClose = GUICtrlCreateButton("Close", 160, 310, 70, 25)
    $infoEdit = GUICtrlCreateEdit($text, 10, 100, 380, 200, BitOr($ES_READONLY, $ES_MULTILINE))
    GUICtrlSetBkColor(-1, 0xffffff)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $buttonClose
            ExitLoop
        Case $msg = $link
            _IECreate("[URL]http://www.rocksta.se[/URL]")
    EndSelect
WEnd
GUIDelete()
EndFunc
 
توقيع : الحلا تبي تتعلم
الحلا تبي تتعلم قال:
رجعنا لكم مرة اخرى مع استفسار أخر
وطلب مساعدة وبصراحة عجزت عن حلها
كود: 
#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

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

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

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