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

  • بادئ الموضوع بادئ الموضوع ashalshaikh
  • تاريخ البدء تاريخ البدء
  • المشاهدات 114,207
جاري التطبيق والفهم....... .:q:
 

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

i67149_osu-oou-osom.jpg



والمشكلة انه يطلعلي كل فتره انو الوندوز مو اصلي مع انه اجتاز اختبار برامج ميكروسوفت الأصلية اكثر من مرة!
هل يوجد طريقة اظهر فيها علامة البرامج الأصلية والمفتاح؟
والتخلص من الرساله المزعجة
​
 
توقيع : zekox
بارك الله فيك ،،،،
 
توقيع : أبو ريفان
فدى الرسول قال:
السلام عليكم
استاذى الغالى أحمد الشيخ عودة حميدة
كيف الحال انشاء الله ترانى جالس على جهاز عقيم الان :cr:
ان شاء الله بعد بكره ادخل واتابع الدرس واوافيك بتطبيقى :ok:
وياسيدى اعطينى رقم تليفونك منشان نعرف نطمن عليك او على الاقل ايميل فعاااااال:y:
أنقر للتوسيع...
وعليكم السلام ..
حياك الله يا جميل ..
ههههههههههههههههه
الله يبارك فيك ..

خطاب الشمري قال:
شكرا ياعم الشيخ بس أنا زعلان
أنقر للتوسيع...

chozenx قال:
جاري التطبيق والفهم....... .:q:
أنقر للتوسيع...
شكرا لك ..
ههههه
zekox قال:
السلام عليكم ورحمة الله وبركاته
لذوي الخبرة
اخواني انا عملت ترقية من وندوز فيستا اصلي لوندوز7 لكن ظهرت مشكلة
انا الحين قمت بعمل الترقيه واجتاز الوندوز اختبار برامج ميكروسوفت الأصلية بس النسخه الى عندي مكسور فيها المده التجريبية اي مايظهر المفتاح ولاالوندوز اصلي ولا ما اصلي زي ما انتو شايفين في الصورة:

i67149_osu-oou-osom.jpg



والمشكلة انه يطلعلي كل فتره انو الوندوز مو اصلي مع انه اجتاز اختبار برامج ميكروسوفت الأصلية اكثر من مرة!
هل يوجد طريقة اظهر فيها علامة البرامج الأصلية والمفتاح؟
والتخلص من الرساله المزعجة
​
أنقر للتوسيع...
وعليكم السلام ..

يرجى قراءة العنوان مرة أخرى ..
وشكرا ..
:d:
أبو ريفان قال:
بارك الله فيك ،،،،
أنقر للتوسيع...
وفيك ..
 
توقيع : ashalshaikh
التطبيق
PHP: 
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.4.0
 Author:         myName

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#Include  <EditConstants.au3>
#Include  <WindowsConstants.au3>
#Include <GUIConstantsEx.au3>


$GUI = GUICreate("المتصفح السريع", 370, 140)
$FilePath_inp = GUICtrlCreateInput("مسار الملف", 8, 24, 305, 21, $ES_READONLY)
$Browse_Btn = GUICtrlCreateButTon("استعرض", 320, 24, 43, 21)
$Report_Edt = GUICtrlCreateEdit("المحتوى", 8, 48, 353, 57, $ES_READONLY + $WS_VSCROLL + $WS_HSCROLL)
$About_Btn = GUICtrlCreateButTon("عن", 208, 112, 75, 25)
$Exit_Btn = GUICtrlCreateButTon("اغلاق", 88, 112, 75, 25)
GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Browse_Btn
            $Path = FileOpenDiaLog('', @DesktopDir, 'All Files(*.*)', 3, '', $GUI)
            If @error Then ContInueLoop
            GUICtrlSetData($FilePath_inp, $Path)

            GUICtrlSetData($Report_Edt, _
                    'File LongName : ' & FileGetLongName($Path) & @CRLF & _
                    'File ShortName : ' & FileGetShOrtName($Path) & @CRLF & _
                    'File Size : ' & FileGetSize($Path) & @CRLF & _
                    'File Time : ' & FileGetTime($Path) & @CRLF & _
                    '...' _
                    )
        Case $About_Btn
            MsgBox(64, 'عن', 'كل التحية والتقدير الى الشيخ' & @CRLF & 'جزاه الله عنا خيراً')
        Case $Exit_Btn
			MsgBox(16,"الغاء ","جارى اغلاق البرنامج",2)
            Exit
    EndSwitch
WEnd

او بالكود الاخر
كود: 
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.4.0
 Author:         myName

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#Include  <EditConstants.au3>
#Include  <WindowsConstants.au3>
#Include <GUIConstantsEx.au3>


$GUI = GUICreate("المتصفح السريع", 370, 140)
$FilePath_inp = GUICtrlCreateInput("مسار الملف", 8, 24, 305, 21, $ES_READONLY)
$Browse_Btn = GUICtrlCreateButTon("استعرض", 320, 24, 43, 21)
$Report_Edt = GUICtrlCreateEdit("المحتوى", 8, 48, 353, 57, $ES_READONLY + $WS_VSCROLL + $WS_HSCROLL)
$About_Btn = GUICtrlCreateButTon("عن", 208, 112, 75, 25)
$Exit_Btn = GUICtrlCreateButTon("اغلاق", 88, 112, 75, 25)
GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Browse_Btn
            $Path = FileOpenDiaLog('', @DesktopDir, 'All Files(*.*)', 3, '', $GUI)
            If @error Then ContInueLoop
            GUICtrlSetData($FilePath_inp, $Path)

            GUICtrlSetData($Report_Edt, _
                    'File LongName : ' & FileGetLongName($Path) & @CRLF & _
                    'File ShortName : ' & FileGetShOrtName($Path) & @CRLF & _
                    'File Size : ' & FileGetSize($Path) & @CRLF & _
                    'File Time : ' & FileGetTime($Path) & @CRLF & _
                    '...' _
                    )
        Case $About_Btn
            MsgBox(64, 'عن', 'كل التحية والتقدير الى الشيخ' & @CRLF & 'جزاه الله عنا خيراً')
        Case $Exit_Btn
			MsgBox(16,"الغاء ","جارى اغلاق البرنامج",2)
            Exit
    EndSwitch
WEnd

ولى بعض الاسئله
المقبض
PHP: 
        Case $GUI_EVENT_CLOSE , $Exit_Btn

جاء فى اعلى الترتيب بالرغم من ان
PHP: 
 Case $About_Btn
            MsgBox(64, 'About', 'GUI Example :: By Ashalshaikh' & @CRLF & 'For Zyzoom.org Members')

جاء فى اخرها وهم الاثنين بجوار بعضهما
هل الترتيب مهم ام يكفى التعريف بالمقبض ووضع الاوامر؟
ماذا يعنى الرقم 3
PHP: 
            $Path = FileOpenDiaLog('',@DesktopDir,'All Files(*.*)',3,'',$GUI)

وياريت تشرح لنا
PHP: 
GUICtrlSetData

بتفرد قليلا
 
توقيع : فدى الرسول
اين انت ياشيخ
والله شكلك زهقت مننا
ياريت يا اخوانى يبقى فى تفاعل علشان الشيخ مايمل مننا
 
توقيع : فدى الرسول
فدى الرسول قال:
التطبيق
PHP: 
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.4.0
 Author:         myName

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#Include  <EditConstants.au3>
#Include  <WindowsConstants.au3>
#Include <GUIConstantsEx.au3>


$GUI = GUICreate("المتصفح السريع", 370, 140)
$FilePath_inp = GUICtrlCreateInput("مسار الملف", 8, 24, 305, 21, $ES_READONLY)
$Browse_Btn = GUICtrlCreateButTon("استعرض", 320, 24, 43, 21)
$Report_Edt = GUICtrlCreateEdit("المحتوى", 8, 48, 353, 57, $ES_READONLY + $WS_VSCROLL + $WS_HSCROLL)
$About_Btn = GUICtrlCreateButTon("عن", 208, 112, 75, 25)
$Exit_Btn = GUICtrlCreateButTon("اغلاق", 88, 112, 75, 25)
GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Browse_Btn
            $Path = FileOpenDiaLog('', @DesktopDir, 'All Files(*.*)', 3, '', $GUI)
            If @error Then ContInueLoop
            GUICtrlSetData($FilePath_inp, $Path)

            GUICtrlSetData($Report_Edt, _
                    'File LongName : ' & FileGetLongName($Path) & @CRLF & _
                    'File ShortName : ' & FileGetShOrtName($Path) & @CRLF & _
                    'File Size : ' & FileGetSize($Path) & @CRLF & _
                    'File Time : ' & FileGetTime($Path) & @CRLF & _
                    '...' _
                    )
        Case $About_Btn
            MsgBox(64, 'عن', 'كل التحية والتقدير الى الشيخ' & @CRLF & 'جزاه الله عنا خيراً')
        Case $Exit_Btn
            MsgBox(16,"الغاء ","جارى اغلاق البرنامج",2)
            Exit
    EndSwitch
WEnd
او بالكود الاخر
كود: 
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.4.0
 Author:         myName

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#Include  <EditConstants.au3>
#Include  <WindowsConstants.au3>
#Include <GUIConstantsEx.au3>


$GUI = GUICreate("المتصفح السريع", 370, 140)
$FilePath_inp = GUICtrlCreateInput("مسار الملف", 8, 24, 305, 21, $ES_READONLY)
$Browse_Btn = GUICtrlCreateButTon("استعرض", 320, 24, 43, 21)
$Report_Edt = GUICtrlCreateEdit("المحتوى", 8, 48, 353, 57, $ES_READONLY + $WS_VSCROLL + $WS_HSCROLL)
$About_Btn = GUICtrlCreateButTon("عن", 208, 112, 75, 25)
$Exit_Btn = GUICtrlCreateButTon("اغلاق", 88, 112, 75, 25)
GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Browse_Btn
            $Path = FileOpenDiaLog('', @DesktopDir, 'All Files(*.*)', 3, '', $GUI)
            If @error Then ContInueLoop
            GUICtrlSetData($FilePath_inp, $Path)

            GUICtrlSetData($Report_Edt, _
                    'File LongName : ' & FileGetLongName($Path) & @CRLF & _
                    'File ShortName : ' & FileGetShOrtName($Path) & @CRLF & _
                    'File Size : ' & FileGetSize($Path) & @CRLF & _
                    'File Time : ' & FileGetTime($Path) & @CRLF & _
                    '...' _
                    )
        Case $About_Btn
            MsgBox(64, 'عن', 'كل التحية والتقدير الى الشيخ' & @CRLF & 'جزاه الله عنا خيراً')
        Case $Exit_Btn
            MsgBox(16,"الغاء ","جارى اغلاق البرنامج",2)
            Exit
    EndSwitch
WEnd
ولى بعض الاسئله
المقبض
PHP: 
        Case $GUI_EVENT_CLOSE , $Exit_Btn
جاء فى اعلى الترتيب بالرغم من ان
PHP: 
 Case $About_Btn
            MsgBox(64, 'About', 'GUI Example :: By Ashalshaikh' & @CRLF & 'For Zyzoom.org Members')
جاء فى اخرها وهم الاثنين بجوار بعضهما
هل الترتيب مهم ام يكفى التعريف بالمقبض ووضع الاوامر؟
ماذا يعنى الرقم 3
PHP: 
            $Path = FileOpenDiaLog('',@DesktopDir,'All Files(*.*)',3,'',$GUI)
وياريت تشرح لنا
PHP: 
GUICtrlSetData
بتفرد قليلا
أنقر للتوسيع...






اول شي مشان موضوع المقبض $GUI_EVENT_CLOSE , $Exit_Btn هما مقبضان مختلفان

الاول ... $Exit_Btn هو زر الخروج متل ما نحنا سمينا
والتاني GUI_EVENT_CLOSE$ هو امر الخروج escape الموجود في الكيبورد او زر الاغلاق الاحمر الموجود في اي نافذة رئيسية ......
وبما انو انا وضعتهم جوا حلقة while فراح يعيد كل شي موجود ضمن الحلقة (حلقة while ) لحتا احد الاوامر تتنفذ سواء كان زر او شي امر اخر ..... وجرب انت تحذف GUI_EVENT_CLOSE$ وتضغط escape او الضرب الاحمر رح تشوف انو ما رح ينفذ اي شي

وفينا نحطهم بالشكل
كود: 
[LEFT][FONT=Garamond]Case $GUI_EVENT_CLOSE[/FONT]
[FONT=Garamond]       Exit[/FONT]
[FONT=Garamond]Case $Exit_Btn [/FONT]
[FONT=Garamond]       Exit 
[/FONT][/LEFT]



.... هي بالنسبة لوظيفتن
​


اما بالنسبة للترتيب فما شرط ابدا انو نرتب لانو الwhile (الحلقة) رح تبقى تدور لحتا يتم تنفيذ شي موجود داخلها يعني ازا موجود بالاول وازا موجود بالاخير رح تعدي الحلقة علي وتنفذو ....

وبالنسبة لموضوع الرقم 3 ........

i67573_cc2.jpg


هي الخيارات للخانة الرابعة في تعليمة fileopendialog ومتل مو شايفين عندنا 4 خيارات هنن الرقم 1 والرقم 2 و4 و 8
نبدا مع الواحد .... الواحد يا سيدي الكريم بيقول انو ازا انا ضفت اسم ملف مو موجود رح يعطي رسالة تحذيرية بانو هالملف اللي كتبتو انا مانو موجود ..... وجرب تحط اسم من عندك "خيالي مثلا" وتعطي اوكي عند اللي يكون الرقم 0 وعند ال 1 وشوف شو رح يعطي ... بحالة الصفر رح يعطيك اسم الملف اللي دخلتو بس حجمو 0 ومسارو غير معروف .....

الرقم 2 ..... وهوي ازا انا ضفت مسار غير معلوم من قبل الحاسب ... مثلا السواقة x طبعا غير موجودة ... بحالة الصفر رح يقبلا بس بحالة ال2 مارح يقبلا ... ورح يعطي رسالة تحذيرية ....

الرقم 4 ..... رح يمكن انو حدد اكتر من ملف مع بعض .... بس هاد الخيار ما رح استفيد منو فعليا لانو انا بدي رجع ملف واحد واتعامل معو .....

الرقم 8 .... الرقم 8 شغلتة ظريفة :wink: وهوي ازا انا ضفت اسم ملف مالو موجود رح يعطيني رسالة يقول "هل تريد انشاء الملف اللي حضرتك دخلتو" وانت تختار اي او لأ ......

وازا بدي انا الخيارين الاول والتاني مع بعض ما علي الا انو اجمع هالرقمين يعني رح ينتج عندي الرقم 3.وهكذا ..........




اخيرا تعليمة ال guictrlsetdata هي موضوعها طويل شوي يعني بدها عالاقل درسين حتا نستوعبها بشكل جيد لذلك مبدئيا اعتبرها انو هيي بتسند قيم معينة لشي مقبض معين .....

اتمنى ان اكون قد وصلت الفكرة تمام
 
تمــــــــــــام الف شكر هى الفاضل انت ممتاز
جزاك الله خير
 
توقيع : فدى الرسول
هذا تطبيق بسيط للآلة الحاسبة ................ طبقو ... واي كود ما حدا فهمو يخبرني......... بتمنى تعجبكون
​


كود: 
 [B][COLOR=Magenta]#Include[/COLOR]  <GUIConstantsEx.au3>
        
        
        [COLOR=DarkRed]$GUI[/COLOR] = [COLOR=DarkSlateBlue]GUICreate[/COLOR]("الحاسبة",  230, 170)
        [COLOR=DarkRed]$Txt1[/COLOR] = [COLOR=DarkSlateBlue]GUICtrlCreateInput[/COLOR]("",  8, 25, 100, 21)
        [COLOR=DarkRed]$Txt2 [/COLOR]= [COLOR=DarkSlateBlue]GUICtrlCreateInput[/COLOR]("",  8, 50, 100, 21)
        [COLOR=DarkRed]$Operate[/COLOR] = [COLOR=DarkSlateBlue]GUICtrlCreateButTon[/COLOR]("احسب", 8, 75,100, 21)
        [COLOR=DarkRed]$BAbout[/COLOR] = [COLOR=DarkSlateBlue]GUICtrlCreateButTon[/COLOR]("About", 8, 130,210,  21)
        [COLOR=DarkRed]$Gbox[/COLOR]=[COLOR=DarkSlateBlue]GUICtrlCreateGroup[/COLOR]("اختر  العملية",120,21,100,100)
        [COLOR=DarkRed]$R1[/COLOR]=[COLOR=DarkSlateBlue]GUICtrlCreateRadio[/COLOR]("جمع",130,35)
        [COLOR=DarkRed]$R2[/COLOR]=[COLOR=DarkSlateBlue]GUICtrlCreateRadio[/COLOR]("طرح",130,55)
        [COLOR=DarkRed]$R3[/COLOR]=[COLOR=DarkSlateBlue]GUICtrlCreateRadio[/COLOR]("ضرب",130,75)
        [COLOR=DarkRed]$R4[/COLOR]=[COLOR=DarkSlateBlue]GUICtrlCreateRadio[/COLOR]("قسمة",130,95)
        [COLOR=DarkRed]$Txt3[/COLOR]= [COLOR=DarkSlateBlue]GUICtrlCreateInput[/COLOR]("",  8, 100, 100, 21)
        
        
        [COLOR=DarkSlateBlue]GUICtrlSetState[/COLOR]([COLOR=DarkRed]$R1[/COLOR], [COLOR=DarkRed]$GUI_CHECKED[/COLOR])
        [COLOR=DarkSlateBlue]GUISetState[/COLOR]()
        
        [COLOR=Blue]While [/COLOR]1
    [COLOR=Blue]Switch    [/COLOR][COLOR=DarkSlateBlue]GUIGetMsg[/COLOR]()     
        [COLOR=Blue]Case [/COLOR][COLOR=DarkRed]$GUI_EVENT_CLOSE[/COLOR]
            [COLOR=Blue]Exit[/COLOR]
        [COLOR=Blue]case [/COLOR][COLOR=DarkRed]$BAbout[/COLOR]
   [COLOR=DarkSlateBlue]MsgBox[/COLOR](0,"","This calculater  designed to you by >>>>>"[COLOR=Magenta]&[/COLOR][COLOR=DarkOrange]@CRLF[/COLOR][COLOR=Magenta]&[/COLOR][COLOR=DarkOrange]@CRLF[/COLOR][COLOR=Magenta]&[/COLOR]"                          ChozenX")
        [COLOR=Blue]Case [/COLOR][COLOR=DarkRed]$operate[/COLOR]
            [COLOR=Blue]if [/COLOR][COLOR=DarkSlateBlue]GUICtrlRead[/COLOR]([COLOR=DarkRed]$R1[/COLOR])=[COLOR=DarkRed]$GUI_CHECKED[/COLOR] [COLOR=Blue]Then [/COLOR]
                [COLOR=DarkSlateBlue]GUICtrlSetData[/COLOR]([COLOR=DarkRed]$Txt3[/COLOR],[COLOR=Navy]GUICtrlRead[/COLOR]($txt1)+[COLOR=Navy]GUICtrlRead[/COLOR]([COLOR=DarkRed]$txt2[/COLOR]))
            [COLOR=Blue]ElseIf [/COLOR][COLOR=DarkSlateBlue]GUICtrlRead[/COLOR]([COLOR=DarkRed]$R2[/COLOR])=[COLOR=DarkRed]$GUI_CHECKED[/COLOR] [COLOR=Blue]Then [/COLOR]
                [COLOR=DarkSlateBlue]GUICtrlSetData[/COLOR]([COLOR=DarkRed]$Txt3[/COLOR],[COLOR=Navy]GUICtrlRead[/COLOR]([COLOR=DarkRed]$txt1[/COLOR])-[COLOR=Navy]GUICtrlRead[/COLOR]([COLOR=DarkRed]$txt2[/COLOR]))
            [COLOR=Blue]Elseif [/COLOR][COLOR=DarkSlateBlue]GUICtrlRead[/COLOR]([COLOR=DarkRed]$R3[/COLOR])=[COLOR=DarkRed]$GUI_CHECKED [/COLOR][COLOR=Blue]Then [/COLOR]
                [COLOR=DarkSlateBlue]GUICtrlSetData[/COLOR]([COLOR=DarkRed]$Txt3[/COLOR],[COLOR=Navy]GUICtrlRead[/COLOR]([COLOR=DarkRed]$txt1[/COLOR])*[COLOR=Navy]GUICtrlRead[/COLOR]([COLOR=DarkRed]$txt2[/COLOR]))
            [COLOR=Blue]Elseif [/COLOR][COLOR=DarkSlateBlue]GUICtrlRead[/COLOR]([COLOR=DarkRed]$R4[/COLOR])=[COLOR=DarkRed]$GUI_CHECKED[/COLOR] [COLOR=Blue]Then  [/COLOR]
                [COLOR=Blue]if [/COLOR][COLOR=DarkSlateBlue]GUICtrlRead[/COLOR]($txt2)=0  [COLOR=Blue]Then [/COLOR]
                    [COLOR=DarkSlateBlue]MsgBox[/COLOR](0,"","لا  يمكن القسمة على صفر")
                [COLOR=Blue]Else [/COLOR]
                    [COLOR=DarkSlateBlue]GUICtrlSetData[/COLOR]([COLOR=DarkRed]$Txt3[/COLOR],[COLOR=Navy]GUICtrlRead[/COLOR]([COLOR=DarkRed]$txt1[/COLOR])/[COLOR=Navy]GUICtrlRead[/COLOR]([COLOR=DarkRed]$txt2[/COLOR]))
                [COLOR=Blue]EndIf[/COLOR]
            [COLOR=Blue]EndIf[/COLOR]
    [COLOR=Blue]EndSwitch[/COLOR]
        [COLOR=Blue]WEnd[/COLOR]
        [/B]
 
شبنا يا شباب ليش الموضوع ما عم يصير فيه تفاعل
 
الشباب الرائع عباقرة الاوتو إت بارك الله فيكم
عمل رائع وجميل الله يوفقكم
صبر شوي فترة فحوصات والعالم راسا موفاضي
 
توقيع : ocab

السلام عليكم


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

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

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


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

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



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


 
سلام عليكم اخواني الزيزوميين
اسعد الله يومكم بكل خير
وكما تعودنا عند عدم المعرفة وايجاد الحلول الفنية نتجه الى منتدانا الغالي زيزوم لايجاد الحلول المناسبه
اخواني اختكم ريحانه العطور عندها استفسار وتريد معرفة عدة اشياء
confused.gif

وللاسف محتارة ولم تجد الحل
13.gif

لذلك قمت بالاتجاه الى منتدانا الحبيب الغالي
smile.gif

لالقى الجواب الشافي
1146775398.gif

ع العموم خلوني اخبركم باستفساري
مثلا توجد قيمه ولتكن خليط من ارقام عشرية(0-9) و الحروف
ABCD
فاريد الامر والكود بواسطه برنامج AutoIt v3 Script
الذي من خلاله نستطيع عمل اداة تقوم بتغيير هذه القيمه الى قيمه عشوائية وبالضغط على هذه الاداة مرة اخرى يتم تغيير هذه القيمة العشوائية الى قيمه اخرى
اي ان القيمة تتغير كل مرة الى قيمه اخرى عند ضغط الاداة المصنوعة بواسطه برنامج
AutoIt v3 Script​
 
توقيع : ريحانه العطور
لم أفهم مالمطلوب بشكل واضح, ولكن أعتقد هذا جواب السؤال :
كود: 
[COLOR=Blue][COLOR=Navy]random[/COLOR][COLOR=Red]()[/COLOR][/COLOR]

وهذا مثال لتوليد أعداد صحيحة (غير عشرية) بشكل عشوائي :
كود: 
[COLOR=Blue][COLOR=Navy]random[/COLOR][COLOR=Red]([COLOR=SeaGreen]0, 10, 1[/COLOR])[/COLOR][/COLOR]
 
توقيع : Alzri2
مشكوووور اخوي alzri2
واني اسفة كل الاسف على بذائة شرحي الغير مفهوم
لنعطي مثاااال خياااالي وليكن
مثلا اريد اقوم بتغيير القيمة التالية
AF02-A7EB-45D3-9269-81729 (للعلم ان هذه القيمه تختلف من جهاز الى جهاز)
الى اي قيمه عشوائية
فتظهر لي قيمه عشوائية تختلف عن القيمه الاصلية وبنفس الطريقة عند الضغط على الاداة يتم التغيير بشكل اوتماتيكي الى قيمه اخرى وعند الضغط مرة اخرى يتم التحويل الى قيمه اخرى مختلفة
ولتكن هذه القيمه في المسار التالي
HKEY_LOCAL_MACHINE\test\test
ولنفترض ان هذه القيمه التي بجنبtest تخنلف من جهاز الى جهاز
فما هو الامر والكود التي بواسطته نستطيع عمل اداة تقوم بتغيير هذه القيمة المختلفة من جهاز الى جهاز
 
توقيع : ريحانه العطور
thank you
​
:king: :km-0y00001 (140)::kmj-by0000 (67)::kmj-by0000 (67)::kmj-by0000 (67)::kmj-by0000 (67)::kmj-by0000 (67)::kmj-by0000 (67)::getsmile.tmp0018838:kmj-by0000 (16)::kmj-by0000 (16)::kmj-by0000 (16):
 
توقيع : the love madman
ريحانه العطور قال:
مشكوووور اخوي alzri2
واني اسفة كل الاسف على بذائة شرحي الغير مفهوم
لنعطي مثاااال خياااالي وليكن
مثلا اريد اقوم بتغيير القيمة التالية
AF02-A7EB-45D3-9269-81729 (للعلم ان هذه القيمه تختلف من جهاز الى جهاز)
الى اي قيمه عشوائية
فتظهر لي قيمه عشوائية تختلف عن القيمه الاصلية وبنفس الطريقة عند الضغط على الاداة يتم التغيير بشكل اوتماتيكي الى قيمه اخرى وعند الضغط مرة اخرى يتم التحويل الى قيمه اخرى مختلفة
ولتكن هذه القيمه في المسار التالي
HKEY_LOCAL_MACHINE\test\test
ولنفترض ان هذه القيمه التي بجنبtest تخنلف من جهاز الى جهاز
فما هو الامر والكود التي بواسطته نستطيع عمل اداة تقوم بتغيير هذه القيمة المختلفة من جهاز الى جهاز
أنقر للتوسيع...

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

كود: 
#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
 
توقيع : maker56
السلام عليكم


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

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

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


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

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



وشكرا لكم اخواني​
 
يجب تسجيل الدخول أو التسجيل كي تتمكن من الرد هنا.
عودة
أعلى