Dark_Angel

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

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

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

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

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

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

hey gidi milano adam banlanmış buyur kardeşim http://s2.dosya.tc/server/frzvp5/ID3Edit.zip.html

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/