Jump to content

A80

Banned
  • Posts

    118
  • Joined

  • Last visited

Posts posted by A80

  1. Nokia  PC Suite 7.1.180.94 Sürümünün Katılımsız Parametresi Ne Olacak? Bu Kodu ve Parametre İle Katılımsız Kurulmadı. 

    #RequireAdmin
    FileInstall("Kur.exe", @TempDir & "\Kur.exe", 1)
    ShellExecuteWait(@TempDir & "\Kur.exe", "/SILENT="1" /DISABLE="AUTOUPDATE","AUTORUN", "", "", @SW_HIDE)
    FileDelete(@TempDir & "\Kur.exe")
    TrayTip("Nokia PC Suite 7.1.180.94 Final", "Kurulumu Tamamlandı! | By Titan", 30, 4)
    Sleep(5000)
    
    
  2. Bu Şekilde

    #RequireAdmin
    
    If @OSArch = "X86" Then
    	FileInstall("x86.exe", @TempDir & "\x86.exe", 1)
    	FileSetAttrib(@TempDir & "\x86.exe", "+SH")
    	ShellExecuteWait(@TempDir & "\x86.exe", "/S", "", "", @SW_HIDE)
    	FileInstall("rarreg.key", @ProgramFilesDir & "\WinRAR\rarreg.key", 1)
    	FileDelete(@TempDir & "\x86.exe")
    Else
    	FileInstall("x64.exe", @TempDir & "\x64.exe", 1)
    	FileSetAttrib(@TempDir & "\x64.exe", "+SH")
    	ShellExecuteWait(@TempDir & "\x64.exe", "/S", "", "", @SW_HIDE)
    	FileInstall("rarreg.key", @HomeDrive & "\Program Files\WinRAR\rarreg.key", 1)
    	FileDelete(@TempDir & "\x64.exe")
    EndIf
    
    FileInstall("Designcontest.exe", @TempDir & "\Designcontest.exe", 1)
    ShellExecuteWait(@TempDir & "\Designcontest.exe", "/s", "", "", @SW_HIDE)
    FileDelete(@TempDir & "\Designcontest.exe")
    FileDelete(@TempDir & "\rarreg.key")
    
    RegWrite('HKCU\Software\Classes\WinRAR\DefaultIcon', '','REG_SZ','C:\Users\Ali\AppData\Roaming\WinRAR\Themes\Designcontest\RAR.ico')
    RegWrite('HKCU\Software\Classes\WinRAR.REV\DefaultIcon', '','REG_SZ','C:\Users\Ali\AppData\Roaming\WinRAR\Themes\Designcontest\REV.ico')
    RegWrite('HKCU\Software\Classes\WinRAR.ZIP\DefaultIcon', '','REG_SZ','C:\Users\Ali\AppData\Roaming\WinRAR\Themes\Designcontest\RAR.ico')
    RegWrite('HKCU\Software\WinRAR\Interface\Themes', 'ShellExtBMP','REG_SZ','C:\Users\Ali\AppData\Roaming\WinRAR\Themes\Designcontest\RarSmall.bmp')
    RegWrite('HKCU\Software\WinRAR\Interface\Themes', 'ShellExtIcon','REG_SZ','C:\Users\Ali\AppData\Roaming\WinRAR\Themes\Designcontest\Rar.ico')
    RegWrite('HKCU\Software\WinRAR\Interface\Themes', 'ActivePath','REG_SZ','Designcontest')
    
    
    TrayTip("WinRAR 5.10 Final TR", "Kurulumu Tamamlandı ! | By Titan", 30, 4)
    Sleep(5000)
    

    Sorun Reg Kısmında. Reg'le Tek Tek Galiba İconları Yazacağız

  3.  

     

    Windows Registry Editor Version 5.00
     
    [HKEY_CURRENT_USER\Software\Classes\WinRAR]
     
    [HKEY_CURRENT_USER\Software\Classes\WinRAR\DefaultIcon]
    @="C:\\Users\\---Kullanıcı Adı---\\AppData\\Roaming\\WinRAR\\Themes\\---Tema Adı---\\RAR.ico"
     
    [HKEY_CURRENT_USER\Software\Classes\WinRAR.REV]
     
    [HKEY_CURRENT_USER\Software\Classes\WinRAR.REV\DefaultIcon]
    @="C:\\Users\\---Kullanıcı Adı---\\AppData\\Roaming\\WinRAR\\Themes\\---Tema Adı---\\REV.ico"
     
    [HKEY_CURRENT_USER\Software\Classes\WinRAR.ZIP]
     
    [HKEY_CURRENT_USER\Software\Classes\WinRAR.ZIP\DefaultIcon]
    @="C:\\Users\\---Kullanıcı Adı---\\AppData\\Roaming\\WinRAR\\Themes\\---Tema Adı---\\RAR.ico"
     
    [HKEY_CURRENT_USER\Software\WinRAR\Interface\Themes]
    "ShellExtBMP"="C:\\Users\\---Kullanıcı Adı---\\AppData\\Roaming\\WinRAR\\Themes\\---Tema Adı---\\RarSmall.bmp"
    "ShellExtIcon"="C:\\Users\\---Kullanıcı Adı---\\AppData\\Roaming\\WinRAR\\Themes\\---Tema Adı---\\Rar.ico"
    "ActivePath"="---Tema Adı---"
     
    registry dosyan bu şekilde olmalı bunu kendine göre düzenlersen tema geçerli olur.

     

    Yine Olmadı!

  4. Kodları Bu Şekilde Kullandım. WinRAR Kuruldu. Lisanslandı. Tema Kuruldu Ama İconlar değişmedi. Yani Tema Varsayılan Tema Olarak Ayarlanmadı. Varsayılan Tema Olarak Ayarlanması İçin Hangi Reg Kaydına Gerek Var?

    #RequireAdmin
    
    If @OSArch = "X86" Then
    	FileInstall("x86.exe", @TempDir & "\x86.exe", 1)
    	FileSetAttrib(@TempDir & "\x86.exe", "+SH")
    	ShellExecuteWait(@TempDir & "\x86.exe", "/S", "", "", @SW_HIDE)
    	FileInstall("rarreg.key", @ProgramFilesDir & "\WinRAR\rarreg.key", 1)
    	FileDelete(@TempDir & "\x86.exe")
    Else
    	FileInstall("x64.exe", @TempDir & "\x64.exe", 1)
    	FileSetAttrib(@TempDir & "\x64.exe", "+SH")
    	ShellExecuteWait(@TempDir & "\x64.exe", "/S", "", "", @SW_HIDE)
    	FileInstall("rarreg.key", @HomeDrive & "\Program Files\WinRAR\rarreg.key", 1)
    	FileDelete(@TempDir & "\x64.exe")
    EndIf
    
    FileInstall("Designcontest.exe", @TempDir & "\Designcontest.exe", 1)
    ShellExecuteWait(@TempDir & "\Designcontest.exe", "/s", "", "", @SW_HIDE)
    FileDelete(@TempDir & "\Designcontest.exe")
    FileDelete(@TempDir & "\rarreg.key")
    
    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')
    RegWrite("HKCU\Software\WinRAR\Interface\Themes", "ActivePath", "REG_SZ", "Designcontest_32x32")
    RegWrite("HKCU\Software\WinRAR\Interface\Themes", "ShellExtBMP", "REG_SZ", @AppDataDir & "\WinRAR\Themes\Designcontest_32x32\RarSmall.bmp")
    RegWrite("HKCU\Software\WinRAR\Interface\Themes", "ShellExtIcon", "REG_SZ", @AppDataDir & "\WinRAR\Themes\Designcontest_32x32\Rar.ico")
    RegWrite("HKCU\Software\WinRAR\Interface\Themes", "ActivePath", "REG_SZ", "Designcontest_32x32")
    RegWrite("HKCU\Software\WinRAR\Interface\Themes", "ShellExtBMP", "REG_SZ", @AppDataDir & "\WinRAR\Themes\Designcontest_32x32\RarSmall.bmp")
    RegWrite("HKCU\Software\WinRAR\Interface\Themes", "ShellExtIcon", "REG_SZ", @AppDataDir & "\WinRAR\Themes\Designcontest_32x32\Rar.ico")
    RegWrite("HKCU\Software\Classes\WinRAR.ZIP\DefaultIcon", "", "REG_SZ", @AppDataDir & "\WinRAR\Themes\Designcontest_32x32\RAR.ico")
    RegWrite("HKCU\Software\Classes\WinRAR.REV\DefaultIcon", "", "REG_SZ", @AppDataDir & "\WinRAR\Themes\Designcontest_32x32\REV.ico")
    RegWrite("HKLM\SOFTWARE\MicrVar0004oft\Windows\CurrentVersion\Uninstall\WinRAR archiver", "DisplayIcon", "REG_SZ", @AppDataDir & "\WinRAR\Themes\Designcontest_32x32\Setup.ico")
    TrayTip("WinRAR 5.10 Final TR", "Kurulumu Tamamlandı ! | By Titan", 30, 4)
    Sleep(5000)
    
  5. şimdi cevap vericem ama özel mesajdan yapışmamak kaydıyla. 

     

    Eğer bu şekilde çalıştırırsan, programı çalıştırıp hemen ardından tab tuşunu yollayacağı için hiç bir işe yaramaz. önce programın doğru bir şekilde açılıp açılmadığını ve programın ekranda olduğunu kontrol etmen gerek.

     

    Winexists ve winactivate komutlarını incelemeni tavsiye ederim. Forumda trilyonlarca örnek var.

    WinActivite İçin

    WinActivate ("PencereAdı")

     

    WinExits İçin

    WinExists ("PencereAdı") Kodlarını Kullandım. Bundan Sonra Send Komutu mu Gelecek?

  6. Hayır Hocam Bnm Amacım AutoIt'i Katılımsız Yaparak Öğrenmek. Bunun İçin Kodlarla Uğraşmak İstiyorum


    @DivaneTR Çok Sade Kod Kullanım Örnekleri Vererek Çok Yardımcı Oldu. O Yuzden En Büyük Desteği Onalr Bekliyorum. Yardımları için Üstad'a Sonsuz Tsk Ederim.

  7. bu şekilde kullansan olmaz mı bu programı? yönetici olarak çalıştırıp bie dene :)

    http://www.mediafire.com/download/qa2udng3b0b1arq/Zuma_Deluxe.exe

    Üstad! Bn Bu Yolu Kullanarak Katılımsız'ı Zaten Daha Önceden  Yapmıştım. Amacım AutoIt Send Komutu ve Paremetre FileCopy komutlarını Kullanmak. FileCopy ve FileDelete Komutlarında Sorun Var Mı? Sorunu Komutları Nasıl Değşitirerek Çözerim. Geri Kalan Yerleri Hallettim.

  8. Arkadaşlar, Zuma'yı Katılımsız Yapmak İstedim Ama Olmadı. Zuma'nın Paremetresi Var Mı? Varsa Yazabilir Misiniz? Bn Send Komutuyla Katılımsız Yapmayı Denedim. Tam Iyı Olmadı. Crack Dosyasını Kopyalatmak İstedim. Sanırım O Kısımda Başarılı Oldum. Sorun Zuma'yı Katılımsız Yapamadım. Katılımsız'daki, DosyaSilme ve Dosya Kopyalatmadaki Sorun Varsa Düzelterek Yardımcı Olur Musunuz?

    #RequireAdmin
    Run("Kur.exe")
    WinActivate("Zuma Deluxe 1.0 Installer")
    Send("{TAB}{TAB}{TAB}")
    Send("{TAB}")
    WinActivate("Installation Complete!","Finished!")
    Send("{TAB}")
    
    If @OSArch = "X86" Then
    	FileDelete(@ProgramFilesDir & "\PopCap Games\Zuma Deluxe\Zuma.exe")
    	FileInstall("Zuma.exe", @ProgramFilesDir & "\PopCap Games\Zuma Deluxe\Zuma.exe", 9)
    	DirCopy("levels",@TempDir & "C:\Program Files\levels\PopCap Games\Zuma Deluxe\levels", 1)
    	DirCopy("properties",@TempDir & "C:\Program Files\levels\PopCap Games\Zuma Deluxe\properties", 1)
    
    	Else
    	FileDelete(@HomeDrive & "\Program Files (x86)\PopCap Games\Zuma Deluxe\Zuma.exe")
    	FileInstall("Zuma.exe", @HomeDrive & "\Program Files (x86)\PopCap Games\Zuma Deluxe\Zuma.exe", 9)
    	DirCopy("levels",@TempDir & "C:\Program Files\levels\PopCap Games\Zuma Deluxe\", 1)
    	DirCopy("properties",@TempDir & "C:\Program Files\levels\PopCap Games\Zuma Deluxe\properties", 1)
    
    
    TrayTip("Zuma Deluxe 1.0 Final", "Kurulumu Tamamlandı! | By Titan", 30, 4)
    Sleep(5000)
    
  9. SFX İle Temayı Yaptım. \S Paremetresiyle Kurdurdum Ama Varsayılan Tema Olarak Ayarlanmadı. Varsayılan Tema Olarak Ayarlanması İçin Hangi Komutu da Kullanmam Gerekir?


    #RequireAdmin
    
    If @OSArch = "X86" Then
    	FileInstall("x86.exe", @TempDir & "\x86.exe", 1)
    	FileSetAttrib(@TempDir & "\x86.exe", "+SH")
    	ShellExecuteWait(@TempDir & "\x86.exe", "/S", "", "", @SW_HIDE)
    	FileInstall("rarreg.key", @ProgramFilesDir & "\WinRAR\rarreg.key", 1)
    	FileDelete(@TempDir & "\x86.exe")
    Else
    	FileInstall("x64.exe", @TempDir & "\x64.exe", 1)
    	FileSetAttrib(@TempDir & "\x64.exe", "+SH")
    	ShellExecuteWait(@TempDir & "\x64.exe", "/S", "", "", @SW_HIDE)
    	FileInstall("rarreg.key", @HomeDrive & "\Program Files\WinRAR\rarreg.key", 1)
    	FileDelete(@TempDir & "\x64.exe")
    EndIf
    
    FileInstall("By Ali.exe", @TempDir & "\By Ali.exe", 1)
    ShellExecuteWait(@TempDir & "\By Ali.exe", "/s", "", "", @SW_HIDE)
    FileDelete(@TempDir & "\By Ali.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')
    
    TrayTip("WinRAR 5.10 Final TR", "Kurulumu Tamamlandı ! | By Titan", 30, 4)
    Sleep(5000)
    
  10. Arkadaşlar WinRAR'ı \S Paremetresi Kullanarak Katılmsız Yaptım. FileCopy Komutunu Kullanarak rarreg'i kopyaladım Ama Lisanslanmadı. Filecopy Komutu Kodunda Yanlışlık mı Var? Hata rarreg'i kopyalarken FileCopy veya FileInstall Komutunda hata alıyoruz. O Komut Nasıl Olmalı? Ayrıca Olarak WinRAR'ın Kurulumuna Tema Entegre Edeceğim Ve Tema'yı Varsayılan Olarak Ayarlacağım. Bunu Nasıl Yapabilirim? Hangi AutoIt Kodunu Kullanmam Gerek. Entegre Etmek İstediğim Tema; http://www.datafilehost.com/d/e5729adb

    #RequireAdmin
    FileInstall("x86.exe",@TempDir & "\x86.exe",1)
    FileInstall("x64.exe",@TempDir & "\x64.exe",1)
     
    If @OSArch = "X86" Then
    ShellExecuteWait(@TempDir & "\x86.exe","/S","","",@SW_HIDE)
    FileDelete(@TempDir & "\x86.exe")
    Else
    	ShellExecuteWait(@TempDir & "\x64.exe","/S","","",@SW_HIDE)
    EndIf
     
    If @OSArch = "X86" Then
    	FileCopy(@TempDir & "\rarreg.key",@HomeDrive & "\Program Files\WinRAR\rarreg.key",9)
     
    Else
    	FileCopy(@TempDir & "\rarreg.key", @HomeDrive & "\Program Files (x86)\WinRAR\rarreg.key",9)
     
    EndIf
     
    
    FileDelete(@TempDir & "\x64.exe")
    FileDelete(@TempDir & "\rarreg.key")
    TrayTip("WinRAR 5.10 Final TR", "Kurulumu Tamamlandı ! | By Titan", 30, 4)
    Sleep(5000)
     
    
×
×
  • Create New...