إعـــــــلان

تقليص
لا يوجد إعلان حتى الآن.

طلب مساعدة

تقليص
هذا الموضوع مغلق.
X
X
 
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة

  • طلب مساعدة

    إخواني الاعزاء

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

    تعلمت قدر استطاعتي لكن هنالك خطأ لم استطع اصلاحه

    مع العلم تم اسخدام الاداة check box لتعليم البرامج المرادة و check box أخرى كخيار تحديد الكل و زر منفصل للتثبيت

    هذا كود الزر

    -----------------------------------------------------------------------------------------------------

    xp = CheckBox.GetChecked("SA"); هذا الشيك لتحديد الكل
    x1 = CheckBox.GetChecked("CheckBox1");
    x2 = CheckBox.GetChecked("CheckBox2");
    x3 = CheckBox.GetChecked("CheckBox3");
    x4 = CheckBox.GetChecked("CheckBox4");
    x5 = CheckBox.GetChecked("CheckBox5");
    x6 = CheckBox.GetChecked("CheckBox6");
    x7 = CheckBox.GetChecked("CheckBox7");
    x8 = CheckBox.GetChecked("CheckBox8");
    x9 = CheckBox.GetChecked("CheckBox9");
    x10 = CheckBox.GetChecked("CheckBox10");
    x11 = CheckBox.GetChecked("CheckBox11");
    x12 = CheckBox.GetChecked("CheckBox12");
    x13 = CheckBox.GetChecked("CheckBox13");
    x14 = CheckBox.GetChecked("CheckBox14");
    x15 = CheckBox.GetChecked("CheckBox15");
    x16 = CheckBox.GetChecked("CheckBox16");
    x17 = CheckBox.GetChecked("CheckBox17");
    ---x18 = CheckBox.GetChecked("CheckBox15");
    --x19 = CheckBox.GetChecked("CheckBox19");
    --x20 = CheckBox.GetChecked("CheckBox20");
    --x21 = CheckBox.GetChecked("CheckBox21");
    --x22 = CheckBox.GetChecked("CheckBox22");
    --x23 = CheckBox.GetChecked("CheckBox23");
    --x24 = CheckBox.GetChecked("CheckBox24");
    if xp==true then

    if x1==true then
    steef = File.Run("AutoPlay\\Docs\\AAct_x64.exe", "", "", SW_SHOWNORMAL, true);
    end
    if x2==true then
    steef = File.Run("AutoPlay\\Docs\\WinRAR_5.71_Arabic_64bit .exe", "", "", SW_SHOWNORMAL, true);
    end
    if x3==true then
    steef = File.Run("AutoPlay\\Docs\\CleanMaster.exe", "", "", SW_SHOWNORMAL, true);
    end
    if x4==true then
    steef = File.Run("AutoPlay\\Docs\\UltraISO.exe", "", "", SW_SHOWNORMAL, true);
    end
    if x5==true then
    steef = File.Run("AutoPlay\\Docs\\TreeSizeFree.exe", "", "", SW_SHOWNORMAL, true);
    end
    if x6==true then
    steef = File.Run("AutoPlay\\Docs\\Smadav Pro 2018 v12.0.1.exe", "", "", SW_SHOWNORMAL, true);
    end
    if x7==true then
    steef = File.Run("AutoPlay\\Docs\\Firefox Setup 72.0.2 ARA 64.exe", "", "", SW_SHOWNORMAL, true);
    end
    if x8==true then
    steef = File.Run("AutoPlay\\Docs\\Google Chrome 79.0.3945.130 Stable Updatable x64.exe", "", "", SW_SHOWNORMAL, true);
    end
    if x9==true then
    steef = File.Run("AutoPlay\\Docs\\Internet.Download.Manage r.v6.36.2.exe", "", "", SW_SHOWNORMAL, true);
    end
    if x10==true then
    steef = File.Run("AutoPlay\\Docs\\K-Lite_Codec_Pack_1525_Mega.exe", "", "", SW_SHOWNORMAL, true);
    end
    if x11==true then
    steef = File.Run("AutoPlay\\Docs\\vlc-3.0.8-win64.exe", "", "", SW_SHOWNORMAL, true);
    end
    if x12==true then
    steef = File.Run("AutoPlay\\Docs\\PotPlayer.v1.7.20977.exe ", "", "", SW_SHOWNORMAL, true);
    end
    if x13==true then
    steef = File.Run("AutoPlay\\Docs\\Microsoft.Office.2016-2019x64.v2019.11\\AUTORUN.exe", "", "", SW_SHOWNORMAL, true);
    end
    if x14==true then
    steef = File.Run("AutoPlay\\Docs\\AcroRdrDC1801120035_en_U S.exe", "", "", SW_SHOWNORMAL, true);
    end
    if x15==true then
    steef = File.Run("AutoPlay\\Docs\\Adobe Flash Player 32.00.321 for Internet Explorer.exe", "", "", SW_SHOWNORMAL, true);
    end
    if x16==true then
    steef = File.Run("AutoPlay\\Docs\\Adobe Flash Player 32.00.321 for Firefox.exe", "", "", SW_SHOWNORMAL, true);
    end
    if x17==true then
    steef = File.Run("AutoPlay\\Docs\\qbittorrent_4.2.1_x64_se tup.exe", "", "", SW_SHOWNORMAL, true);
    end

    end


    CheckBox.SetChecked("CheckBox1", false);
    CheckBox.SetChecked("CheckBox2", false);
    CheckBox.SetChecked("CheckBox7", false);
    CheckBox.SetChecked("CheckBox8", false);
    CheckBox.SetChecked("CheckBox9", false);
    CheckBox.SetChecked("CheckBox6", false);
    CheckBox.SetChecked("CheckBox3", false);
    CheckBox.SetChecked("CheckBox4", false);
    CheckBox.SetChecked("CheckBox10", false);
    CheckBox.SetChecked("CheckBox11", false);
    CheckBox.SetChecked("CheckBox12", false);
    CheckBox.SetChecked("CheckBox5", false);
    CheckBox.SetChecked("CheckBox13", false);
    CheckBox.SetChecked("CheckBox14", false);
    CheckBox.SetChecked("CheckBox16", false);
    CheckBox.SetChecked("CheckBox16", false);
    CheckBox.SetChecked("CheckBox17", false);
    --CheckBox.SetChecked("CheckBox15", false);
    --CheckBox.SetChecked("CheckBox19", false);
    --CheckBox.SetChecked("CheckBox20", false);
    --CheckBox.SetChecked("CheckBox21", false);
    --CheckBox.SetChecked("CheckBox22", false);
    --CheckBox.SetChecked("CheckBox23", false);
    --CheckBox.SetChecked("CheckBox24", false);

    --pos = 0; -- the actual position
    --min = 0; -- the begining number (for script)
    --max = 100; -- the last number (for script)

    --for count = min, max do -- (the script)

    --Progress.SetCurrentPos("Progress1", pos) -- Set the current position 0,1,2
    --Progress.SetText("Progress1", pos.."%") -- Set the current position number (text)
    --Application.Sleep(100) -- Sleep it (must used 50smal - 100normal)
    --pos = pos + 1 -- Script must used to run the progress

    --end -- the end of the progress

    --Dialog.Message ("", "The installation is Compelete !") -- Display message box

    -----------------------------------------------------------------------
    و طبعا ال progress bar لم يعمل ف عطلته

    وايضا لم يعمل اي تثبيت تم تحديده

مواضيع تهمك

تقليص

المنتدى: القسم العام نشرت بواسطة: Reem2Rabeh الوقت: 04-23-2025 الساعة 04:27 PM
المنتدى: ضبط وتوكيد الجودة نشرت بواسطة: HeaD Master الوقت: 04-15-2025 الساعة 09:30 AM
المنتدى: التصنيع والانتاج نشرت بواسطة: HeaD Master الوقت: 04-11-2025 الساعة 01:08 PM
المنتدى: القسم العام نشرت بواسطة: نوال الخطيب الوقت: 03-19-2025 الساعة 03:07 AM
المنتدى: الكمبيوتر والإنترنت نشرت بواسطة: عوض السوداني الوقت: 03-18-2025 الساعة 07:22 AM
يعمل...
X