autoplaymedia studio

selam arkadaşlar öncelikle konuyu nereye acacamı bilemedim buraya actım şimdi arkadaşlar benim sorunum şu arkadaşlar bi tane aıo program seti hazırlamayı düşünüyorum düşünüyorum derken çok denedim ama nafile sonuçlar çok kötü netten videoları falan baktım bişeye yaramadı şimdi benim istediğim mesela 5 tane program seçtik yuvarlak tıkları işaretleyip tümünü seç dediğin zaman 5 programı sırasıyla kurulur bunu nasıl yapabilirim yardımlarınızı bekliyorum
ne demek istediğimi aşağıdaki linkte gösterdim izleğin

Kur butonu oluştur /On Click evresine

c1 = CheckBox.GetChecked("CheckBox1 ") -- 1. checkboxun seçili olup olmadığına bak
c2 = CheckBox.GetChecked("CheckBox2 ") -- 2. checkboxun seçili olup olmadığına bak
c3 = CheckBox.GetChecked("CheckBox3 ") -- 3. checkboxun seçili olup olmadığına bak
c4 = CheckBox.GetChecked("CheckBox4 ") -- 4. checkboxun seçili olup olmadığına bak
c5 = CheckBox.GetChecked("CheckBox5 ") -- 5. checkboxun seçili olup olmadığına bak
c6 = CheckBox.GetChecked("CheckBox6 ") -- 6. checkboxun seçili olup olmadığına bak
c7 = CheckBox.GetChecked("CheckBox7 ") -- 7. checkboxun seçili olup olmadığına bak
c8 = CheckBox.GetChecked("CheckBox8 ") -- 8. checkboxun seçili olup olmadığına bak
c9 = CheckBox.GetChecked("CheckBox9 ") -- 9. checkboxun seçili olup olmadığına bak
c10 = CheckBox.GetChecked("CheckBox1 0") -- 10. checkboxun seçili olup olmadığına bak

if c1 then -- eğer 1. checkbox seçili ise
-- buraya program kurulum kodu gelecek
Paragraph.SetText("Paragraph1" , "Winamp kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c2 then -- eğer 2. checkbox seçili ise
-- buraya program kurulum kodu gelecek
Paragraph.SetText("Paragraph1" , "Winzip kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c3 then -- eğer 3. checkbox seçili ise
-- buraya program kurulum kodu gelecek
Paragraph.SetText("Paragraph1" , "WinRAR kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c4 then -- eğer 4. checkbox seçili ise
-- buraya program kurulum kodu gelecek
Paragraph.SetText("Paragraph1" , "Aimp kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c5 then -- eğer 5. checkbox seçili ise
-- buraya program kurulum kodu gelecek
Paragraph.SetText("Paragraph1" , "Photoshop kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c6 then -- eğer 6. checkbox seçili ise
-- buraya program kurulum kodu gelecek
Paragraph.SetText("Paragraph1" , "Firefox kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c7 then -- eğer 7. checkbox seçili ise
-- buraya program kurulum kodu gelecek
Paragraph.SetText("Paragraph1" , "Messenger kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c8 then -- eğer 8. checkbox seçili ise
-- buraya program kurulum kodu gelecek
Paragraph.SetText("Paragraph1" , "Flashget kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c9 then -- eğer 9. checkbox seçili ise
-- buraya program kurulum kodu gelecek
Paragraph.SetText("Paragraph1" , "Sözlük kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c10 then -- eğer 10. checkbox seçili ise
-- buraya program kurulum kodu gelecek
Paragraph.SetText("Paragraph1" , "Nero kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

-- eğer herhangi biri seçili ise kurulum bitiminde bitti mesajı ver
if c1 or c2 or c3 or c4 or c5 or c6 or c7 or c8 or c9 or c10 then
Dialog.Message("Kurulum v1", "Seçilen programların kurulumu tamamlandı")
end

-- eğer hiç bir seçim yapılmamışsa uyarı ver
if c1 == false and c2 == false and c3 == false and c4 == false and c5 == false and c6 == false and c7 == false and c8 == false and c9 == false and c10 == false then
Dialog.Message("Kurulum v1", "Hiç bir seçim yapmamışsınız")
end


Kurulumda yüzdelik çıkmasını istiyorsansa

Global Functions Evresine

nSayi = 0;

function sec(sObject, sName)
bChecked = CheckBox.GetChecked(sObject)
if bChecked then
INIFile.SetValue("Autoplay\\Do cs\\kurulum.ini", sName, "kur", "1")
nSayi = nSayi+1
Label.SetText("sayi", nSayi .. " adet program seçildi")
else
INIFile.DeleteSection("Autopla y\\Docs\\kurulum.ini", sName)
nSayi = nSayi-1
Label.SetText("sayi", nSayi .. " adet program seçildi")
end
end


function kontrol()
Label.SetText("sayi", nSayi .. " adet program seçildi")
tSections = INIFile.GetSectionNames("AutoP lay\\Docs\\kurulum.ini")

if tSections ~= nil then
for i=1,100 do
for y in pairs(tSections) do
if CheckBox.GetText("CheckBox" .. i) == tSections[y] then
CheckBox.SetChecked("CheckBox" .. i, true)
end
end
end
else
for i=1,100 do
CheckBox.SetChecked("CheckBox" .. i, false)
end
end
end

function kur()
tTablo = INIFile.GetSectionNames("AutoP lay\\Docs\\kurulum.ini")

if tTablo ~= nil then
Window.Hide(Application.GetWnd Handle())
StatusDlg.SetMeterRange(0, Table.Count(tTablo))
StatusDlg.SetMeterPos(0)
for i in pairs(tTablo) do
if INIFile.GetValue("AutoPlay\\Do cs\\kurulum.ini", tTablo[i], "kur") == "1" then
nPos = StatusDlg.GetMeterPos()
StatusDlg.SetMeterPos(nPos+1)
nPos=nPos+1
StatusDlg.Show(MB_ICONINFORMAT ION, false);
StatusDlg.SetTitle("Programlar kuruluyor...");
StatusDlg.SetMessage("%" .. Math.Round(100/nSayi*nPos, 0) .. " | " .. tTablo[i] .. " Kuruluyor...")
File.Run("AutoPlay\\Docs\\Prog ramlar\\" .. tTablo[i] .. ".exe", "", "AutoPlay\\Docs\\Programla r", SW_SHOWNORMAL, true)
Application.Sleep(1000)
StatusDlg.SetMessage(tTablo[i] .. "Kuruldu!")
end
end
File.Delete("AutoPlay\\Docs\\k urulum.ini", false, false, false, nil)
StatusDlg.SetMeterPos(0)
Label.SetText("sayi", 0 .. " adet program seçildi")
for i=1,100 do
CheckBox.SetChecked("CheckBox" .. i, false)
end
StatusDlg.Hide()
Dialog.Message("Kurulum", "Seçilen " .. nSayi .. " programın kurulumu tamamlandı", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)
nSayi = 0;
Window.Show(Application.GetWnd Handle())
else
Dialog.TimedMessage("Hata", "Hiç bir program seçilmedi!", 1000, MB_ICONEXCLAMATION)
end
end