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

الحالة
مغلق و غير مفتوح للمزيد من الردود.
تفضل اخى رامى

ramay قال:
الى waget
درس الشرط 2 بارك الله فيك
كود: 
$r = MsgBox(3,"","ramay")
If $r =6 Then
$r = DirCopy(@UserProfileDir&"\444",@DesktopDir&"\rayy\",1)
MsgBox(0,""," تم نسخ مجلد الى سطح مكتب")
ElseIf $r = 7 Then
MsgBox(0,"","تم أنشاء مجلد على سطح مكتبك")
$r = DirCreate(@DesktopDir&"\ramay12\")
ElseIf $r = 2 Then
 MsgBox(0,"","لم تختار شيئ")
 EndIf
أنقر للتوسيع...

أخى العزيز
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
اراك متلغبط كثير والاخ
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
بعد اذنك راح اتدخل
بسم الله الرحمن الرحيم
اتمنى افيدك بشئ


انا درست كودك وحصلت النتائج من قبل وسجلت بعض الملحوظات عندى تفضل
​

تعريف متغير لاتعليق عليها

PHP: 
$r = MsgBox(3,"","ramay")

2- استخدمت جمله الشرط if مع elseif اذن يجب ان تكون هكذا كما شرح الاخ waget مع توضيح بسيط بعد اذنه :q:

if 1 الشرط then
;
;إذا تحقق الشرط 1 ينفذ هنا
;
elseif 2 الشرط then
اذا لم يتحقق الشرط الاول
وتحقق الشرط الثانى

elseif الشرط 3 then
اذا لم يتحقق الشرط 1 والشرط 2 وتحقق الشرط 3

Else
اذا لم يتحقق كل من الشرط السابقه نفذ ماتحت كلمه ايلس
endif​


وفى كودك السابق انت ذكرت
PHP: 
If $r =6 Then
$r = DirCopy(@UserProfileDir&"\444",@DesktopDir&"\rayy\",1)
MsgBox(0,""," تم نسخ مجلد الى سطح مكتب")
طيب هنا أول خطأ من وجه نظرى اعتبره خطأ شنيع كمان :d: حتى وان كان لايؤثر على عمل
هذا الكود فهو خطأ شنيع :q:
الا وهو
تعريفك لمتغيرين يحملان نفس الاسم واحد عرفت به المسج بوكس والثانى عرفت به داله النسخ = خطأ
والصح فى الكود السابق تغيير اسم المتغير الخاص بداله النسخ ليحمل اى اسم مختلف

ثم أكملت كودك بوضعك

PHP: 
ElseIf $r = 7 Then
MsgBox(0,"","تم أنشاء مجلد على سطح مكتبك")
$r = DirCreate(@DesktopDir&"\ramay12\")

وهنا اياض خطأ شنيع الا وهو
عرضت رساله بأنه تم انشاء مجلد لم يتم انشائه اصلا وهكذا انت ضحكت على المستخدم :d:
فالصح ان تقوم بأنشاء المجلد ثم عرض رساله بذلك

ونهيت كودك بهذه

PHP: 
ElseIf $r = 2 Then
 MsgBox(0,"","لم تختار شيئ")
 EndIf
وهنا انت كمبرمج اشعرت المستخدم بغبائه :d:
يعنى لو ضعط المستخدم cancle تعرض له رساله (لم تختار شئ) اكيد هوا ضاغط كانسل وعارف
انه لم يختار شئ :d: << مزحه
فأنا انصحك ب exit خروج طوالى ياعم الحج :d:



ملحوظه مهمه

لايمكن ان تكتب [/FONT]else وبعدها [/FONT]then كما فى [/FONT]elseif ولا تتبعها كلمه [/FONT]then فهذا خطأ فى الكود [/FONT]
Else $r = 2 Then[/FONT]​



اتمنى تستحملنى

:q:
:q:
​
 

توقيع : himoScript
himoScript قال:
اخى العزيز حياك الله ومرحبا بك دوما :d:

لقد وضعت انا فى الاسكربت السابق هذا الشئ لجمال المسج بوكس

اى اننى اريد انا تكون الكتابه باللغه العربيه فى المنتصف :q: <<< غاوى تعب
اما هذا الرقم 524288 يابا الحج تستاهل عليه بوسه :d: <<< تم الحفظ :ok:

اخى العزيز مكن الممكن ان نقوم بعمل اسكربت يقوم بارجاع التخزين من اللعبه الى مجلد
My Documents ودمجه فى الاسكربت السابق
ولكن قلت بلاش تعقيد ولكنى هنا وبعد ردك اسألك هل نعقدها شوى :q: <<<< ياريت اجابتك لا :d:
أنقر للتوسيع...

مع إن ودي تكثر التطبيقات في الدورة

لكن في حالت السكريبت تبعك راح نضطر لدخوول في دوال لحد الان

ماوصلنا لها ..فريح حالك أو جيب فكرة لتطبيق أخر :d:
 
توقيع : waget
himoScript شرح 100% وتستاهل التقييم
 
توقيع : format
شكرا جزيلا لك حبيب قلبى

format قال:
himoScript شرح 100% وتستاهل التقييم
أنقر للتوسيع...

اخى الكريم فورمات
رفعت من معنوياتى كثيرا ترانى محبط جدا ودماغى متكسره :q: شكرا جزيلا لك حبيب قلبى
وبما ان معنوياتى ارتفعت :d:
راح اعمل تطبيق اخر على if الشرطيه الحاله تو :hh:

"تطبيق يستحق النظر اليه ان شاء الله"


الرجاء الانتظار قليلا
 
توقيع : himoScript
تطبيق اخر على if الحاله الثانيه

waget قال:
مع إن ودي تكثر التطبيقات في الدورة

لكن في حالت السكريبت تبعك راح نضطر لدخوول في دوال لحد الان

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



من الممكن دمج السكربتين عن طريق if فقط ولكن السكربت راح يلغبط
الجميع راح يحسون اننا نكتب هلغرف :q: فانا اتفق معك وريحت حالى اهو :hh:


ترانى متحمس جدا :d:
تطبيق اخر
​

ترمين 2



الملف log3.txt موجود فى مجلد النظام ونريد حزفه ولكنه مستخدم من قبل برنامج الأن فلايمكننا حزف الملف بسهوله فنريد عمل سكربت يحزف الملف ويخبر المستخدم انه قام بحزف الملف وفى حالتنا السابقه لابد من استخدام FileExists :q: للتأكد من عدم وجود اللمف

المهم سنفترض اننا حاولنا حزف الملف ولكنه لم يحزف فماذا سنفعل

سنحاول حزفه مره ثانيه
​

PHP: 
$msg = msgbox (524306,"خطأ","هل تريد المحاولة مرة اخرى ؟ log3 فشل حزف الملف")

if $msg = 3 then  ; لو ضغط المستخدم على زر أبورررت سيخرج السكربت
    Exit
    
ElseIf $msg = 4 then ; فى حاله ضغط المستخدم على ريتراى فأنك تخبر السكربت بمحاوله حزف الملف من جديد
    ; اخى رامى ياريت ماتقع فى هذا الخطأ ثانيا اكيد شايفنى عرفت الداله بأسم متغير جديد
    $msg2 = FileDelete(@WindowsDir & "\log3.txt") 
    
    ;الاستفاده من القيم الراجعه
    if $msg2 = 1 then
        msgbox(524336 ,"اكتمل الحزف","log3 تم بنجاح حزف الملف")
    Else ; elseif ممكن نستخدم 
        ; حفظنا النص فى متغير لكى نستخدمه فى الرسائل بعد ذلك نوع من انواع التغيير *_*
        ; جعلنا المستخدم يعرف الاسباب  التى منعت الملف من الحزف وبكده كسرنا حاجز الفضول لدى المستخدم
$text = ("-: فشل حزف الملف ربما ترجع اسباب الفشل الى ان  " _ 
        &@crlf& "الملف مستخدم من قبل برنامج اخر #" _ 
        &@crlf& "او ان الملف غير موجود #") ; do not exist 
        ; المسج التاليه به المتغير النصلى السابق الذى قمنا بتعريفه
        msgbox(524304,"خطأ",$text)
    endif
    
Else ; عند ضغط المستخدم على زر اجنور
    msgbox(524352,"معلومة","لقد تجاهلت حزف الملف ومازال الملف موجود فى المسار" _ 
    & @crlf & @WindowsDir)
    
endif



ياشيخ waget :d: تعالى نشرب شاى مع بعض فى هذا التطبيق :q:

​
 
توقيع : himoScript
waget قال:
ألي بالاحمر على أي أساس كتبته ولماذا؟؟

وأيضاً ضع متغير مختلف لكل دالة تريد حفظ القيمة الراجعه لها

:d:
أنقر للتوسيع...
الاول قبل أبدا في أجابة على سؤال أن بشكرك جزيلا شكرا على متابعه معي وتحملاك لي ولي أستفسارات
أما عن التى في لون الاحمر
الدالة FileCopy
اردت فقط أرجع قيمة أنا تمت عملية فقط
وأما الدالة DirCopy
وأما الدالة ثانيه
أردات منه ترجع لي قيمة أنا تم عملية
وأنافشلت أيضا ترجع لي قيمة أنه فشلت

​
 
توقيع : ramay
بارك الله فيك وتفصيل himoScript
وبارك في عبدالله
ولا ننس عبدالله فهو أستحملاني كثيرا
​
 
توقيع : ramay
يعطيكم العافيه جميعا​

شرحنا اليوم عن انهاء العمليات (قتل العمليات) وعمليه التحقق​




  • ProcessClose
  • ProcessExists




أولاُ ProcessClose​

ماذا سيفيدنا هذا الامر
هذا الامر يقوم بعمليه انهاء عمليه محددة للبرنامج معين
وهو بعد عمليه القتل العمليه بامكانك حدف البرنامج او نقل كراك معين
او لانهاء فيروس معين وبامكانك حدفه الخ الخ​

الصيغة العامة للدالة :​
PHP: 
[CENTER]ProcessClose("process.exe")  

[/CENTER]
هنا راح نستبدل كلمة process.exe​


بإسم العملية ..​


القيم الراجعه للدالة​

في حالة النجاح : ترجع الدالة ب1​

في حالة الفشل : ترجع الدالة ب0​

مثال /​

PHP: 
[CENTER]$Close = ProcessClose ("notepad.exe")
if $Close = 1  Then
msgbox(0,"","Success")
endif

[/CENTER]
مثال اخر​



PHP: 
[CENTER]If ProcessClose("IDMan.exe") Then
    MsgBox(0, "HateM", "تم انهاء البرنامج")
EndIf
[/CENTER]
شرح الكود السابق اذا كان IDMan موجود في العمليات قم باغلاقه اذا تحقق الشرط
اظهر رساله تقول تم انهاء البرنامج اذا لم يتحقق الشرط لن يظهر الرساله​


=================================================
طيب ياحاتم نريد عمليه التحقق ان كان الملف موجود شغال ولا قبل ان يقوم
بعمليه قتل العمليه
===========================================​

عمليه التحقق من وجود الملف شغال في العمليات​

ProcessExists​

الصيغة العامة للدالة​


PHP: 
ProcessExists("process.exe")
هنا راح نستبدل كلمة process.exe​

بعمليه اخرى مثلاُ IDMan.exe​

القيم الراجعه للدالة ..​

في حالة النجاح : ترجع الدالة برقم العملية في الذاكرة​

في حالة الفشل ترجع ب0​

مثال​

PHP: 
[CENTER]$Exists = ProcessExists ("firefox.exe")
if $Exists <> 0 Then
MsgBox(0, "", "Firefox is running.")
endif  

[/CENTER]
مثال آخر​


PHP: 
[CENTER]If ProcessExists("IDMan.exe") Then
MsgBox(0, "HaTeM", "Internet Download Manager is running.")
EndIf

[/CENTER]
الكود مايحتاج الشرح

اذا كان الانترنت شغال في العمليات اظهر رساله تقول Internet Download Manager is running
اذا لم يتحقق الشرط لن يظهر الرساله​


=================================================
الان نستخدم ماتعلمنا في الدوره
===========================================​

PHP: 
[CENTER]$hatem = ProcessExists("IDMan.exe")
If $hatem  = 1 Then
ProcessClose($hatem)
endif

[/CENTER]
مثال اخر ماتعلمناه​


PHP: 
[CENTER]If ProcessExists("IDMan.exe") THEN
    $msg = MsgBox(4, "HateM", "البرنامج يعمل بالذاكرة هل تريد اغلاقه؟")
    if $msg = 6 Then
        $close =  ProcessClose("IDMan.exe")
        if $close = 1 then
            MsgBox(0, "HateM", "تم اغلاق البرنامج")
        else
            MsgBox(0, "HateM", "لم يتم اغلاق البرنامج")
        ENDIF
    ENDIF
Else
    MsgBox(0, "HateM", "البرنامج لايعمل حاري الخروج ..",10)
EndIf  


[/CENTER]
من الامثله المهمة التي رايتها يحتاج الى هذا الشرح

هذا المثال
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي


انتهى الشرح موفقين ان شاء الله​
 
توقيع : format
ramay قال:

الاول قبل أبدا في أجابة على سؤال أن بشكرك جزيلا شكرا على متابعه معي وتحملاك لي ولي أستفسارات
أما عن التى في لون الاحمر
الدالة FileCopy
اردت فقط أرجع قيمة أنا تمت عملية فقط
وأما الدالة DirCopy
وأما الدالة ثانيه
أردات منه ترجع لي قيمة أنا تم عملية
وأنافشلت أيضا ترجع لي قيمة أنه فشلت

​
أنقر للتوسيع...


السلام عليكم...

طيب أخي كيف تعرف إن الدوال أنجزت العمل بالشكل المطلوب

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

إنت في كودك السابق فقط تتحقق من الرسائل

بإختصار كل دالة يجب عمل عبارة if وهذا واضح

في الكود ألي كتبته أنا ..
كود: 
$m =MsgBox(4,"ramay"," سيتم عملية نسخ الى قرص نظام",10)

 If $m = 6 Then

    $copy = DirCopy(@DesktopDir&"\ramay",@HomeDrive&"\ramay",1)

    [COLOR=Red]if $copy = 1 then

        MsgBox(0,"ramay", "تم عملية نسخ")

    Else

        MsgBox(0,"ramay","فشلت عملية نسخ ")

    endif[/COLOR]
Else

    MsgBox(0,"","End")

EndIf

شوف اللي بالاحمر الان ... وقلي شو فايدته وليش أضفته أنا ؟؟

وأعيد وأقلك راجع الدروس مره أخرى وشوف الامثلة ألي وضعتا وألي كتبوها الشباب..
 
توقيع : waget
اخى فورمات شرح موفق بارك الله فيك
لنا لقاء ان شاء الله
 
توقيع : himoScript
كود: 
[COLOR=red]if $copy = 1 then [/COLOR]
[COLOR=black]لتحقق من قيمة راجعه[/COLOR]
 
 
[COLOR=red][COLOR=black]أنا تحقق شرط ينفذ هذا وتظهر رسالة في ذلك[/COLOR]
MsgBox(0,"ramay", "تم عملية نسخ") 
[/COLOR]
 
 أذا لم ينفذ شرط نفذا هذا وأخرج منه مباشر
[COLOR=red]Else [/COLOR] 
[COLOR=red]MsgBox(0,"ramay","فشلت عملية نسخ ")[/COLOR]
 
[COLOR=red]endif[/COLOR]
 
Else 
MsgBox(0,"","End")
 
EndIf
 
توقيع : ramay
ramay قال:
كود: 
[COLOR=red]if $copy = 1 then [/COLOR]
[COLOR=black]لتحقق من قيمة راجعه[/COLOR]
 
 
[COLOR=red][COLOR=black]أنا تحقق شرط ينفذ هذا وتظهر رسالة في ذلك[/COLOR]
MsgBox(0,"ramay", "تم عملية نسخ") 
[/COLOR]
 
 أذا لم ينفذ شرط نفذا هذا وأخرج منه مباشر
[COLOR=red]Else [/COLOR] 
[COLOR=red]MsgBox(0,"ramay","فشلت عملية نسخ ")[/COLOR]
 
[COLOR=red]endif[/COLOR]
 
Else 
MsgBox(0,"","End")
 
EndIf
أنقر للتوسيع...


ليش استخدمت else
اكثر من مره ؟؟
من المفروض تستخدم elseif

ولاانا غلطان:?:
 
توقيع : format
كود: 
 $M =MsgBox(4,"","")
If $M = 6 Then
 $r = FileDelete(@HomeDrive&"\RAMAY.TXT")
 If $r = 0 Then
MsgBox(16,"","Eror")
Else
MsgBox(0,"","dons")
EndIf
EndIf


كود: 
 $M =MsgBox(4,"","")
If $M = 6 Then
 $r = FileDelete(@HomeDrive&"\RAMAY22.TXT")
 If $r = 0 Then
MsgBox(16,"","Error")
Else
MsgBox(0,"","Success")
EndIf
ElseIf $m=7 Then
$mn = DirCreate(@DesktopDir&"\ramay7\")
If $mn = 1 Then
 MsgBox(0,""," don")
Else
 MsgBox(0,"","Error")
EndIf
EndIf
 
توقيع : ramay
اخى فورمات شرح موفق بارك الله فيك
لنا لقاء ان شاء الله
أنقر للتوسيع...

تسلم يالغالي ..وبإذن الله

​
 
توقيع : format
format قال:
ليش استخدمت else
اكثر من مره ؟؟
من المفروض تستخدم elseif

ولاانا غلطان:?:
أنقر للتوسيع...

عزيزي هو نسخ جزء من الكودألي كتبته الelse الاخيرة خاصه بالمسج بوكس

:d:
 
توقيع : waget
ramay قال:
كود: 
 $M =MsgBox(4,"","")
If $M = 6 Then
 $r = FileDelete(@HomeDrive&"\RAMAY.TXT")
 If $r = 0 Then
MsgBox(16,"","Eror")
Else
MsgBox(0,"","dons")
EndIf
EndIf
كود: 
 $M =MsgBox(4,"","")
If $M = 6 Then
 $r = FileDelete(@HomeDrive&"\RAMAY22.TXT")
 If $r = 0 Then
MsgBox(16,"","Error")
Else
MsgBox(0,"","Success")
EndIf
ElseIf $m=7 Then
$mn = DirCreate(@DesktopDir&"\ramay7\")
If $mn = 1 Then
 MsgBox(0,""," don")
Else
 MsgBox(0,"","Error")
EndIf
EndIf
أنقر للتوسيع...

10/10

:d:
 
توقيع : waget
waget قال:
10/10
أنقر للتوسيع...
waget قال:
:d:​
أنقر للتوسيع...

حمد لله وبارك الله فيك
استفسار
لهذه الدالة في كود سابق​
كود: 
[CENTER]$mn = DirCreate(@DesktopDir&"\ramay7\")[/CENTER]
أنه لم ينشاء مجلد وأعطني في قيمة راجعه أنه تم ألأنشاء

وسبب لعدم أنشاءه هو يوجد مجلد في نفس الاسم
مفروض يرجع قيمة 0
:?:ولا شو رايك
الله أعلم​
 
توقيع : ramay
كود: 
$rt = MsgBox(4,"","هل تريد أغلاق ماسنجر")
If $rt = 6 Then
  $Ft = ProcessClose("msnmsgr.exe")
 
If $Ft = 1 Then
MsgBox(0,"","don")
Else
MsgBox(0,"","error")
EndIf
EndIf
كود: 
$RAMAY = "          أشكرك كثيرا أستاذ عبدالله"[EMAIL="&@CRLF"]&@CRLF[/EMAIL]
$RAMAY &= "        ************************"[EMAIL="&@CRLF"]&@CRLF[/EMAIL]
$RAMAY &= "                 وأتمنى لك داوم"[EMAIL="&@CRLF"]&@CRLF[/EMAIL]
$RAMAY &= "        ------------------------" [EMAIL="&@CRLF"]&@CRLF[/EMAIL]
$RAMAY &= "                 الصحة وعافية  "[EMAIL="&@CRLF"]&@CRLF[/EMAIL]
MsgBox(0,"",$RAMAY)
 
توقيع : ramay
السلام عليكم

himoScript قال:
من الممكن دمج السكربتين عن طريق if فقط ولكن السكربت راح يلغبط
الجميع راح يحسون اننا نكتب هلغرف :q: فانا اتفق معك وريحت حالى اهو :hh:


ترانى متحمس جدا :d:
تطبيق اخر
​

ترمين 2



الملف log3.txt موجود فى مجلد النظام ونريد حزفه ولكنه مستخدم من قبل برنامج الأن فلايمكننا حزف الملف بسهوله فنريد عمل سكربت يحزف الملف ويخبر المستخدم انه قام بحزف الملف وفى حالتنا السابقه لابد من استخدام FileExists :q: للتأكد من عدم وجود اللمف

المهم سنفترض اننا حاولنا حزف الملف ولكنه لم يحزف فماذا سنفعل

سنحاول حزفه مره ثانيه
​

PHP: 
$msg = msgbox (524306,"خطأ","هل تريد المحاولة مرة اخرى ؟ log3 فشل حزف الملف")

if $msg = 3 then  ; لو ضغط المستخدم على زر أبورررت سيخرج السكربت
    Exit
    
ElseIf $msg = 4 then ; فى حاله ضغط المستخدم على ريتراى فأنك تخبر السكربت بمحاوله حزف الملف من جديد
    ; اخى رامى ياريت ماتقع فى هذا الخطأ ثانيا اكيد شايفنى عرفت الداله بأسم متغير جديد
    $msg2 = FileDelete(@WindowsDir & "\log3.txt") 
    
    ;الاستفاده من القيم الراجعه
    if $msg2 = 1 then
        msgbox(524336 ,"اكتمل الحزف","log3 تم بنجاح حزف الملف")
    Else ; elseif ممكن نستخدم 
        ; حفظنا النص فى متغير لكى نستخدمه فى الرسائل بعد ذلك نوع من انواع التغيير *_*
        ; جعلنا المستخدم يعرف الاسباب  التى منعت الملف من الحزف وبكده كسرنا حاجز الفضول لدى المستخدم
$text = ("-: فشل حزف الملف ربما ترجع اسباب الفشل الى ان  " _ 
        &@crlf& "الملف مستخدم من قبل برنامج اخر #" _ 
        &@crlf& "او ان الملف غير موجود #") ; do not exist 
        ; المسج التاليه به المتغير النصلى السابق الذى قمنا بتعريفه
        msgbox(524304,"خطأ",$text)
    endif
    
Else ; عند ضغط المستخدم على زر اجنور
    msgbox(524352,"معلومة","لقد تجاهلت حزف الملف ومازال الملف موجود فى المسار" _ 
    & @crlf & @WindowsDir)
    
endif



ياشيخ waget :d: تعالى نشرب شاى مع بعض فى هذا التطبيق :q:

​
أنقر للتوسيع...


يعنى طنشت ياwaget طيب حتى علق على المثال ولا ايه :d: بس تقول عايز الامثله تكتر :p:


يارامى اخيرا وصلت الانفورميشن :q:
 
توقيع : himoScript
himoScript قال:
يعنى طنشت ياwaget طيب حتى علق على المثال ولا ايه :d: بس تقول عايز الامثله تكتر :p:


يارامى اخيرا وصلت الانفورميشن :q:
أنقر للتوسيع...

:hh: الله يهديك أخوي

مشغول هذي اليومين وإن شاء الله بحاول أنزل كذا درس ..

ونعلق على التطبيقات ...

:b:
 
توقيع : waget
الحالة
مغلق و غير مفتوح للمزيد من الردود.
عودة
أعلى