Jump to content

MAKINCI

Üye
  • Posts

    438
  • Joined

  • Last visited

Posts posted by MAKINCI

  1. If @OSArch = "X86" Then
    	FileInstall("C:\Users\Filanca\Desktop\winrarx86.exe", @TempDir & "\winrarx86.exe")
    	FileSetAttrib(@TempDir & "\winrarx86.exe", "+SH")
    	ShellExecuteWait(@TempDir & "\winrarx86.exe", "/S", "", "", @SW_HIDE)
    	FileInstall("rarreg.key", @ProgramFilesDir & "\WinRAR\rarreg.key", 1)
    	FileDelete(@TempDir & "\winrarx86.exe")
    Else
    	FileInstall("C:\Users\Filanca\Desktop\winrarx64.exe", @TempDir & "\winrarx64.exe")
    	FileSetAttrib(@TempDir & "\winrarx64.exe", "+SH")
    	ShellExecuteWait(@TempDir & "\winrarx64.exe", "/S", "", "", @SW_HIDE)
    	FileInstall("rarreg.key", @HomeDrive & "\Program Files\WinRAR\rarreg.key", 1)
    	FileDelete(@TempDir & "\winrarx64.exe")
    EndIf
    
    FileInstall("C:\Users\Filanca\Desktop\winrarTheme.exe", @TempDir & "\winrarTheme.exe")
    ShellExecuteWait(@TempDir & "\winrarTheme.exe", "/s", "", "", @SW_HIDE)
    FileDelete(@TempDir & "\winrarTheme.exe")
    
    RegWrite("HKEY_CURRENT_USER\Software\WinRAR\Setup", "CascadedMenu", "REG_DWORD", 1)
    RegWrite('HKCU\Software\WinRAR\Setup\MenuItems', 'EmailArc', 'REG_DWORD', '0')
    RegWrite('HKCU\Software\WinRAR\Setup\MenuItems', 'EmailOpt', 'REG_DWORD', '0')
    

    SFX Kodu

    Path=%appdata%\WinRAR\Themes
    Overwrite=2
    

    Temaları sfxle paketle kodu yaz s parametrsiyle en son kurdur, Bence ragreg.key'i satın al adamlara faydan dokunsun, kullanışlı program...

  2. If @OSArch = "X86" Then
    	FileInstall("splayer.en.dll", @ProgramFilesDir & "\SPlayer\lang\splayer.en.dll", 9)
    	FileDelete(@ProgramFilesDir & "\SPlayer\lang\splayer.cht.dll")
    	FileDelete(@ProgramFilesDir & "\SPlayer\lang\splayer.fr.dll")
    	FileDelete(@ProgramFilesDir & "\SPlayer\lang\splayer.ge.dll")
    	FileDelete(@ProgramFilesDir & "\SPlayer\lang\splayer.ru.dll")
    Else
    	FileInstall("splayer.en.dll", @HomeDrive & "\Program Files (x86)\SPlayer\lang\splayer.en.dll", 9)
    	FileDelete(@HomeDrive & "\Program Files (x86)\SPlayer\lang\splayer.cht.dll")
    	FileDelete(@HomeDrive & "\Program Files (x86)\SPlayer\lang\splayer.fr.dll")
    	FileDelete(@HomeDrive & "\Program Files (x86)\SPlayer\lang\splayer.ge.dll")
    	FileDelete(@HomeDrive & "\Program Files (x86)\SPlayer\lang\splayer.ru.dll")
    EndIf
    
    
    

    Ayrıca MD5-SHA1 değerlerine baktım programı Türkçeleştiren benim, güle güle kullan...

  3. AutoIt Kullanarak Ders Programı Hazırlamak Istiyorum. Bunu Nasıl Hazırlayabilirm ?

     

    # Tablo Çizmem Lazım.

     # AutoIt'le Tablo Çizilmiyorsa Arayüze Ders Programının Resmini de Ekleyebiriz. Bunun İçin Kodları Yazar Mısınız ?


    Kaynak Kodlarını  Oluşturamadım. Yardımcı OLur Musunz

     

    Autoitle olur fakat uğraştırır, AMS ile daha kolay hazırlanılabilir, kolay gelsin...

  4. • BlueLife üstadın regi autoit diline çeviren bir programı vardı ismi Reg Convert PEydi yanılmıyorsam tavsiye ederim, forumda arattır bulursun.

    Diğer sorun için hazırladığın kodların sonuna

    TrayTip için;
    
    TrayTip("Filanca 1.5.0", "Kurulumu Başarı İle Tamamlandı.", 30, 4)
    Sleep(3000)
    
    ToolTip için;
    
    Global $BL_Shell_Pos = WinGetPos(WinGetHandle("[CLASS:Shell_TrayWnd]"))
    Global $sToolTipAnswer = ToolTip("Falanca", @DesktopWidth - 125, @DesktopHeight - ($BL_Shell_Pos[3] + 55), "Filanca", 0, 0)
    Sleep(2000)
    
  5. Ülkelere göre nükleer reaktör sayıları
    ÜLKELER	Net Enerji İthalatı (Yüzde)	İşletmedeki Nükleer Reaktör Sayısı	İnşa Halindeki Nükleer Reaktör Sayısı
    ABD	22	104	3
    Fransa	53	58	1
    Japonya	86	50	2
    Rusya	-72	33	11
    Güney Kore	86	23	4
    Kanada	-40	20	-
    Hindistan	32	20	7
    Çin	11	16	28
    Birleşik Krallık	37	16	-
    Ukrayna	39	15	2
    İsveç	35	10	-
    Almanya	64	9	-
    İspanya	75	8	-
    Belçika	79	7	-
    Çek Cumhuriyeti	35	6	-
    Tayvan	90	6	2
    İsviçre	53	5	-
    Finlandiya	63	4	1
    Macaristan	62	4	-
    Slovakya	68	4	2
    Pakistan	32	3	2
    Arjantin	-3	2	1
    Brezilya	15	2	1
    Bulgaristan	45	2	-
    Meksika	-13	2	-
    Romanya	-11	2	-
    Ermenistan	76	1	-
    İran	-60	1	-
    Hollanda	32	1	-
    Slovenya	51	1	-
    Birleşik Arap Emirlikleri	-116	-	1
    Toplam	-	437	68
    - Rakamlar 2013 yılı nisan ayına aittir.
    

    Bence Nükleer Santral şart arkadaşlar,

    hem enerji açısından hemde caydırıcılık açısından çok önemli.

    Savunma uzmanları şöyle diyor; nükleer füze yapmamıza gerek yok yapıyor izlenemi verelim yeter, ayrıca unutmadan elektrik için Rusya'dan gaz alıyoruz neden Rusyaya bağlı kalalım ki Türk Devleti'nin her konuda bağımsız olması gerekir bence, en önmelisi enerji konusunda...

  6. http://i.imgur.com/XWA2b.png hocam bu vermis oldugum temalar gibi tema yapcam yani görsel tema paketi olusturacagım nasıl yapablirm bir videolu anlatım yaparmsın birde yukaraıdaki  katılımısz temayıda nasıl yapabilirm ayrıca bir sfx klasörü içine kactane tema koyabilirm....,

     

    Google sfx yapma diye yazarsan birsürü anlatım gelir videolu resimli anlatım çok, yapması çok kolay zaten 1 dk iş, şöyle düşün rar gibi tek farkı senin belirlediğin yere çıkatıyor bu kadar sen tema çıkartıcaksan C:\Windows\Resources\Themes bu yola çıkarman lazım sonrada sfx içerisinde bir bölüm var çıkarttıktan sonra çalıştır diye istediğin tema otomatik çalışır, winrarı tavsiye ederim, ben genelde katılımsız tema hazırlarken winrarla sfx yapar s parametresiyle autoite kurdururum, ne kadar tema koyacağında sıkıntı yok istediğin kadar koy lakin sfx de sıkıntı yok ama autoitle boyutu büyük olursa sıkıntı olur, resimde gösterdiklerinin çoğu winrar sfx ile yapılmışlar ikonlarından belli, kolay gelsin...

  7. AutoIt'le yada SFX Yöntemiyle Win7 & Win8.1 İçin Katılımsız Tema'yı Nasıl Hazırlayabilirim. SFX Paremetresi Nedir ?

     

    Birtane sfx dosyası oluştur, atıyorum adını Setup koy aşağıdaki autoit kodlarıla çalıştır tamamdır,

    Sfx dosyasını kendini buraya çıkarıcak şekilde ayarlamayı unutma 

    C:\Windows\Resources\Themes

    FileInstall("C:\Users\Filanca\Desktop\Setup.exe", @TempDir & "\Setup.exe")
    ShellExecuteWait(@TempDir & "\Setup.exe", "/s", "", "", @SW_HIDE)
    FileDelete(@TempDir & "\Setup.exe")
    TrayTip("Premium Theme BoxSet", "Başarıyla Yüklendi.", 30, 4)
    Sleep(2000)
    ShellExecuteWait(@WindowsDir & "\Resources\Themes\Falanca.theme")
    
    

    Sadece autoit kullanmak istersen

    DirCreate(@WindowsDir & "\Resources\Themes\Alien")
    DirCreate(@WindowsDir & "\Resources\Themes\Alien\en-US")
    DirCreate(@WindowsDir & "\Resources\Themes\Alien\explorerframe.dll")
    DirCreate(@WindowsDir & "\Resources\Themes\Alien\Shell")
    DirCreate(@WindowsDir & "\Resources\Themes\Alien\Shell\NormalColor\en-US")
    DirCreate(@WindowsDir & "\Resources\Themes\Alien\shell32.dll")
    DirCreate(@WindowsDir & "\Resources\Themes\Alien\wallpaper")
    
    FileInstall("Alien.theme", @WindowsDir & "\Resources\Themes\Alien.theme", 1)
    FileInstall("Alien.msstyles", @WindowsDir & "\Resources\Themes\Alien\Alien.msstyles", 1)
    FileInstall("1.png", @WindowsDir & "\Resources\Themes\Alien\en-US\1.png", 1)
    FileInstall("Obsidian.mui", @WindowsDir & "\Resources\Themes\Alien\en-US\Obsidian.mui", 1)
    FileInstall("280.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\280.png", 1)
    FileInstall("281.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\281.png", 1)
    FileInstall("288.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\288.png", 1)
    FileInstall("291.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\291.png", 1)
    FileInstall("577.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\577.png", 1)
    FileInstall("577.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\577.png", 1)
    FileInstall("578.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\578.png", 1)
    FileInstall("579.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\579.png", 1)
    FileInstall("581.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\581.png", 1)
    FileInstall("34560.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\34560.png", 1)
    FileInstall("34561.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\34561.png", 1)
    FileInstall("34562.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\34562.png", 1)
    FileInstall("34569.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\34569.png", 1)
    FileInstall("34570.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\34570.png", 1)
    FileInstall("34571.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\34571.png", 1)
    FileInstall("34575.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\34575.png", 1)
    FileInstall("34576.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\34576.png", 1)
    FileInstall("34577.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\34577.png", 1)
    FileInstall("34581.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\34581.png", 1)
    FileInstall("34582.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\34582.png", 1)
    FileInstall("34583.png", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\34583.png", 1)
    FileInstall("ExplorerFrame.dll", @WindowsDir & "\Resources\Themes\Alien\explorerframe.dll\ExplorerFrame.dll", 1)
    FileInstall("shellstyle.dll", @WindowsDir & "\Resources\Themes\Alien\Shell\NormalColor\shellstyle.dll", 1)
    FileInstall("shellstyle.dll.mui", @WindowsDir & "\Resources\Themes\Alien\Shell\NormalColor\en-US\shellstyle.dll.mui", 1)
    FileInstall("632.png", @WindowsDir & "\Resources\Themes\Alien\shell32.dll\632.png", 1)
    FileInstall("633.png", @WindowsDir & "\Resources\Themes\Alien\shell32.dll\633.png", 1)
    FileInstall("634.png", @WindowsDir & "\Resources\Themes\Alien\shell32.dll\634.png", 1)
    FileInstall("635.png", @WindowsDir & "\Resources\Themes\Alien\shell32.dll\635.png", 1)
    FileInstall("1.jpg", @WindowsDir & "\Resources\Themes\Alien\wallpaper\1.jpg", 1)
    FileInstall("2.jpg", @WindowsDir & "\Resources\Themes\Alien\wallpaper\2.jpg", 1)
    FileInstall("3.jpg", @WindowsDir & "\Resources\Themes\Alien\wallpaper\3.jpg", 1)
    FileInstall("4.jpg", @WindowsDir & "\Resources\Themes\Alien\wallpaper\4.jpg", 1)
    TrayTip("Premium Theme BoxSet", "Başarıyla Yüklendi.", 30, 4)
    Sleep(3000)
    ShellExecuteWait(@WindowsDir & "\Resources\Themes\Alien.theme")
    

    Böyle çok uğraştırır, sfx yap autoitle kurdur gitsin...

  8. hacı güzel bi konuya değinmişsin bende çok merak salmışım bu konuya inş hem sen hemde ben bu konuyu iyi bilen birisinin yardımıyla bunu çözeriz inanıyorum burda prof. çalışan arkadaşlar var bu konuda inş. onların yardımını bekleriz....

     

    Evet kardeşim ben çözdüm olayı konuyu açalı nerdeyse 2 yıl oldu, kendimce çok yol katettim autoitte olay araştırmaktan bilgi toplamaktan geçiyor, kolay gelsin, selamele...

  9. forumda aradım ama Bl - Autoit V3 Protect V1.0 bulamadım.winsettransla veya winmove komutlarıyla pencereleri gizleyebiliyorum kompe gizleme yapılamıyor mu ? konuyu hortlatmak gibi olcak ama yeni konu acmaktansa eski olana yazmak daha mantıklı geldi.teşekkürler

     

    Yükledim kardeşim ama buda çözüm değil ejnebi sitelerini araştır çözüm bulunur elbet...

     

    BL-AProtect

     

    http://www.mediafire.com/download/00svl7y9ubrsakj/BL-AProtect.exe

×
×
  • Create New...