nightmare3519 Posted October 29, 2011 Share Posted October 29, 2011 (edited) Edited September 2, 2014 by nightmare3519 Quote Link to comment Share on other sites More sharing options...
PColik Posted October 29, 2011 Share Posted October 29, 2011 (edited) 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 Quote Link to comment Share on other sites More sharing options...
MuhammetAka Posted December 24, 2011 Share Posted December 24, 2011 [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] Quote Link to comment Share on other sites More sharing options...
NotToday Posted December 24, 2011 Share Posted December 24, 2011 Globale işte.Çelışma ekranı dışında sağ tokla görürsün orda Quote Link to comment Share on other sites More sharing options...
MuhammetAka Posted December 24, 2011 Share Posted December 24, 2011 [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 Quote Link to comment Share on other sites More sharing options...
NotToday Posted December 24, 2011 Share Posted December 24, 2011 İngilizce versiyonu kullanırsan çok daha iyi olur.Bazen Türkçeye çeviriler problem çıkartırıyor. Quote Link to comment Share on other sites More sharing options...
MuhammetAka Posted December 24, 2011 Share Posted December 24, 2011 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 Quote Link to comment Share on other sites More sharing options...
NotToday Posted December 24, 2011 Share Posted December 24, 2011 (edited) File.Run komutunu kullan Edited December 24, 2011 by ReaLyMaN Quote Link to comment Share on other sites More sharing options...
murathassoy Posted December 29, 2011 Share Posted December 29, 2011 [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] Quote Link to comment Share on other sites More sharing options...
PColik Posted December 30, 2011 Share Posted December 30, 2011 Ö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. Quote Link to comment Share on other sites More sharing options...
Shain_K Posted December 30, 2011 Share Posted December 30, 2011 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] Quote Link to comment Share on other sites More sharing options...
pilgetir Posted December 30, 2011 Share Posted December 30, 2011 Program kurulumunu çalıştıracaksın işte. [quote]File.Run();[/quote] Quote Link to comment Share on other sites More sharing options...
Hackerman02180 Posted December 30, 2011 Share Posted December 30, 2011 [b]arkadaşlar elinde (.apz) dosyası olan varsa paylaşabilirmi banada lazım[/b] Quote Link to comment Share on other sites More sharing options...
NotToday Posted December 30, 2011 Share Posted December 30, 2011 @Hackerman02180 nimet niyetine örnek projeler kısmında bir sürü var. Quote Link to comment Share on other sites More sharing options...
Shain_K Posted December 30, 2011 Share Posted December 30, 2011 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] Quote Link to comment Share on other sites More sharing options...
pilgetir Posted December 30, 2011 Share Posted December 30, 2011 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. Quote Link to comment Share on other sites More sharing options...
Shain_K Posted December 30, 2011 Share Posted December 30, 2011 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. Quote Link to comment Share on other sites More sharing options...
pilgetir Posted December 30, 2011 Share Posted December 30, 2011 İkinci mesaja bak PColik isimli arkadaş yazmış. Quote Link to comment Share on other sites More sharing options...
Shain_K Posted December 30, 2011 Share Posted December 30, 2011 yapamıyom.olmuyor benim kod farklı benim verdiğim koda göre progressbarı nasıl tanımlarım? Quote Link to comment Share on other sites More sharing options...
pilgetir Posted December 30, 2011 Share Posted December 30, 2011 Kelimelerinden hiçbirşey anlaşılmıyor bir şey tanımlamana gerek yok. Quote Link to comment Share on other sites More sharing options...
NotToday Posted December 30, 2011 Share Posted December 30, 2011 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 Quote Link to comment Share on other sites More sharing options...
NotToday Posted January 4, 2012 Share Posted January 4, 2012 [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] Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.