[3] - دورة الاوتوات "AutoIt" :::: اوامر + شروحات + دروس

إختياري من أي ناحية فوزان

يعني تحط شرط إذا تحقق ينسخ وإذا لا العكس..

إذا كذا حط دالة النسخ داخل الاف..

مو تحطها فوق السكربت راح ينفذ الدوال دالة دالة سطر سطر :d:

 

موريادي ترا بصفقك :d:​

راجع الكود زين .. وبلاش تتنيح :cr:

يموووووووون << :q:​

 

طيب وكذا شغال ولا لا ... انت نسيت ان الاوامر يتم تنفيذها بالتتابع !!

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

كود:

$msg = MsgBox(1, "Choise", "Do you want a Backup of Favorites?")
If $msg = 1 Then
 $fofo = DirCreate(@DesktopDir & "\BackUp")
 $dir = DirCopy(@FavoritesDir & "\", @DesktopDir & "\BackUp", 1)
 $file = FileCopy(@FavoritesDir & "\*.*", @DesktopDir & "\BackUp", 9)
 If $fofo = 1 Then
  If $dir = 1 Then
   If $file = 1 Then
    MsgBox(0, "Msg", "Done Favorites BackUp")
   Else
    MsgBox(0, "Msg", "Error Copy Files")
   EndIf
  Else
   MsgBox(0, "Msg", "Error Copy Folders")
  EndIf
 Else
  MsgBox(0, "Msg", "Error Create")
 EndIf
Else
 MsgBox(0, "Exit", "Thanks")
EndIf
MsgBox(0, "About", "This Code By:Moriadi", 3)

 

بصراحه مدري ان الكود يقرأ سطر سطر ...

لكن كود بندر طلع مثل ما ابيه ...

بس

كود:

$msg = MsgBox(1, "Choise", "Do you want a Backup of Favorites?")
If $msg = 1 Then
[COLOR=red] $fofo = DirCreate(@DesktopDir & "\BackUp")
 $dir = DirCopy(@FavoritesDir & "\", @DesktopDir & "\BackUp", 1)
 $file = FileCopy(@FavoritesDir & "\*.*", @DesktopDir & "\BackUp", 9)
[/COLOR] If $fofo = 1 Then
  If $dir = 1 Then
   If $file = 1 Then

مو المفروض نضع شرط او امر مكان اللون الاحمر ... ولكنك وضعت متغيرات .. كيف ؟

انا وضعت المتغيرات في البداية وبعدها اوامر if باسناد المتغيرات .. وانت وضعت المتغيرات بدل الاوامر .. فيه تناقض ..

استحملوني شوي ... :er:

 

يس اختياري ...

بس مدري اني كتابتي للكود بهذا الشكل يشكل فرق ...

وصلت بس مافهمت شوف المشاركة السابقة ..

 

شوف فوزان ليش نحط متغيرات للدوال ..

أول شيء تتنفذ الدالة وبعدين ترجع بقيمة والقيمة وين ترووح؟؟

تنحفظ في المتغير وعندها نقدر ننتحقق هل نجحت في التنفيذ أو لا وغيرها من الامور

الان إنت وضعت مسج في البداية تبي المستخدم يختار هل يوافق على النسخ أو لا

إذا وافق تنتهي المسج وترجع بقيمة وتحفظ في المتغير نقدر نتحقق من القيمة بإستخدام if

بعد التحقق نقرر شو نعمل وبس ..

 

اتوقع ان الامر التبس عليك يافوزان :d:

كود:

$msg = MsgBox(1, "Choise", "Do you want a Backup of Favorites?")

هي نفسها و تقوم بنفس العمل

كود:

 
MsgBox(1, "Choise", "Do you want a Backup of Favorites?")

بس الفرق ان القيمه العائدة من الامر في الامر الاول تسند الى متغير وفي الامر الثاني لا

شغل الكود الاول ثم شغل الكود الثاني !!

هل فيه اي اختلااف ؟​

 

امر الخروج من الـسكربت

كود:

Exit

عند الوصول الى هذا الامر فان السكربت سيقوم بالخروج ولن يكمل في حالة كان بعده اوامر

مثال

كود:

$msg = MsgBox(4 + 524288, "Expertise .. ", "مثال بسيط على امر الخروج .. هل تريد المشاهده ؟؟ ")
If $msg = 6 Then
 MsgBox(0 + 524288, "Expertise .. ", "قمت باختيار نعم وسيتم اضهار الرساله التي بعد جملة الشرط .. لااحظ ")
Else
 MsgBox(0 + 524288, "Expertise .. ", " قمت باختيار لا .. سيتم الخروج الان دون ظهور الرساله التي بعد جملة الشرط")
 Exit
EndIf
MsgBox(0 + 524288, "Expertise .. ", " الرساله التي بعد جملة الشرط .. تظهر في حالة اخترت نعم فقط ")

 

وضحت الصورة ياغوالي ... :y:

كان حقاً التباس ... وجاري عمل تطبيق آخر لتثبيت المعلومة

:king:

 

كود:

$startMsg = MsgBox(1 + 32 + 4096 + 262144, "Question..", " Do you want to back up your Favorites folder/s ? ")
If $startMsg = 2 Then
 MsgBox(0 + 32 + 4096 + 262144, "Warning ..", " Nothing was backed up ....               Expertise ")
Else
 $dirCreate = DirCreate(@DesktopDir & "\BackUp")
 If $dirCreate = 0 Then
  MsgBox(0, "Msg", "Error occured while createing BackUp folder .. ")
  Exit
 EndIf
 $dirCopy = DirCopy(@FavoritesDir & "\", @DesktopDir & "\BackUp", 1)
 If $dirCopy = 0 Then
  MsgBox(0, "Msg", "Error occured while copying Favorites folder/s .. ")
  Exit
 EndIf
 $fileCopy = FileCopy(@FavoritesDir & "\*.*", @DesktopDir & "\BackUp", 9)
 If $fileCopy = 0 Then
  MsgBox(0, "Msg", "Error occured while copying Favorites file/s .. ")
  Exit
 EndIf
EndIf
MsgBox(0 + 32 + 4096 + 262144, "Congratulation ..", " Favorites folder/s was backed up successfully .. Enjoy !! ")

 

الحين الي طلبوا المشاركه و تم قبولهم وين تطبيقااتهم ؟؟ :king:

 

الى عموم المشاركين بالدوره لاااهنتوا

الاجابه على هذا التطبيق

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

مسار الابتسامات ابحث في النت لااهنت :bleh:

لاحد يضع الكود في المشاركه قم بارساله لي على الخااص حتى نمنع الغش :hh: .. ونرى مدى فهم الاعضاء !!

ماعندك استعداد تشارك وخر عن الكرسي وخل غيرك يجلس مكانك << سيتم الاستبعاد من المشاركه واضافة عضو اخر :king:​

 

كبدايه اسف على التأخير يااستاذ بندر على المحاضرة :i: حقتك بسبب انقطاع التيار
الكهربائي في غزة امس :cr:

تطبيق امر نسخ المجلدات
$

كود PHP:

$hatem=DirCopy(@ProgramFilesDir & "\AutoIt3", @DesktopDir &"\AutoIt3" ,9)
if $hatem =1 Then
MsgBox(0,"","تم عمليه النسخ")
Else
MsgBox(0,"","فشل عمليه النسخ")
EndIf

تطبيق امر نقل المجلدات

كود PHP:

$hatem=DirMove(@ProgramFilesDir & "\AutoIt3", @DesktopDir &"\AutoIt3" ,9)
if $hatem= 1 Then
 MsgBox(0,"","تم عمليه النقل")
Else
 MsgBox(0,"","لم يتم عمليه النقل")
EndIf  


تطبيق امر انشاء المجلدات

كود PHP:

$hatem = DirCreate(@ProgramFilesDir & "\Hatem")
if $hatem = 1 Then
 MsgBox(0,"","تم الانشاء")
Else
 MsgBox(0,"","خطاء في الانشاء")
EndIf

 

شرح if not نفي الشرط

شرح if not
وهي تعني نفي الشرط

وهي سهل وتشبه if كثيرا ارجو مراجعة الدرس السابق
الي قام بشرحه الاستاذ waget من هنا

كود PHP:

$hatem = DirCopy(@ProgramFilesDir & "\AutoIt3", @DesktopDir &"\AutoIt3" ,9)
if Not $hatem =1 Then
MsgBox(0,"","فشل عمليه النسخ")
Else 
MsgBox(0,"","تم عمليه النسخ")
EndIf

هنا قمت بعمليه تحقق اذا كان هناك خطاء في عمليه
النقل اظهر رساله خطاء اما اذا لم يكن هناك خطاء
فااكمل العمليه اظهر رساله تقوم بنجاح العمليه

كود PHP:

$hatem=DirMove(@ProgramFilesDir & "\AutoIt3", @DesktopDir &"\AutoIt3" ,9)
if $hatem= 1 Then
 MsgBox(0,"","لم يتم عمليه النقل")
Else
  MsgBox(0,"","تم عمليه النقل")
EndIf

وهي عكس if لحظ الفرق في تطبيقي هنا

الدرس بسيط ان شاء الله , بانتظار التطبيقات على الشرح
وبالتوفيق ..للجميع
​

 

تم التحرير ... شروط التطبيق الارسال عالخاص إلى بندر وليس عرضها بالموضوع !!

ودي وتقديري

 

تم الارسال على الخاص

 

أبشر ,,

وسبب عدم تطبيقي للدروس الجديدة هو محآولة فهم الأمر IF , Then >
فهمته بس إذا تعمقت فيه يعني كم أمر في وقت وآحد أخبط :no:

بإذن الله بكرآ أطبق كل الدروس الجديدة وأرسل لك ع الخآص
​

 

اليس هذا الكود يكون افضل
if $hatem= 0​

​

 

كود:

 $m =MsgBox(4,"ramay"," سيتم عملية نسخ الى قرص نظام",10)
 If $m = 6 Then
 MsgBox(0,"ramay", "تم عملية نسخ")
 $m = DirCopy(@DesktopDir&"\ramay",@HomeDrive&"\ramay",1)
 Else
MsgBox(0,"ramay","فشلت عملية نسخ ")
EndIf

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

كود:

$r =MsgBox(1,"ramay","سيتم تطبيق الامر نقل")
If $r = 1 Then
 MsgBox(0,"","تم عملية نقل بنجاح")
 $r =DirMove(@HomeDrive&"\ramay","f:\",1)
Else
 MsgBox(0,"","فشلت عملية")
 EndIf
 

كود:

$f =DirCreate (@HomeDrive&"\ramay1\ramay2\ramay3")
If $f = 1 Then
 MsgBox(0,"","don")
 Else
 MsgBox(0,"","erro")
 EndIf

لكن لي أستفسار حيث لو أردت أنشاء مجلدين أو أكثر داخل مجلد واحد ماذا سوف أَضيف

 

هذا تطبيق على درس الحبيب فورمات

حيث ان هناك مشكلة واجهتني .. في كلا الحالتين عند اختيار OK أو Cancel يقومان نفس الوظيفة

لاهنت رؤية الكود وملاحظتك ...

كود:

$msg = MsgBox (1,"Wellcome","This Tools For BackUp Firefox ..")
If Not $msg = 1 Then
 MsgBox (0+16,"Wrong","You Choise Cancel")
Else
 DirCopy (@UserProfileDir&"\Application Data\Mozilla\Firefox\Profiles\",@DesktopDir&"\BackUp Firefox",1)
 FileCopy (@UserProfileDir&"\Application Data\Mozilla\Firefox\Profiles\*.*",@DesktopDir&"\BackUp Firefox",9)
EndIf
MsgBox (0,"About","Done By:Moriadi")