موضوع خاص لدعــم الـ AutoIt -- افكار ؛ مشاريع ؛ سورسات ؛ اسئله ؛ نقاشات ...... الخ

[LINEZERO]

يرفع لأني لاحظت إنها اختفت وراء الصفحات ولم يشاهدها أحد :d:

اطالبكم بتطويرها :b:

سيتم الاطلااع .. ومحاولة ابداي الراي حول امكانية التطوير ..

ولكن هل من الممكن شرح مالفائده المرجوه من الاداة !!

وكل عام وانت بخير​

 

[الحلا تبي تتعلم]

سيتم الاطلااع .. ومحاولة ابداي الراي حول امكانية التطوير ..​

ولكن هل من الممكن شرح مالفائده المرجوه من الاداة !!​

وكل عام وانت بخير​

k:k:k:k: تشكر اخونا بندر على هذه الملاحظة

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

 

[الحلا تبي تتعلم]

مافهمت سوالك ..​

واذا عندك شي تبي تسال عنه ارني محاولاتك اولاً ..​

فانا هنا لاساعدك في كتابة الكود ولست هنا لاكتب الكود عنك ​

k:k: لابد من ان الانسان يحاول ولا عمره ما راح يتعلم واشكرك انت والاخ واجت على حثكم لي بالمحاولة فالظاهر اني بصدع اكثر من اللزوم وبهذي وبنام على اوامر السكربتات والسورسات :d::d:
أهلي بيحولوني مستشفى المجانين اذا استمريت بهالبرمجه:d::d:

تم ايجاد ضالتي واليكم السكربت

#include <buttonconstants.au3>
#include <guiconstantsex.au3>
#include <progressconstants.au3>
#include <windowsconstants.au3>
$form1 = guicreate("اللهم لا تجعل احد يزعل علينا بسبب غفلتنا", 355, 157, 192, 357)
$checkbox1 = guictrlcreatecheckbox("temp delete", 208, 16, 121, 25)
guictrlsetfont(-1, 14, 400, 0, "ms sans serif")
$checkbox2 = guictrlcreatecheckbox("prefetch delete", 8, 16, 153, 25)
guictrlsetfont(-1, 14, 400, 0, "ms sans serif")
$button1 = guictrlcreatebutton("تحديد الكل", 256, 72, 75, 25)
$button2 = guictrlcreatebutton("الغاء الكل", 152, 72, 75, 25)
$button3 = guictrlcreatebutton("بدء العملية", 32, 72, 83, 25)
$progress1 = guictrlcreateprogress(96, 120, 190, 17)
guisetstate(@sw_show)
while 1
$nmsg = guigetmsg()
switch $nmsg
 case $gui_event_close
  exit
 case $button3
  if guictrlread($checkbox1) = $gui_checked then
   filedelete(@homedrive & "\temp\*.*")
   filedelete(@windowsdir & "\temp\*.*")
  endif
GuiCtrlCreateProgress(96, 120, 190, 17)
GuiCtrlSetData(-1,120)
ProgressSet(100 , "", "")
sleep(500)
ProgressOff()
  if guictrlread($checkbox2) = $gui_checked then
   filedelete(@windowsdir & "\prefetch\*.*")
  endif
 case $button1
  guictrlsetstate($checkbox1, $gui_checked)
  guictrlsetstate($checkbox2, $gui_checked)
 case $button2
  guictrlsetstate($checkbox1, $gui_unchecked)
  guictrlsetstate($checkbox2, $gui_unchecked)
endswitch
wend

بس في الويندوز سفن فولدر التمب للملفات المؤقتة يوجد في مسار أخر والطريقة الصحيحة لحذف تلك الملفات هي عن طريق ملف دفعي ويرجع الفضل لله اولا وثانيا بجهود بندر وغيرهم في تعليمنا بعض الاوامر المهمة في الموضوع التالي

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

ع العموم طريقة حذف الملفات بالملف الدفعي هو الامر التالي
del /q /s /f /a "%temp%\*.*"

والحذف بالاتوات سيكون الكود على الشكل التالي

#include<process.au3>
_RunDOS("del /q /s /f /a %temp%\*.*")

الحمدلله على ما رزقتنا من وظيفة وعمل صالح وعلم نتفع به واللهم اجزي من قام بنشر العلم من اداريين ومشرفين واعضاء وغيرهم

 

[LINEZERO]

بس في الويندوز سفن فولدر التمب للملفات المؤقتة يوجد في مسار أخر

@TempDir

 

[Ahmed Alqurashi]

ساقوم بوضع الكود غداً ان شاء الله

مشكوووور. وكل عام انت والجميع بخير

 

[Ahmed Alqurashi]

كل عام والجميع بخير واعتذر عن التاخير مرة اخرى

تفضل الكود هذا

main()
func main()
 $file = inputbox("find and replace", "name and/or patch of the file", ".md5", "", 500, 150)
 if @error then exit
 $filecontent = fileread($file, filegetsize($file))
 $find = inputbox("find and replace", "what to find?", "findthistext", "", 500, 150)
 if @error then exit
 $replace = inputbox("find and replace", "what to write instead?", "replacewiththistext", "", 500, 150)
 if @error then exit
 $confirm = msgbox(65, "find and replace", "you are about to change every instance of " & $find & " by " & $replace & " in the file " & $file & @lf & "are you sure ?")
 if $confirm = 1 then
  $filecontent = stringreplace($filecontent, $find, $replace)
  $numreplacements = @extended
  if $numreplacements = 0 then msgbox(0, "error", " can not find  " & $find & " in " & $file)
  filedelete($file)
  filewrite($file, $filecontent)
 else
  main()
 endif
endfunc   ;==>main

بالتوفيق​

يسلمووو كل عام انت بخير استاذ بندر

 

[Ahmed Alqurashi]

كل عام والجميع بخير واعتذر عن التاخير مرة اخرى

تفضل الكود هذا

Main()
Func Main()
 $File = InputBox("Find and replace", "Name and/or patch of the file", ".md5", "", 500, 150)
 If @error Then Exit
 $FileContent = FileRead($File, FileGetSize($File))
 $Find = InputBox("Find and replace", "What to find?", "FindThisText", "", 500, 150)
 If @error Then Exit
 $Replace = InputBox("Find and replace", "What to write instead?", "ReplaceWithThisText", "", 500, 150)
 If @error Then Exit
 $Confirm = MsgBox(65, "Find and replace", "You are about to change every instance of " & $Find & " by " & $Replace & " in the file " & $File & @LF & "Are you sure ?")
 If $Confirm = 1 Then
  $FileContent = StringReplace($FileContent, $Find, $Replace)
  $numreplacements = @extended
  If $numreplacements = 0 Then MsgBox(0, "Error", " Can not find  " & $Find & " in " & $File)
  FileDelete($File)
  FileWrite($File, $FileContent)
 Else
  Main()
 EndIf
EndFunc   ;==>Main

بالتوفيق​

يسلمووو كل عام انت بخير استاذ بندر

 

[الحلا تبي تتعلم]

@TempDir

جزاك الله ألف خير يا استاذنا بندر نعم هذا الامر اختصار ل مجلد تمب في الاكس بي وويندوز سفن

start- run -%temp%

ويوجد مجلد اخر وهو ينحذف في الاكس بي والسفن بالاتوات وتستطيع معرفته من كتابة الامر التالي في run ---- temp

بس في ويندوز سفن مجلد %temp% الملفات لا تنحذف بالاتوات بالامر التالي

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

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

 

[waget]

جزاك الله ألف خير يا استاذنا بندر نعم هذا الامر اختصار ل مجلد تمب في الاكس بي وويندوز سفن

start- run -%temp%

ويوجد مجلد اخر وهو ينحذف في الاكس بي والسفن بالاتوات وتستطيع معرفته من كتابة الامر التالي في run ---- temp

بس في ويندوز سفن مجلد %temp% الملفات لا تنحذف بالاتوات بالامر التالي

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

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

الحل هو المرور على كل ملف لوحده

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

شوفي ملف الدالة ألي وضعته للأخ كاسر

نفس الاسلوب مع تغيير الدوال بدوال الحذف

إذا لم تفهمي الطريقة في طريقه أخرى بإستخدام المصفوفات فإيش تفضلين

:i:
​

 

[الحلا تبي تتعلم]

الحل هو المرور على كل ملف لوحده​

لأنه لو وجد ملف لا يمكن حذفه الدلة تتوقف ولا تكمل حتى لو في ملفات بعده نقدر نحذفها ..​

شوفي ملف الدالة ألي وضعته للأخ كاسر​

نفس الاسلوب مع تغيير الدوال بدوال الحذف​

إذا لم تفهمي الطريقة في طريقه أخرى بإستخدام المصفوفات فإيش تفضلين​

:i:​

نفضل الطريقتين الله يخليك اجعلهما في ردودك لكي الكل يستفيد والكل يفهم ويتعلم

 

[waget]

نفضل الطريقتين الله يخليك اجعلهما في ردودك لكي الكل يستفيد
والكل يفهم ويتعلم

الطريقة الاولى قلت لك إطلعي على كود الدالة :d:

بإختصار هو إستخدام دالتي
FileFindFirstFile
مع
FileFindNextFile

للإطلاع عليها بشكل مبسط إبحثي في الكتاب المساعد ...

بالنسبه للطريقة الثانية هي إسخدام الدالة

_FileListToArray

هي ترجع مصفوفه والتعامل معها مثل التعامل مع المصفوفات أيضا شوفي الكتاب المساعد في مثال مبسط

وأي جزئية ألي منتي فاهمتها أذكريها وإن شاء الله يتم الرد مني أو من أحد الاخوان

:d:
​

 

[الحلا تبي تتعلم]

الطريقة الاولى قلت لك إطلعي على كود الدالة :d:​

بإختصار هو إستخدام دالتي
filefindfirstfile
مع
filefindnextfile​

للإطلاع عليها بشكل مبسط إبحثي في الكتاب المساعد ...​

بالنسبه للطريقة الثانية هي إسخدام الدالة​

_filelisttoarray​

هي ترجع مصفوفه والتعامل معها مثل التعامل مع المصوفوات أيضا شوفي الكتاب المساعد في مثال مبسط​

وأي جزئية ألي منتي فاهمتها أذكريها وإن شاء الله يتم الرد مني أو من أحد الاخوان​

:d:​

مشكور وجزاك الله خير

 

[sophos]

جزاكم الله كل خير اخواني الكرام و صاحب الموضوع ربي يعطيك الف عافية

لك مني احلى خماسية رغم انك تستاهل اكثر ...

و كل عام و انت بالف خير ..

...
...

بيان
​

 

[yones7x]

سيتم الاطلااع .. ومحاولة ابداي الراي حول امكانية التطوير ..​

ولكن هل من الممكن شرح مالفائده المرجوه من الاداة !!​

وكل عام وانت بخير​

تكون الاداة مكتبة includes

ويا ليت تستخدم خبرتك وتحط info (توضيح) عن كل دالة !

وكذا يعني إضافة افكار من عندك :d:

 

[الحلا تبي تتعلم]

أي شخص عنده استفسار يضعه هنا حتى لاننسى هذا الموضوع

ولكي الموضوع يكون نشط وعليه قابلية

 

[الحلا تبي تتعلم]

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

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

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

run(uninstall.exe)
send

 

[الحلا تبي تتعلم]

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

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

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

run(uninstall.exe)
send

أريد الاداة تكون بعمل صامت بدون تدخل المستخدم أي انه لا يستطيع توقيف او الغاء البرنامج وكذلك أريد ان يقوم اثناء الازالة ان يتم اختيار الخيار الثاني وهو
complete

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

 

[waget]

أريد الاداة تكون بعمل صامت بدون تدخل المستخدم أي انه لا يستطيع توقيف او الغاء البرنامج وكذلك أريد ان يقوم اثناء الازالة ان يتم اختيار الخيار الثاني وهو
complete

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

صامت أو تلقائي تفرق كثير :?:

وأيضا ياليت تضعين كودك المبدئي للأداه

:d:
​

 

[الحلا تبي تتعلم]

صامت أو تلقائي تفرق كثير :?:​

وأيضا ياليت تضعين كودك المبدئي للأداه​

:d:​

لا حول ولا قوة الا بالله العلي العظيم

والله احس ان واجت عسكري وما عنده دلع:d::d:

ما شي مساعدة لوجه الله:q::

راح احاول اعمل كود تلقائي بس مشكلتي مو فاهمة الامر
send
بالاضافة اني لست فاهمة امر تعطيل الكيبورد والماوس اثناء الازاله وكيف تفعيلهم بعد الانتهاء من عمل الاداة
لكن راح اجتهد واكتب الاوامر
الله يكون بعوني :d:

 

[الحلا تبي تتعلم]

خليكم قريب بحاول افكر واخترع والصق لكم الكود