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

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

كود: 
$msg = MsgBox (1,"Choise","Do you want a Backup of Favorites?")
$fofo = DirCreate (@DesktopDir&"\BackUp")
$dir = DirCopy (@FavoritesDir&"\",@DesktopDir&"\BackUp",1)
$file = FileCopy (@FavoritesDir&"\*.*",@DesktopDir&"\BackUp",9)
If $msg=1 Then
 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)
أنقر للتوسيع...

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

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

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

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

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

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

يموووووووون << :q:​
 
توقيع : LINEZERO
طيب وكذا شغال ولا لا ... انت نسيت ان الاوامر يتم تنفيذها بالتتابع !!

في الكود الاول انت قمت باظهار رساله
ثم عمل النسخه الاحتياطيه قبل قراءة القيم الراجعه من الرساله :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)
 
توقيع : LINEZERO
بصراحه مدري ان الكود يقرأ سطر سطر ...

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

بس

كود: 
$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:
 
توقيع : موريادي
waget قال:
إختياري من أي ناحية فوزان

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

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

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

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

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

وصلت بس مافهمت شوف المشاركة السابقة ..
 
توقيع : موريادي
موريادي قال:
يس اختياري ...

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

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

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

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

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

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

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

بعد التحقق نقرر شو نعمل وبس ..
 
توقيع : waget
اتوقع ان الامر التبس عليك يافوزان :d:

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

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

كود: 
MsgBox(1, "Choise", "Do you want a Backup of Favorites?")

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

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

هل فيه اي اختلااف ؟​
 
توقيع : LINEZERO
امر الخروج من الـسكربت
كود: 
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 .. ", " الرساله التي بعد جملة الشرط .. تظهر في حالة اخترت نعم فقط ")
 
توقيع : LINEZERO
وضحت الصورة ياغوالي ... :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 !! ")
 
توقيع : LINEZERO
الحين الي طلبوا المشاركه و تم قبولهم وين تطبيقااتهم ؟؟ :king:
 
توقيع : LINEZERO
الى عموم المشاركين بالدوره لاااهنتوا

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

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

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

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

ماعندك استعداد تشارك وخر عن الكرسي وخل غيرك يجلس مكانك << سيتم الاستبعاد من المشاركه واضافة عضو اخر :king:​
 
توقيع : LINEZERO
كبدايه اسف على التأخير يااستاذ بندر على المحاضرة :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
 
توقيع : format
شرح 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 لحظ الفرق في
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي


الدرس بسيط ان شاء الله , بانتظار التطبيقات على الشرح
وبالتوفيق ..للجميع
​
 
التعديل الأخير بواسطة المشرف:
توقيع : format
تم التحرير ... شروط التطبيق الارسال عالخاص إلى بندر وليس عرضها بالموضوع !!

ودي وتقديري
 
توقيع : الحلا تبي تتعلم
Expertise قال:
الحين الي طلبوا المشاركه و تم قبولهم وين تطبيقااتهم ؟؟ :king:
أنقر للتوسيع...
أبشر ,,

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

بإذن الله بكرآ أطبق كل الدروس الجديدة وأرسل لك ع الخآص :smile:
​
 
توقيع : (مجرد انسان)
format قال:
هنا قمت بعمليه تحقق اذا كان هناك خطاء في عمليه
النقل اظهر رساله خطاء اما اذا لم يكن هناك خطاء
فااكمل العمليه اظهر رساله تقوم بنجاح العمليه ​
PHP: 
[CENTER]$hatem=DirMove(@ProgramFilesDir & "\AutoIt3", @DesktopDir &"\AutoIt3" ,9)
if $hatem= 1 Then
 MsgBox(0,"","لم يتم عمليه النقل")
Else
  MsgBox(0,"","تم عمليه النقل")

EndIf[/CENTER]
​
أنقر للتوسيع...


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

حيث ان هناك مشكلة واجهتني .. في كلا الحالتين عند اختيار 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")
 
توقيع : موريادي
الحالة
مغلق و غير مفتوح للمزيد من الردود.
عودة
أعلى