[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 صغيرة ... ؟

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

 

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

 

جرب وشوف :d:​

 

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

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

 

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

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

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

 

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

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

 

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

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

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

 

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

 

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

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

 

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

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

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

 

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

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

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

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

 

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

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

 

في البدايه سكربت المعلم 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:​

 

موريادي

كود:

$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")

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

 

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

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


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

 

الحصان الاسود للدوره << 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:​

 

الحلاا ..

كود:

$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:​

 

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

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