baba18

[codebox]--###### Progress Ayarları ########## nToplam = 0; for i=1,35 do if CheckBox.GetChecked("CheckBox" .. i) then nToplam = nToplam+1 end end Progress.SetRange("Progress1", 0, nToplam) Progress.SetCurrentPos("Progress1", 0)[/codebox] yukarıdaki kısmamı eklicem nYuzde = Math.Round(100 / nToplam, 0) + 1; Progress.SetRange("Progress1", 0, 100); bu kodları

Arkadaşlar Birkaç Sorunum var yardımcı olabilrseniz 1 - İlerleme Çubugunda Yüzde Olarak Göstermek İstiyorum 2 - Seçilen Programların Sayısını Göstermek İstiyorum 3 - Program Kurulurken Yeni Pencerede %19.. buprogramkuruluyor die pencere göstermek istiyorum. [b]son aşamalarım bunlar kaldı kur kodu aşağıdaki neresinde nasıl bir yol izlemem lazım...[/b] [code]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 c11 = CheckBox.GetChecked("CheckBox11") -- 11. checkboxun seçili olup olmadığına bak c12 = CheckBox.GetChecked("CheckBox12") -- 12. checkboxun seçili olup olmadığına bak c13 = CheckBox.GetChecked("CheckBox13") -- 13. checkboxun seçili olup olmadığına bak c14 = CheckBox.GetChecked("CheckBox14") -- 14. checkboxun seçili olup olmadığına bak c15 = CheckBox.GetChecked("CheckBox15") -- 15. checkboxun seçili olup olmadığına bak c16 = CheckBox.GetChecked("CheckBox16") -- 16. checkboxun seçili olup olmadığına bak c17 = CheckBox.GetChecked("CheckBox17") -- 17. checkboxun seçili olup olmadığına bak c18 = CheckBox.GetChecked("CheckBox18") -- 18. checkboxun seçili olup olmadığına bak c19 = CheckBox.GetChecked("CheckBox19") -- 19. checkboxun seçili olup olmadığına bak c20 = CheckBox.GetChecked("CheckBox20") -- 20. checkboxun seçili olup olmadığına bak c21 = CheckBox.GetChecked("CheckBox21") -- 21. checkboxun seçili olup olmadığına bak c22 = CheckBox.GetChecked("CheckBox22") -- 22. checkboxun seçili olup olmadığına bak c23 = CheckBox.GetChecked("CheckBox23") -- 23. checkboxun seçili olup olmadığına bak c24 = CheckBox.GetChecked("CheckBox24") -- 24. checkboxun seçili olup olmadığına bak c25 = CheckBox.GetChecked("CheckBox25") -- 25. checkboxun seçili olup olmadığına bak c26 = CheckBox.GetChecked("CheckBox26") -- 26. checkboxun seçili olup olmadığına bak c27 = CheckBox.GetChecked("CheckBox27") -- 27. checkboxun seçili olup olmadığına bak c28 = CheckBox.GetChecked("CheckBox28") -- 28. checkboxun seçili olup olmadığına bak c29 = CheckBox.GetChecked("CheckBox29") -- 29. checkboxun seçili olup olmadığına bak c30 = CheckBox.GetChecked("CheckBox30") -- 30. checkboxun seçili olup olmadığına bak c31 = CheckBox.GetChecked("CheckBox31") -- 31. checkboxun seçili olup olmadığına bak c32 = CheckBox.GetChecked("CheckBox32") -- 32. checkboxun seçili olup olmadığına bak c33 = CheckBox.GetChecked("CheckBox33") -- 33. checkboxun seçili olup olmadığına bak c34 = CheckBox.GetChecked("CheckBox34") -- 34. checkboxun seçili olup olmadığına bak c35 = CheckBox.GetChecked("CheckBox35") -- 35. checkboxun seçili olup olmadığına bak --###### Progress Ayarları ########## nToplam = 0; for i=1,35 do if CheckBox.GetChecked("CheckBox" .. i) then nToplam = nToplam+1 end end Progress.SetRange("Progress1", 0, nToplam) Progress.SetCurrentPos("Progress1", 0) --##################################### if c1 then -- eğer 1. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\1.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır 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 c2 then -- eğer 2. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\2.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Autorun Deactivator 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 nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\3.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "AVG ANTIVURUS 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 nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\4.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Ccleaner 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 nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\5.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Direct 9.0 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 nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\6.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "ESET 4 Tr 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 nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\7.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır 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 c8 then -- eğer 8. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\8.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Flash Paketi 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 nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\9.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Google Chrome 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 nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\10.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "KLite kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c11 then -- eğer 11. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\11.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "MS.Office 2003 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c12 then -- eğer 12. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\12.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Nero7 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c13 then -- eğer 13. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\13.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Open Office kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c14 then -- eğer 14. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\14.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Firefox TR kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c15 then -- eğer 15. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\15.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Photo Slideshow kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c16 then -- eğer 16. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\16.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Skype kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c17 then -- eğer 17. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\17.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Total VIDEO CONVRTR kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c18 then -- eğer 18. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\18.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "VLC Final kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c19 then -- eğer 19. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\19.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Windows Live kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c20 then -- eğer 20. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\20.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "WinRaR Tr kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c21 then -- eğer 21. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\21.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Yahoo kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c22 then -- eğer 22. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\22.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Adobe Reader 9 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c23 then -- eğer 23. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\23.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Photoshop Cs4 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c24 then -- eğer 24. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\24.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Media Player 11 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c25 then -- eğer 25. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\25.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Winamp Pro 5.81 + DFX kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c26 then -- eğer 26. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\26.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Teamviewer 5.0 TR kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c27 then -- eğer 27. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\27.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Opera 10 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c28 then -- eğer 28. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\28.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Ashampoo Burning Studio 10 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c29 then -- eğer 29. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\29.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Daemon Tools Pro 4.10 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c30 then -- eğer 30. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\30.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Java Update 6.1 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c31 then -- eğer 31. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\31.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Net Fremork 1-2-3-4 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c32 then -- eğer 32. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\32.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Windows Installer 3-1 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c33 then -- eğer 33. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\33.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Usb Disk Security 5-4 TR kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c34 then -- eğer 34. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\34.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "İnternet Dowland Menager") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c35 then -- eğer 35. checkbox seçili ise nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) File.Run("AutoPlay\\Docs\\35.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Ofis 2007") -- 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("wwww.ıı I Net I Org", "Seçtigin Programları Yükledim Abi.Varsa Başka Emrin Söyle ") 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("wwww.ıı I Net I Org", "Seçtigin Programları Yükledim Abi.Varsa Başka Emrin Söyle ") end [/code]

Çok Tesekkürler korasoglu & KintaRo harika oldu. son birşey istesem bide aynı seçilde sunu yapmak istiyorum. seçilen programlar : 0 gibi birsey nasıl dahil ederim bu kodlara.

Saol ama tam olarak anlamadım.hangisini hangisine eklicemi. ben sayfa üzerinde sag tıklıyorum ilerleme çubugu ekliyorum öylece kalıyor.

Mrb Arkadaşlar Ams ye İlerleme Çubugu Nasıl Eklenir. kodlarım su sekilde [codebox]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 c11 = CheckBox.GetChecked("CheckBox11") -- 11. checkboxun seçili olup olmadığına bak c12 = CheckBox.GetChecked("CheckBox12") -- 12. checkboxun seçili olup olmadığına bak c13 = CheckBox.GetChecked("CheckBox13") -- 13. checkboxun seçili olup olmadığına bak c14 = CheckBox.GetChecked("CheckBox14") -- 14. checkboxun seçili olup olmadığına bak c15 = CheckBox.GetChecked("CheckBox15") -- 15. checkboxun seçili olup olmadığına bak c16 = CheckBox.GetChecked("CheckBox16") -- 16. checkboxun seçili olup olmadığına bak c17 = CheckBox.GetChecked("CheckBox17") -- 17. checkboxun seçili olup olmadığına bak c18 = CheckBox.GetChecked("CheckBox18") -- 18. checkboxun seçili olup olmadığına bak c19 = CheckBox.GetChecked("CheckBox19") -- 19. checkboxun seçili olup olmadığına bak c20 = CheckBox.GetChecked("CheckBox20") -- 20. checkboxun seçili olup olmadığına bak c21 = CheckBox.GetChecked("CheckBox21") -- 21. checkboxun seçili olup olmadığına bak c22 = CheckBox.GetChecked("CheckBox22") -- 22. checkboxun seçili olup olmadığına bak c23 = CheckBox.GetChecked("CheckBox23") -- 23. checkboxun seçili olup olmadığına bak c24 = CheckBox.GetChecked("CheckBox24") -- 24. checkboxun seçili olup olmadığına bak c25 = CheckBox.GetChecked("CheckBox25") -- 25. checkboxun seçili olup olmadığına bak c26 = CheckBox.GetChecked("CheckBox26") -- 26. checkboxun seçili olup olmadığına bak c27 = CheckBox.GetChecked("CheckBox27") -- 27. checkboxun seçili olup olmadığına bak c28 = CheckBox.GetChecked("CheckBox28") -- 28. checkboxun seçili olup olmadığına bak c29 = CheckBox.GetChecked("CheckBox29") -- 29. checkboxun seçili olup olmadığına bak c30 = CheckBox.GetChecked("CheckBox30") -- 30. checkboxun seçili olup olmadığına bak c31 = CheckBox.GetChecked("CheckBox31") -- 31. checkboxun seçili olup olmadığına bak c32 = CheckBox.GetChecked("CheckBox32") -- 32. checkboxun seçili olup olmadığına bak c33 = CheckBox.GetChecked("CheckBox33") -- 33. checkboxun seçili olup olmadığına bak if c1 then -- eğer 1. checkbox seçili ise File.Run("AutoPlay\\Docs\\1.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır 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 c2 then -- eğer 2. checkbox seçili ise File.Run("AutoPlay\\Docs\\2.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Autorun Deactivator 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 File.Run("AutoPlay\\Docs\\3.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "AVG ANTIVURUS 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 File.Run("AutoPlay\\Docs\\4.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Ccleaner 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 File.Run("AutoPlay\\Docs\\5.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Direct 9.0 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 File.Run("AutoPlay\\Docs\\6.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "ESET 4 Tr 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 File.Run("AutoPlay\\Docs\\7.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır 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 c8 then -- eğer 8. checkbox seçili ise File.Run("AutoPlay\\Docs\\8.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Flash Paketi 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 File.Run("AutoPlay\\Docs\\9.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Google Chrome 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 File.Run("AutoPlay\\Docs\\10.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "KLite kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c11 then -- eğer 11. checkbox seçili ise File.Run("AutoPlay\\Docs\\11.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "MS.Office 2003 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c12 then -- eğer 12. checkbox seçili ise File.Run("AutoPlay\\Docs\\12.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Nero7 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c13 then -- eğer 13. checkbox seçili ise File.Run("AutoPlay\\Docs\\13.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Open Office kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c14 then -- eğer 14. checkbox seçili ise File.Run("AutoPlay\\Docs\\14.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Firefox TR kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c15 then -- eğer 15. checkbox seçili ise File.Run("AutoPlay\\Docs\\15.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Photo Slideshow kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c16 then -- eğer 16. checkbox seçili ise File.Run("AutoPlay\\Docs\\16.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Skype kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c17 then -- eğer 17. checkbox seçili ise File.Run("AutoPlay\\Docs\\17.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Total VIDEO CONVRTR kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c18 then -- eğer 18. checkbox seçili ise File.Run("AutoPlay\\Docs\\18.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "VLC Final kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c19 then -- eğer 19. checkbox seçili ise File.Run("AutoPlay\\Docs\\19.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Windows Live kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c20 then -- eğer 20. checkbox seçili ise File.Run("AutoPlay\\Docs\\20.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "WinRaR Tr kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c21 then -- eğer 21. checkbox seçili ise File.Run("AutoPlay\\Docs\\21.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Yahoo kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c22 then -- eğer 22. checkbox seçili ise File.Run("AutoPlay\\Docs\\22.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Adobe Reader 9 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c23 then -- eğer 23. checkbox seçili ise File.Run("AutoPlay\\Docs\\23.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Photoshop Cs4 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c24 then -- eğer 24. checkbox seçili ise File.Run("AutoPlay\\Docs\\24.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Media Player 11 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c25 then -- eğer 25. checkbox seçili ise File.Run("AutoPlay\\Docs\\25.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Winamp Pro 5.81 + DFX kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c26 then -- eğer 26. checkbox seçili ise File.Run("AutoPlay\\Docs\\26.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Teamviewer 5.0 TR kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c27 then -- eğer 27. checkbox seçili ise File.Run("AutoPlay\\Docs\\27.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Opera 10 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c28 then -- eğer 28. checkbox seçili ise File.Run("AutoPlay\\Docs\\28.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Ashampoo Burning Studio 10 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c29 then -- eğer 29. checkbox seçili ise File.Run("AutoPlay\\Docs\\29.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Daemon Tools Pro 4.10 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c30 then -- eğer 30. checkbox seçili ise File.Run("AutoPlay\\Docs\\30.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Java Update 6.1 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c31 then -- eğer 31. checkbox seçili ise File.Run("AutoPlay\\Docs\\31.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Net Fremork 1-2-3-4 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c32 then -- eğer 32. checkbox seçili ise File.Run("AutoPlay\\Docs\\32.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Windows Installer 3-1 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) end if c33 then -- eğer 33. checkbox seçili ise File.Run("AutoPlay\\Docs\\33.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır Paragraph.SetText("Paragraph1", "Usb Disk Security 5-4 TR 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("wwww.ıı I Net I Org", "Seçtigin Programları Yükledim Abi.Varsa Başka Emrin Söyle ") 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("wwww.ıı I Net I Org", "Seçtigin Programları Yükledim Abi.Varsa Başka Emrin Söyle ") end[/codebox]

Peki Arkadaşlar aynı kodların içine program yüklenirken ilerleme çubugu nasıl ekleriz. ayrıca kaç programın seçildigini aşagıda nasıl gösterebiliriz.

Peki herşeyi tamamladım ancak söylebi problem var [code]-- 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 [/code] Buradaki c9 c10 kodları c24 e kadar gidiyor.benim programlarım ortalama 50 adet kurulum tamamlandı mesajı vermesi gerekirken hiç seçim yapılmamıs mesajı veriyor. ayrıca c1 == false c2 == false de belli bir yere kadar gidiyor daha fazla eklenmiyor.bunu nasıl çözebiliriz...

Merhaba Arkadaşlar şöyle bi problemim var programlar CheckBox ları tamam hepsini seçtirip kurdurabiliyorum Ancak kutucugu kaldırdıgım zaman hepsi yine seçili kalıyor. Birde Program Kurulurken Sagda Veya Ekranın Ortasında Resim Eklenebiliyormu... Kod Yapısı Şu Şekilde Tümünü Seç CheckBox CheckBox.SetChecked("CheckBox1", true) CheckBox.SetChecked("CheckBox2", true) CheckBox.SetChecked("CheckBox3", true) CheckBox.SetChecked("CheckBox4", true) CheckBox.SetChecked("CheckBox5", true) CheckBox.SetChecked("CheckBox6", true) CheckBox.SetChecked("CheckBox7", true) CheckBox.SetChecked("CheckBox8", true) CheckBox.SetChecked("CheckBox9", true) CheckBox.SetChecked("CheckBox10", true) CheckBox.SetChecked("CheckBox11", true) CheckBox.SetChecked("CheckBox12", true) CheckBox.SetChecked("CheckBox13", true) CheckBox.SetChecked("CheckBox14", true) CheckBox.SetChecked("CheckBox15", true) CheckBox.SetChecked("CheckBox16", true) CheckBox.SetChecked("CheckBox17", true) CheckBox.SetChecked("CheckBox18", true) CheckBox.SetChecked("CheckBox19", true) CheckBox.SetChecked("CheckBox20", true) CheckBox.SetChecked("CheckBox21", true) CheckBox.SetChecked("CheckBox22", true) CheckBox.SetChecked("CheckBox23", true) secme("CheckBox1") secme("CheckBox2") secme("CheckBox3") secme("CheckBox4") secme("CheckBox5") secme("CheckBox6") secme("CheckBox7") secme("CheckBox8") secme("CheckBox9") secme("CheckBox10") secme("CheckBox11") secme("CheckBox12") secme("CheckBox13") secme("CheckBox14") secme("CheckBox15") secme("CheckBox16") secme("CheckBox17") secme("CheckBox18") secme("CheckBox19") secme("CheckBox20") secme("CheckBox21") secme("CheckBox22") secme("CheckBox23")