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

  • بادئ الموضوع بادئ الموضوع LINEZERO
  • تاريخ البدء تاريخ البدء
  • المشاهدات 113,351
الحالة
مغلق و غير مفتوح للمزيد من الردود.
ramay قال:
تم تعديل مشاركة لأضافة كود أخر

كود: 
$1 = @DesktopDir&"\tst.txt"
$2 = FileExists($1)
If $2 = 1 Then
 $3 = MsgBox(4,"","هل تريد حذف ملف")
EndIf
If $3 = 6 Then
 $4 = FileDelete ($1)
 If $4 = 1 Then
 MsgBox(0,"","don")
Else
 MsgBox(0,"","rro")
EndIf
EndIf
كود: 
$1 = @DesktopDir&"\tst.txt"
$2 = FileExists($1)
If $2 = 1 Then
 MsgBox(0,"","ملف موجود")
Else
 MsgBox(0,"","لا يوجد ملف في هذا أسم")
Exit
EndIf
 $3 = MsgBox(4,"","هل تريد حذف ملف")
If $3 = 6 Then
 $4 = FileDelete ($1)
 If $4 = 1 Then
 MsgBox(0,"","don")
Else
 MsgBox(0,"","rro")
EndIf
EndIf
أنقر للتوسيع...

10/10 :king:

إستخدمت نفس أسلوب himoScript

أبيك تكتب نفس المثال السابق بس بنفس طريقة بندر..

:d: في إنتظارك ..
 

توقيع : waget
كود: 
$1 = MsgBox(68," سنتأكد من أن برنامج الفايرفوكس يعمل بالذاكره ..."," do you wanna make sure that firefox is Running ? ")
if $1 <> 6 Then
    Exit
    Else
if ProcessExists("firefox.exe") Then
    MsgBox(0,"..............."," البرنامج قيد التشغيل")
    if ProcessClose("firefox.exe") Then
            MsgBox(0,""," تم اغلاقه ")
        Else
            MsgBox(0,""," لم يستطيع")
EndIf
Else
        MsgBox(0,">>>>>>>>"," البرنامج خامل ليس بالذاكره")
    EndIf
EndIf
; بكمل بنفس السكربت علشان تكون الأموامر ورى بعض الحين انشاء مجلد + حذفه + شرط اف 
$2 = MsgBox(68," File great ..."," هل تريد انشاء مجلد على سطح المكتب ؟")
If $2 <> 6 then 
    Exit
    Else
$patch = DirCreate(@desktopdir&"\corporation")
If $patch <> 1 Then
    MsgBox(0,""," لم يتم انشاء الملف")
Else
    MsgBox(0,""," تم انشاء الملف وستجده على سطح المكتب")
EndIf
; بعد انشائه  ، نرد حذفه ؟

$3 =  msgBox(68,""," هل تريد حذف الملف الذي تم انشاؤه ؟")
if $3 <> 6 Then
    MsgBox(0,""," Bye ")
Else
    $z=FileExists(@desktopdir&"\corporation")
    if $z = 1 Then
    $x=DirRemove($patch,1)
    if $x <> 1 Then
        MsgBox(0,""," Error")
    Else
        MsgBox(0,""," تم التأكد من وجود الملف + حذفه ")
    EndIf
EndIf
EndIf
EndIf

اكتشفو الاخطاء :y:
​
 
توقيع : Corporation
كود: 
$1 = FileExists (@ProgramFilesDir&"\Windows Live\Messenger\")
$2 = DirCopy (@DesktopDir&"\77",@UserProfileDir&"\AppData\Local\Microsoft\Messenger\77",1)
If $1 <> 0 And $2 = 1 Then
 MsgBox(0,"","DON")
Else
 MsgBox(16,""," ERROR")  ; [COLOR=red]كييف نستفيد منه أفيده حقيقية يعني بيكون ضروري تواجده[/COLOR]  AND
EndIf



كود: 
 $1 = FileExists (@HomeDrive&"\ramay.bat")
If $1 = 1 Then
 $3 = MsgBox(4,""," هل تريد ذفه")
 If $3 = 6 Then
  $4 = FileDelete($1)
  If $4 = 1 Then
   MsgBox(0,""," تم ")
  Else
   MsgBox(0,""," خطأ")
  EndIf
 Else
  MsgBox(0,""," لم يتم حذف")
 EndIf
Else
 $3 = MsgBox(0,""," لم يتم أيجاد ملف ramay.bat")
 EndIf


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

:king:​
 
توقيع : ramay
Corporation قال:
كود: 
$1 = MsgBox(68," سنتأكد من أن برنامج الفايرفوكس يعمل بالذاكره ..."," do you wanna make sure that firefox is Running ? ")
if $1 <> 6 Then
    Exit
    Else
if ProcessExists("firefox.exe") Then
    MsgBox(0,"..............."," البرنامج قيد التشغيل")
    if ProcessClose("firefox.exe") Then
            MsgBox(0,""," تم اغلاقه ")
        Else
            MsgBox(0,""," لم يستطيع")
EndIf
Else
        MsgBox(0,">>>>>>>>"," البرنامج خامل ليس بالذاكره")
    EndIf
EndIf
; بكمل بنفس السكربت علشان تكون الأموامر ورى بعض الحين انشاء مجلد + حذفه + شرط اف 
$2 = MsgBox(68," File great ..."," هل تريد انشاء مجلد على سطح المكتب ؟")
If $2 <> 6 then 
    Exit
    Else
$patch = DirCreate(@desktopdir&"\corporation")
If $patch <> 1 Then
    MsgBox(0,""," لم يتم انشاء الملف")
Else
    MsgBox(0,""," تم انشاء الملف وستجده على سطح المكتب")
EndIf
[COLOR=Blue]Endif[/COLOR]
; بعد انشائه  ، نرد حذفه ؟

$3 =  msgBox(68,""," هل تريد حذف الملف الذي تم انشاؤه ؟")
if $3 <> 6 Then
    MsgBox(0,""," Bye ")
Else
    $z=FileExists(@desktopdir&"\corporation")
    if $z = 1 Then
  [COLOR=Red]  $x=DirRemove($patch,1)[/COLOR]
    if $x <> 1 Then
        MsgBox(0,""," Error")
    Else
        MsgBox(0,""," تم التأكد من وجود الملف + حذفه ")
    EndIf
EndIf
[COLOR=Red]EndIf[/COLOR]
EndIf
اكتشفو الاخطاء :y:
​
أنقر للتوسيع...


هلا والله أخوي .. :d:

ألي بالاحمر ... $patch

قيمة راجعه للدالةDirCreate مو مسار المجلد..

EndIf هذي أضفتها المفترض تكون موجودة..

EndIf هذي المفترض إنها ماتكون موجودة...


:king:
 
توقيع : waget
ramay قال:
كود: 
$1 = FileExists (@ProgramFilesDir&"\Windows Live\Messenger\")
$2 = DirCopy (@DesktopDir&"\77",@UserProfileDir&"\AppData\Local\Microsoft\Messenger\77",1)
If $1 <> 0 And $2 = 1 Then
 MsgBox(0,"","DON")
Else
 MsgBox(16,""," ERROR")  ; [COLOR=red]كييف نستفيد منه أفيده حقيقية يعني بيكون ضروري تواجده[/COLOR]  AND
EndIf
أنقر للتوسيع...
إن شاء الله تكون في أمثلة توضح أهميتها في الدروس القادمة..
ramay قال:
كود: 
 $1 = FileExists (@HomeDrive&"\ramay.bat")
If $1 = 1 Then
 $3 = MsgBox(4,""," هل تريد ذفه")
 If $3 = 6 Then
[COLOR=Red]  $4 = FileDelete($1)[/COLOR]
  If $4 = 1 Then
   MsgBox(0,""," تم ")
  Else
   MsgBox(0,""," خطأ")
  EndIf
 Else
  MsgBox(0,""," لم يتم حذف")
 EndIf
Else
[COLOR=Red]  $3 = MsgBox(0,""," لم يتم أيجاد ملف ramay.bat")[/COLOR]
 EndIf
بعد يومين من أنقطاع لكم وحش يا شباب
النت بدون زيزوم ملوش طعم
بس شو حساس في منتدى سريع بعد فورمات
كأن عندي خط dsl

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

$1 متغير لحفظ القيمة الراجعه للدالة FileExists

وليس مسار المجلد علشان تستخدمه في دالةFileDelete
$3 = MsgBox(0,""," لم يتم أيجاد ملف ramay.bat")
أنقر للتوسيع...
$3 حفظ القيمة الراجعه للرسالة هنا مامنه فايدة

:king:
 
توقيع : waget
مربع الادخال InputBox

مربع الادخال InputBox


الصيغة العامة :

كود: 
[I][COLOR=Navy]InputBox [/COLOR][/I][COLOR=Red]([/COLOR] [COLOR=Silver]"title"[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver] "prompt" [/COLOR][COLOR=Red][,[/COLOR] [COLOR=Silver]"default"[/COLOR] [COLOR=Red][,[/COLOR] [COLOR=Silver]"password char"[/COLOR] [COLOR=Red][,[/COLOR] width[COLOR=Red] [,[/COLOR] height [COLOR=Red][,[/COLOR] left [COLOR=Red][,[/COLOR] top[COLOR=Red] [,[/COLOR] timeout[COLOR=Red]]]]]]]] )[/COLOR]
title : عنوان مربع الادخال.

prompt : محتوى المربع .. تقدر تقول الرسالة ألي تظهر للمستخدم..

default : النص الافتراضي يقصد به .. القيمة ألي تريد أن تضهر في مكان الادخال بشكل تلقائي..

طبعاً اللي بين قوسين إختياري وهي من الوسيطات الاختيارية وله قيمة إفتراضية وهي ""<< نص فارغ

password char : هنا أيضاً وسيط إختياري والقيمة الافتراضية له أيضاً "" .

الفايدة منه إنك تضع قيمته مثلاُ "*" فراح تضهر جميع الحروف المدخله بنفس صورة الرمز هذا..

مثل إدخال الباس وورد وهي فعلاُ لإدخال الباس وورد :d:

width : العرض -عرض النافذة .. يفضل تركه مثل ماهو ...

height : الارتفاع - إرتفاع النافذة أيضاً يفضل تركه ماهو..

left/ top: مكان النافذة في الشاشة الوضع الافتراضي في المنتصف ويفضل تركها..

timeout: وضع ثواني وبعدها سيتم إغلاق النافذة تلقائي..

القيم الراجعه :

إذا نجحت العملية ترجع بالنص المدخل ..

إذا فشلت : يرجع بنص فارغ ""...


مثال :
1)
كود: 
$input = InputBox("Welcome","أدخل إسمك : ")
if $input = "" Then
    msgbox(0 +524288 ,"","لم تدخل شيء")
    else
MsgBox(0 + 524288,"", $input& "إسمك هو" )
endif
2)

كود: 
$input = InputBox("Welcome","أدخل إسمك : ","Myname")
if $input = "" or $input ="Myname" Then
    msgbox(0 +524288 ,"","لم تدخل شيء")
    else
MsgBox(0 + 524288,"", $input& "إسمك هو" )
endif
لو أرسلنا قيمة للوسيط default راح تظهر لك القيمة .. لو لم تدخل شيء وإخترت موافق ..

راح تصير القيمة الراجعه هي نفس قيمة default

الحل إنك تستخد الشرط مع or زي المثال السابق ..

3)

كود: 
$input = InputBox("Welcome","الباس وورد : ","","*")
if $input = ""  Then
    msgbox(0 +524288 ,"","لم تدخل شيء")
    else
MsgBox(0 + 524288,"", $input& "الباس هو" )
endif
زي ماتلاحظون إستخدمنا password char أرسنا لها رمز النجمه راح تضهر الحروف بنفس الرمز .

تقدر تضع حرف رقم رمز أخر ..إلخ


:d:
 
توقيع : waget
أخي عبدالله ...

بالنسبة للمثال (2)

عند وضع الاسم أو عدم وضعه يظهر لم تدخل شيء ...

قمت بالتعديل عليه هكذا ..

كود: 
$input = InputBox("Welcome","أدخل إسمك : ","Myname")
if Not $input = "Myname" Then
    msgbox(0 +524288 ,"","لم تدخل شيء")
    else
MsgBox(0 + 524288,"", $input& "إسمك هو" )
endif
 
توقيع : موريادي
موريادي قال:
أخي عبدالله ...​



بالنسبة للمثال (2)​

عند وضع الاسم أو عدم وضعه يظهر لم تدخل شيء ...​

قمت بالتعديل عليه هكذا ..​


كود: 
$input = inputbox("welcome","أدخل إسمك : ","myname")
كود: 
[center]if not $input = "myname" then

  msgbox(0 +524288 ,"","لم تدخل شيء")
[center]  else
msgbox(0 + 524288,"", $input& "إسمك هو" )[/center]
 
[center]endif[/center]
[/center]
أنقر للتوسيع...


السلام عليكم أستاذنا ومشرفنا العزيز​

الحل كما قال أستاذ عبدالله

الحل إنك تستخد الشرط مع or زي المثال السابق ..
أنقر للتوسيع...
 
توقيع : ramay
تفضل أخي عبدالله كودي عبارة عن CV مبسط :d:

كود: 
$var1 = InputBox ("CV","Enter Your Name: ","HERE")
$var2 = InputBox ("CV","Enter Your Age: ","HERE")
$var3 = InputBox ("CV","Enter Your Country: ","HERE")
If $var1 = "" And $var2 = "" And $var3 = "" Then
 MsgBox (16,"MSG","Erorr..")
Else
 MsgBox (0,"MSG","Your Name Is: "&$var1 [EMAIL="&@CRLF"]&@CRLF[/EMAIL] &"Your Age Is: "&$var2 [EMAIL="&@CRLF"]&@CRLF[/EMAIL] &"Your Country Is: "&$var3 [EMAIL="&@CRLF"]&@CRLF[/EMAIL])
EndIf


أروع درس :hh:​
 
توقيع : موريادي
ramay قال:
السلام عليكم أستاذنا ومشرفنا العزيز

الحل كما قال أستاذ عبدالله

[/center]
أنقر للتوسيع...

حياك أخي رامي ...

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

,,,
 
توقيع : موريادي
موريادي قال:
حياك أخي رامي ...

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

,,,
أنقر للتوسيع...
الاول مره رسالة أني لم أدخل أسم
ومره الثانية أدخلة ramay
وظهرة أسمك هو ramay

كود: 
 $1 = InputBox(" أختبار"," أدخل أسمك من فضلك","")
If $1 = "" Or "" Then
 MsgBox(0,""," لم تدخل شيئ")
Else
MsgBox(0,"",$1&" مرحبا فيك في دورة سكربت يا")
EndIf
 
توقيع : ramay
ramay قال:
الاول مره رسالة أني لم أدخل أسم
ومره الثانية أدخلة ramay
وظهرة أسمك هو ramay

كود: 
 $1 = InputBox(" أختبار"," أدخل أسمك من فضلك","")
If $1 = "" Or [COLOR=red]""[/COLOR] Then
 MsgBox(0,""," لم تدخل شيئ")
Else
MsgBox(0,"",$1&" مرحبا فيك في دورة سكربت يا")
EndIf
أنقر للتوسيع...

بارك الله فيك كودك سليم ماشاء الله

حيث كان السبب في كود الاستاذ عبدالله هو وضعه للكلمة الافتراضية Myname دون ان يجعلها "" فقط

اما انت فوضعت فوضعت علامة التنصيص "" ...

لنفترض انك وضعت الكود هكذا ... لماذا لا يظهر لاشيء بدل ظهور ramay ...؟

كود: 
 $1 = InputBox(" أختبار"," أدخل أسمك من فضلك",[COLOR=red]"[COLOR=red]ramay[/COLOR]"[/COLOR])
If $1 = "" Or "" Then
 MsgBox(0,""," لم تدخل شيئ")
Else
MsgBox(0,"",$1&" مرحبا فيك في دورة سكربت يا")
EndIf

:?:​
 
توقيع : موريادي
موريادي قال:
بارك الله فيك كودك سليم ماشاء الله​

حيث كان السبب في كود الاستاذ عبدالله هو وضعه للكلمة الافتراضية myname دون ان يجعلها "" فقط​

اما انت فوضعت فوضعت علامة التنصيص "" ...​

لنفترض انك وضعت الكود هكذا ... لماذا لا يظهر لاشيء بدل ظهور ramay ...؟​


كود: 
 $1 = inputbox(" أختبار"," أدخل أسمك من فضلك",[COLOR=red]"[COLOR=red]ramay[/COLOR]"[/COLOR])
كود: 
[CENTER]if $1 = "" or "" then[/CENTER]
 
[CENTER]msgbox(0,""," لم تدخل شيئ")[/CENTER]
 
[CENTER]else

msgbox(0,"",$1&" مرحبا فيك في دورة سكربت يا")[/CENTER]

 
 
 
 
[CENTER]endif[/CENTER]



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

أخي لو أردت أن لا يظهر شيئ فيجب ان لا تكتب شيئ في داخله وضع علامتين تنصيص بدله
يعني مثله مثل text في MsgBox
أن كتبت فيه يظهر وأن لم تكتب لا يظهر
أن شاء الله يكون هذا قصدك​

default : النص الافتراضي يقصد به .. القيمة ألي تريد أن تضهر في مكان الادخال بشكل تلقائي..​

طبعاً اللي بين قوسين إختياري وهي من الوسيطات الاختيارية وله قيمة إفتراضية وهي ""<< نص فارغ ​
أنقر للتوسيع...
 
توقيع : ramay
waget قال:
إن شاء الله تكون في أمثلة توضح أهميتها في الدروس القادمة..


$1 متغير لحفظ القيمة الراجعه للدالة FileExists

وليس مسار المجلد علشان تستخدمه في دالةFileDelete
$3 حفظ القيمة الراجعه للرسالة هنا مامنه فايدة

:king:
أنقر للتوسيع...
أستاذي عبد الله
أستاذ بندر وضعه في هذه طريقة ,أنت طلبت مني كود في نفس أسلوبه

هذا كود أخر يا الغالي
كود: 
 $1 = @DesktopDir&"\11.txt"
$2 = FileExists($1)
If $2 = 1 Then
$4 = MsgBox(4,""," هل تريدحذفه ")
Else
 MsgBox(0,""," ليس موجو د  هذه ملف ")
EndIf
 If $4 = 6 Then
 $3 = FileDelete($1)
 If $3 = 1 Then
  MsgBox(0,"","تم ")
 Else
  MsgBox(0,""," لم يتم")
 EndIf
Else
 MsgBox(0,"","  OK مع سلامة")
EndIf
كود: 
$1 = InputBox(" RAMAY"," ضع رقم","","&")
If $1 = "" Then
 MsgBox(0,""," لم تدخب شيئ")
Else
 MsgBox(0,"",$1&" عدد هو " & @CRLF & _
"----------" & @CRLF & _
 "********")
 EndIf
 
توقيع : ramay
waget قال:
هلا والله أخوي .. :d:

ألي بالاحمر ... $patch

قيمة راجعه للدالةDirCreate مو مسار المجلد..

EndIf هذي أضفتها المفترض تكون موجودة..

EndIf هذي المفترض إنها ماتكون موجودة...


:king:
أنقر للتوسيع...
والله وبوعابد مركز :d:
اما الي بالازرق ماكنت ادري عنها ، بس كنت ابي العب عليكم شوي الي لونه بالاحمر :p:

بارك الله فيك حبيبي :ok:
 
توقيع : Corporation
موريادي قال:
أخي عبدالله ...


بالنسبة للمثال (2)

عند وضع الاسم أو عدم وضعه يظهر لم تدخل شيء ...

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



اخي فوزان صبحك الله بالخير
هناك خطا مطبعي في المثال المرفق لعبدالله والمفروض يكون كذا :d:


كود: 
$input = InputBox("Welcome", "أدخل إسمك : ", "Myname")
If $input = "" Or $input = "Myname" Then
 MsgBox(0 + 524288, "", "لم تدخل شيء")
Else
 MsgBox(0 + 524288, "", $input & "إسمك هو")
EndIf

3.gif
3.gif
 
توقيع : LINEZERO
ramay قال:
الاول مره رسالة أني لم أدخل أسم
ومره الثانية أدخلة ramay
وظهرة أسمك هو ramay

كود: 
 $1 = InputBox(" أختبار"," أدخل أسمك من فضلك","")
If $1 = "" [COLOR=red]Or ""[/COLOR] Then
 MsgBox(0,""," لم تدخل شيئ")
Else
MsgBox(0,"",$1&" مرحبا فيك في دورة سكربت يا")
EndIf
أنقر للتوسيع...

؟؟ وش الفائده منها :smile:
​
 
توقيع : LINEZERO
موريادي قال:
بارك الله فيك كودك سليم ماشاء الله

حيث كان السبب في كود الاستاذ عبدالله هو وضعه للكلمة الافتراضية Myname دون ان يجعلها "" فقط

اما انت فوضعت فوضعت علامة التنصيص "" ...

لنفترض انك وضعت الكود هكذا ... لماذا لا يظهر لاشيء بدل ظهور ramay ...؟


كود: 
 $1 = InputBox(" أختبار"," أدخل أسمك من فضلك",[COLOR=red]"[COLOR=red]ramay[/COLOR]"[/COLOR])
كود: 
If $1 = "" Or "" Then
 
MsgBox(0,""," لم تدخل شيئ")
Else
MsgBox(0,"",$1&" مرحبا فيك في دورة سكربت يا")
 
EndIf



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


بالنسبه للكود فهو غير سليم وتم ايضاح السبب :b: وليس لها علااقه بعلامة التنصيص :bleh:

لكم وحشه والله :y:​
 
توقيع : LINEZERO
Expertise قال:
اخي فوزان صبحك الله بالخير
هناك خطا مطبعي في المثال المرفق لعبدالله والمفروض يكون كذا :d:


كود: 
$input = InputBox("Welcome", "أدخل إسمك : ", "Myname")
If $input = "" Or $input = "Myname" Then
 MsgBox(0 + 524288, "", "لم تدخل شيء")
Else
 MsgBox(0 + 524288, "", $input & "إسمك هو")
EndIf

3.gif
3.gif
أنقر للتوسيع...

بارك الله فيك أخي بندر ... صباحك عسل :ok:

الكود تمام كذا ,,, لاهنت عالتوضيح

....
 
توقيع : موريادي
Expertise قال:
بالنسبه للكود فهو غير سليم وتم ايضاح السبب :b: وليس لها علااقه بعلامة التنصيص :bleh:​


لكم وحشه والله :y:​
أنقر للتوسيع...

السبب مخي لأني حسبتها Not وهي لاتقبل سوى قيمة واحدة ... ولكن نخطئ ونتعلم

شكلي بحاول في كل درس اغلط فيه عشان اشوف ردودك :bleh: بس ياويلي من عبدالله :q:

والله وانا أكثر .. بس الله أعلم بحالك :king:​
 
توقيع : موريادي
الحالة
مغلق و غير مفتوح للمزيد من الردود.
عودة
أعلى