Aıo Da Progress Bar..

[nightmare3519]

Edited September 2, 2014 by nightmare3519

[PColik]

kardeş aio'nun kodlarını şu şekilde yap. (alıntıdır: MostWanted = talha_252)




ÖNCE PROJENİZDE 5 ADET CheckBox (CheckBox1, CheckBox2 Şeklinde), 1 Adet Buton (Button1 Şeklinde), 1 Adet Label (Label1 Şeklinde) Ve 1 Adet Progress (Progress1 Şeklinde) Oluşturun.
Ve Kodları Yazın;




GLOBAL FUNCTIONS

[codebox]function labeller()
tWebProperties = {}
tWebProperties.Visible=false;
tWebProperties.Text= "0";
Page.CreateObject(OBJECT_LABEL, "aios", tWebProperties)
tWebPropertie = {}
tWebPropertie.Visible=false;
tWebPropertie.Text= "0";
Page.CreateObject(OBJECT_LABEL, "aiod", tWebPropertie)
end
function sifirla()
Label.SetText("aios", "0")
Label.SetText("aiod", "0")
end
function secme(yazim)
sonuc = CheckBox.GetChecked(yazim)
if not (sonuc) then
aio = {};
aio.FontItalic = false
aio.FontWeight = 100
CheckBox.SetProperties(yazim, aio);
else
aio = {};
aio.FontItalic = true
aio.FontWeight = 700
CheckBox.SetProperties(yazim, aio);
end
end
function okuyucu(yazim)
sonuc = CheckBox.GetChecked(yazim)
if (sonuc) then
oku = Label.GetText("aios")
Label.SetText("aios", oku + 1)
end
end
function yaz()
oku = Label.GetText("aiod")
Label.SetText("aiod", oku + 1)
end
function progress()
tamami = Label.GetText("aios")
parca = Label.GetText("aiod")
return Math.Ceil((parca/tamami)*100)
end
function kurulum(checkboxadi, progadi, progexe)
secilim = CheckBox.GetChecked(checkboxadi);
if (secilim) then
Label.SetText("Label1",progadi.." Sisteminize Kurulurken Lütfen Bekleyin.");
result = File.Run("AutoPlay\\Docs\\"..progexe, "", "", SW_SHOWNORMAL, true);

yaz()
Progress.SetText("Progress1","%"..progress().." Kurulum Tamamlandı...");
end
end
function hepsinioku(oku)
for i=1, oku do
okuyucu("CheckBox"..i)
end
end[/codebox]




PAGE - ON PRELOAD

[codebox]labeller()[/codebox]




PAGE - ON TIMER

[codebox]Progress.SetCurrentPos("Progress1",progress());[/codebox]




BÜTÜN CHECKBOX'LAR

[codebox]secme("CheckBox1")
secme("CheckBox2")
secme("CheckBox3")
secme("CheckBox4")
secme("CheckBox5")
Şeklinde Devam Edicek... Tüm Checkbox'lara.[/codebox]




KUR BUTONU

[codebox]sifirla()
hepsinioku("5")
Page.StartTimer(100)
Label.SetText("Label1", "Kurulum Başlıyor..")
Application.Sleep(1000)
kurulum("CheckBox1", "Program 1", "pro1.exe")
kurulum("CheckBox2", "Program 2", "pro2.exe")
kurulum("CheckBox3", "Program 3", "pro3.exe")
kurulum("CheckBox4", "Program 4", "pro4.exe")
kurulum("CheckBox5", "Program 5", "pro5.exe")
Label.SetText("Label1", "Kurulum Sonlandı..")[/codebox]




NOT;
AIO'nuzda Kaç Adet Checkbox Var İse Kur Butonundaki Hepsini Oku Kodunu O Kadar Yapınız.
ÖRNEK;

Eğer AIO'nuzda 10 Adet Checkbox Olduğunu Varsayarsak Kur Butonu Kodlarında Üçüncü Satırdaki Kodu hepsinioku("10") Olarak Değiştireceğiz.
AIO'nuzda 100 Adet Checkbox Varsa Şu Kodlar Yazılacak;




KUR BUTONU

[codebox]sifirla()
hepsinioku("100")
Page.StartTimer(100)
Label.SetText("Label1", "Kurulum Başlıyor..")
Application.Sleep(1000)
kurulum("CheckBox1", "Program 1", "pro1.exe")
kurulum("CheckBox2", "Program 2", "pro2.exe")
kurulum("CheckBox3", "Program 3", "pro3.exe")
kurulum("CheckBox4", "Program 4", "pro4.exe")
kurulum("CheckBox5", "Program 5", "pro5.exe")
kurulum("CheckBox6", "Program 6", "pro6.exe")
kurulum("CheckBox7", "Program 7", "pro7.exe")
kurulum("CheckBox8", "Program 8", "pro8.exe")
kurulum("CheckBox9", "Program 9", "pro9.exe")
kurulum("CheckBox10", "Program 10", "pro10.exe")
kurulum("CheckBox11", "Program 11", "pro11.exe")
kurulum("CheckBox12", "Program 12", "pro12.exe")
kurulum("CheckBox13", "Program 13", "pro13.exe")
kurulum("CheckBox14", "Program 14", "pro14.exe")
kurulum("CheckBox15", "Program 15", "pro15.exe")
kurulum("CheckBox16", "Program 16", "pro16.exe")
kurulum("CheckBox17", "Program 17", "pro17.exe")
kurulum("CheckBox18", "Program 18", "pro18.exe")
kurulum("CheckBox19", "Program 19", "pro19.exe")
kurulum("CheckBox20", "Program 20", "pro20.exe")
kurulum("CheckBox21", "Program 21", "pro21.exe")
kurulum("CheckBox22", "Program 22", "pro22.exe")
kurulum("CheckBox23", "Program 23", "pro23.exe")
kurulum("CheckBox24", "Program 24", "pro24.exe")
kurulum("CheckBox25", "Program 25", "pro25.exe")
kurulum("CheckBox26", "Program 26", "pro26.exe")
kurulum("CheckBox27", "Program 27", "pro27.exe")
kurulum("CheckBox28", "Program 28", "pro28.exe")
kurulum("CheckBox29", "Program 29", "pro29.exe")
kurulum("CheckBox30", "Program 30", "pro30.exe")
kurulum("CheckBox31", "Program 31", "pro31.exe")
kurulum("CheckBox32", "Program 32", "pro32.exe")
kurulum("CheckBox33", "Program 33", "pro33.exe")
kurulum("CheckBox34", "Program 34", "pro34.exe")
kurulum("CheckBox35", "Program 35", "pro35.exe")
kurulum("CheckBox36", "Program 36", "pro36.exe")
kurulum("CheckBox37", "Program 37", "pro37.exe")
kurulum("CheckBox38", "Program 38", "pro38.exe")
kurulum("CheckBox39", "Program 39", "pro39.exe")
kurulum("CheckBox40", "Program 40", "pro40.exe")
kurulum("CheckBox41", "Program 41", "pro41.exe")
kurulum("CheckBox42", "Program 42", "pro42.exe")
kurulum("CheckBox43", "Program 43", "pro43.exe")
kurulum("CheckBox44", "Program 44", "pro44.exe")
kurulum("CheckBox45", "Program 45", "pro45.exe")
kurulum("CheckBox46", "Program 46", "pro46.exe")
kurulum("CheckBox47", "Program 47", "pro47.exe")
kurulum("CheckBox48", "Program 48", "pro48.exe")
kurulum("CheckBox49", "Program 49", "pro49.exe")
kurulum("CheckBox50", "Program 50", "pro50.exe")
kurulum("CheckBox51", "Program 51", "pro51.exe")
kurulum("CheckBox52", "Program 52", "pro52.exe")
kurulum("CheckBox53", "Program 53", "pro53.exe")
kurulum("CheckBox54", "Program 54", "pro54.exe")
kurulum("CheckBox55", "Program 55", "pro55.exe")
kurulum("CheckBox56", "Program 56", "pro56.exe")
kurulum("CheckBox57", "Program 57", "pro57.exe")
kurulum("CheckBox58", "Program 58", "pro58.exe")
kurulum("CheckBox59", "Program 59", "pro59.exe")
kurulum("CheckBox60", "Program 60", "pro60.exe")
kurulum("CheckBox61", "Program 61", "pro61.exe")
kurulum("CheckBox62", "Program 62", "pro62.exe")
kurulum("CheckBox63", "Program 63", "pro63.exe")
kurulum("CheckBox64", "Program 64", "pro64.exe")
kurulum("CheckBox65", "Program 65", "pro65.exe")
kurulum("CheckBox66", "Program 66", "pro66.exe")
kurulum("CheckBox67", "Program 67", "pro67.exe")
kurulum("CheckBox68", "Program 68", "pro68.exe")
kurulum("CheckBox69", "Program 69", "pro69.exe")
kurulum("CheckBox70", "Program 70", "pro70.exe")
kurulum("CheckBox71", "Program 71", "pro71.exe")
kurulum("CheckBox72", "Program 72", "pro72.exe")
kurulum("CheckBox73", "Program 73", "pro73.exe")
kurulum("CheckBox74", "Program 74", "pro74.exe")
kurulum("CheckBox75", "Program 75", "pro75.exe")
kurulum("CheckBox76", "Program 76", "pro76.exe")
kurulum("CheckBox77", "Program 77", "pro77.exe")
kurulum("CheckBox78", "Program 78", "pro78.exe")
kurulum("CheckBox79", "Program 79", "pro79.exe")
kurulum("CheckBox80", "Program 80", "pro80.exe")
kurulum("CheckBox81", "Program 81", "pro81.exe")
kurulum("CheckBox82", "Program 82", "pro82.exe")
kurulum("CheckBox83", "Program 83", "pro83.exe")
kurulum("CheckBox84", "Program 84", "pro84.exe")
kurulum("CheckBox85", "Program 85", "pro85.exe")
kurulum("CheckBox86", "Program 86", "pro86.exe")
kurulum("CheckBox87", "Program 87", "pro87.exe")
kurulum("CheckBox88", "Program 88", "pro88.exe")
kurulum("CheckBox89", "Program 89", "pro89.exe")
kurulum("CheckBox90", "Program 90", "pro90.exe")
kurulum("CheckBox91", "Program 91", "pro91.exe")
kurulum("CheckBox92", "Program 92", "pro92.exe")
kurulum("CheckBox93", "Program 93", "pro93.exe")
kurulum("CheckBox94", "Program 94", "pro94.exe")
kurulum("CheckBox95", "Program 95", "pro95.exe")
kurulum("CheckBox96", "Program 96", "pro96.exe")
kurulum("CheckBox97", "Program 97", "pro97.exe")
kurulum("CheckBox98", "Program 98", "pro98.exe")
kurulum("CheckBox99", "Program 99", "pro99.exe")
kurulum("CheckBox100", "Program 100", "pro100.exe")
Label.SetText("Label1", "Kurulum Sonlandı..")[/codebox]

Edited December 25, 2011 by Legion

[MuhammetAka]

[quote]GLOBAL FUNCTIONS

function labeller()
tWebProperties = {}
tWebProperties.Visible=false;
tWebProperties.Text= "0";
Page.CreateObject(OBJECT_LABEL, "aios", tWebProperties)
tWebPropertie = {}
tWebPropertie.Visible=false;
tWebPropertie.Text= "0";
Page.CreateObject(OBJECT_LABEL, "aiod", tWebPropertie)
end
function sifirla()
Label.SetText("aios", "0")
Label.SetText("aiod", "0")
end
function secme(yazim)
sonuc = CheckBox.GetChecked(yazim)
if not (sonuc) then
aio = {};
aio.FontItalic = false
aio.FontWeight = 100
CheckBox.SetProperties(yazim, aio);
else
aio = {};
aio.FontItalic = true
aio.FontWeight = 700
CheckBox.SetProperties(yazim, aio);
end
end
function okuyucu(yazim)
sonuc = CheckBox.GetChecked(yazim)
if (sonuc) then
oku = Label.GetText("aios")
Label.SetText("aios", oku + 1)
end
end
function yaz()
oku = Label.GetText("aiod")
Label.SetText("aiod", oku + 1)
end
function progress()
tamami = Label.GetText("aios")
parca = Label.GetText("aiod")
return Math.Ceil((parca/tamami)*100)
end
function kurulum(checkboxadi, progadi, progexe)
secilim = CheckBox.GetChecked(checkboxadi);
if (secilim) then
Label.SetText("Label1",progadi.." Sisteminize Kurulurken Lütfen Bekleyin.");
result = File.Run("AutoPlay\\Docs\\"..progexe, "", "", SW_SHOWNORMAL, true);

yaz()
Progress.SetText("Progress1","%"..progress().." Kurulum Tamamlandı...");
end
end
function hepsinioku(oku)
for i=1, oku do
okuyucu("CheckBox"..i)
end
end[/quote]

[color="#FF0000"][size="3"]bu kodu tam olarak nereye eklicem ???[/size][/color]

[NotToday]

Globale işte.Çelışma ekranı dışında sağ tokla görürsün orda

[MuhammetAka]

[quote name='ReaLyMaN' date='24 December 2011 - 22:48 ' timestamp='1324756081' post='1131612']
Globale işte.Çelışma ekranı dışında sağ tokla görürsün orda
[/quote]

bende türkçe versiyon varda hiç dikkat etmemişim teşekkürler

[NotToday]

İngilizce versiyonu kullanırsan çok daha iyi olur.Bazen Türkçeye çeviriler problem çıkartırıyor.

[MuhammetAka]

son bişi daha sormak isterim

[quote]sifirla()
hepsinioku("5")
Page.StartTimer(100)
Label.SetText("Label1", "Kurulum Başlıyor..")
Application.Sleep(1000)
kurulum("CheckBox1", "Program 1", "pro1.exe")
kurulum("CheckBox2", "Program 2", "pro2.exe")
kurulum("CheckBox3", "Program 3", "pro3.exe")
kurulum("CheckBox4", "Program 4", "pro4.exe")
kurulum("CheckBox5", "Program 5", "pro5.exe")
Label.SetText("Label1", "Kurulum Sonlandı..")[/quote]

buradaki pro1.exe leri filan nasıl düzenliyebilirim

mesela masaüstündeki bi programı seçmem lazim

yada kurulum("CheckBox1", "Program 1", "pro1.exe") bu komutu nasıl eylem ekleme sihirbazından yapabilirim

[NotToday]

File.Run komutunu kullan

Edited December 24, 2011 by ReaLyMaN

[murathassoy]

[b]Pro1.exe yazanları [color="#FF0000"]Örneğin[/color] : Winamp.exe gibi değiştir yada Docs klasörüne nasıl eklediysen o şekilde ekle Kısayol olarak işde [/b]

[PColik]

Örneğin kurulacak program Microsoft Office (Tabi %100 Katılımsız Olması Şart) ise ve sen bu Microsoft Office'yi kuran dosyanın adını mesela office2003 olarak değiştirdiysen. Bu dosyayı AutoPlay>Docs içine atacaksın ve bu ilk kurulacak program ise pro1.exe yerine office2003.exe yazacaksın. Anlamadığın bişey varsa sorabilirsin. Fakat siteye fazla sıklıkla girmediğim için geç cevap verebilirim. Kolay gelsin.

[Shain_K]

ben kintaronun kinden yapıyorum bu kodlar da nasıl olacak?

[spoiler]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("CheckBox10") -- 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[/spoiler]

[pilgetir]

Program kurulumunu çalıştıracaksın işte.

[quote]File.Run();[/quote]

[Hackerman02180]

[b]arkadaşlar elinde (.apz) dosyası olan varsa paylaşabilirmi banada lazım[/b]

[NotToday]

@Hackerman02180 nimet niyetine örnek projeler kısmında bir sürü var.

[Shain_K]

spoilerin içindeki kintaronun koduna nasıl yapabilirim?


[spoiler]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("CheckBox10") -- 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[/spoiler]

[pilgetir]

Aynı şeyi iki kere sordun.Diyorum ki File.Run (); komutunu kullan."buraya program kurulum kodu gelecek" yazan yere File.Run ile program yolunu göster.

[Shain_K]

pilgetir isimli abim zaten ben onu biliyorum.benim sorduğum progressbarı nasıl çalıştıracam ?kusuruma bakma belirtmemişim ne istediğimi benim hatam.

[pilgetir]

İkinci mesaja bak PColik isimli arkadaş yazmış.

[Shain_K]

yapamıyom.olmuyor benim kod farklı benim verdiğim koda göre progressbarı nasıl tanımlarım?

[pilgetir]

Kelimelerinden hiçbirşey anlaşılmıyor bir şey tanımlamana gerek yok.

[NotToday]

Mobilim ama fikir veriyim döngüyle check et altınada sayi =sayi+1 yazdır her doğruda sonra da sayı kadar post göderme olayını hallet.Son olarak get post ve aldığın veriyede her kurulum için +1 yap

[NotToday]

[color="#000000"]CheckBoxlara

[quote]nSecilen=CheckBox.GetChecked(this)
if nSecilen == true then
nToplam=nToplam+1
else
nToplam=nToplam-1
end
Label.SetText("Label1", "Kurulacak Program Listesi : \[ "..nToplam.." \]");[/quote]

Kur Butonuna da

[quote]Progress.SetRange("Progress1", 0, nToplam)
for i=1,100,1 do
Secili = CheckBox.GetChecked("CheckBox"..i)
if Secili == true then
nAd= CheckBox.GetText("CheckBox"..i);
Dialog.Message("Notice", nAd, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
File.Run("AutoPlay\\Docs\\"..nAd..".exe", "", "", SW_SHOWNORMAL, false);
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
end
end[/quote]

Yazarsanız tam istediğiniz gibi olur.Bu örnektir.Kendinize göre düzenlersiniz.[/color]