Jump to content

İlerleme Çubugu Nasıl Eklenir?


baba18
 Share

Recommended Posts

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]

Link to comment
Share on other sites

Global
baba18 = 0;
On Show
Page.StartTimer(100, 3)
Sayfa On Timer
if e_ID == 3 then
Paragraph.SetText("baba18", baba18 .. "")--baba18 Pragrafın adı seninkine göre düzenle
end
Button On Clik'e
Progress.SetRange("Progress1", 0, baba18)
Progress.SetCurrentPos("Progress1", 0)
Progress.SetVisible("Progress1", true); Eger gizliyse Bu Görününur Yapar
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
Progress.SetVisible("Progress1", true); kurulum sonu gizleyeceksen Yalniz bunu En son CheckBox'tan sonra yaz tamamdır.

Edited by korasoglu
Link to comment
Share on other sites

Progressi ilerletmek için kodlar su sekilde olmali:

[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

--###### Progress Ayarları ##########
nToplam = 0;
for i=1,33 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



-- 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]

Link to comment
Share on other sites

Ç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.

Edited by baba18
Link to comment
Share on other sites

  • 2 hafta sonra ...

@ KintaRo

Üstadım progress barı checkbox için çok güzel anlatmışsın. Fakat CheckBox yerine ComboBox olursa kodların nasıl olması gerekir. Ben e-imza ile ilgili bir AMS hazırlıyorum, belki forumda görmüşündür, yapamadığım birkaç şey hakkında konu açmıştım. Hepinize teşekkür ederim yardımcı oluyorsunuz. Bende 2 adet ComboBox var ve her ikisinde de 2 seçenek var. Progress bar ile yapmak istediğim seçenekler seçilip kurulum başladığında progress barın her ikisi için çalışması yani her combobox için ayrı olmasın istiyorum. Bittikten sonra da kurulum bitti diye bir mesaj versin.

Link to comment
Share on other sites

@ KintaRo

Yukarıda bahsettiğim konuyla ilgili uygulamayı [url="http://www.tnctr.com/topic/173171-e-imza-otomatik-kurulum/"]http://www.tnctr.com/topic/173171-e-imza-otomatik-kurulum/[/url] konu başlığı olarak açtım. Zaten orada yapamadığım şeyleri yazdım üstadım. Bir de yukarıda bahsettiğim gibi bu programa progressbar nasıl eklenebilir. Çünkü tüm kurulumların tek bir progressbar' da olmasını istiyorum. Yani her kurulum için ayrı ayrı progressbar olmasın. Ama progressbar' ın açıldığı pencerede blgi olarak hangi programın kurulduğunu yazabilir. Şimdiden yardımların için teşekkürler üstadım.... Bir de benim bahsettiğim konu başlığına bir bakar mısın? Kodlar çok mu karışık olmuş?

Link to comment
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...