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

شرح أظهار حجم الملفات بِ الـ mb + تقريب الإرقام إلى القيمه العشريه ..

بسم الله الرحمن الرحيم

لـ إظهار حجم الملف بـ KB تم أسناد القيمه 1024 كما تم شرحه سلفاً ،
،
نلاحظ الصوره ، :d:


نفهم من الصوره الإتي ،
اذا اردت معرفه حجم الملف / ـات ، بِ الكيلوبايت KB نستخدم = 1024
اذا اردت معرفه حجم الملف / ـات ، بِ الميجابايت MB نستخدم = 1048576
لماذا تم اسنـاد القيمه 1048576 لـ MB ، تعال معي شوي نسوي هالعمليه الحسابيه :u:
1024 × 1024 = ( ××× ) MB
:b:
راح يطلع لك = 1048576

_معلومه بسيطه / كيلوبايت 1024KB = ميجابايت 1 MB​

​

​

،
.. : شرح تقريب الحجم لـ قيمه عشريه : ..
راح نستخدم أمر بسيط إلإ وهو Round
صيغته العامه ،

كود:

Round ( expression [, decimalplaces] )

ممكن أحد من اول مايشوفه مايدري وش يسوي :d:
expression < < إي تعبير رقمي صإالح [ قيمه جذريه ، جبريه ] ، الخ :d:
decimalplaces < [ أختياريّ / تشير إلى الإرقام التي على يمين الفاصله العشريه

نإخذ عليها مثـال ..

كود:

[FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=DarkRed]$Size[/COLOR] [/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Red]=[/COLOR] [/COLOR][/SIZE][/FONT][I][FONT=Times New Roman][COLOR=Navy][SIZE=3]Round[/SIZE][/COLOR][/FONT][/I][FONT=Times New Roman][COLOR=Red][SIZE=3]([/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Navy][SIZE=3]FileGetSize[/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Red][SIZE=3]([/SIZE][/COLOR][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Magenta]@WindowsDir[/COLOR] [/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Red]&[/COLOR] [/COLOR][/SIZE][/FONT][FONT=Times New Roman][COLOR=Gray][SIZE=3]"\explorer.exe"[/SIZE][/COLOR][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Red])[/COLOR] [/COLOR][/SIZE][/FONT][FONT=Times New Roman][COLOR=Red][SIZE=3]/[/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Purple][SIZE=3]1048576[/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Purple][SIZE=3][COLOR=Red],[/COLOR] [/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Purple][SIZE=3]2[/SIZE][/COLOR][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Red])[/COLOR] [/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Red]&[/COLOR] [/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Gray]"  MB"[/COLOR]
[/COLOR][/SIZE][/FONT] [I][FONT=Times New Roman][SIZE=3][COLOR=Navy]MsgBox[/COLOR][/SIZE][/FONT][/I][FONT=Times New Roman][COLOR=Red][SIZE=3]([/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Purple][SIZE=3]0[/SIZE][/COLOR][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Red],[/COLOR] [/COLOR][/SIZE][/FONT][FONT=Times New Roman][COLOR=Gray][SIZE=3]"Example"[/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Red][SIZE=3],[/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Gray][SIZE=3]" file size in MB is : "[/SIZE][/COLOR][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy] [COLOR=Red]&[/COLOR][/COLOR][/SIZE][/FONT][FONT=Times New Roman][COLOR=DarkRed][SIZE=3]$Size[/SIZE][/COLOR][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Red]&[/COLOR] [/COLOR][/SIZE][/FONT][FONT=Times New Roman][COLOR=Gray][SIZE=3]" .. "[/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Red][SIZE=3])[/SIZE][/COLOR][/FONT]

نتيجـه العمل ،



عرفنا المتغير Size$ على إنه إرجاع عدد وتقريبه إلى عدد محدد من المنازل العشرية
بِ إستخدام الإمر Round
After that .. ( حددنا الملف ومكانه ) ، وقسمناه على 1048576 / 2
،
ليش 1048567 / 2 ؟
1048567 = لإنك تريد الحجـم بِ ميجابايت MB
2 = يعني قربّ لي العدد إلى خانتين عشريتين بسّ ، > ركزو عليها :b:
يعنيّ لو تم تغيير رقم ( 2 ) إلى ( 4 ) مثلاً سوف يكون النإتج هكذا ،



بمعنىّ ، انه راح يقرب لك العدد إلى إقرب( 4 ) خانات عشريه !
وهكــذا ،

أسال لله العلي القدير ان اكون وفقت في إيصال المعلومه

:king:

​

 

أخوي عبدالله ... لو ودي أعمل مقارنة بين 3 قيم وليس 2 ,,, كيف ؟

أيضا المعروف عند عمل مقارنة الناتج يكون يا True OR False ... ولكنك وضعت "" للمتغيرات في MsgBox لماذا ؟

..........

 

على حسب الشرح waget الاخ وتم التطبيق

كود PHP:

$hatem = FileCopy(@ProgramFilesDir & "\AutoIt3\AutoIt3.exe" ,@DesktopDir&"\AutoIt3\",9)
If $hatem = 1 Then
    MsgBox(0,"","تم عمليه نسخ ملف الاوتيت")
Else
    msgbox(0,"","لم يتم عمليه نسخ الملف الاوتيت")
EndIf


والباقي نفسه اللهم نغير الاوامر FileMove الخ FileDelete الخ FileRecycle

 

تطبيق عسل ,,, ان شاء الله صح

قسم شروحات تثلج الصدر ,, وتخليك غصب تطبق

كود:

$var1 = Round(FileGetSize (@WindowsDir&"\regedit.exe")/1024,2)
$var2 = 1000
if $var1 < $var2 Then
FileRecycle (@WindowsDir&"\regedit.exe")
MsgBox (0,"Msg","Done")
EndIf
MsgBox (0,"Msg","Good-Bye")

 

تطبيق أمر الشرط If

سيتم تحديث المشاركه بعد قليل / ما زال العمل جارياً :d:

تطبيق إمر وإحداً ( هذا ياعبدالله اشبه ب مثل الشئ الي ماله الا اثنين )
مثال / يعني اذا ما كان سالب اكيد موجب - اذا ما كان ذكر اكيد انثى !
،
التطبيق ..

على الـ Msgbox

كود:

MsgBox(64," أختبــار .. " , " If سوف نقوم ب اختبـار ب درس ")
$z = MsgBox(4," اختبــار .. " , " حددت لك خيارين عليك الضغط على احداها ")
If $z = 6 Then
MsgBox(48," اختبـــــار .. "," لقد ضغطت على الزر نعم ")
Else
MsgBox(48," اختبـار .."," لقد ضغطت على الزر لا ")
EndIf
MsgBox(32,"انهاء الأختبار"," تم الأنتهاء من الاختبار ارجو ان تكون المعلومه وصلـت")

،
تطبيق على الـ FileCopy

كود:

$1 = filecopy(@WindowsDir&"\fonts\*.*",@DesktopDir&"\خطوط الجهاز\*.*",9)
If $1 = 1    Then
    MsgBox(32," تمت العمليه بنجاح " , " تمت عمليه نسخ مجلد الخطوط إلى سطح المكتب بنجاح")
Else
    MsgBox(48," نسخ الملفات"," فشل في نسخ الملفات إلى سطح المكتب")
EndIf

سيتم تحديث الرد
​

 

تطبيقي على درس اخوي عبدالله ​

كود PHP:

$Con = MsgBox(4, "Confrmation .. ", " Do you want to delete IDM.exe File ?", 5)
If $Con <> 7 Then
 $Del = FileRecycle(@ProgramFilesDir & "\Internet Download Manager\IDMan.exe")
 If $Del <> 1 Then
  MsgBox(0, "Error .. ", " file is not deleted or does not exist!!           Expertise ")
 Else
  MsgBox(0, "Success .. ", " file is deleted .....         Expertise ")
 EndIf
Else
 MsgBox(0, "INFO .. ", " You refused to delete IDM.exe ..           Expertise ", 5)
EndIf


 

امر افراغ سلة المهملاات
FileRecycleEmpty

ويكون كالتالي

كود:

FileRecycleEmpty ( ["source"] )

source = مسار سلة المهملات " البارتشن " .. اذا لم تكتب شي يقوم بافراغ سلة المهملات في جميع البارتشنات :d:


في حالة النجاح يرجع بالقيمه = 1
وفي حالة الفشل يرجع بالقيمه = 0

مثال
افراغ سلة المهملات لبارتشن النظام

كود PHP:

$DEL = FileRecycleEmpty(@HomeDrive)
If $DEL = 1 Then
 MsgBox(0, "Expertise..", " The recycle bin for " & @HomeDrive & " is emptied ...             ")
Else
 MsgBox(0, "Expertise..", " The recycle bin for " & @HomeDrive & " is not emptied ...             ")
EndIf


 

كود PHP:

; افراغ سله المحدوفات 
FileRecycleEmpty("C:\")  


 

سلام عليكم..

بالنسبه لمقارنة أكثر من قيمة

فالحل إنك تستخدم if بداخل if وتجري المقارنه بين قيمتين في كل if

مثال :

مقارنه لأصغر عدد بين 3 أعداد..

كود:

$var1 = 15
$var2 = 20
$var3 = 21

if $var1 < $var2 Then
    if $var1 < $var3 Then
        MsgBox(0,"",$var1 & "أصغر عدد")
    Else
        MsgBox(0,"",$var3 & "أصغر عدد")
    Endif
    else
        if $var2 < $var3 Then
            MsgBox(0,"",$var2 & "أصغر عدد")
        Else
            MsgBox(0,"",$var3 & "أصغر عدد")
        endif
    EndIf

بالنسبه لوضعي للمتغرات بين علامتي تنصيص هو فقط لأضهر إسم المتغير ...

لأنه ماراح تضهر الرسالة إلا إذا صار الشرط في عملية المقارنه true

كود:

if $var1=$var2 then

لوعملت هذي الطريقة ..

كود:

msgbox(0,"",$var1 = $var2)

راح يضهر true أو flase << حسبب تحقق الشرط

وبما إني حطيتها تحت الشرط

كود:

if $var1=$var2 then

فلن تضهر الرسالة إلا إذا صار الشرط true وراح يضهر true في الرسالة

الموضوع فقط إني أردت أن يضهر شيء معين في الرسالة..:d:

 

السلام عليكم ورحمة الله وبركاته
يا ناس يا خبراء الله الله بالناس المبتدئة وكما تعلمون ليس الكل فاهم في هذه اللغه هههه لذلك اي قيمة او فكرة جديدة حاولوا تشرحوها في نفس الرد
بندر اختك الحلا هنا وظيفتها تزيل الغموض امام الزائرين والمتابعين لدورتك الرهيبة والجميلة والقوية والاحترافية
اختكم الحلا اهم حاجة عندها تفهم قبل ان تطبق لكي تزيل الغموض من امامها ومن امام المتابعين


في المشاركة الثانية يوجد غموض

ماذا تقصد برقم 6
$z=6​

كذلك عندي استفسار قبل التطبيق من ملاحظتي لتطبيقاتي وجدت ان الامر او الكود
FileGetSize
لا يجلب لك حجم الفولدرات وانما فقط يجلب حجم الملفات بمختلف امتداداتها(هل هذه معلومه صحيحة ام خاطئة) ​

 

الـ Msgbox عباره عن أيش ؟ ( Yes , No )
شوفي الصوره ، طيب ..



بالنسبه لـ FileGetSize < من الإمر نفسه وكلمه File يتضح انه للملفات فقط
إتمنى وصلت المعلومه :king:

 

وصلت المعلومه بشكل واضح وكذلك الغموض زال عن المتابعين والزائرين لهذه الدورة
راح احاول احلل تطبيق بندر لاني شفت فيه ارقام كثيرة 5 و7 وغيرها

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

 

الحمدلله للتو كآد مخي أن ينفجر :d:
عجزت أبي أفهم من وين جت هـ الـ6 والـ7 ,,

بيض الله وجهك ..

يبي لنا نروق على هـ الدروس لأنها دسمة شوي
​

 

ساشرح كود بندر للمبتدئين نفس حالتي الذين اصابتهم شوشرة ولخبطه من الارقام وعسى ان يكون شرحي صحيح وفي محله

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

 

كود:

 $g = FileRecycleEmpty("e:\")
If $g = 0 Then
  MsgBox(0,"أفرغ","لم يتم أفرغ",10)
Else
  MsgBox(0,"أزلة", "تم أفرغ")
EndIf

 

نسخ المجلدات

كود:

[COLOR=#000000][FONT=Courier New][COLOR=#0000bb]DirCopy [/COLOR][COLOR=#007700]( [/COLOR][COLOR=#dd0000]"source dir"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#dd0000]"dest dir" [/COLOR][COLOR=#007700][, [/COLOR][COLOR=#0000bb]flag[/COLOR][COLOR=#007700]] ) [/COLOR][/FONT][/COLOR]

source dir = اسم المجلد و مساره
dest dir = المسار المراد نسخ المجلد اليه
falg = يتكون من
1 وهو اعاة الكتابه على الملفات
0 وهو عدم اعادة الكتابه على الملفات

القيم الراجعه هي
1 في جالة النجاح
0 في حالة الفشل


مثال

كود:

[COLOR=#000000][FONT=Courier New][COLOR=#0000bb]$dir[/COLOR][COLOR=#007700]=[/COLOR][COLOR=#0000bb]DirCopy[/COLOR][COLOR=#007700](@[/COLOR][COLOR=#0000bb]ProgramFilesDir [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#dd0000]"\WinRAR"[/COLOR][COLOR=#007700], @[/COLOR][COLOR=#0000bb]DesktopDir [/COLOR][COLOR=#007700]&[/COLOR][COLOR=#dd0000]"\WinRAR" [/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]1[/COLOR][/FONT][FONT=Courier New][COLOR=#007700])[/COLOR][/FONT][/COLOR][COLOR=#000000]
[FONT=Courier New][COLOR=#007700]if [/COLOR][COLOR=#0000bb]$dir[/COLOR][COLOR=#007700]=[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]1 Then[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]MsgBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]0[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]""[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]"done"[/COLOR][/FONT][FONT=Courier New][COLOR=#007700])[/COLOR][/FONT]
[FONT=Courier New][COLOR=#007700]Else[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]MsgBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]0[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]""[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]"error"[/COLOR][/FONT][COLOR=#007700][FONT=Courier New])[/FONT][/COLOR]
[FONT=Courier New][COLOR=#007700]EndIf  [/COLOR][/FONT]
[/COLOR]

مثال اخر مع تغيير اسم المجلد

كود:

[COLOR=#000000][FONT=Courier New][COLOR=#0000bb]$dir[/COLOR][COLOR=#007700]=[/COLOR][COLOR=#0000bb]DirCopy[/COLOR][COLOR=#007700](@[/COLOR][COLOR=#0000bb]ProgramFilesDir [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#dd0000]"\WinRAR"[/COLOR][COLOR=#007700], @[/COLOR][COLOR=#0000bb]DesktopDir [/COLOR][COLOR=#007700]&[/COLOR][COLOR=#dd0000]"\BackUpFolder" [/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]1[/COLOR][/FONT][FONT=Courier New][COLOR=#007700])[/COLOR][/FONT][/COLOR][COLOR=#000000]
[FONT=Courier New][COLOR=#007700]if [/COLOR][COLOR=#0000bb]$dir[/COLOR][COLOR=#007700]=[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]1 Then[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]MsgBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]0[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]""[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]"done"[/COLOR][/FONT][FONT=Courier New][COLOR=#007700])[/COLOR][/FONT]
[FONT=Courier New][COLOR=#007700]Else[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]MsgBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]0[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]""[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]"error"[/COLOR][/FONT][COLOR=#007700][FONT=Courier New])[/FONT][/COLOR]
[FONT=Courier New][COLOR=#007700]EndIf  [/COLOR][/FONT]
[/COLOR]

اذا لم يكن موجود المجلد المنسوخه اليه الملفات فانه سيتم محاولة انشاءه تلقائياً​

 

امر نقل المجلدات

كود:

[COLOR=#000000][FONT=Courier New][COLOR=#0000bb]DirMove [/COLOR][COLOR=#007700]( [/COLOR][COLOR=#dd0000]"source dir"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#dd0000]"dest dir" [/COLOR][COLOR=#007700][, [/COLOR][COLOR=#0000bb]flag[/COLOR][/FONT][COLOR=#007700][FONT=Courier New]] )  [/FONT][/COLOR][/COLOR]

وهو مشابة للامر الذي سبق بكل التفااصيل ولكن بدل النسخ يتم النقل


مثال

كود:

[COLOR=#000000][FONT=Courier New][COLOR=#0000bb]$dir[/COLOR][COLOR=#007700]=[/COLOR][COLOR=#0000bb]DirMove[/COLOR][COLOR=#007700](@[/COLOR][COLOR=#0000bb]ProgramFilesDir [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#dd0000]"\WinRAR"[/COLOR][COLOR=#007700], @[/COLOR][COLOR=#0000bb]DesktopDir [/COLOR][COLOR=#007700]&[/COLOR][COLOR=#dd0000]"\BackUpFolder" [/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]1[/COLOR][/FONT][FONT=Courier New][COLOR=#007700])
if [/COLOR][COLOR=#0000bb]$dir[/COLOR][COLOR=#007700]=[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]1 Then
 MsgBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]0[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]""[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]"done"[/COLOR][/FONT][FONT=Courier New][COLOR=#007700])
Else
 [/COLOR][COLOR=#0000bb]MsgBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]0[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]""[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]"error"[/COLOR][/FONT][COLOR=#007700][FONT=Courier New])
EndIf  [/FONT][/COLOR][/COLOR]

 

امر انشاء المجلدات

كود PHP:

DirCreate ( "path" )


path = اسم المجلد و مساره
القيم الراجعه
1 في حالة النجاح
0 في حالة الفشل


مثال

كود PHP:

$dir=DirCreate(@DesktopDir & "\Expertise")
if $dir=1 Then
 MsgBox(0,"","done")
Else
 MsgBox(0,"","error")
EndIf


 

الحمدلله ,, تم عمل تطبيق يشمل أغلب الاوامر مع استخدام (if) أكثر من بندر :hh:

لاهنتم ملاحظاتكم

كود:

$fofo = DirCreate (@DesktopDir&"\BackUp")
$dir = DirCopy (@FavoritesDir&"\",@DesktopDir&"\BackUp",1)
$file = FileCopy (@FavoritesDir&"\*.*",@DesktopDir&"\BackUp",9)
If $fofo=1 Then
 If $dir=1 Then
  If $file=1 Then
   MsgBox (0,"Msg","Done Favorites BackUp")
  Else
   MsgBox (0,"Msg","Error Copy Files")
  EndIf
 Else
  MsgBox (0,"Msg","Error Copy Folders")
 EndIf
Else
 MsgBox (0,"Msg","Error Create")
EndIf
MsgBox (0,"About","This Code By:Moriadi",3)

الكود خاص بعمل باك اب للمفضلة بجميع ملفاتها ...​

 

قمت بتعديل الكود ليصبح اختياري وليس اجباري .. ولكن لم افلح حيث الكود في كلا الحالتين يقوم بالنسخ .. مدري وش السبب

كود:

$msg = MsgBox (1,"Choise","Do you want a Backup of Favorites?")
$fofo = DirCreate (@DesktopDir&"\BackUp")
$dir = DirCopy (@FavoritesDir&"\",@DesktopDir&"\BackUp",1)
$file = FileCopy (@FavoritesDir&"\*.*",@DesktopDir&"\BackUp",9)
If $msg=1 Then
 If $fofo=1 Then
  If $dir=1 Then
   If $file=1 Then
    MsgBox (0,"Msg","Done Favorites BackUp")
   Else
    MsgBox (0,"Msg","Error Copy Files")
   EndIf
  Else
   MsgBox (0,"Msg","Error Copy Folders")
  EndIf
 Else
  MsgBox (0,"Msg","Error Create")
 EndIf
Else
 MsgBox (0,"Exit","Thanks")
EndIf
MsgBox (0,"About","This Code By:Moriadi",3)