Dark_Angel

On 30.12.2016 at 00:21, PColik yazdı:

Kardeş teşekkür ederim ama yapmak istediğim tam olarak bu değil. Bu kod sadece sayısal değerlerde doğru çalışıyor. Örneğin 10, 15, 20, 25, 30 yerine A, B, C, D, E yazınca çalışmıyor. Benim bahsettiğim beş adet değer, herhangi bir değer olabilir. Sayıda olabilir, harfte olabilir, ikisini de içerebilir, Aslında tam olarak bunu yapmak istiyorum. Bunu nasıl yapabileceğimi söyleyebilir misin?

ama baştan öyle diyecektin numara yazmışsın bende numara olarak örnek verdim , ben tonumber() functionu ile inputu stringten number yani sayıya çeviriyorum ABCDE yazınca çalışmaz tabi çünki input dediğim gibi stringten sayıya çeviriyorum , eğer herhangi bir değer istiyorsan o zaman string:match() veya string:find() functionşarını kullanacaksın örneğin AB10CD yazıyor 

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

    bulundu

else

    iptal

end

bu şekilde

local keyNames = Registry.GetKeyNames(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths");
ListBox.SetUpdate("ListBox1", false);
for key,names in pairs (keyNames) do
    local s = String.SplitPath(names).Filename;
    ListBox.AddItem("ListBox1", s, s);
end
ListBox.SetUpdate("ListBox1", true);

 

local number = tonumber(Input.GetText("Input1"));
if number == 10 or number == 15 or number == 20 or number == 25 or number == 30 then
    Input.SetProperties("Input1", { BackgroundColor = Math.RGBToNumber(0, 255, 0) });
else
    Input.SetProperties("Input1", { BackgroundColor = Math.RGBToNumber(255, 0, 0) });
end

 

function PingTest()
    local pReturn;
    File.Run("cmd.exe", "/C ping google.com > ".._TempFolder.."\\net_test.txt", _SystemFolder, SW_HIDE, true);
    local get_ping_info = TextFile.ReadToString(_TempFolder.."\\net_test.txt");
    if get_ping_info:find("Ping request could not find") then
        pReturn = 0;
    elseif get_ping_info:find("Pinging") then
        pReturn = 1;
    end
    os.remove(_TempFolder.."\\net_test.txt");
    return pReturn;
end

if PingTest() == 1 then
    Dialog.Message("", "Bağlantı var");
else
    Dialog.Message("", "Bağlantı bulunamadı");
end

 

8 saat önce, ugur4721 yazdı:

isteyen çabalayan alır zaten 
%temp% klasörüne açıyor hepsi 

sizde biraz kafanızı kullanın

alın size bir örnek biri bunun içinden de alsın bakalım

http://s4.dosya.tc/server2/k2btoq/test.zip.html

On 15.06.2016 at 14:45, Ex_treme yazdı:

Link silinmiş Elinde Olan Varsa Paylaşabilir mi Plugin'i ?

hey gidi milano adam banlanmış

buyur kardeşim http://s2.dosya.tc/server/frzvp5/ID3Edit.zip.html

1 saat önce, mdduru yazdı:

@pairs neden text değerine çekemesin ? 

sistede'ki txt dosyası veya artık her neyse yeterki okunabilir bir şey olsun

AMS'ye tam dosya yolunu gösterirsen sıkıntısız bir şekilde okutur ve verileri çekersin

yukarıda'ki GetHTML functionuna misal GetHTML("www.tnctr.com/myTXT.txt"); tam yol gösterirse txt değerini sana geri çevirecektir

 

 

dostum bunda anlamayacak ne var bak şimdi

ilk önce kullanıcı adı ve şifren ile siteye giriş yap yani post et winhttp ile yapabilirsin

post ettikten sonra'ki kaynağı bir değişkene depola bu değişken sitenin kaynak kodlarını bulunduracak

sonra'da bu değişken'den string.match() , string.find() vss functionlar ile istediğin veriyi çek

bu kadar basit bir işlem

bak sana bir örnekte vereyim misal youtube'den bir videonun başlığını çekelim

Kaynak kodları almak için bir function yazalım

function GetHTML(url)
    local http = luacom.CreateObject("winhttp.winhttprequest.5.1");
    if not http then
        return nil;
    end
    http:Open("GET", url, false);
    http:SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:44.0) Gecko/20100101 Firefox/44.0");
    http:Send();
    http:WaitForResponse(30);
    return http.ResponseBody;
end

Function hazır şimdi bu functionu kullanarak video başlığını çekelim:

local source = GetHTML("https://www.youtube.com/watch?v=0tHH0BNH0Sc");
if source then
    local title = source:match("<meta name=\"title\" content=\"(.-)\"");
    if title then
        Dialog.Message("TITLE", title);
    end
end

 

@köylü hocam sistem çok güzel ve stabil yalnız bazı programlarda font sorunu yaşıyorum , orijinal win7 isosundan fontların tümünü yüklememe rağmen düzelmedi nasıl düzeltebilirim şimdiden teşekkürler

MemoriEx plugini aktif olsun:

function SetLayeredWindowAttributes(hwnd, Color) 
    User32 = Library.Load("user32.dll"); 
    local nRet = String.ToNumber(User32.GetWindowLongA(hwnd,-20)) + 524288; 
    User32.SetWindowLongA(hwnd, -20, nRet); 
    User32.SetLayeredWindowAttributes(hwnd, Color, 0, 1); 
end

Math.RGBToNumber(buraya görünmesini istemediğin rengi yazacaksın) misal beyaz için , ama önerim siyah olsun

SetLayeredWindowAttributes(Application.GetWndHandle(), Math.RGBToNumber(255, 255, 255));

Farkı bir yöntem ise AMS'de mask kullanımı: Project>Settings>Style>Custom Mask seçeceksin

Photoshop veya kullandığın neyse artık onun ile görünmesini istemediğin yerleri tamamen siyah yap ve görünmesini istediğin yerleride beyaz yap, bunu ayrı olarak mask.pmg şeklinde kaydet ve Custom Mask böülümünden göster bu kadar basit. Yukarıda verdiğim function ile bunlara gerek kalmaz , AMS 9 ile belki diyorum Semi-Transparent Window özelliği inşallah gelir böylece istediğiniz png dosyasını arka plan olarak kullanabilirsiniz

Particle ıllusion programı ile efektleri oluşturacaksın , efekt png dosyalarından oluşuyor 1.png 2.png vss gibi , sonrada ams de bu png'leri for döngüsü ile 1den başlayıp load edeceksin bu kadar basit

http://www.mp3tag.de/en/