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

SHADOW-Z · 14 مايو 2010

شكرا

ريحانه العطور · 14 مايو 2010

maker56 قال:
سلام الله عليكم ورحمته وبركاته
بالنسبه طلبك الثاني قدرة لغه autoit script محدوده نوعا ما بالمقارنه بلغات البرمجه الاخري
للتغير قيم للخدمات في "
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
" يتم عن طريق الريجستري
عليكي بزيارة موقع مايكروسوفت

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

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

كود:

#notrayicon #requireadmin #include <buttonconstants.au3> #include <guiconstantsex.au3> #include <windowsconstants.au3> $frmmain = guicreate("enable / disable recycle bin icon form desktop", 394, 61, 324, 284) $bunena = guictrlcreatebutton("enable", 32, 24, 75, 25, $ws_group) $bundis = guictrlcreatebutton("disable", 264, 24, 75, 25, $ws_group) guisetstate(@sw_show) while 1 $nmsg = guigetmsg() switch $nmsg case $gui_event_close guidelete($frmmain) exit case $bunena regwrite("hkcu\software\microsoft\windows\currentversion\policies\nonenum", "{645ff040-5081-101b-9f08-00aa002f954e}", "reg_dword", "1") controlsend('program manager', '', '', '{f5}') case $bundis regdelete("hkcu\software\microsoft\windows\currentversion\policies\nonenum") controlsend('program manager', '', '', '{f5}') endswitch wend

وبالتوفيق للجميع ان شاء الله

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

Alzri2 · 16 مايو 2010

ريحانه العطور قال:
عندي بعض السيريالات كالتالي
ABI2-FFEF-BB21
REFD-FFF1-GGG
اريد صنع اداة كمولد سيريلات بحيث عند الضغط عليها تعطيني القيمة الاولة وعند الضغط عليها مرة ثانيه تعطيني القيمة الثانية فقط اي انها لا تعطيني قيم عشوائية ولا تغير في الريجستري

أولاً أعتذر عن تأخري للرد بسبب الإنشغالات.

ثانياً هذا هو السكربت المطلوب :

كود:

#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Generator keys)!", 357, 90, 304, 299)
$Invalue = GUICtrlCreateInput("ABI2-FFEF-BB21", 56, 24, 241, 21)
$BunGet = GUICtrlCreateButton("Generate", 112, 56, 115, 25, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Value", 16, 24, 31, 17)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $BunGet
            If GUICtrlRead($Invalue) = "ABI2-FFEF-BB21" Then
                $getNum = "REFD-FFF1-GGG"
            ElseIf GUICtrlRead($Invalue) = "REFD-FFF1-GGG" Then
                $getNum = "ABI2-FFEF-BB21"
            Else
                $getNum = "ABI2-FFEF-BB21"
            EndIf
          GUICtrlSetData($Invalue,$getNum)
    EndSwitch
WEnd

والسلام عليكم

ريحانه العطور · 16 مايو 2010

alzri2 قال:

أولاً أعتذر عن تأخري للرد بسبب الإنشغالات.

ثانياً هذا هو السكربت المطلوب :

كود:

[left]#notrayicon
#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <staticconstants.au3>
#include <windowsconstants.au3>[/left]
 
[left]$form1 = guicreate("generator keys)!", 357, 90, 304, 299)
$invalue = guictrlcreateinput("abi2-ffef-bb21", 56, 24, 241, 21)
$bunget = guictrlcreatebutton("generate", 112, 56, 115, 25, $ws_group)
$label1 = guictrlcreatelabel("value", 16, 24, 31, 17)
guisetstate(@sw_show)[/left]
 
[left]while 1
   $nmsg = guigetmsg()
   switch $nmsg
       case $gui_event_close
           exit
       case $bunget
           if guictrlread($invalue) = "abi2-ffef-bb21" then
               $getnum = "refd-fff1-ggg"
           elseif guictrlread($invalue) = "refd-fff1-ggg" then
               $getnum = "abi2-ffef-bb21"
           else
               $getnum = "abi2-ffef-bb21"
           endif
         guictrlsetdata($invalue,$getnum)
   endswitch
wend[/left]

والسلام عليكم

دائما كما تعودنا عليك نجدك عند الضرورة
واشكرك يا استااااذي

ocab · 30 مايو 2010

بارك الله بالشباب الطيبه
عمل جميل ورائع

ocab · 12 يونيو 2010

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

PHP:

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

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

HaMuDi · 25 يونيو 2010

يرفع :d:

HaMuDi · 25 يونيو 2010

ocab قال:

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

PHP:

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

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

رائع السكربت وفعال على xp

بس سوال أخوي

ليش حطيت أمر

كود:

ProcessClose("Explorer.exe")

ومالقصد من ذلك في التنظيف ؟

same7 mo3az · 2 يوليو 2010

بارك الله فيكم إخوانى على المجهود المبذول.. عندى مشكلتين خلونى ألف حولين نفسى
الاولى >>> برنامج Verp Ace pro مغلبنى معاه ويكاد إستغنائى عنه شبه مستحيل المشكله إنه كل ما ألاقى كراك او سيريال يشتغل لدقائق معدوده ويقف مرة اخرى
الثانيه >>> تقريبا نفس المشكله بس مع برنامج بابليون

أملى فى الله ثم فيكم كببير
فى إنتظار ردكم

ocab · 4 يوليو 2010

ocab قال:

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

PHP:

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

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

أمر إيقاف الاكسبلوره مؤقت
والهدف منه بعض أوامر تنظيف الرجستري
لا تعمل بدون ذالك

نواف العتيبي · 5 يوليو 2010

أحتاج لصنع ملف النسخ والاسترجاع
لرموز المسنجر
هذا مسار الرموز
%userprofile%\Local Settings\Application Data\Microsoft\Messenger

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

أخوك

نواف العتيبي

DnDoon · 5 يوليو 2010

الف شكر لك

غَـسّـان · 5 يوليو 2010

same7 mo3az · 6 يوليو 2010

أنا حاسس إنى جيت هنا غلط ؟؟
معلش يا إخوة انا مش فاهم حاجه من الموضوع بس ده طلبى
ولو مش هينفع هنا او مش المكان المناسب ياريت حد ينبهنى ... جزاكم الله خير
بارك الله فيكم إخوانى على المجهود المبذول.. عندى مشكلتين خلونى ألف حولين نفسى
الاولى >>> برنامج Verp Ace pro مغلبنى معاه ويكاد إستغنائى عنه شبه مستحيل المشكله إنه كل ما ألاقى كراك او سيريال يشتغل لدقائق معدوده ويقف مرة اخرى
الثانيه >>> تقريبا نفس المشكله بس مع برنامج بابليون

أملى فى الله ثم فيكم كببير
فى إنتظار ردكم

mebarekb12 · 6 يوليو 2010

بارك الله فيك

same7 mo3az · 7 يوليو 2010

ياإخوانى ليه ما فى حد يرد على .......؟

Dr Anonymous · 7 يوليو 2010

يا حبيب
اعمل موضوع فى ركن البرامج ...

k:

same7 mo3az · 8 يوليو 2010

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

ريحانه العطور · 11 يوليو 2010

ocab قال:

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

PHP:

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

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

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

ريحانه العطور · 11 يوليو 2010

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

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

زيزوومي جديد

توقيع : SHADOW-Z

زيزوومي جديد

توقيع : ريحانه العطور

زيزوومي نشيط

توقيع : Alzri2

زيزوومي جديد

توقيع : ريحانه العطور

زيزوومى محترف

توقيع : ocab

زيزوومى محترف

توقيع : ocab

الله يرحمه ويسكنة الجنه

توقيع : HaMuDi

الله يرحمه ويسكنة الجنه

توقيع : HaMuDi

زيزوومى فعال

زيزوومى محترف

توقيع : ocab

زيزوومى محترف

توقيع : نواف العتيبي

زيزوومي نشيط

عضو شرف

توقيع : غَـسّـان

زيزوومى فعال

زيزوومي نشيط

زيزوومى فعال

زيزوومى محترف

توقيع : Dr Anonymous

زيزوومى فعال

زيزوومي جديد

توقيع : ريحانه العطور

زيزوومي جديد

توقيع : ريحانه العطور