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

[LINEZERO]

بالنسبه لاخوي 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:​

 

[LINEZERO]

كنت حاس انه مو خطأ بس فلسفة زايدة من عندي :hh:

يمكن الاستغناء عن الذي اشرت اليه ياغالي .. لأن DirCopy عندما يقوم بنسخ مجلد المسن ويضعه في سطح المكتب يمكنه من انشاء مجلد BackUp MSN اذا لم يكن موجوداً .. عن طريق سويتش 1 ..

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

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

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

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

 

[الحلا تبي تتعلم]

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

 

[LINEZERO]

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

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

 

[LINEZERO]

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

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

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

 

[موريادي]

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

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

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

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

لو رديت علي بسبب مقنع .. :d: << يالله حاول ​

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

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

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

 

[الحلا تبي تتعلم]

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

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

 

[الحلا تبي تتعلم]

$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

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

 

[format]

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

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

 

[LINEZERO]

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


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


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

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

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

 

[LINEZERO]

$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

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

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

$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

 

[waget]

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

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

fileCopy

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

Dir copy

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

:d:

 

[موريادي]

@scriptdir

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

 

[ramay]

الحصان الاسود للدوره << k: << رامي​

[CENTER]$r = DirCopy(@HomePath & "\appdata\local\microsoft\messenger\ramay-hj@hotmail.com\objectstore", @DesktopDir & "\ramay", 1)
If $r = 1 Then
MsgBox(0, "نسخ رموز ماسنجر", "تم عملية", 10)
Else
MsgBox(0, "نسخ رموز ماسنجر", "فشل في نسخ", 10)
EndIf[/CENTER]

واضح انك فاهم 99% :d:
لم يتم وضع رساله تخير المستخدم << لم يتم طلبها في التطبيق :hh:
المشكله الوحيده في المسار وهي لاتعتمد على فهم الاوامر ولكن على معرفة اين يتم التخزين وكيف التعامل معه ..​

يعني لو بصحح انا باعطيك 9.5 من 10​

:king:​

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

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

 

[Corporation]

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

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

 

[الحلا تبي تتعلم]

@scriptdir

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

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

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

 

[waget]

@scriptdir

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

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

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

:d:

 

[LINEZERO]

http://www.zyzoom.org/vb/showthread.php?t=197404&page=4

وعن إذن اخواني

hmammou & alzri2
ممكن اعدل الكود لكي يصبح اكثر احترافي وفعالية​

if FileExists(@HomeDrive &"\boot.ini") Then

[CENTER]   ; هنا قم بوضع الاكواد والسورسات التي تريد تنفيذها في ويندوز اكس بي
[CENTER]Else
   ; هنا قم بوضع الاكواد التي تريد تنفيذها في ويندوز سفن
EndIf [/CENTER]
[/CENTER]

سلااامات :d:

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

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

 

[waget]

[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: