Dark_Angel

PColik, 1 saat önce yazdı:

Bu kod çalıştı, çok teşekkür ederim kardeşim. Fakat uyarıyı verdikten sonra harf input a giriliyor. Bu son girilen harfi sildirmemin bir yolu var mı?

if (e_Key < 48 or e_Key > 57) then
  	Input.SetText(this, "");
	Dialog.Message("Hata", "Sadece rakam girebilirsin");
end

 

Merhabalar, her Input objesinin On Key evresine, bir sonraki Input objesine geçmesi için Focus yapmanız gerekiyor. Varsayalım 3 tane Input var;

Input 1 On Key

if (e_Key == 9) then
    Page.SetFocus("Input2");
end

Input 2 On Key

if (e_Key == 9) then
    Page.SetFocus("Input3");
end

Input 3 On Key

if (e_Key == 9) then
    Page.SetFocus("Input1");
end

 

ceobey, 1 saat önce yazdı:

Ordan İndiriyorum Fakat Programı Yüklerken Beni Siteye Atıyor O Sitede Hata Veriyor İsterseniz Yüklemeye Çalışın Sizde Aynı Hatayı Alacaksınızdır.

Mac OS X Lion.pack 7-zip ile açarak kullanabilirsin

@hdr...Page2 On Preload bölümüne yazacaksın... böyle devam eder 1..2..3

--On Show veya On Preload

local SI = System.GetDisplayInfo();
local X = (SI.Width - Window.GetSize(Application.GetWndHandle()).Width) - 5;
local Y = (SI.Height - Window.GetSize(Application.GetWndHandle()).Height) - 40;
Window.SetPos(Application.GetWndHandle(), X, Y);

 

On Startup

DialogEx.Show("Dialog1", true, nil, nil);

DialogEx On Show

DialogEx.StartTimer(3000, 1);

DialogEx On Timer

if e_ID == 1 then
    DialogEx.Close(0);
    DialogEx.StopTimer(1);
end

 

abi onun ne fontla nede iştetim sistemi ile alakası yok, tamamen AMS ile alakalı bir bug o 8.5.1.0 sürümüne geri dön,  sen 8.5.2.0 kullanıyorsundur, ayrıca 8.5.2.0 açtığın projelerede bulaşıyor 8.5.1.0 sürümünde tekrar tüm objeleri TR karakterlerine çevirmen lazım

IDM 6.30 Build 10 Patcher

https://drive.google.com/file/d/19OHiEBuqYa-DhcSg4TEiAAeaC9YORA_5/view

kendi kodladığım yazılım 

 

YouTube GOLD - Downloader / Player

Bu yazılım tarafımca AutoPlay Media Studio programında kodlanmıştır. Programın amacı tek arayüzde YouTube'den hem müzik dinleme hem arama yapabilme hemde video ve MP3 şeklinde indirme yapmasıdır.

Program portable'dir yani taşınabilir ve kurulum gerektirmez tek yapmanız gerek yazılımı indirip ZIP dosyasından çıkarıp açmak'tır.

Kullanma Şekli

Bu resim yazılımın ana arayüzüdür , ilk açılışta burası size boş olarak gelir yapmanız gereken bir YouTube url'si kopyalayıp onay butonuna tıklamaktır gerekli bilgiler alınır veya arama butonuna tıklayıp kendiniz arama yapabilirsiniz.

Tüm bilgiler alındıktan sonra kapak resmi üzerine tıkyayıp bekleyin 1-2 saniye içinde ilgili videoyu mp3 şeklinde dinlemeye başlayabilirsiniz.

Çalma başladıktan sonra alt ilerleme çubuğunun üstündeki yazıda hafızaya alınıyor diye yazı görürsünüz bu işlem bittikten sonra ileri/geri sarma yapabilirsiniz normal müzik oynatıcısı şeklinde.

İndirilebilir kaliteler altındaki onay kutuları ilgili videonun hangi kaliteleri desteklediğini gösterir yeşil olanlar sizin indirebileceklerinizdir.

Pause işlemi için klavyenizden boşluk tuşunu kullanın.

Sağ üstte programı kapatma butonunun altındaki üçgen şeklinde butona tıklayıp spectrum ve equlaizer ayarlarınızı yapabileceğiniz bölüm açılır ilgili resim

Buradaki bölümden ince ses ayarlarınızı yapabilirsiniz ayarlar program tarafından her kapanışta kayıt altına alınır ve sonraki açılışta sizin ayarladığınız gibi açılır.

Bu bölümde son olarak indir butonuna tıklarsanız altaki bölüm açılır

Bu indirme seçenekleridir indireceğiniz klasörü seçip alttaki onay kutularından kaliteyi seçip indirmeye başlayabilirsiniz.

Varsayılan olarak orjinal video başlığı şeklinde iner isterseniz yeniden adlandır bölümünden kendinize özel isim verip indirebilirsiniz.

İndir butonuna tıkladıktan sonra bilgisayarınızın sağ alt bölümünde alttaki bölüm açılır

Burası ilgili inderme hakkında bilgi veren bölümdür indirme tamamlandıktan sonra burası otomatik olarak kapanır ve ana arayüz açılır.

Burada dikkat etmeniz gerek yer eğer indirilecek video ufak boyutta ise işlem hemen tamlanır fakat büyük boyutta bir video indirmesi yapıyorsanız

birleştirme işlemi gerçekleşmeye başlar ve indirmeden sonra  ses video içine gömülür buna neden olan şey youtubenin ses ve videoyu parçalamasından kaynaklanıyor.

Yani ilk önce ses indirilir sonra video ve son olarak bu ikisi birleştirilir doğal olarak bu işlem zaman alır bitene kadar bekleyiniz bu sizin işelmci hızınız ile alakalıdır güçlü bir işlemciniz var ise işlem çabuk olur.

Aynı şey MP3 indirmelerindede geçerlidir Youtube direkt olarak MP3 formatında ses barındırmaz DASH şeklendedir ses DASH olarak iner sonunda program bu formatı MP3 formatına çevirir dosya büyüklüğünr göre

bu işlemde aynı şekilde devam eder dediğim gibi bu tamamen sizin işlemci gücünüz ile alakalıdır sabırla bekleyin.

İlgili indirmeyi iptal etmek istiyorsanız sağ üstten iptal butonunu kullanabilirsiniz.

Burası arama bölümüdür aramak istediğiniz videoyu yazın ve ENTER tuşuna basın.

Çıkan sonuçlar üzerien sağ tıklayıp isterseniz seçili videoyu favorilere ekleyebilirsiniz.

Yıldız butonuna tıklayarak favorilerinizi açabilirsiniz.

Buradan bir videoyu ana bölüme atmak için seçili videoya çift tıklayın.

Yıldız butonuna tıklayınca açılacak olan favori listeniz burasıdır.

Burada aynı şekilde videoyu listeden seçin ve çift tıklayın ana bölüme atılır ve oradan dinleme veya indirme yapabilirsiniz.

 

Programın yapısı bu şekilde arkadaşlar yazmayı unuttuğum bölümler olabilir sorun yaşadığınız yerde konuya yazınız yardımcı olurum.

İndirme sınırı yoktur tüm videoları VEVO dahil doğrulanmış telif haklı videolar dahil herşeyi indirebilirsiniz yani tarayıcıdan YouTube açmanıza gerek kalmaz.

Programı kodlarken çok uzun kod satırları yazdım gözden kaçırdığım hata yaptığım yerler olabilir lütfen hata ile karşılaşırsanız konu altına belirtin hemen düzeltmeye çalışırım.

Ayrıca fikirlerde bulunabilir ve geliştirme hakkında bana önerilerinizi sunabilirsiniz elimden geleni yapmaya çalışırım.

Bu yazılım tamamen insanlar için bedava yaptığım bir yazılımdır kendimde her zaman bunu kullanıyorum güle güle kullanın arkadaşlar.

Program tanıtım videosu:

https://www.facebook.com/Mehmet.Shabanov/videos/10215043408108567/

 

İndirme Adresi

https://drive.google.com/file/d/1mzrarVBrADU80ZFaWgjmr9xgrXWB7QPc/view

omeraksu, Bir saat önce yazdı:

bunu nasıl yapabilirim bana bir örneğini gösterebilirmisin bu konu hakkımda bilgim yok malesef

bat dosyasına updateleri kurduracak kodları yazacaksın winrar ile SFX exe oluşturup bat dosyasını çağıracaksın ve kurulacak katılımsız olarak update kurdurma kodlarını googledan bulabilirsin

yukarıda'ki resimde yapılan proje milano88 tarafından bass.dll ile hazırlanmış ücretli bir plugindir, sorunuza gelince hayır ams de bunu yapmanız imkansız.

float() tipi sayı desteği yok , unicode desteği yok şu yok bu yok, yokta yok yani bunu yapmanız için ilk önce farklı bir dilde ams için plugin yapmanız gerekiyor o da bu tarz birşey için bayağı zor bir işlem

bunu ams'de yapmanız mümkün değil, harici bir fonksyon kullanmanız lazım msdn'den araştırabilirsiniz.

Lstbox'un WindowsHandle() si var sonuç olarak fakat bu çok zor olacaktır en azından sizin yapacağınız iş değil.

Bunun ile uğraşacağınıza Serkan abimizin ListBoxEX pluginini kullanabilirsiniz , her türlü özelleştirme var HTML taglarıda destekliyor , kısacası her yerini özelleştirebilirsiniz scrollbar hariç

1709 - 16299.15 Final kurdum hesap resmi , kilit ekranı resmi filan değiştiremiyorum bilgisi olan var mı ? sanırım bu update sorunlu chrome , opere vs bunlardada IDM video indirme eklentisi çalışmıyor

 

sorun HTML5 player'den kaynaklanıyor ,  chrome için youtube disable HTML5 eklentisini kurun , indirme ile alakalı sorunlar ortadan kalkacaktır , MKV indirme gibi bir sorunda kaymayacak

şu şekilde bir şey deneyebilirsin , globale bir değişken koy örneğin:

set_ch_prop = 0;

ilgili dialogex on close kısmına

set_ch_prop = 1;
sAD = INIFile.GetValue("AutoPlay\\Docs\\AIO.ini", "1", "AD");
sVERSIYON = INIFile.GetValue("AutoPlay\\Docs\\AIO.ini", "1", "VERSIYON");

checkboxun olduğu dialogex on show kısmına

if set_ch_prop ~= 0 then
    CheckBox.SetProperties("CheckBox1", {Text=sAD .. " " .. sVERSIYON});
end

bu şekilde olması lazım

dosya yolunundan ismi almak için

local dosya_ismi = String.SplitPath(sAdres[1]).Filename;

AMS de bir dialogex ten diğerine müdahele edemezsin  multiwindow desteği olmadığı için sadece değişkenler arası işlemler yapabilirsin globale tanımlamalar yaparak

"C:\\" yerine

_SourceFolder .. "\\AutoPlay\\Docs"

yazman yeterli, ayrıca sIni , sAdres gibi geçici değişkenleri local olarak tanımla ve "dat"'da sAdresten sil

globale bir değişken koy örneğin:

gizle = 0;

butona:

if gizle == 0 then
  for i=1,40 do
    Image.SetVisible("Image"..i, true);
  end
  gizle = 1;
else
  for i=1,40 do
    Image.SetVisible("Image"..i, false);
  end
  gizle = 0;
end  

 

WinAPI plugini seçili olsun

bu fonksiyonu globale yapıştır

 

function SetWallpaper(tile,style,img)
    local imagesplit = String.SplitPath(img);
    if imagesplit.Extension == ".jpg" or imagesplit.Extension == ".png" or imagesplit.Extension == ".bmp" then
        WinApi.ImageConvertTo(img, _TempFolder .. "\\temp_wall.bmp");
        Registry.SetValue(HKEY_CURRENT_USER, "Control Panel\\Desktop", "TileWallpaper", tile, REG_SZ);
        Registry.SetValue(HKEY_CURRENT_USER, "Control Panel\\Desktop", "WallpaperStyle", style, REG_SZ);
        DLL.CallFunction(_SystemFolder .. "\\User32.dll", "SystemParametersInfoA", "20,0,\"" .. _TempFolder .. "\\temp_wall.bmp\",1", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
    else
        return Dialog.Message("Hata", "Bilinmeyen bir resim türü seçtiniz !", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);
    end
end

Resim değiştir butonuna

 

local desk_wall = Input.GetText("wall_path");
SetWallpaper(0, 0, desk_wall);

 

ortala , uzat, genişlet

 

CENTERED  = 0 , 0;
STRETCHED = 0 , 2;
TILED     = 1 , 0;

 

Fake serial ve full yapmak için bunu deneyiniz 

 

Not : sıra ile 1 = SIFIRLA , 2 = KAYIT OL , 3 = FULL YAP işlem sorunsuz tamamlanmış olacaktır ve yönetici olarak çalıştırınız

İndrirme Adresi:

https://drive.google.com/file/d/0B9okS-Ya9OZnMG13bV94Z1RCUVE/view

 

1. Soru:

 

params = {
    "-C:\\Program Files (x86)\\Google\\Chrome\\Application",
    "-C:\\Program Files (x86)\\Google\\Chrome\Application\\chrome.exe",
    "-test"
};

if _CommandLineArgs[1] ~= nil and _CommandLineArgs[1] ~= "" then
    for index, param in pairs (_CommandLineArgs) do
        if param == params[1] then
            File.ExploreFolder(params[1]:gsub("%-", ""), SW_SHOWNORMAL);
        elseif param == params[2] then
            File.Open(params[2]:gsub("%-", ""), "", SW_SHOWNORMAL);
        elseif param == params[3] then
            Dialog.Message("Test", "Test parametresi");   
        end
    end
end

2. Soru:

blackman12' da dediği gibi bunu tek bir butonla yapamazsın .lnk yazmasını istiyorsan örneğin:

local text = "C:\\Program Files (x86)\\Google\\Chrome\\Application\\chrome.exe";
yeni_text = text:gsub("%.exe", "%.lnk");
Dialog.Message("", yeni_text);

ayrıca AMS'de yol\yol gibi kullanma yol\\yol\\... gibi bu arada parametre kodlarını On Show veya On Preload bölümüne yazman gerekiyor

7 saat önce, PColik yazdı:

Kardeşim sağolun yardım ettiğiniz için. Ama beni anlamadınız  Daha doğrusu bu işten ne kadar anladığımı anlamadınız

Şimdi şunu şöyle, bunu böyle yap, şunları topla, şunları kontrol ettir diyosun ama ben bunların nasıl yapıldığını falan bilmiyorum. Bana sadece direkt kopyala yapıştır yapabileceğim örnek bi kod lazım.

local myTable = 
{
      "CD1",
      "CD2",
      "CD3",
      "CD4",
      "CD5",
      "CD6",
      "CD7"
};

function FindMyStr(table, string)
    local r;
    for index,str in pairs (table) do
        if str == string then
            r = true;
        end
    end
    return r;
end

local string = Input.GetText("Input1");
if FindMyStr(myTable, string) then
    Dialog.Message("", "OK");
else
    Dialog.Message("", "404 not found");
end

 

On 06.01.2017 at 21:40, PColik yazdı:

Peki burada benim yapmak istediğimle ilgili (CD, CD2) bir örnek verebilir misin? Senin verdiğin kodu incelersem olayı anlarım.

bak şimdi basit bir şekilde anlatmaya çalışayım string.match(yazı veya numara karışık olabilir) misal inputa CDCD2 diye bir değer girildi burada sen diyelim ki CD2 girildiyse doğrulanmasını istiyorsun o zaman

if Input.GetText("Input1"):match("CD2") then

CD2 bulundu

else

hayır bulunamadı

end

gibi bu kadar basit bir işlem ayrıca pattern de kullanabilirsiniz

 

22 saat önce, PColik yazdı:

Birden fazla değer belirtmemiz gerekiyorsa nasıl düzenlemeliyim. Bu konuda biraz acemiyim de.

Mesela

if Input.GetText("Input1"):match("CD","CD2") then

yaptım. Olmadı, hata verdi.

match("CD","CD2") diye bir function çağırısı yok , match(pattern) veya match("string/yazım/numara") gibi lua.org tan lua hakkında bilgi edinmenizi tavsiye ederim