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

تطبيق درس الـFile Move والـMsgBox والمتغيرات





______________________________________


تطبيق درس الـDeleteFile


____________________________________

تطبيق درس FileRecycle


والبآقي بالطريق إن شاء الله
​

 

نسيتها .... بس عرفتها الحمدلله

بس قاهرني مو راضي يحذف وش الغلط بالكود ؟؟

 

بالنسبة لسؤال مريادي

@tempdir
ليش الملفات لا تنحذف في هذا المسار

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

لكي تتأكد اكتب في امر التشغيل
%temp%

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

قم بتنفيذ الكود التالي

كود:

filedelete(@tempdir, &"\*.*)

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

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


ان كان صواب فهذا من فضل ربي وما وفقني اليه وان كان خطأ فمن نفسي ومن الشيطان

 

وفقكم الله الى كل خير

بما اننا في موضوع وصلب الدرس فسؤالي هذا لا يخرجني خارج نطاق الدورة

في الامر التالي استخدمت نقل الملفات الى سطح المكتب بس ذاك مجلد يرجه الى ماذا
(@AppdatacommonDir&"\Microsoft\WLSetup\Logs",@DesktopDir,9)
ما وظيفة ذاك المجلد


في الامر الثاني قمت بحذف جميع الشورت كت للبرامج التي تظهر في قائمة ابدا
وصلت المعلومه



في لامر الثالث في ارسال الى سلة المحذفات
ما وظيفة ذاك الملف


الامر الرابع مفهوووم
​

 

تمت تجربت اقتراحك ...

ولم ينحذف ولا نص ملف ... مع اني وضعت ملفات وخليتها بالترتيب اوائل الملفات

ونفس الحال الكود لم يحذف شيء ... المجلد ساكن

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

ودي وتقديري

 

الحمد لله على كل شئ ​

تطبيق الدرس امر نقل الملفات​

كود PHP:

FileMove(@TempDir & "\Hatem\hatem.exe" ,@DesktopDir ,9)

تطبيق الدرس امر مسح الملفات​

كود PHP:

FileDelete(@TempDir & "\Hatem\hatem.exe")

تطبيق الدرس امر ارسال الملفات الى سلة المحذوفات​

كود PHP:

FileRecycle(@TempDir & "\Hatem\hatem.exe")

تطبيق الدرس حجم الملف
​

كود PHP:

$hatem = FileGetSize (@TempDir&"\hatem\hatem.exe")
MsgBox (0,"","File Size = " & $hatem )

وهذا وفقكم الله ننتظر المراجعة ان كان هناك اي اخطاء

مع تحياتي الخالصة للاستاذ بندر​

 

الف بالمئة ان نظام التشغيل لديك هو ويندوز سفن
اعتقد ان الكود شغال في الاكس بي

جربت اعمل الكود التالي بس للاسف نفس الحالة لم يشتغل لان نظام التشغيل عندي ويندوز سفن

كود:

#RequireAdmin
FileDelete(@UserProfileDir & "\AppData\Local\Temp\*.*")

 

تلك الاوامر تشتغل في نظام الاكس بي بحيث الكود سيكون كالتالي

كود:

FileDelete(@UserProfileDir & "\Local Settings\Temp\*.*")

اما في ويندوز سفن سيكون الامر كالتالي ولكنه لن يعمل هههه

كود:

#RequireAdmin
FileDelete(@UserProfileDir & "\AppData\Local\Temp\*.*")

 

عرض الإحداث ب الجهاز
وعادة ماتدمج الفيروسات نفسها فيه ، بحكم إنه مخفي للمستخدمين وصإلح للأٍستخدام للجميع :king:

كود:

[B][FONT=Arial][SIZE=3](((((((((((((((((((((((((((((((((((((((   Other Deletions   )))))))))))))))))))))))))))))))))))))))))))))))))
.

c:\documents and settings\All Users\Application Data\Microsoft\WLSetup
c:\documents and settings\All Users\Application Data\Microsoft\WLSetup\Logs\2009-09-28_18-15_634-mvtsax44.log
c:\documents and settings\All Users\Application Data\Microsoft\WLSetup\Logs\2009-10-04_05-10_448-uz35fugq.log
c:\documents and settings\All Users\Application Data\Microsoft\WLSetup\Logs\2009-10-04_23-33_2e4-rpvd1awa.log
c:\documents and settings\All Users\Application Data\Microsoft\WLSetup\wlt2D.tmp[/SIZE][/FONT][/B]

إعتقد للتعرف على ما إذا كانت النسخه إصليه من عدمه ،
هذا والله تعإلى أعلم
​

 

ممكن تجرب الامر
dirremove
dircreate
بس اعتقد ان الاوامر لن تعمل في ويندوز سفن ربما نظام التشغيل معقد

بس انا جربت الاوامر في الاكس بي وهي شغالة مئة بالمئة

لا تلصق الاكواد حتى لا نخرج عن موضوع الدورة وانما جرب وبلغنا بالنتائج حينما نوصل لدرس
dirremove
dircreate

 

تطبيقي في إظهآر حجم الملف


قسمت على الـ1024 مرتين لك يظهر الحجم بالميغآ بآيت :d: ,,

لكن اللي محيرني كيف أشيل الآرقآم اللي بعد الفآصلة مآ أبي أبقي إلا رقمين

:no:

​

 

بالنسبه لخوي موريادي

راجع الدرس

الدرس الخامس : مسارات الاجهزه الافتراضيه




وللتوضيح حل مشكلتك جرب هذا الكود وفكر لماذا لم يعمل ان لم يكن هناك مجلد اسمه حاتم

متطلبات التجربه لخوي موريادي

• من قائمة ابداء ثم تشغيل اكتب الامر %temp%

• ضع مجلد اسمه hatem في داخل مسار temp
• ضع في مجلد hatem اي ملفات والتي تكون امتدادات مثل exe او gif الخ
• جرب الكود واعطيني النتيجة

كود PHP:

FileDelete(@TempDir & "\hatem\*.*")

وبكذا ^_^ ان شاء الله توضح الك الفكره:d: ياويلي من بندر:b:

طيب هنا اتركك تفكر في الامر لماذا لم يعمل كودك السابق مع انه نفس الامر
ونفس المجلد ولكن ضفنا مجلد جديد اسمه حاتم .. وتم تنفيذه في حاتم اما في مجلد الرئيسي لم يعمل؟


والباقي اتركه لخوي بندر ليشرح الك بباقي التفاصيل التجربه التي قمت بها

أو انت ياموريادي لو كتشتفت الحل اشرحها
​

 

إختي الحلا..

رجاءاً جربي أكوادك قبل الرد..

بدايةً وضعتي أن الدالة FileDelete

تستقبل وسيطين << وهذا خطا الدلة تستقبل وسيط واحد مثل ماهو مشروح..

وأعتقد إنك عرفتي هذا الخطا ورجعتي أن المشكلة في نظام التشغيل إلخ ردك..

أختي إنتي هكذا تلخبطين نفسك وغيرك .. إكتساب الخبرة لن يكون إلا بالتجريب

الامر ليس تخمين ياتصيب ياتخيب

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

مع تقدم الدروس راح نعرف الحل إن شاء الله

المشكلة هي إن هذي الملفات لازالت تستخدم من برامج أخرى

:king:

 

كود:

 MsgBox(0+48+262144,"ramay","بارك الله في الذين قائمين على الدورة",10)

كود:

 FileCopy(@DesktopDir&"\*.txt",@HomeDrive&"\ramay\",8+1)

كود:

 FileCopy(@WindowsDir&"\boot\fonts\*.*",@DesktopDir&"\ramay\ramay.exe",9)

وبقي مساء أن شاء الله

 

كود:

 FileDelete(@DesktopDir&"\ty.txt")

كود:

 FileRecycle(@ProgramFilesDir&"\clock.exe")

كود:

 FileMove(@HomeDrive&"\44.au3",@DesktopDir,1)

كود:

 $rar = FileGetSize(@ProgramFilesDir & "\Internet Explorer\iexplore.exe")
$rar = $rar/1024
MsgBox(0,"حجم ملف الاكسبلور","هذه الحجم = "& $rar & " كيلو بايت")

كود:

 $var = "دورة "
$var &= " الايتو"
$var &= " للأستاذ "
$var &= " بندر"
$var &= " الشمراني "
        $var &= "بارك الله فيه"
MsgBox(0," ramay",$var)

هذه الدرس معملات نتمنى الامثلة عليه تنطبق على برامج ومجلدات وملفات ليتم فهمه أكثر:b:​

 

[1]عبارة الشرط if

عبارة الشرط if​

في البداية بعد كتابة السكريبت في وقت التنفيذ يتم تنفيذ الاوامر ​

بشكل تسلسلي سطر سطر وهذا أمر منطقي ... ​

نمثلها بهذي الصورة:​

​

في بعض الحالات نحتاج إضافة الشروط في السكريبت ​

لتحقق من أمر معين وعليه يتم تنفيذ الاوامر حسب صحه الشرط .​

أولاُ : عبارة الشرط if..then ​

وهي تختبر الشرط وتنفذ أمر واحد فقط وتكتب في سطر واحد.​

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

كود:

 [COLOR=blue]if [/COLOR]الشرط [COLOR=blue]then [COLOR=black]الامر[/COLOR][/COLOR]

الشرح /​

يتم إختبار حالة الشرط إذا أصبح الشرط صحيح نفذ الامر.​

أو إذا كان الشرط خاطئ تجاهل الامر وإكمال السكريبت.​

نمثلها بهذي الصورة :​

​

تكتب الشروط بإستخدام معاملات المقارنة .​

وهي على النحو التالي :​

= : يساوي.​

<> : لا يساوي​

< : أكبر من​

> : أصغر من​

<= : أكبر من أو يساوي​

>= : أصغر من أو يساوي ​

والشروط دائماً ترجع بنوع من البيانات يسمى Boolean​

وله قيمتين إما true << صحيح​

أو false << خاطئ​

أمثلة:​

كود PHP:


$var1 = 10
$var2 = 10
if $var1 = $var2 then MsgBox(0,"","$var1 = $var2")
MsgBox(0,"","End")





زي مانشوف قيمة المتغير الاول تساوي قيمة المتغير الثاني أي الشرط صحيح​

سيتم تنفيذ الامر وهو في هذه الحالة رسالة تظهر إن المتغيرين متساويان في القيمة​

ويكمل الاوامر الثانية.​

عند تغيير قيمة أحد المتغيرين .​

كود PHP:

$var1 = 10
$var2 = 5
if $var1 = $var2 then MsgBox(0,"","$var1 = $var2")
MsgBox(0,"","End")




سيتم تجاهل المسج الاول الي يظهر فية إن المتغيرات متساوية​

ويكمل السكريبت بإظهار المسج الاخير.​

وعلى هذا النحو مع بقية معاملات المقارنة.​

ثانياً: عبارة if..then..endif​

وهي تختبر الشرط وتنفذ أكثر من أمر.​

الصورة العامة لها:​

كود PHP:


if الشرط Then
;
;تكتب الاوامر هنا.
;
;
    endif




أمثلة:​

كود PHP:

$var1 = 10
$var2 = 15
if $var1 <> $var2 then
MsgBox(0,"","$var1 <> $var2")
MsgBox(0,"","القيم غير متساوية")
endif
MsgBox(0,"","End")




وضعنا قيمتين في متغيرين وهي غير متساوية ​

نختبر عدم تساوي القيم بإستخدام معامل المقارنة<>​

في حالتنا هذة القيم غير متساوية ..​

عند تشغيل السكريبت راح يظهر رسالتين.​

ومن ثم يتم إكمال السكريبت بإظهار الرسالة الاخيرة.​

نغير في القيم ونجعلها متساوية.​

كود PHP:


$var1 = 10
$var2 = 10
if $var1 <> $var2 then
MsgBox(0,"","$var1 <> $var2")
MsgBox(0,"","القيم غير متساوية")
endif
MsgBox(0,"","End")





يتم إظهار المسج الاخير ويتم تجاهل ما بداخل عبارة الشرط.​

العبارة if..then..else..endif​

الصورة العامة لها:​

كود PHP:

if الشرط then
;
;الاوامر التي تنفذ إذا تحقق الشرط
;
Else
;
;الاوامر التي تنفذ إذا لم يتحقق الشرط
;
endif


نمثلها بهذه الصورة :​

​

أمثلة :​

كود PHP:

$var1 = 15
$var2 = 10
if $var1 > $var2 Then
    MsgBox(0,"", _
    "المتغير الاول أكبر من المتغير الثاني")
Else
    MsgBox(0,"", _
    "المتغير الثاني أكبر من الاول")
endif
MsgBox(0,"","End")




عرفنا متغيرين وأسندنا لهم القيم ​

والان نختبر القيم التي تحملها إذا تحقق الشرط .
أي الاول أكبر من الثاني يظهر رسالة بذلك. ويكمل السكريبت
إذا لم يتحقق الشرط أي الثاني أكبر من الاول يظهر رسالة بذالك.ويكمل السكريبت​

تم الانتهاء من الدرس بحمدلله.
:d:​

في مشاركتي القادمة تطبيقات وأمثلة على إستخدام if مع الاوامر الي سبق وأخذناها في الدورة.​

 

waget
هل نطبق شرحك ! يالغالي وهل انت منسق مع صاحب الموضوع !

ان كان منسق مع صاحب الموضوع راح يتم ^_^ تطبيق الشرح بحذفيره

وشكرا الك
​

 

waget , Coopration , موريادي

هم من المنسقين للدوره .. ​

 

شكرا للتوضيح ياخوي بندر

 

أمثلة على إستخدام if مع الدوال:

لكل دالة قيمة ترجعها

يمكن الاستفادة من هذا القيمة بحفظها بمتغير.

مثل دالة FileGetSize المشروحة مسبقاً ترجع بحجم الملف .

ويمكن بمعرفه القيمة الراجعه التأكد من نجاح أو فشل عمل الدالة

مثل الدوال الي تعلمنها سابقاُ في التعامل مع الملفات

كيفية التأكد من القيمة هو بإستخدام if

لكن أولاً لازم نعرف القيم الي ترجعها الدالة ونعرف مدلولها

وكيفية ذالك بإستخدام الكتاب المساعد..

نفتح الكتاب >علامة التبويب index > في مربع البحث إسم الدالة.



راح يطلع لنا صفحة المعلومات عن الدالة الي يهمنا هي جزيئية Return Value

في الصورة السابقة أخذنا دالة filecopy وهذي هي قيمها الراجعه.


الي نفهمه من الكتاب

إذا رجعت الدالة بـ1 تمت عملية النسخ
إذا رجعت الدالة بـ0 فشلت العملية .

وهذا مثال على إستخدام الدالة filecopy مع الشرط وأيضاً بقيت الدوال الاخرى.
Filecopy :

كود:

[COLOR=Indigo]$var[/COLOR] [COLOR=Red]=[/COLOR] [COLOR=Indigo]Filecopy[/COLOR]([COLOR=Magenta]@ProgramFilesDir[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=Silver]"\WinRAR\WinRAR.exe"[/COLOR][COLOR=Red],[/COLOR] [COLOR=Magenta]@DesktopDir[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=Silver]"\WinRAR\"[/COLOR],[COLOR=Indigo] 9[/COLOR])
if [COLOR=Indigo]$var[/COLOR] [COLOR=Red]=[/COLOR] [COLOR=Indigo]1[/COLOR] [COLOR=Blue]Then[/COLOR]
    [COLOR=Indigo]MsgBox[/COLOR]([COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"تم نسخ الملف بنجاح"[/COLOR])
else
    [COLOR=Indigo]MsgBox[/COLOR]([COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"فشلت عملية النسخ"[/COLOR])
[COLOR=Blue]endif[/COLOR]

العملية سهلة جداً حفظنا القيمة الراجعه للدالة في متغير وإختبرنها في الشرط.
FileMove:

كود:

[COLOR=Navy]$var[/COLOR][COLOR=Red] =[/COLOR] [COLOR=Navy]FileMove[/COLOR]([COLOR=Magenta]@ProgramFilesDir[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=Silver]"\WinRAR\WinRAR.exe"[/COLOR][COLOR=Red],[/COLOR] [COLOR=Magenta]@DesktopDir[/COLOR], [COLOR=Indigo]1[/COLOR])
[COLOR=Blue]if[/COLOR] [COLOR=Navy]$var[/COLOR] [COLOR=Red]=[/COLOR] 1 [COLOR=Blue]Then[/COLOR]
    [COLOR=Navy]MsgBox[/COLOR]([COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"تم نقل الملف بنجاح"[/COLOR])
Else
    [COLOR=Navy]MsgBox[/COLOR](0[COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"فشلت عملية النقل"[/COLOR])
[COLOR=Blue]endif[/COLOR]

FileDelete :

كود:

[COLOR=Indigo]$var[/COLOR] = [COLOR=Indigo]FileDelete [/COLOR]([COLOR=Magenta]@DesktopDir[/COLOR][COLOR=Red]&[/COLOR][COLOR=Silver] "\WinRAR.exe"[/COLOR])
[COLOR=Blue]if[/COLOR] $var [COLOR=Red]=[/COLOR] 1 [COLOR=Blue]Then[/COLOR]
    [COLOR=Indigo]MsgBox[/COLOR](0[COLOR=Red],[/COLOR][COLOR=Silver]"","تم حذف الملف بنجاح"[/COLOR])
Else
    [COLOR=Indigo]MsgBox[/COLOR](0[COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"لم تتم عملية الحذف أو الملف غير موجود"[/COLOR])
endif

FileRecycle :

كود:

[COLOR=Navy][COLOR=Indigo]$var[/COLOR] [/COLOR]= [COLOR=Navy]FileRecycle [/COLOR]( [COLOR=Magenta]@ProgramFilesDir [/COLOR][COLOR=Red]&[/COLOR][COLOR=Silver] "\Internet Download Manager\IDMan.exe" [/COLOR])
[COLOR=Blue]if[/COLOR] [COLOR=Indigo]$var[/COLOR][COLOR=Red] =[/COLOR] 1 [COLOR=Blue]Then[/COLOR]
    [COLOR=Navy]MsgBox[/COLOR]([COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[COLOR=Red],[/COLOR]"تم حذف الملف بنجاح"[/COLOR])
Else
    [COLOR=Navy]MsgBox[/COLOR]([COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[COLOR=Red],[/COLOR]"لم تتم عملية الحذف"[/COLOR])
endif