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

[maker56]

السلام عليكم


اخواني من لديه كود

لربط البروغراس بار سواءا بكود لحذف ملفات او نقل او نسخ ملفات

او تنصيبب برامج


لدي مشروع لتنصيب كذا برنامج صامت او تلقائي

واريد ربط البروغراس بار -- شريط التقدم -- بتنصيب البرامج



وشكرا لكم اخواني​

مثال بسيط نسخ الملفات مع شريط الحاله او Progressbar ارجوا ان افيدك

#NoTrayIcon
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Timers.au3>

$Form1 = GUICreate("Example Copy files With PrgressBar ", 327, 115, 332, 174)
$Group1 = GUICtrlCreateGroup("Setting", 6, 4, 313, 105)
$Progress1 = GUICtrlCreateProgress(22, 38, 282, 16)
$Label1 = GUICtrlCreateLabel("%", 256, 18, 10, 17)
$lblPercent = GUICtrlCreateLabel("", 268, 16, 38, 18)
$lblIdl = GUICtrlCreateLabel("", 38, 58, 268, 18)
$Label2 = GUICtrlCreateLabel("Idle", 20, 58, 15, 17)
$BntRun = GUICtrlCreateButton("Run", 64, 78, 195, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $BntRun
Global $iIdleTime = _Timer_GetIdleTime()
For $copy = 0 To 100

  sleep($iIdleTime)
    GUICtrlSetData($lblPercent,$copy)
     GUICtrlSetData($Progress1,$copy)


        $max =     GUICtrlRead($Progress1,1)
        Switch Int ($max)
            Case   10
                GUICtrlSetData($lblIdl,'<===== App 01.exe =======> [1]')
                 FileCopy (@ScriptDir & "\App 01.exe",@TempDir,1)
                 GUICtrlSetData($lblPercent,$max )
              Case 15
                 GUICtrlSetData($lblIdl,'<===== App 02.exe =======> [2]')
                 FileCopy (@ScriptDir & "\App 02.exe",@TempDir,1)
                 GUICtrlSetData($lblPercent,$max )
              Case 20
                 GUICtrlSetData($lblIdl,'<===== App 03.exe =======> [1]')
                 FileCopy (@ScriptDir & "\App 03.exe",@TempDir,1)
                 GUICtrlSetData($lblPercent,$max )
             Case  30
                 GUICtrlSetData($lblIdl,'<===== App 04.exe =======> [2]')
                FileCopy (@ScriptDir & "\App 04.exe",@TempDir,1)
                 GUICtrlSetData($lblPercent,$max )
             Case 50
                 GUICtrlSetData($lblIdl,'<===== App 05.exe =======> [1]')
                  FileCopy (@ScriptDir & "\App 05.exe",@TempDir,1)
                 GUICtrlSetData($lblPercent,$max )
             Case 60
                 GUICtrlSetData($lblIdl,'<===== App 06.exe =======> [1]')
                  FileCopy (@ScriptDir & "\App 06.exe",@TempDir,1)
                 GUICtrlSetData($lblPercent,$max )
             Case 100
                  sleep(100)
                  GUICtrlSetData($lblIdl,'')
                  GUICtrlSetData($Progress1,'')
                  GUICtrlSetData($lblPercent,'')
         EndSwitch
Next


    EndSwitch
WEnd

 

[jak 2]

بـارك الله فــيك أخــي الفاضـــــــل

تقديري لشخصك الكريم

​

 

[الخفـوق]

بارك الله فيك ورزقك الخير كله وبارك فى عمرك وشرح لك صدرك ويسر لك امرك

مبدع انت دائما يا اخى الكريم

سبحان الله وبحمده سبحان الله العظيم​

​

​

​

​

 

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

مثال للتجربه لايجاد الكود العشوائي المناظر اعلاه اتمني يكون المطلوب

#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("", 56, 24, 241, 21)
$BunGet = GUICtrlCreateButton("Get ", 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
            Random()
          $getNum = Chr(Random(Asc('A'),Asc('Z'),1)) & Chr(Random(Asc('A'),Asc('Z'),1)) _
          &0 & Random(0, 10, 1) &'-'& Chr(Random(Asc('A'),Asc('Z'),1)) & Random(0, 10, 1) & _
          Chr(Random(Asc('A'),Asc('Z'),1))&Chr(Random(Asc('A'),Asc('Z'),1))&'-'&Random(0, 10, 1) & _
          Random(0, 10, 1)&Chr(Random(Asc('A'),Asc('Z'),1))&Random(0, 10, 1)&'-'&Random(90, 99, 1) & _
          Random(50, 70, 1)&'-'&Random(80, 90, 1)&Random(70, 80, 1)&Random(0, 10, 1)
          GUICtrlSetData($Invalue,$getNum)
          RegWrite("HKLM\Software\Keys", "TestKey", "REG_SZ", $getNum)
 
    EndSwitch
WEnd

بارك الله فيك اخوووي وجزاك الله الف خير
بصراااحة مجهوود راقي منك k: k:
وأذهلتني اكوادك التي تعطي قيم عشوائية مناظرة للقيمة الاصلية في المثال السابق
(AF02-A7EB-45D3-9269-81729 ) بحيث تتكون من خمس خانات والخانه اليمنى تتكون من خمسة عناصر والاربع الخانات التي على اليسار تتكون من اربعة عناصر

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

اسمح لي اخوووي ترانا ثقلنا عليك ولك جزيل الشكر :b:
فعلى سبيل المثال انا اريد تغيير كل من القيمتان التاليتان الى قيم عشوائية
KEY TEST 1= B599E8C3-B166-4F2F-A110-33444304EE5C
KEY TEST 2=8D8B0949-7C47-476F-9F06-F900D3B078EA

مع العلم ان كل من KEY TEST1 و KEY TEST2
توجد بالمسار التالي HKEY_LOCAL_MACHINE\SOFTWARE\TEST

فياريت من عنده معلومات عن هذه الاكواد يخبرنا بها وجزاكم الله الف خير
وانا اختكم ريحانه العطور لن انتظر الرد من شخص واااحد لأن بالفعل حرااااااااااااااااااااااااااااام نرمي كل العبئ والثقل والاجتهاد على شخص واااحد:y:

واني منتظرة ردودكم بفارغ الصبر:er:












up

 

[الميلاد]

ربنا يحفظك من كل سوء اخي : "maker56"


تسلم ياغالي

​

 

[مـوآدع]

بارك الله فيك

كل الشكر وبالتوفيق

 

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

ربنا يحفظك من كل سوء اخي : "maker56"​

تسلم ياغالي​

ويحفظك من كل شر يا اخونا الغالي maker56
ويجعلك ذخرا لبلدك ومنتدانا الحبيب الغالي
واتمنى لك من اعماق قلبي للأمام والتقدم والتطور

 

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

بارك الله فيك اخوووي وجزاك الله الف خير
بصراااحة مجهوود راقي منك k: k:
وأذهلتني اكوادك التي تعطي قيم عشوائية مناظرة للقيمة الاصلية في المثال السابق
(AF02-A7EB-45D3-9269-81729 ) بحيث تتكون من خمس خانات والخانه اليمنى تتكون من خمسة عناصر والاربع الخانات التي على اليسار تتكون من اربعة عناصر

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

اسمح لي اخوووي ترانا ثقلنا عليك ولك جزيل الشكر :b:
فعلى سبيل المثال انا اريد تغيير كل من القيمتان التاليتان الى قيم عشوائية
KEY TEST 1= B599E8C3-B166-4F2F-A110-33444304EE5C
KEY TEST 2=8D8B0949-7C47-476F-9F06-F900D3B078EA

مع العلم ان كل من KEY TEST1 و KEY TEST2
توجد بالمسار التالي HKEY_LOCAL_MACHINE\SOFTWARE\TEST

فياريت من عنده معلومات عن هذه الاكواد يخبرنا بها وجزاكم الله الف خير
وانا اختكم ريحانه العطور لن انتظر الرد من شخص واااحد لأن بالفعل حرااااااااااااااااااااااااااااام نرمي كل العبئ والثقل والاجتهاد على شخص واااحد:y:

واني منتظرة ردودكم بفارغ الصبر:er:

up

 

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

up

 

[elawady]

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

يا أختي إذا كنتي تستعملي ويندوز فيستا أو 7 فيجب عليك ان تضيفي في اعلي الأكواد

[COLOR=Magenta]#RequireAdmin[/COLOR]

و إذا كنتي تريدين ان تعدلين علي قيم في برنامج الكاسبر فلا تنسي ان تغلقي Self Defense

 

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

يا أختي إذا كنتي تستعملي ويندوز فيستا أو 7 فيجب عليك ان تضيفي في اعلي الأكواد

[COLOR=magenta]#RequireAdmin[/COLOR]

و إذا كنتي تريدين ان تعدلين علي قيم في برنامج الكاسبر فلا تنسي ان تغلقي Self Defense

جزااكم الله الف خير على حسن تعاونكم معي k:
بس الاكواد السابقة من اخوي ماكر تعمل لي اداة كمولد سيريلات عشوائية وهي قريب من هدفي :q:
بس انا اريد اكواد تقوم بالتغيير المباشر في الريجستري:b:
وبالنسبة عندي نظام اكس بي:y:
وانا منتظرة ردودكم بفارغ الصبر:er:k:

 

[Alzri2]

ماشاء الله,
بارك الله فيك أخ

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

على الكود المتميز

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

لاحظي آخر سطر من الكود يكتب في الريجستري

 

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

ماشاء الله,
بارك الله فيك أخ

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

على الكود المتميز



لاحظي آخر سطر من الكود يكتب في الريجستري

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

 

[Alzri2]

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

أعتقد يعمل,
لأن بنية الكود صحيحة, راجع صفحة التعليمات المرفقة :

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

keyname     The registry key to write to.  If no other parameters are specified this key will simply be created.          valuename    	[B][optional][/B] The valuename to write to.          type    	[B][optional][/B] Type of key to write: "REG_SZ", "REG_MULTI_SZ", "REG_EXPAND_SZ", "REG_DWORD", "REG_QWORD", or "REG_BINARY".          value    	[B][optional][/B] The value to write.

حيث keyname هي إسم المفتاح الذي سيكتب عليه النظام كمثال : HKEY_CURRENT_USER\Software\Test
و valuename هو إسم القيمة التي سيكتب عليها
تليها type والتي تدل على نوع القيمة والشائع الإستخدام هو REG_SZ
أخيراً value وهي القيمة المكتوبة

والله اعلم
​

 

[omar_usa2]

 

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

أعتقد يعمل,
لأن بنية الكود صحيحة, راجع صفحة التعليمات المرفقة :

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

[LEFT]keyname     The registry key to write to.  If no other parameters are specified this key will simply be created.          valuename        [B][optional][/B] The valuename to write to.          type        [B][optional][/B] Type of key to write: "REG_SZ", "REG_MULTI_SZ", "REG_EXPAND_SZ", "REG_DWORD", "REG_QWORD", or "REG_BINARY".          value        [B][optional][/B] The value to write.[/LEFT]

حيث keyname هي إسم المفتاح الذي سيكتب عليه النظام كمثال : HKEY_CURRENT_USER\Software\Test​

و valuename هو إسم القيمة التي سيكتب عليها​

تليها type والتي تدل على نوع القيمة والشائع الإستخدام هو REG_SZ​

أخيراً value وهي القيمة المكتوبة​

والله اعلم ​

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

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

 

[elawady]

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

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

البرنامج شغال وهذه صورة من جهازي

 

[MONKEY D. LUFFY]

بارك الله فيك

 

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

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

الطلب الثاني هو
هل من الممكن بواسطه برنامج Autoit 3 script
عمل اداة تقوم بالتغيير في gpedit
اي عمل اداة من خلالها نعمل لاي قيمه disable or enable

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

 

[maker56]

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

الطلب الثاني هو
هل من الممكن بواسطه برنامج Autoit 3 script
عمل اداة تقوم بالتغيير في gpedit
اي عمل اداة من خلالها نعمل لاي قيمه disable or enable

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

سلام الله عليكم ورحمته وبركاته
بالنسبه طلبك الثاني قدرة لغه 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

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