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

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

المعذرة ..

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

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

ودي وتقديري

 

[(مجرد انسان)]

تطبيقي على إنشاء مجلد

[FONT=Arial]
$Y1= DirCreate (@DesktopDir&"\Yasser")
if $y1= 1 Then
    MsgBox(0,"","Done ..... ... ... Bye")
Else
    MsgBox (0,"","Error ,, Bye" )

    EndIf[/FONT]

البآقي بكرآ إن شاء الله
​

 

[موريادي]

لفت انتباهي شيء اخواني .. وحاب استفسر عنه :..

من كود اخوي الغالي مجرد انسان ^^

[COLOR=red]$Y1[/COLOR]= DirCreate (@DesktopDir&"\Yasser")
if [COLOR=red]$y1[/COLOR]= 1 Then

اختلاف بسيط ولكن هل يشكل فرق .. المتغير الاول Y كبيرة أما السطر الثاني y صغيرة ... ؟

لاهنتم الافادة !!

 

[LINEZERO]

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

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

لان الشرط الاول دائماً خطا :d:​

 

[LINEZERO]

لفت انتباهي شيء اخواني .. وحاب استفسر عنه :..

من كود اخوي الغالي مجرد انسان ^^

[COLOR=red]$Y1[/COLOR]= DirCreate (@DesktopDir&"\Yasser")
if [COLOR=red]$y1[/COLOR]= 1 Then

اختلاف بسيط ولكن هل يشكل فرق .. المتغير الاول Y كبيرة أما السطر الثاني y صغيرة ... ؟

لاهنتم الافادة !!

جرب وشوف :d:​

 

[LINEZERO]

بخصوص التطبيقات في الغد التعليق عليها باذن الله ..

وبالنسبه للحلاا .. لاتتسرع !!​

 

[موريادي]

لان الشرط الاول دائماً خطا :d:​

بمعنى عند استخدام if not
يكون الشرط الاول أو الامر الاول خطأ ... عكس if العادية
طيب بخصوص if not $msg = ? then
ماذا يكون بدل علامة الاستفهام .. هل 0 = ok او 1 = cancel ?​

جرب وشوف :d:​

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

السموحة منك على كثرت الاستفساراات .. نبي نشوفك اكثر ياغالي :b:​

 

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

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

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

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

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

شي طيب بس للعلم واعتقد واتوقع ان بعض المسارات تختلف من ويندوز اكس بي الى ويندوز سفن

لذلك اقترح عليكم تسوا لنا درس يشرح لنا تنفيذ الاوامر الفلانية في الاكس بي وان كان نظام التشغيل سفن فنفذ الاوامر الاخرى

 

[LINEZERO]

تصدقوون عاد انكم جبتوا لي احبااط .. :no:

على الرغم من سهولة السكربت .. ولكن ماحد حله باحترافيه غير عبدالله << waget k:

يالله كل واحد فيكم يرفع رجله و وجهه للجدار لنهاية الحصه :q:​

 

[LINEZERO]

Bo.SaQeR << في انتظار التطبيق :king:

 

[LINEZERO]

بمعنى عند استخدام if not

يكون الشرط الاول أو الامر الاول خطأ ... عكس if العادية
طيب بخصوص if not $msg = ? Then
ماذا يكون بدل علامة الاستفهام .. هل 0 = ok او 1 = cancel ?



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


السموحة منك على كثرت الاستفساراات .. نبي نشوفك اكثر ياغالي :b:
​

لا لا اخوي فوزان الموضوع التبس عليك مرة اخرى ..

ساقوم بالتفصيل لان شرح الاخ فورمات لم يشرح جزئيه مهمه جداً​

 

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

تصدقوون عاد انكم جبتوا لي احبااط .. :no:​

على الرغم من سهولة السكربت .. ولكن ماحد حله باحترافيه غير عبدالله << waget k:​

يالله كل واحد فيكم يرفع رجله و وجهه للجدار لنهاية الحصه :q:​

:q: شت انت بديت تقتل معنوياتنا ههههه:d: انا على بالي قدني خبيرة :d:

وينا من الاتوات وينا من خبرة waget
احنا مبتدئات والمشوار طويل امامنا:cr::cr: ودي اعرف وش الخطأ في السكربت حقي:q:

احم احم عذاب وعقاب شديد الله يكون بعون موريادي شكله بيهز الصف بطيحته وبيسوي هزة ارضيه بالكون:hh:

 

[موريادي]

تصدقوون عاد انكم جبتوا لي احبااط .. :no:​

على الرغم من سهولة السكربت .. ولكن ماحد حله باحترافيه غير عبدالله << waget k:​

يالله كل واحد فيكم يرفع رجله و وجهه للجدار لنهاية الحصه :q:​

طيب ياغالي بندر ...

هل استطيع اعادة ارسال التطبيق مرة اخرى .. مدري وش الخطأ بس بحاول

اذا فيه امكانية .. :b:

احلى شيء انه تطبيقي خطأ ... بانتظار النتائج بانتهاء الحصة :q:​

 

[LINEZERO]

بالنسبه للتطبيقات :​

(مجرد انسان) << لم يستطيع كتابة السكربت الى الان !!
Corporation << عفس ام الدنيا :no: .. وبصراااحه غريبه منه
الحلا تبي تتعلم << محاوله جيده ولكن هناك اوامر ليس لها دااعي :d:
ramay << من افضل المحاولاات :b: و الخطا في المسار و التعامل مع المسارات الافتراضيه << تحسه فاهم بس لخبط :hh:
format << لم يلتزم بالمطلوب وتم وضع امر ليس مطلوب في التطبيق << لن يتم التعليق على السكربت :b: رغب وجود الكثير من الاخطاء الغريبه
موريادي << شهادتي فيه مجرووحه بس عنده امر صغير زياده ولا يحتاجه .. :hh:
^
^^
^^^
طبعاً ممكن يكون السكربت شغال .. ولكن ليس معناه ان يكون احترافي او صحيح :bleh:
هنا نتعلم كتابة السكربتات على اصول وباقصر الطرق :b:
يعني اذا عندك امر زياده فانت مش فاهم الاوامر زين .. :​

 

[LINEZERO]

في البدايه سكربت المعلم waget :king:

$path = @UserProfileDir & "\Local Settings\Application Data\Microsoft\Messenger\"
$msg = MsgBox(4 + 32, "","هل تريد أخذ نسخه من إبتسامات المسن")
If $msg = 6 Then
 $dircopy = DirCopy($path, @DesktopDir & "\backup\", 1)
 If $dircopy = 1 Then
  MsgBox(0, "", "Success")
 Else
  MsgBox(0, "", "Error")
 EndIf
Else
 MsgBox(0, "", "تم الخروج تحياتي")
EndIf

كما تلااحظون البساطه في عدد الاوامر لانجاز العمل المطلوب على اكمل وجهه :d:​

 

[LINEZERO]

موريادي

$msg = MsgBox (4,"Msg","Do you want Start Code?")
If $msg = 7 Then
 MsgBox (0,"Thank","مشكور بس لاعاد تعيدها ..")
Else
[COLOR=red]$dir1 = DirCreate (@desktopdir&"\BackUp MSN")
If $dir1 = 0 Then
 MsgBox (0,"Msg","Error Created BackUp Folder")
 Exit
EndIf
[/COLOR]$dir2 = DirCopy (@UserProfileDir&"\Local Settings\Application Data\Microsoft\Messenger\",@desktopdir&"\BackUp MSN",1)
If $dir2 = 0 Then
 MsgBox (0,"Msg","Error Copy Smailes To BackUp Folder")
 Exit
EndIf
EndIf
MsgBox (0,"About","This Code By Moriadi")

الي باللون الاحمر وش فائدتها وهل تقدر تستغني عنها ولماذا !!
​

 

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

في البدايه سكربت المعلم waget :king:​

[CENTER]$path = @UserProfileDir & "\Local Settings\Application Data\Microsoft\Messenger\"
$msg = MsgBox(4 + 32, "","هل تريد أخذ نسخه من إبتسامات المسن")
If $msg = 6 Then
$dircopy = DirCopy($path, @DesktopDir & "\backup\", 1)
If $dircopy = 1 Then
MsgBox(0, "", "Success")
Else
MsgBox(0, "", "Error")
EndIf
Else
MsgBox(0, "", "تم الخروج تحياتي")
EndIf[/CENTER]

كما تلااحظون البساطه في عدد الاوامر لانجاز العمل المطلوب على اكمل وجهه :d:​

k:k:k: ما شاء الله عليك عبدالله دكتور واسم على مسمى خبير

والسكربت حقك افضل سكربت لان افضل الكلام والفعل ما قل ودل


:q::q: بس ممكن اعرف يا بندر ايش الخطأ في السكربت حقي:cr: لاتفادى الخطأ مرة اخرى؟؟؟؟:?::?:

 

[LINEZERO]

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

$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

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

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

 

[LINEZERO]

الحلاا ..

$alhla = MsgBox(4, "Choise", "Do you want a Backup of massenger?")
If $alhla = 6 Then
[COLOR=red]DirCreate(@ScriptDir & "\BackUp")[/COLOR]
 DirCopy(@UserProfileDir & "\Local Settings\Application Data\Microsoft\Messenger", @ScriptDir & "\BackUp\", 1)
[COLOR=red]FileCopy(@UserProfileDir & "\Local Settings\Application [/COLOR][COLOR=red]Data\Microsoft\Messenger\*.*", @ScriptDir & "\BackUp", 9)[/COLOR]
Else
 MsgBox(64, "al-hla", "there is some wrong in operation")
 Exit
EndIf

اوامر زائده << باللون الاحمر
لم يتم التاكد من هل تم النسخ ام لا عن طريق قراءة القيم الراجعه من الاوامر :no:​

 

[موريادي]

موريادي​

[CENTER]$msg = MsgBox (4,"Msg","Do you want Start Code?")
If $msg = 7 Then
MsgBox (0,"Thank","مشكور بس لاعاد تعيدها ..")
Else
[COLOR=red]$dir1 = DirCreate (@desktopdir&"\BackUp MSN")[/COLOR]
[COLOR=red]If $dir1 = 0 Then[/COLOR]
[COLOR=red]MsgBox (0,"Msg","Error Created BackUp Folder")[/COLOR]
[COLOR=red]Exit[/COLOR]
[COLOR=red]EndIf[/COLOR]
$dir2 = DirCopy (@UserProfileDir&"\Local Settings\Application Data\Microsoft\Messenger\",@desktopdir&"\BackUp MSN",1)
If $dir2 = 0 Then
MsgBox (0,"Msg","Error Copy Smailes To BackUp Folder")
Exit
EndIf
EndIf
MsgBox (0,"About","This Code By Moriadi")[/CENTER]

الي باللون الاحمر وش فائدتها وهل تقدر تستغني عنها ولماذا !!​

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

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