[au3-G] :: استفسارات ، مشاكل ، حلول ,, إضافات ,, دروس تقوية ,, أوامر جاهزة ,, أمثلة ,, في AutoIt 3

[Dr Anonymous]

شكرا لك أخى
Dr Anonymous
ولكن عايز اعرف الموضوع هنا ايه بس
حب استطلاع لعله يفيدنى فيما بعد
​

يـا أخى هذا موضوع لتعليـم البرمجة ..
وليس لطلب البرامج والكراكات ..
موفق .. k:

 

[MONKEY D. LUFFY]

بارك الله فيك

 

[ريحانه العطور]

بارك الله فيك

لما شفت مشاركتك سررت وقلت ياء الفرج من رب العالمين والاعضاء ساعدوني بأسئلتي بس تفاجأت انه لا يوجد شي

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

 

[elawady]

كثرت طلباااتي :hh::b:
لو سمحتم من يساعدني في انشاء اداة لتنظيف الجهاز من
temp
%temp%
prefetch
recent
history for internet explorer
المواقع المخزنة في اعلى شريط المتصفح
والملفات المخزنة في سلة المهملات

ودي وياريت احد يفيدني ويعطينا اكواد لصنع اداة تنظيفية وتقوم بالتخلص من هالملفات الغير مرغوووبه

لمسح محتويات مجلد عليك بإستعمال
Filedelete
ثم كتابة مسار المجلد و بعد ذلك مسح كل الملفات بإستخدام *.* مثل

[B][FONT=Times New Roman][COLOR=Black][SIZE=3][B][COLOR=#000000][COLOR=#007700][/COLOR][COLOR=#0000BB]FileDelete[/COLOR][COLOR=#007700](@[/COLOR][COLOR=#0000BB]WindowsDir [/COLOR][COLOR=#007700]&[/COLOR][COLOR=#DD0000]"\Prefetch\*.*"[/COLOR][COLOR=#007700])[/COLOR][/COLOR][/B][/SIZE][/COLOR][/FONT][/B]

 

[نواف العتيبي]

لمسح محتويات مجلد عليك بإستعمال
Filedelete
ثم كتابة مسار المجلد و بعد ذلك مسح كل الملفات بإستخدام *.* مثل

[B][FONT=Times New Roman][COLOR=black][SIZE=3][B][COLOR=#000000][COLOR=#0000bb]FileDelete[/COLOR][COLOR=#007700](@[/COLOR][COLOR=#0000bb]WindowsDir [/COLOR][COLOR=#007700]&[/COLOR][COLOR=#dd0000]"\Prefetch\*.*"[/COLOR][COLOR=#007700])[/COLOR][/COLOR][/B][/SIZE][/COLOR][/FONT][/B]

أخوي مافهمت شي من FileDelete(@WindowsDir &"\Prefetch\*.*")

ياليت بالصوره شرح ​

:f:​

 

[elawady]

FileDelete
أمر لإلغاء ملف

@WindowDir
يعني المجلد الخاص بملفات الويندوز اللي هو C:\Windows

&
حتي نضيف فوق المسار السابق باقي المسار المطلوب

\prefetch\
وهو باقي المسار أي اصبح المسار هو
C:\Windows\prefetch

*.*
النجمة الأولي يعني جميع أسماء الملفات
و النجمة الثانية يعني جميع امتدادات الملفات
وبذلك يعني جميع الملفات

وبالتالي يصبح الأمر
أمسح جميع الملفات الموجود بالمسار
C:\Windows\prefetch

 

[ocab]

الرد للاخ نواف

أحتاج لصنع ملف النسخ والاسترجاع ​

لرموز المسنجر
هذا مسار الرموز
%userprofile%\Local Settings\Application Data\Microsoft\Messenger​

ياليت ماتحـرمنا من ردك ومساعدتك​

أخوك​

نواف العتيبي​

أ خي نواف جرب معي هذا الامر
افتح مجلد الونرار الذي لديك
قم بنسخ هذا الملف فقط منه WinRAR.exe
وضعه ضمن مجلد على سطح المكتب وأنشء قربه ملف اتو إت فارغ يحوي الامر التالى​

#include <GUIConstantsEx.au3>

[CENTER]#NoTrayIcon
Opt('MustDeclareVars', 1)
_Main()
Func _Main()
 Local $YesID, $NoID, $ExitID, $msg
 GUICreate("خاص مسنجر", 323, 102, 319, 224)
GUISetBkColor(0xFF0000)
GUICtrlCreateLabel("خاص مسنجر", 20, 15, 4, 4)
 $YesID = GUICtrlCreateButton("إنشاء ملف استعاده", 12, 34, 108, 28)
GUICtrlSetBkColor(-1, 0x00FF00)
 $NoID = GUICtrlCreateButton("استعادة الرموز", 138, 34, 92, 28)
GUICtrlSetBkColor(-1, 0xFFFF00)
 $ExitID = GUICtrlCreateButton("خروج", 250, 34, 66, 28)
GUICtrlSetBkColor(-1, 0x00FFFF)
 GUISetState()
 Do
  $msg = GUIGetMsg()
  Select
   Case $msg = $YesID
                DirCopy(@AppDataDir&"\Microsoft\MSN Messenger","Messenger",1)
                RunWait("WinRAR.exe a bacap.rar Messenger/*.* ")
                DirRemove("Messenger ",1)
   Case $msg = $NoID
    RunWait("WinRAR.exe x bacap.rar ")
                FileCopy("Messenger/*.* ",@AppDataDir&"\Microsoft\MSN Messenger")
                DirRemove("Messenger ",1)
   Case $msg = $ExitID
    MsgBox(0, "", "OCAB RAZZOUK")
  EndSelect
 Until $msg = $GUI_EVENT_CLOSE Or $msg = $ExitID
EndFunc
[/CENTER]

لاحظ ان الامر @AppDataDir&"\Microsoft\MSN Messenger

حيث ان MSN Messenger هو اسم المجلد المقصود لان برنامج المسنجر لدي هوى Windows Live Messenger

اذا كان لديك هذا المجلد باسم أخر تستطيع ان تغير ما في السكربت ليتناسب مع ما عندك

أخي الغالي جرب ذه الادات وأعطني رايكk:​

​

 

[ريحانه العطور]

لمسح محتويات مجلد عليك بإستعمال
Filedelete
ثم كتابة مسار المجلد و بعد ذلك مسح كل الملفات بإستخدام *.* مثل

[B][FONT=Times New Roman][COLOR=black][SIZE=3][B][COLOR=#000000][COLOR=#0000bb]FileDelete[/COLOR][COLOR=#007700](@[/COLOR][COLOR=#0000bb]WindowsDir [/COLOR][COLOR=#007700]&[/COLOR][COLOR=#dd0000]"\Prefetch\*.*"[/COLOR][COLOR=#007700])[/COLOR][/COLOR][/B][/SIZE][/COLOR][/FONT][/B]

ما شاء الله عليك يا استاذي العوضي خبير ومبدع في مشاركاتك
الله لا يحرمنا منك ومن علمك ومعلوماتك
وشكرا لكk:k:

 

[ريحانه العطور]

بعض الاوامر الاضافيه لاداة التنظيف

Opt("TrayIconHide",  0)
#Include <file.au3>
RunWait("Cleaner.exe /AUTO")
$Drive = DriveGetDrive ("FIXED")
FOr $R = 1 To $Drive[0]
         ProcessClose("Explorer.exe")
         RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count")
      DirRemove($Drive[$R] & "\System Volume Information", 1)
   DirRemove($Drive[$R] & "\Recycled", 1)
   DirRemove($Drive[$R] & "\Config.Msi", 1)
         DirRemove($Drive[$R] & "\سلة المحذوفات", 1)
         DirRemove($Drive[$R]& "\RECYCLER", 1)
   DirRemove($Drive[$R]& "\$Recycle.Bin", 1)
  DirRemove($Drive[$R]& "\Temp", 1)
   FileDelete(@WindowsDir &"\Prefetch\*.*")
  RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify", "IconStreams")
        RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify", "PastIconsStream")
  RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count")
Next

أرجو إبداء الرأي
تعمل على السفن والاكس بي

ممكن احد يشرح لنا:y::y: كود كود من هذه الاكواد لكي تعم الفائدة على الجمبيع:king: ولنتعمق في اسرار الاوتوات بدل عملية كوبي نسخ:q::q:

 

[ocab]

ريحانه العطور
اذا أردة ان تتعلمي على الاتو إت حقيقه
عندك عدة مصادر الاول
ملف المساعده الموجود مع البرنامج وهو واسع جداً ورائع ولا يستغنا عنه
اما الثاني فهو ضمن المنتدا تابعي الدوره الموجوده

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

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

 

[نواف العتيبي]

أ خي نواف جرب معي هذا الامر

افتح مجلد الونرار الذي لديك
قم بنسخ هذا الملف فقط منه WinRAR.exe
وضعه ضمن مجلد على سطح المكتب وأنشء قربه ملف اتو إت فارغ يحوي الامر التالى​

#include <GUIConstantsEx.au3>

[CENTER]#NoTrayIcon
Opt('MustDeclareVars', 1)
_Main()
Func _Main()
 Local $YesID, $NoID, $ExitID, $msg
 GUICreate("خاص مسنجر", 323, 102, 319, 224)
GUISetBkColor(0xFF0000)
GUICtrlCreateLabel("خاص مسنجر", 20, 15, 4, 4)
 $YesID = GUICtrlCreateButton("إنشاء ملف استعاده", 12, 34, 108, 28)
GUICtrlSetBkColor(-1, 0x00FF00)
 $NoID = GUICtrlCreateButton("استعادة الرموز", 138, 34, 92, 28)
GUICtrlSetBkColor(-1, 0xFFFF00)
 $ExitID = GUICtrlCreateButton("خروج", 250, 34, 66, 28)
GUICtrlSetBkColor(-1, 0x00FFFF)
 GUISetState()
 Do
  $msg = GUIGetMsg()
  Select
   Case $msg = $YesID
                DirCopy(@AppDataDir&"\Microsoft\MSN Messenger","Messenger",1)
                RunWait("WinRAR.exe a bacap.rar Messenger/*.* ")
                DirRemove("Messenger ",1)
   Case $msg = $NoID
    RunWait("WinRAR.exe x bacap.rar ")
                FileCopy("Messenger/*.* ",@AppDataDir&"\Microsoft\MSN Messenger")
                DirRemove("Messenger ",1)
   Case $msg = $ExitID
    MsgBox(0, "", "OCAB RAZZOUK")
  EndSelect
 Until $msg = $GUI_EVENT_CLOSE Or $msg = $ExitID
EndFunc
[/CENTER]

لاحظ ان الامر @AppDataDir&"\Microsoft\MSN Messenger​

حيث ان MSN Messenger هو اسم المجلد المقصود لان برنامج المسنجر لدي هوى Windows Live Messenger

اذا كان لديك هذا المجلد باسم أخر تستطيع ان تغير ما في السكربت ليتناسب مع ما عندك

أخي الغالي جرب ذه الادات وأعطني رايكk:​

​

أخوي ماضبطت معي :no:​

 

[ocab]

أخي نواف بس اكد لي انو اسم المجلد هل هوا MSN Messenger
أو غير شى وأن برفعلك الاداة
جاهزه إنشاء الله

 

[نواف العتيبي]

أخي نواف بس اكد لي انو اسم المجلد هل هوا MSN Messenger
أو غير شى وأن برفعلك الاداة
جاهزه إنشاء الله

أخوي انا مسنجري هذا اسمه Windows Live Messenger

 

[ocab]

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

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

واذا أعجبتك أنت حر التصرف بها

 

[ARBIA39]

بارك الله فيك

 

[نواف العتيبي]

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

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

واذا أعجبتك أنت حر التصرف بها

الاداة حلووها k:

بس اخوي انا ودي تكون مثل موضوع اخوانا كنجوو

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

​

 

[ocab]

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

 

[اللهم ارحمنا]

الى خبراء ومستخدمي اكواد الاوتو ات سكريبت

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

 

[DOOM3]

 

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

سلامي لخبراء زيزوووووم

عندي بعض الاستفسارااااات وياريت تساعدوني
مالمقصود بالاختصارات التالية
(@AppDataDir&"
$Drive[$R]

وهل يوجد اختصار
لمجد programs file الذي يوجد داخل الويندوز

رحم الله والديكم افيدوني بالمعلومات