Jump to content

Cyph3r

Super Moderator
  • Posts

    10053
  • Joined

  • Last visited

  • Days Won

    26

Posts posted by Cyph3r

  1. checkbox objelerini saydırmakta sıkıntı var gibi geldi bana...

     

    DivaneTR nin buna benzer bir çalışmasındaki fonksiyonu ekleyip ortaya karışık bişey yaptım... kısmen oldu gibi... kodlara bakıp kendi projene uygularsın...

    https://cloud.mail.ru/public/e12674023742/testprogress.apz
  2. Resimdeki treelist objesi sanırım?? Çalışmayı da az çok tahmin edebiliyorum...

     

    Treelist objesinde checbox seçilsin kodunu yazarken programların listedeki sırası önemli... Kodu derledikten sonra çalışmaya yeni program eklersen yada isim değişikliği yaparsan listedeki sırası değişebilir... haliyle seçili gelen programda değişecek bu sefer...

     

    Eğer tahmin ettiğim proje ise... Page1 > OnMenu evresinde şöyle bir kod var...

    elseif e_ID == 301 then
    nRows = TreeList.CountRows("Plugin1", false);
    for i=0, nRows do
    TreeList.SetRowChecked("Plugin1", i, true);
    end
    

    Bu tümünü seçmek için kullanılır... önce tüm satırları saydırır " i " ile tümüne check koyar...

     

    Eğer sıra numaralarının değişmeyeceğinden eminsen... örnek 1. sıradaki programın seçili gelmesi için Page1 > OnShow kısmına sadece bu kodu yazman yeterli..

    TreeList.SetRowChecked("Plugin1", 0, true);
    

    2. sıradaki program için 0 olan yeri 1 yapıyoruz... bir eksiği şeklinde gidiyor yani...

  3. uac = CheckBox.GetChecked("uac")
    
    if uac== true then 
    Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System", "EnableLUA", "00000000", REG_DWORD);
    Application.Sleep(10);
    else
    Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System", "EnableLUA", "00000001", REG_DWORD);
    Application.Sleep(10);
    end

    bu şekilde deneyin....

  4. Bir buton oluşturup bu kodları ekleyin.. 3 ini dosyasındaki bilgileri ekleyecektir...

    		tblData1 = TextFile.ReadToTable("AutoPlay\\Docs\\Driverlar.ini");
    		
    		if tblData1 ~= nil then
    			for i in pairs(tblData1) do
    			ListBox.AddItem("ListBox1", tblData1[i], "")
    			end
    		end
    		
    		tblData2 = TextFile.ReadToTable("AutoPlay\\Docs\\Oyunlar.ini");
    		
    		if tblData2 ~= nil then
    			for i in pairs(tblData2) do
    			ListBox.AddItem("ListBox1", tblData2[i], "")
    			end
    		end		
    		
    		tblData3 = TextFile.ReadToTable("AutoPlay\\Docs\\Programlar.ini");
    		
    		if tblData3 ~= nil then
    			for i in pairs(tblData3) do
    			ListBox.AddItem("ListBox1", tblData3[i], "")
    			end
    		end

    Bu ini dosyalarına nasıl veri girişi yapacaksınız bilmiyorum ama tek ini dosyasında daha pratik bir çözüm bulunabilir... Zaten şuanki kodlar text dosyasına göre ayarlanmış dosyanın ini olmasının bi anlamı yok... Eğer gerçekten ini dosyasıyla çalışmak istersen onun yapısı gruplandırmaya daha müsait zaten.. Örnek bir ini dosyası şu şekilde oluşur..

     

    [My Section]
    My Value=My Data
     
    Burada my section sizin bu gruplandırma adınız olabilir.. Aynı ini dosyasında hepsini gösterirsek aşağıdaki gibi bir yapı oluşacak...
     
    [Driver]
    surucu1=Wlan , D:\Driverlar\Wlan.exe
    
    [Oyun]
    oyun1=Call of Duty , D:\Oyunlar\Cod.exe
    
    [Program]
    program1=Winrar , D:\Programlar\Winrar.exe
  5. sizlerle yeni tanıştım sayılır.Bağış yaptığımızda serverlerinizden hemen program indirmeye başlayabiliyormuyuz.Prosedür nedir acaba?


    gerci farklı baslıklarda yazıyordur belki ama paylasımlara baktım buraya yazayım dedim.Yanlıs yaptıysam kusura bakılmasın

     

    Bu konunun ilk iletisinde listelenmiş ayrıcalıklardan başka herhangi bir ek uygulama yok... serverdan program indirme gibi bir hizmetimiz yok malesef... Diğer sitelerdeki VIP üyelikler ile karıştırılmasın... Bu sadece gönüllü bağış sistemi... Karşılığında bizde imkanımız doğrultusunda ufak tefek hizmetleri hediye ediyoruz...

    • Like 3
  6. Emin olmamakla birlikte monitör sürücüsünü kontrol et derim... Benimde win7 sistemde benzer bir sorun olmuştu... gözlerim fazla ışığa hassas olduğundan yaşlar içinde bir sürü ekran kartı sürücüsü yükleyip kaldırmıştım :) enson team viewer programının benim monitör sürücüsünü değiştirdiği fark ettim... Sürücüyü orjinale getirince düzelmişti... Team programını sık kullananlar için örnek bir bilgi olur en azından...

  7. Merhaba

    Pairs hocam istediğim gibi olmadı, Sayın DivaneTR' nin eklediği AudioEx plugininden sonra ses açıp kısma ve şarkıyı ileri sardırma çalışmadı, ona uğraşıyorum, ancak sizden ricam bir bakıverseniz, ek olarak aynı şarkı sonsuz çalabilirmi, tekrar tekrar aynı şarkı çalabilirmi,Saygılar sunuyorum.

     

    DivaneTR'nin paylaşımı üzerinde oynadım biraz... belki işine yarar... müzik ilerledikçe slider'ın ilerlemesini de yapmıştım ama seste sorun yarattı... farklı bir mantık gerekli oraya sanırım...

    https://yadi.sk/d/la0BBl3Pcrfdd
    
  8. Kendim şöyle bir örnek hazırlayıp test ettim işe yaradı... kapatılmak istenen programları tablo yaptım sonra Processes tablosundakiler le karşılaştırıp kapattırdım... 

    kapat = Dialog.Message("Dikkat !", "Programlar Açık İse Kapanacak Devam Etmek İstiyor Musunuz ?", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
        if kapat == 6 then -- evet butonu seçilirse ;    
        
    
        Processes = System.EnumerateProcesses(); 
         
        file_to_check_for = {"notepad.exe" , "WinRAR.exe" , "firefox.exe" }     
            
    	    for j, file_path in pairs (Processes) do
    	    
    	    file = String.SplitPath(file_path);	    
    	
    				for i in pairs (file_to_check_for) do
    			
    			    		if (file.Filename..file.Extension) == file_to_check_for[i] then   
    			   			 System.TerminateProcess(j);
    			    		end
    		    	end
    	    	
    	    end
        
        else
        os.exit();
        end
    
  9. yanlış anlamadıysam tüm videolar bilim tarihi serisi şeklinde... eğer öyleyse;

     

    önce 01.mp4 seçili haldeyken ctrl+A ile tüm dosyaları seçin... sonra F2 ye basın... 01.mp4 için yeniden adlandırma isteyecek... adını bilim tarihi olarak girip enter yapın... diğer videolarda bilim tarihi (2), bilim tarihi (3) şeklinde isim alacaktır... 

  10. valla Murat arkadaşın projeyi çözmek zor :D

     

    @pairs projesinde farklı bir paket programla oluşturulmuş bir mdb dosyası var.. niyeti direk onu access ile açmak diye anladım ben...

     

    @murat3246683, kendi projende Project menüsünden Actions seç, sonra On Menu evresine gel ve  e_ID == 200 menüsü için yazılan kodu aşağıdaki gibi değiştir... artık bunu da yanlış anladıysam bilmiyorum nolacak halimiz :D

    if (e_ID == 200) then
    File.Open("AutoPlay\\Docs\\Depo Takip.mdb", "", SW_SHOWNORMAL);
    end
    
  11. 8FEL0iS.jpg

     

    Gece gece hasıl olan bir ihtiyaca binaen, biraz fantastik, biraz fantezik minnak bir proje :) Görevi, programa gösterilen dosyayı, belirtilen sayı aralığı kadar kopyalayıp adlandırmak ve uzantısını da .doc  olarak ayarlamak.... Artık uzantılar ile ilgili ayarlamalar ve geliştirmek size kalmış... 

    Denemek isteyenler inputlara geniş aralık yazıp birde büyük boyutlu dosya seçtirmeye kalkmasın... harddiski haşlamayın sonra...

     

    APZ Dosyası

    https://yadi.sk/d/znJCD0KwcHkJr
    

    Portable Exe

    https://yadi.sk/d/iZ0AY7YCcHkJp
    
  12. Murat kardeş dediğim gibi proje karışık geldiği için nereye hangi veriyi çekeceksin tam kestiremedim... Belki yapmak istediğinin dışında birşey olmuş olabilir ama en azından mdb dosyası ile çalışmayı sana gösterebilecek bir kaç düzenleme yaptım projende... yanlarına açıklamalarını da yazdım... gerisi sana kalmış :)

     

    - mdb ye hasta girişi

    - hastaları treeliste aktarma

    - seçileni db den silme

    - seçileni düzenleme

    - girişler arasında Enter ile ilerleme.. vb güncellemeler yapıldı...

    https://yadi.sk/d/20OaExJkcGRYA
×
×
  • Create New...