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

الحالة
مغلق و غير مفتوح للمزيد من الردود.
تطبيق على درس الأستاذ حاتم ( فحص + اغلاق ) للتأكد الرجاء تشغيل cmd

بارك الله فيك :king:
كود: 
$1 = MsgBox(68," ................."," هل تريد ان تتاكد ما اذا كانت شاشة الدوس شغـالة ام لا ؟")
If $1 <> 6 Then
    Exit
Else
If ProcessExists("cmd.exe") Then
    MsgBox(0, "Example", "أنه قيد التشغيل الآن")
Else
    MsgBox(0,"","ليست قيد التشغيل")
EndIf
If ProcessExists("cmd.exe") Then
    $3 = MsgBox(68,">>>>>>","  هل تريد قتل العمليه ؟")
    If $3 <> 6 Then
        Exit
        Else
        if ProcessClose("cmd.exe") Then
            MsgBox(0,""," تم اغلاقه ")
        Else
            MsgBox(0,""," لم يستطيع")
EndIf
EndIf
EndIf
EndIf

ودي وتقديري
:king:
​
 

توقيع : Corporation
توقيع : format
  • سؤال هنا يارامي الك ايضا

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


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

If $r = 0 Then

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

PHP: 
$rt = MsgBox(4,"","هل تريد أغلاق ماسنجر")
If $rt = 6 Then
  $Ft = ProcessClose("msnmsgr.exe")
 
If $Ft = 1 Then
MsgBox(0,"","don")
Else
MsgBox(0,"","error")
EndIf
EndIf

If $Ft = 1 Then


ليش في الكود الاول صفر
والكود الثاني 1
ياريت توضيح:?:
​
 
توقيع : format
تطبيق في درس قتل العمليات

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

  [/quote]


تم تقييمك يالغالي 9\10 تحتاج الى ان تعرض نافذه تفيد بإن العمليه شغاله ام لا فقط 
ولاتطبيقك زي العسل وماعليه اي كلام :wink:



[quote="Corporation, post: 1983954"][CENTER]بارك الله فيك :king:
[CODE]$1 = MsgBox(68," ................."," هل تريد ان تتاكد ما اذا كانت شاشة الدوس شغـالة ام لا ؟")
If $1 <> 6 Then
    Exit
Else
If ProcessExists("cmd.exe") Then
    MsgBox(0, "Example", "أنه قيد التشغيل الآن")
Else
    MsgBox(0,"","ليست قيد التشغيل")
EndIf
If ProcessExists("cmd.exe") Then
    $3 = MsgBox(68,">>>>>>","  هل تريد قتل العمليه ؟")
    If $3 <> 6 Then
        Exit
        Else
        if ProcessClose("cmd.exe") Then
            MsgBox(0,""," تم اغلاقه ")
        Else
            MsgBox(0,""," لم يستطيع")
EndIf
EndIf
EndIf
EndIf
ودي وتقديري
:king:
[/CENTER]
أنقر للتوسيع...

تستاهل10\10 في تطبيقك ماشاء الله وتستاهله بجداره:b:
ماعندي اي ملاحظات ولكن لوحابب للتوضيح ان تقوم بشرح مبسط لكودك يكون افضل :u:
 
توقيع : format
توقيع : ramay
أستاذ حاتم

اخي الاثنين نفس العمل
لكن أنا وضعته هكذا
If $r = 0 Then
يجب عليك أنا تضع في رسالة الاوله أن عملية لم ننجح​

كود: 
[CENTER]MsgBox(0,"","لم تنجح")[/CENTER]

وأن وضعته هكذا
If $Ft = 1 Then
يجب أن تضع رسالة الاوله في أن عملية نجحت​
كود: 
[CENTER]MsgBox(0,"","نجحت")[/CENTER]
يعني جرب ضع مكان قيمة صفر
قيمة 1
ستظهر رسائل في عكس​
 
توقيع : ramay
توضيح رائع
يارامي .. ومشاء الله عليك
ملحظاتي عليك انك في تطور كبير وسريع التعلم

جاري مراسله صاحب الموضوع لووضع درس جديد بإذن الله
​
 
توقيع : format
أستفسار في هذا كود processExistsا لامر فقط اريد تأكد هل شاشة دوس مفتوح أما لا
كود: 
$1 =MsgBox(4,"","امر لتأكد م شاشة الدوس في عملية أم لا")
If $1 = 6 Then
ProcessExists("CMD.EXE")
If $1 =ProcessExists("cmd.exe") Then
MsgBox(0,"","YAS")
Else
 MsgBox(0,"","Not")
EndIf
EndIf
 
توقيع : ramay
ramay قال:
أستفسار في هذا كود processExistsا لامر فقط اريد تأكد هل شاشة دوس مفتوح أما لا
كود: 
$1 =MsgBox(4,"","امر لتأكد م شاشة الدوس في عملية أم لا")
If $1 = 6 Then
ProcessExists("CMD.EXE")
If $1 =ProcessExists("cmd.exe") Then
MsgBox(0,"","YAS")
Else
 MsgBox(0,"","Not")
EndIf
EndIf
أنقر للتوسيع...


تفضل يارامي هذا هو الكود الصحيح

PHP: 
$r =MsgBox(4,"","امر لتأكد م شاشة الدوس في عملية أم لا")
If $r = 6 Then
$h = ProcessExists("CMD.EXE")
If $h Then
MsgBox(0,"","YAS")
Else
 MsgBox(0,"","Not")
EndIf
EndIf
 
توقيع : format
ramay قال:
أستفسار في هذا كود processExistsا لامر فقط اريد تأكد هل شاشة دوس مفتوح أما لا
كود: 
$1 =MsgBox(4,"","امر لتأكد م شاشة الدوس في عملية أم لا")
If $1 = 6 Then
ProcessExists("CMD.EXE")
If $1 =ProcessExists("cmd.exe") Then
MsgBox(0,"","YAS")
Else
 MsgBox(0,"","Not")
EndIf
EndIf
أنقر للتوسيع...

أستاذ رامي ..

تقدر تضع الدالة في عبارة if بدون حفظ القيمة الراجعه لها ..

لكن إتبع الطريقة السابقة الي تعلمناها في هذا الوقت...

بالنسبة أنا أقول دائماً إعرف القيمة الراجعه للدالة وبعدين ضع الشروط ..

ProcessExists

ترجع إذا كانت العملية موجودة PID الخاص بالعملية

وإذا كانت العملية غير موجودة 0

إذا تريد تتأكد هل العملية موجودة أو لا إستخدم هذي الطريقة..

كود: 
$pe = ProcessExists ( "CMD.exe" )
if $pe <> 0 Then
    MsgBox(0,"","البرنامج يعمل")
Else
    MsgBox(0,"","البرنامج لايعمل")
    endif

تمنيت لو الاخ حاتم وضح القيم الراجعه للدوال ألي شرحها :i:
 
توقيع : waget
ramay قال:
أستاذ حاتم

اخي الاثنين نفس العمل
لكن أنا وضعته هكذا
If $r = 0 Then
يجب عليك أنا تضع في رسالة الاوله أن عملية لم ننجح​

كود: 
[CENTER]MsgBox(0,"","لم تنجح")[/CENTER]
وأن وضعته هكذا
If $Ft = 1 Then
يجب أن تضع رسالة الاوله في أن عملية نجحت​
كود: 
[CENTER]MsgBox(0,"","نجحت")[/CENTER]
يعني جرب ضع مكان قيمة صفر
قيمة 1
ستظهر رسائل في عكس​
أنقر للتوسيع...

:king:
 
توقيع : waget
format قال:
تفضل يارامي هذا هو الكود الصحيح

PHP: 
$r =MsgBox(4,"","امر لتأكد م شاشة الدوس في عملية أم لا")
If $r = 6 Then
$h = ProcessExists("CMD.EXE")
If $h Then
MsgBox(0,"","YAS")
Else
 MsgBox(0,"","Not")
EndIf
EndIf
أنقر للتوسيع...

بارك الله فيك يا حاتم

waget قال:
أستاذ رامي ..

تقدر تضع الدالة في عبارة if بدون حفظ القيمة الراجعه لها ..

لكن إتبع الطريقة السابقة الي تعلمناها في هذا الوقت...

بالنسبة أنا أقول دائماً إعرف القيمة الراجعه للدالة وبعدين ضع الشروط ..

ProcessExists

ترجع إذا كانت العملية موجودة PID الخاص بالعملية

وإذا كانت العملية غير موجودة 0

إذا تريد تتأكد هل العملية موجودة أو لا إستخدم هذي الطريقة..

كود: 
$pe = ProcessExists ( "CMD.exe" )
if $pe <> 0 Then
    MsgBox(0,"","البرنامج يعمل")
Else
    MsgBox(0,"","البرنامج لايعمل")
    endif

تمنيت لو الاخ حاتم وضح القيم الراجعه للدوال ألي شرحها :i:
أنقر للتوسيع...
مشكور يا عبدالله صراح رأيت القيمة في كتب مساعده لكن معرفت كيف أنفذه
لأن الانكليزية عندي
قيمة راجعه له 0
طيب الان ما هي قيم راجعه لدالتين
ProcessExists
ProcessClose

وهذه طريقة مقرنه
if $pe <> 0 Then

مقرنة أي الدالة معه
لم أفهم ما تقرن
تقرن متغير مع القيمة
أما غير ذلك
:king:

​
 
توقيع : ramay
ramay قال:


بارك الله فيك يا حاتم


مشكور يا عبدالله صراح رأيت القيمة في كتب مساعده لكن معرفت كيف أنفذه
لأن الانكليزية عندي
قيمة راجعه له 0
طيب الان ما هي قيم راجعه لدالتين

ProcessExists
^
كتبت القيم في مشاركتي السابقة :d:

ProcessClose

إذا نجح 1
إذا فشل 0


وهذه طريقة مقرنه
if $pe <> 0 Then

مقرنة أي الدالة معه
لم أفهم ما تقرن
تقرن متغير مع القيمة
أما غير ذلك
:king:

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

القيم الراجعه للدوال موجودة في إقتباس مشاركتك

معامل المقارنة <> لايساوي ..

فأنت تختبر هل القيمة الراجعه لاتساوي 0 إذا كانت تساوي أي أن العملية غير شغالة

غير 0 العملية تعمل في الذاكرة..

صحيح إن القيمة الراجعه الاخرى هي PID العملية لكن لاتعتمد عليها في الوقت الحالي

لسبب : إن PID هو رقم العملية في الذاكرة .. مشكلته إنه غير ثابت يعني في كل مره تعيد تشغير البرنامج يتغير الرقم ..

جرب هذا الملف الدفعي :

كود: 
@echo off
TASKLIST.EXE
pause
راح تلاحظ إن كل عملية لها رقم مختلف ..

لكن 0 ثابت في الدالة إنه العملية لاتعمل فوضفها في كودك ..

مثلا عندي سكريبت تريده أن يعمل فقط إذا كانت المفكره مفتوحة..

كود: 
$Process = ProcessExists("notepad.exe")
if $Process = 0 Then
    MsgBox(0+524288,"","سيتم إغلاق البرنامج" & @CRLF & _
"شغل المفكرة ثم أعد تشغيل البرنامج")
    Exit
Endif
سكريبت أخر تريده أن يعمل فقط إذا كان الفايرفوكس مغلق..

كود: 
$Process = ProcessExists("firefox.exe")
if $Process <> 0 Then
    MsgBox(0+524288,"","سيتم إغلاق البرنامج" & @CRLF & _
"أغلق الفايرفوكس ثم أعد تشغيل السكريبت")
    Exit
Endif
جرب المثالين في أكثر من حالة مره شغل المفكرة ومره أغلقها وكذالك الفايرفوكس..
 
توقيع : waget
البيانات من نوع Boolean والمعاملات الخاصة به..

البيانات من نوع Boolean

من الانواع المهمة في لغات البرمجة..

يحمل قيمتين فقط وهي
True/False..
خاطئ/صحيح

وهي من الكلمات المحجوزة في اللغة ..

كأي نوع من أنواع البيانات يمكن إسنادها لمتغير..ويمكن أن تكون قيمة راجعه لداله..

وأخيراً هذا النوع هي القيم الناتجة لعمليات المقارنة مثل ما أخذنا في درس الشرط..


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

متغير.. :d:

فراح ندخل على المعاملات الخاصة بهذا النوع..راح نأخذها بشكل نظري علشان نعرف حالتها ..

وفي درس لاحق نشوف فايدتها خاصه مع الشروط..

المعامل AND :
يكون ناتج العملية صحيح في حالة واحدة فقط .. إذاكانت جميع القيمتين صحيحة..
c0b37fe9cfc394a8290271e60099cb1a.png

المعامل OR:
يكون ناتج العملية خاطيء في حالة واحدة إذا كانت جميع القيمتين خاطئة..
58a1e56f7d11b4db77238c9638c6c685.png

المعامل NOT:
العملية تكون بمتغير واحد أي قيمة واحدة ويكون الناتج عكس القيمة الاولي..
7e2d9cca6d0a60616e7c395fcdaca8e6.png


ملاحظة : إذا كانت القيمة المجرى عليها العملية في متغير فلن تتغير قيمة المتغير الاصلية .. ولكن يمكن حفظ القيمة النهائية في متغير آخر..
كود: 
$var = True
$var2 = not($var)
MsgBox(0,"",$var2)
MsgBox(0,"",$var)


:d:
​
 
توقيع : waget
كود: 
 $ramay = MsgBox(4,"","أذا كان شرط صحيح لا ينفذ")
If Not $ramay = 0 Then
$ramay = DirCopy(@HomeDrive&"\yy",@DesktopDir&"\pppp\",1)
If $ramay = 1 Then
MsgBox(0,"","dont")
Else
MsgBox(0,"","error")
EndIf
EndIf
تصبح على خير عيوني صارت جوه​
 
توقيع : ramay
waget قال:
البيانات من نوع Boolean

من الانواع المهمة في لغات البرمجة..

يحمل قيمتين فقط وهي True/False.. صحيح/خاطيء

وهي من الكلمات المحجوزة في اللغة ..

كأي نوع من أنواع البيانات يمكن إسنادها لمتغير..ويمكن أن تكون قيمة راجعه لداله..

وأخيراً هذا النوع هي القيم الناتجة لعمليات المقارنة مثل ما أخذنا في درس الشرط..


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

متغير.. :d:

فراح ندخل على المعاملات الخاصة بهذا النوع..راح نأخذها بشكل نظري علشان نعرف حالتها ..

وفي درس لاحق نشوف فايدتها خاصه مع الشروط..

المعامل AND :
يكون ناتج العملية صحيح في حالة واحدة فقط .. إذاكانت جميع القيمتين صحيحة..
c0b37fe9cfc394a8290271e60099cb1a.png

المعامل OR:
يكون ناتج العملية خاطيء في حالة واحدة إذا كانت جيع القيمتين خاطئة..
58a1e56f7d11b4db77238c9638c6c685.png

المعامل NOT:
العملية تكون بمتغير واحد أي قيمة واحدة ويكون الناتج عكس القيمة الاولي..
7e2d9cca6d0a60616e7c395fcdaca8e6.png


ملاحظة : إذا كانت القيمة المجرى عليها العملية في متغير فلن تتغير قيمة المتغير الاصلية .. ولكن يمكن حفظ القيمة النهائية في متغير آخر..
كود: 
$var = True
$var2 = not($var)
MsgBox(0,"",$var2)
MsgBox(0,"",$var)


:d:
​
أنقر للتوسيع...
أول مرة أحس ان الرياضيات نفعتني بشيء :d:

عندنا And يرمز لها برقم ثمآنية بالعربية > عجزت أكتبه :er:
و OR يرمز لها بـV :smile:

تطبيقي :smile:
كود: 
$Y=7
$Y1=8

IF $y and  $y1 = 7 then
    msgbox ( 64,"","True")
Else
    msgbox (16,"","False")
    EndIf


:smile:



​
 
توقيع : (مجرد انسان)
باك ياغوالي للدورة ...

يالله ان شاء الله اليوم استلمك ياعبدالله عالدروس اللي فاتت بدل بندر ...
 
توقيع : موريادي
إستخدام المعاملات المنطقية مع الشروط ..

في الدرس السابق عرفنا المعاملات المنطقية ...


والان راح نعرف فايدتها مع عبارة الشرط if


المعامل AND :

فايدته يمكننا من وضع شرطين معاً ..

لن يتحقق شرط العبارة حتى يتحقق الشرطين معاُ ..
مثال/
كود: 
$var = 10
if $var > 5 AND  $var < 11  Then
    MsgBox(0,"","تحقق الشرطين")
Else
    MsgBox(0,"","لم يتحقق الشرطين أو أحدهما")
    endif
المعامل OR:

فايدته يمكننا من وضع شرطين أيضاً

يتحقق شرط العبارة في جميع الحالات إلا إذا كان جميع الشرطين خاطئة..
مثال/
كود: 
$var = 10
if $var > 5 or  $var < 11  Then
    MsgBox(0,"","تحقق الشرطين أوتحقق أحدهما")
Else
    MsgBox(0,"","لم يتحقق الشرطين")
    endif
المعامل NOT:

في السابق عند وضع الشروط كنا نفرض صحة الشرط ..

لكن إستخدام NOT مع الشرط يعني أننا نفرض عدم صحة الشرط..

مثال/

كود: 
$var = 15
if not($var = 10)  Then
    MsgBox(0,"","العدد لايساوي 10")
Else
    MsgBox(0,"","العدد يساوي 10")
    endif
الان إذا كان العدد لايساوي 10 تصبح قيمة عملية المقارنه False

وعند إدخال NOT عليها يصبح الناتج True أي تحقق الشرط..

لو كان العدد يساوي 10 أي الناتج True وأدخلنا NOT عليها يصبح الناتج False

أي عدم تحقق الشرط..
 
توقيع : waget
ramay قال:
كود: 
 $ramay = MsgBox(4,"","أذا كان شرط صحيح لا ينفذ")
If Not $ramay = 0 Then
$ramay = DirCopy(@HomeDrive&"\yy",@DesktopDir&"\pppp\",1)
If $ramay = 1 Then
MsgBox(0,"","dont")
Else
MsgBox(0,"","error")
EndIf
EndIf
تصبح على خير عيوني صارت جوه​
أنقر للتوسيع...
:d:

0 ليست قيمة راجعه للرسائل..[
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
]

شوف الدرس الاخير وحاول تعرف خطأك ..

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