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

بالنسبه لاخوي coopration << الوضع عندك ملخبط مدري ليه !!

كود:

$m = MsgBox(68," take a backup ..."," Do u Wanna take backup of ur msnger smail ?")
if $m = 7 Then
    MsgBox(64,"Bye ... "," See you again with a new program's ")
    Else
DirCopy(@UserProfileDir& "\Local Settings\Application Data\Microsoft\Messenger", @DesktopDir & "\backup", 1)
$2 = DirCreate(@DesktopDir & "\backup\Msn Smail")
if $2 = 1 then
filecopy(@DesktopDir&"\backup\*.*",@DesktopDir&"\Msn Smail\*.*")
MsgBox(64, "done ...", " it was done,u will find your smail insade backup folder in desktop")
EndIf
EndIf
Exit

لم تقراء القيم الراجعه من امر اخذ نسخه من المجلد .. :no:
قمت بانشاء مجلد داخل مجلد النسخه الاحتياطيه .. ليه ؟؟ :cr:
قمت بمحاولة نسخ الملفات الموجوده في مجلد النسخه الاحتياطيه للملف الجديد .. ليه ؟؟ :cr:

بصراحه وضعك صعب ووضح انك كنت ماكل فوول ومتنح :d: .. ولا انا اعرف ان الموضوع ليس بالصعب عليك الى هذه الدرجه !! :b:​

 

حتى لو كان البارمتر 0 :bleh:

الامر DirCopy سيقوم بانشاء المجلد ..

ودامك عارف انها فلسفه زايده ليه تتفلسف :d:

وكنت اتوقع منك رد اقوى لتسكتني .. :b:
طريقتك كانت ستكون الاكثر احترافيه والنموذجيه << اكثر من سكربت عبدالله
لو رديت علي بسبب مقنع .. :d: << يالله حاول ​

 

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

 

قم بالتجربة و شوف الي يشتغل معك !!
واكتب لي الكود هنا :d:

 

حتى لا يزعل مني احد هذا السكربت الي وصلني من فورمات

كود:

If Not DirCopy(@UserProfileDir & "\Local Settings\Application  Data\Microsoft\Messenger", @DesktopDir & "\BackUp msn\", 1)
MsgBox(0, "", "لم يتم عمليه النسخ", 9)
Else
MsgBox(0, "", "لم يتم عمليه النسخ", 9)
EndIf

واتوقع الاخطاء واضحه مثل عين الشمس .. بس شكله كان متنح :hh:
لان الكود وضعه مزري :b:​

 

انا حبيت يكون كودي يمشي على خطوات ... فقط لا أكثر

ومافي رد ثاني ياغلاهم يسكتك ... ان شاء الله بتطبيقات ثانية نسكتك :hh:

تونا في بداية الطريق ...​

 

الاثنين نفس بعض

 

كود:

$alhla=MsgBox(4, "Choise", "Do you want a Backup of massg, Favorites?")
If $alhla = 6 Then
 
 $dir1=DirCopy(@favoritesdir & "\", @scriptdir&"\favorit backup\",1)
 $dir2= DirCopy(@UserProfileDir & "\Local Settings\Application Data\Microsoft\Messenger", @ScriptDir & "\mess BackUp\", 1)
 if $dir1 =0 Then
  MsgBox(64,"","the operation in creation favorite backup is not completed")
  EndIf
  if $dir2=0 Then
   MsgBox(64,"","the operation in creation mess backup is not completed")
   EndIf
   
 Else
  MsgBox(64,"al-hla","there is some wrong in operation")
  
EndIf

تم تعديل الكود والسكربت شغال زي العسل مئة بالمئة
ملاحظاتكم اذا توجد اي اخطاء بالكود

 

:hh:كتبت الكود ع السريع
حتى اني لم اجربه حتى!!:cr:
==========> انا معاقب اقف برا الصف وارفع ايدي=== الى حين رن الجرس:hh:
​

 

طيب لو حصل فيه error في عملية النسخ !! :d:
هل المشكله في نسخ الملفات و المجلدات ام انشاء مجلد النسخه الاحتياطيه ؟؟ :u:
بالكود السابق تقدر تعرف :bleh: << لانك راح تنشى المجلد قبل عملية النقل
وتقراء القيم الراجعه من امر انشاء المجلد .. :hh:

كنت اتمنى ان تكون هذه اجابتك .. ​

 

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

كود:

$alhla = MsgBox(4, "Choise", "Do you want a Backup of massg, Favorites?")
If $alhla = 6 Then
 $dir1 = DirCopy(@FavoritesDir & "\", @ScriptDir & "\favorit backup\", 1)
 If $dir1 = 0 Then
  MsgBox(64, "", "the operation in creation favorite backup is not completed")
 EndIf
 $dir2 = DirCopy(@UserProfileDir & "\Local Settings\Application Data\Microsoft\Messenger", @ScriptDir & "\mess BackUp\", 1)
 If $dir2 = 0 Then
  MsgBox(64, "", "the operation in creation mess backup is not completed")
 EndIf
Else
 MsgBox(64, "al-hla", "there is some wrong in operation")
EndIf

 

في فرق جوهري بينهم ..

fileCopy

ينسخ الملفات فقط

Dir copy

ينسخ كامل محتوات المجلد( ملفات ومجلدات) ..

:d:

 

@scriptdir

امر جديد او مسار جديد ... المهم لم يشرح .. وش سالفته

 

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

بس ممكن تشوف تطبيقة هذه
لي كم أستفسار
http://www.zyzoom.org/vb/showpost.php?p=2855376&postcount=79
وهنا
http://www.zyzoom.org/vb/showthread.php?t=197404&page=3

 

هههههههههههه بندر ياخي سويت السكربت الصبح اول ماصحيت :hh:
بعدين ياخي مافي ابتسامات بالجهاز عندي على بالي ان المجلد ( مسنجر )
في داخله مجلداات ثانيه ( لازم ننسخها هي )
التبس علي الامر :d:
،
يبي لي اعيد من جديد انا قلت لك العيب عندي ( شرح النفي )
يعني اذا ما تحقق او المخرجات ما كانت صحيحه وش يسوي والا هو شغال الكود :hh:
،
عموماً ، دريت اني فاشل شكراً لك :*)

( سيتم التعديل على المشاركه ارجوا عدم الاقتباس لتصحيح السكربت )
​

 

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

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

 

زي ماقالت الاخت الحلا

وبإختصار هو يرجع بمسار المجلد ألي فيه السكريبت مثل %cd% << في الباتش فايل

:d:

 

سلااامات :d:

رد عليهم بالموضوع ليه تنسخ الردود هنا .. ؟؟

alzri2 << ليس عاجز عن كتابة هذه الاوامر البسيطه باحترافيه :king: ​

 

[2] عبارة الشرط if

:: العبارة If...ElseIf...Else...EndIf


الصورة العامة:

كود:

[COLOR=Blue]if [/COLOR]1 الشرط [COLOR=Blue]then[/COLOR]
[COLOR=Lime];[/COLOR]
[COLOR=Lime] ;إذا تحقق الشرط الاول ينفذ هنا[/COLOR]
[COLOR=Lime] ;[/COLOR]
[COLOR=Blue]elseif [/COLOR]2 الشرط[COLOR=Blue]then[/COLOR]
[COLOR=Lime];[/COLOR]
[COLOR=Lime] ;إذاتحقق الشرط الثاني ينفذ هنا[/COLOR]
[COLOR=Lime] ;[/COLOR]
[COLOR=Blue]Else[/COLOR]
[COLOR=Lime];[/COLOR]
[COLOR=Lime] ;إذا لم يتحقق أي من الشروط نفذ هنا[/COLOR]
[COLOR=Lime] ;[/COLOR]
[COLOR=#0000cc]endif[/COLOR]

ملاحظات:

1)يتم قرأة الشروط شرط شرط وإذا تحقق شرط واحد يتم تنفيذ الاوامر والدوال ألتي تتبعه ثم يتم الخروج من العبارة كاملة ويتم تجاهل باقي الشروط.

بمعنى :إذا تحقق الشرط الاول نفذ التالي إذا لم يتحقق إنتقل للشرط ألي يليه وهكذا حتى يتحقق أحد

الشروط ..وإذا لم يتحقق أي شرط يأتي دور عبارة else الاخيرة ينفذ الي بعدها ويخرج من العبارة.

2) يتم وضع Endif واحده للعبارة كاملة ..في أخر العبارة .

3) يمكن وضع أكثر من elseif في عبارة واحدة. وelse تعتبر إضافية غير إلزامية ..


::أمثلة::

قبل وضع الامثلة الرجاء مراجعة هذا الدرس [6]

إخترت msgbox لأنها ترجع بأكثر من قيمة في أكثر من شكل.

ألي يهمنا في الجدول هذه الجزيئة.Button-related Result

بعد معرفة كيفية التحكم بأزرار الmsgbox

نتعرف على القيم الراجعه لكل زر .شاهد الجدول التالي.



المثال الاول/

كود:

[COLOR=DarkRed]$msg[/COLOR] [COLOR=Red]= [/COLOR][I][COLOR=Indigo]MsgBox[/COLOR][/I]([COLOR=Indigo]2[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"إختر"[/COLOR][COLOR=Red],[/COLOR][COLOR=Indigo]0[/COLOR])
[COLOR=Blue]If[/COLOR] [COLOR=DarkRed]$msg[/COLOR] =  [COLOR=Indigo]3[/COLOR] [COLOR=Blue]Then[/COLOR]
    [COLOR=Indigo][I]msgbox[/I][/COLOR]([COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"إحباط/ABORT إخترت"[/COLOR][COLOR=Red],[/COLOR][COLOR=Indigo]0[/COLOR])
ElseIf[COLOR=DarkRed]$msg[/COLOR] [COLOR=Red]=[/COLOR][COLOR=Indigo]4[/COLOR] [COLOR=Blue]Then[/COLOR]
    [I][COLOR=Indigo]msgbox[/COLOR][/I]([COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"إعادة المحاولة/RETRY إخترت"[/COLOR][COLOR=Red],[/COLOR][COLOR=Indigo]0[/COLOR])
ElseIf [COLOR=DarkRed]$msg[/COLOR] [COLOR=Red]=[/COLOR] [COLOR=Indigo]5[/COLOR]  [COLOR=Blue]Then[/COLOR]
    [I][COLOR=Indigo]msgbox[/COLOR][/I]([COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"تجاهل/IGNORE إخترت"[/COLOR][COLOR=Red],[/COLOR][COLOR=Indigo]0[/COLOR])
endif

:b: ماني متأكد من صحة الترجمة العربية للأزرار لأن النظام عندي إنجليزي

المثال الثاني /

كود:

[COLOR=DarkRed]$msg[/COLOR] [COLOR=Red]= [/COLOR][I][COLOR=Indigo]MsgBox[/COLOR][/I]([COLOR=Indigo]2[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"إختر"[/COLOR][COLOR=Red],[/COLOR][COLOR=Indigo]0[/COLOR])
[COLOR=Blue]If[/COLOR] [COLOR=DarkRed]$msg[/COLOR] [COLOR=Red]=[/COLOR]  6 [COLOR=Blue]Then[/COLOR]
    [I][COLOR=Indigo]MsgBox[/COLOR][/I](0[COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"نعم/YES إخترت"[/COLOR][COLOR=Red],[/COLOR][COLOR=Indigo]0[/COLOR])
ElseIf [COLOR=DarkRed]$msg[/COLOR] [COLOR=Red]=[/COLOR] 7 [COLOR=Blue]Then[/COLOR]
    [I][COLOR=Indigo]MsgBox[/COLOR][/I](0[COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"لا/NO إخترت"[/COLOR][COLOR=Red],[/COLOR][COLOR=Indigo]0[/COLOR])
ElseIf [COLOR=DarkRed]$msg[/COLOR] [COLOR=Red]=[/COLOR] 2 Then
    [I][COLOR=Indigo]MsgBox[/COLOR][/I](0[COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"ألغاء/CANCEL إخترت"[/COLOR][COLOR=Red],[/COLOR][COLOR=Indigo]0[/COLOR])
endif

 

لا هنت ياغالي .. منتظر توضيحك

والسموحة هذي الايام دخولي قليل بسبب اني تعبان شوي .. :f: