طلب مساعدة

[موستاف]

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

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

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

مع العلم تم اسخدام الاداة 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.Manager.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_US.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_setup.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 لم يعمل ف عطلته

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