Jump to content

G246kmenYildirim

Üye
  • Posts

    23
  • Joined

  • Last visited

Posts posted by G246kmenYildirim

  1. Bay_KG emeğine sağlık verdiğin kodlar çok işime yaradı çok tşkler  aşağıdaki kısayolları böyle kodlarla masa üstüne kısayol atmak mümkün mü

     

    Bilgisayarım 
    Geri Dönüşüm Kutusu                    Bunlara tek bir hamle ile nasıl masa üstüne kısayol Atabiliriz arkadaşımız yapmış ama sistem bitine göre sorun veriyor 
    Internet Explorer                            sistem biti ne olursa ona göre yapsın sorun olmadan bunu yapmak mümkün mü
    Kullanıcı Dosyaları 
     Ağ
     
    #soru #yardım #destek

  2. Bilgisayarım 
    Geri Dönüşüm Kutusu                    Bunlara tek bir hamle ile nasıl masa üstüne kısayol Atabiliriz arkadaşımız yapmış ama sistem bitine göre sorun veriyor 
    Internet Explorer                            sistem biti ne olursa ona göre yapsın sorun olmadan bunu yapmak mümkün mü
    Kullanıcı Dosyaları 
     
     
    #soru #yardım #destek

  3. merhaba arkadaşlar evet yazılım orjinal olmayınca update kapatılıyor

    AMS de sistemin orjınal olup olmadığına nasıl bakabiliriz yani formatı attık programları kurarken unutmayalım diye orjinellemek için program çalıştığında sistemin versiyonu hangi işletim sistemi olduğunu gösteren var ama orjinallığı gösterebilirmiyiz

  4.  

    Windows'un içinde kurulu programların listesi Regedit'te var. Ordan şu fonksiyonla arama yapabilir duruma göre işlem yapabilirsiniz:

    Global Functions:
     

    bulundu = false;
    function isimAra(isim)
    bulundu = false;
    tKeys = Registry.GetKeyNames(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall") -- anahtar isimlerini al
    	for i,v in pairs(tKeys) do
    	name = Registry.GetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\" .. v, "DisplayName", true)
    	nAra = String.Find(name, isim, 1, false)
    		if nAra ~= -1 then
    		bulundu = true;
    		end
    	end
    end

    Kullanım:

    sDialog = Dialog.Input("Program Arama", "Aranacak ismi giriniz:", "", MB_ICONQUESTION)
    isimAra(sDialog)
    
    if bulundu then
    Dialog.Message("", "program bulundu")
    end
    if q50 then  ----Nero 2015 Platinum------Nero 2015 Platinum-------------Nero 2015 Platinum--------------------------
    Label.SetText("Label2", "Nero 2015 Platinum");
    nPos = Progress.GetCurrentPos("Progress1")
    Progress.SetCurrentPos("Progress1", nPos+1)
    Progress.SetText("Progress1", "%" .. Math.Round(((nPos+1)/SecilenSayisi)*100), 2)
    q50 = File.Run("AutoPlay\\Docs\\Nero 2015 Platinum 16.0.03000 Final TR.exe", "", "", SW_SHOWNORMAL, true);
    Application.Sleep(100)
    end ---Nero 2015 Platinum------------Nero 2015 Platinum---------------Nero 2015 Platinum---------------Nero 2015 Platinum-
    
    

    Kurulum Kodlarım böyle buna göre bu sistede olan programı tekrar kurmaması için nasıl kullanabilirim 

    yani yoksa kuracak varsa sıradaki kuruluma devam edecek 

  5.  

    Otomatik Güncellemeleri Kapatmak için:

    Registry.SetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\WindowsUpdate\\Auto Update", "AUOptions", "1", REG_DWORD);

    Açmak için:

    Registry.SetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\WindowsUpdate\\Auto Update", "AUOptions", "0", REG_DWORD);

    UAC Kapama:

    Registry.SetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Policies\\System", "EnableLUA", "0", REG_DWORD);
    

    UAC Açma:

    Registry.SetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Policies\\System", "EnableLUA", "1", REG_DWORD);args, "", SW_HIDE, false);

    Güvenlik Duvarı Komple Kapama:

    File.Run(_SystemFolder.."\\cmd.exe", "/c netsh advfirewall set  allprofiles state off", "", SW_HIDE, false);

    Güvenlik Duvarı Açma:

    File.Run(_SystemFolder.."\\cmd.exe", "/c netsh advfirewall set allprofiles state on", "", SW_HIDE, false);

     

     

    SORU :Çok Teşekkürler Arkadaşım emeğine sağlık bu şekilde Kullanıcı Hesabı Denetimi Ayarlarını da ''beni hiçbir zaman uyarma'' şeklinde değiştirmemiz mümkün mü acaba 

    soranken cevap önümdeymiş  uac buymuş zaten  :)) 

  6. Arkadaşlar merhaba;

    2 sorum olacak anlayan arkadaşlardan yardım rica edicem

     
    Burada bulduğum bir arkadaşımızdan emeğine sağlık teşekkürler  ''AutoPlay Animation''   Adlı bir animasyon program kurulurken loding hereketli bir görtü

     

    q1 = File.run(''AutoPlay\\Docs\\AutoPlay Animation\\Autorun.exe, '''','''' SW_SHOWNORMAL, TRUE)

     

     ile çalıştırıyorum kurulum bitince bu animasyon kapatmak için nasıl bir kod kullanmalıyım

     

    programda kullandığım progress kurulum tamamlandıktan sonra 100/100 olarak kalıyor bunu da sıfırlayabilirmiyim  ilgilenen arkadaşlara şimdiden tşk ederim

  7.  

    şimdi apz de hazır bana yardımın için tşk ediyorum ...

    hani bunu böyle yapsaydın gibi öneri yapacağın  bir şey olursa yardımcı olursan sevinirim 

    benim yapmak istediğimi becersem sorun yok

    asm ye : programa hakim olmak istiyorum kitabı  aradım bulamadım

    buradaki dersler yeterli gelmiiyor daha çok detay lazım kodlar için sanırım neyse apz burda

     

     

     

     

     

     

    http://www.mediafire.com/download/pkafk8lz5uav856/800-600+%C3%A7%C3%B6c%C3%BCn%C3%BCrl%C3%BCk+i%C3%A7in+2014+yeni.apz

     

     

     

     

                                                                                                                                    tşkler TNC TR asm 

     

    asm bilen arkadaşlardan destek bekliyorum bi el atabilirseniz çok sevinecem 

  8. şimdi apz de hazır bana yardımın için tşk ediyorum ...

    hani bunu böyle yapsaydın gibi öneri yapacağın  bir şey olursa yardımcı olursan sevinirim 

    benim yapmak istediğimi becersem sorun yok

    asm ye : programa hakim olmak istiyorum kitabı  aradım bulamadım

    buradaki dersler yeterli gelmiiyor daha çok detay lazım kodlar için sanırım neyse apz burda

     

     

     

     

     

     

    http://www.mediafire.com/download/pkafk8lz5uav856/800-600+%C3%A7%C3%B6c%C3%BCn%C3%BCrl%C3%BCk+i%C3%A7in+2014+yeni.apz

     

     

     

     

                                                                                                                                    tşkler TNC TR ailesi

  9. Apz almada  sorun yok  nereye yükleyeceğim sorundu  onuda buldum hallettim şükür...

    şimdi apz de hazır bana yardımın için tşk ediyorum ...

    hani bunu böyle yapsaydın gibi öneri yapacağın  bir şey olursa yardımcı olursan sevinirim 

    benim yapmak istediğimi becersem sorun yok

    asm ye : programa hakim olmak istiyorum kitabı  aradım bulamadım

    buradaki dersler yeterli gelmiiyor daha çok detay lazım kodlar için sanırım neyse apz burda

     

     

     

     

     

     

    http://www.mediafire.com/download/pkafk8lz5uav856/800-600+%C3%A7%C3%B6c%C3%BCn%C3%BCrl%C3%BCk+i%C3%A7in+2014+yeni.apz

     

     

     

     

                                                                                                                                    tşkler TNC TR ailesi

  10. merhaba arkadaşlar

    ben bir yardımcı program yapmıştım basit tabi amatörüm ama checboxlarla oto kurulum sizden yardım istiyorum anlayan arkadaşlar

     

    şimdi derdime yardımcı olan 

    KintaRo 

    arkadaşımın yardımıyla bunu yapmıştım 

     

    Windowsarrow-10x10.png'un içinde kurulu programların listesi Regedit'te var. Ordan şu fonksiyonla arama yapabilir duruma göre işlem yapabilirsiniz:

    Global Functions:
     

    •  
    •  
    1. bulundu = false;
    2. function isimAra(isim)
    3. bulundu = false;
    4. tKeys = Registry.GetKeyNames(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windowsarrow-10x10.png\\CurrentVersion\\Uninstall") -- anahtar isimlerini al
    5.     for i,v in pairs(tKeys) do
    6.     name = Registry.GetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\" .. v, "DisplayName", true)
    7.     nAra = String.Find(name, isim, 1, false)
    8.         if nAra ~= -1 then
    9.         bulundu = true;
    10.         end
    11.     end
    12. end

     

    Kullanım:

     

    •  
    •  
    1. sDialog = Dialog.Input("Program Arama", "Aranacak ismi giriniz:", "", MB_ICONQUESTION)
    2. isimAra(sDialog)
    3.  
    4. if bulundu then
    5. Dialog.Message("", "program bulundu")
    6. end

     

    şimdi amacım

    1 mesela checkbox winrar kuracak,  tabi bu hepsini seçip kur dediğimde kuran  bir tasarım

    programlarımızı seçtik 5 tane diyelim kurmadan önce bunları sistemimizde olup olmadığına baksa ve öyle kursa bunu beceremedim 

    1 winzip

    2 winrar

    3 skype

    4 gomplayer

    5 winnap   bunları seçtip kur dedik sırasıyla bire bakacak yüklümü değilmi diye yüklüyse sıradakine atlayacak  değilse kuracak.kintaro arkadaştan aldığım destek manuel kendim yazarak bakıyorum program varmı yokmu diye umarım istediğimi anlatabildim bana yardımcı olabilirseniz çok sevinirim yeni proje apz yok daha düşünüyorum yapma aşamasın bişey yok ondan eklemedim ufak bir örnek yada kodla yardım edebilirmisiniz şimdiden ÇOK tşk  TNC TR Ekibi

     

  11. Aynen şart ile yapacaksınız. 1 tanesi için örnek vereyim:

    if c1 then -- eğer 2. checkbox seçili ise
    c1 = CheckBox.GetChecked("WinRAR3.80tr.silent") -- 1. checkboxun seçili olup olmadığına bak
    c1_isim = "winrar"
    isimAra(c1_isim)
    	if bulundu == false then
    	File.Run("AutoPlay\\Docs\\Medya Araçları\\K-Lite Codec Pack 9.7.5.exe", "", "", SW_SHOWNORMAL, true);
    	end
    end

     

    selam arkadaşım anca fırsat buldum ama bu komudu kurulumu butonuna koydum fakat sistemde winrar olsada olmasada kuruyor bir yanlışlık var sanırım yukarıdaki gibi yazdım olmadı şart sağlandığı için gene kuruyor 

     

    if c1 then -- eğer 1. checkbox seçili ise
    c1 = CheckBox.GetChecked("WinRAR3.80tr.silent") -- 1. checkboxun seçili olup olmadığına bak
    c1_isim = "winrar"
    isimAra(c1_isim)
    if bulundu == false then
    result = Dialog.Message("bilgilendirme", "sisteminizde win rar bulunmaktadır", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
     
    else
    File.Run("AutoPlay\\Docs\\Sıkıştırma Açma\\WinRAR3.80tr.silent.exe", "", "", SW_SHOWNORMAL, true);
    result = Dialog.Message("bilgilendirmeeeee", "win rar sistemde yok ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
    end

     şart sağlanmadığı halde gene kuruyor  istediğim sistemde varsa kurmaması hata nerede acaba 

  12.                 merhaba arkadaşlar  ben gökmen endüstriyel teknikeri ve pc teknik servisiyiz dükkanımız var ve yapmış olduğum programda biraz desteğe ihtiyacım var mümkünse çok sevinirim 
                   

                    CheckBoxlarla oto kurulum programı yaptım format sonrası işimiz ve zamanımız değerli oldu için çok faydası oluyor amacım standart yüklenecek programları normal bir kullanıcılar için gerekli olanlar bunu önce sistemde yüklü olup olmadığına baksa ve ona göre kurması mümkün mü.....

                   

                   şu anda seçilenlerin hepsi aynı anda kuruluyor..ama yüklü olup olmadığına bakmayı eklersek güzel olur nasıl yaparız örnek le yardımcı olurmusunuz ve şu anda tüm programlar aynı anda kuruluyor düzeltebilirmiyiz biri bittikten sonra diğerine geçse...
                   

                   programım sistemi algılayıp xp için office 2003 ve seven7 içinse office 2007 açıyor standart kuruluma bunu bir butan veya ne olursa seçtiğimizde sistem algılamayı pasif yapsa olurmu beceremedim 

     

     

     

    projemin apz dosyası yardımcı olursanız çok sevinecem 


    http://www.mediafire.com/?r4g8owlsdhp5m96

×
×
  • Create New...