Gittigidiyor Reklam

autoplaymedia studio

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

Bu konu 3154 kez görüntülendi ve 1 yorum aldı ...

    Konuyu değerlendir: autoplaymedia studio

    5 üzerinden 5.00 | Toplam: 7 kişi oyladı ve 3154 kez incelendi.


Toplam 2 adet sonuctan sayfa basi 1 ile 2 arasi kadar sonuc gösteriliyor
  1. #1

    Yeni autoplaymedia studio

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



  2. #2

    Standart

    Kur butonu oluştur /On Click evresine

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

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

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

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

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

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

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

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

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

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

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

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

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


    Kurulumda yüzdelik çıkmasını istiyorsansa

    Global Functions Evresine


    nSayi = 0;

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


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

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

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

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

+Sedat Yücel