xmyk Posted February 6, 2014 Share Posted February 6, 2014 (edited) Sere kardesim biliyorsun ben autoitten anlamam.Yani anlarımda kod falan ugrasmak zoruma gidiyor.Ama senin derdin bence autoitle degil 7ziple.Sisteminde kurulu olan 7zip sil ve verecegimi kur.İçinde sfx builder eklentisi var hemde winrarınki gibi herseyi editlersin oradan.Yapımcı adını ikonu falan ne ararsan kullanamazsan pm at yardımcı olum.Ben katılımısızlarımı 7ziple paketliyorum genelde. ya da simle paketleyip ardından bidaha simle paketliyom ama ikinci paketleyisimde tempe cıkarmasını ve cıkanların calısması saglatıyom sıkıntı olmuyor :D EDİT link: http://yadi.sk/d/p1muQ9BkHR8A4 Edited February 6, 2014 by xmyk Quote Link to comment Share on other sites More sharing options...
Bay_RC Posted February 6, 2014 Author Share Posted February 6, 2014 bu kodu şöyle ekleyince mükemmel oldu: FileInstall("e:\PROGRAM\KATILIMSIZ\idm\idmgrhlp.exe", @TempDir & "\_idmsetup\$", 1) Artık hem kurulurken hiçbir ekran çıkmıyor :good: Tam istediğim gibi Teşekkürler TNCTR Ailesi :) idm'yi komple kaldırıp deneyince yemedi :( celal sezer; bi zahmet team ile bağlanabilir misin ya da belirttiğin kodları nasıl eklemem gerekiyor bu koda seninkini denedim olmadı: [spoiler]#RequireAdmin #Region #AutoIt3Wrapper_Icon=icon.ico #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_Comment=TncTR.com - TNC Team #AutoIt3Wrapper_Res_Description=TncTR.com - TNC Team #AutoIt3Wrapper_Res_Fileversion=6.17.5.3 #AutoIt3Wrapper_Res_LegalCopyright=TncTR.com - TNC Team #AutoIt3Wrapper_Res_Language=1055 #AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator #AutoIt3Wrapper_Res_Field=CompanyName|TNC Unattanded Installation #AutoIt3Wrapper_Run_Tidy=y #AutoIt3Wrapper_Run_Obfuscator=y #Obfuscator_Parameters=/sf 1 /sv 1 #EndRegion #NoAutoIt3Execute If UBound(ProcessList(@ScriptName)) > 2 Then Exit 0 EndIf Opt("TrayMenuMode", 1) TraySetToolTip("IDM 6.18.19.1 Katılımsız Kurulumu") DirRemove(@TempDir & "\_idmsetup\") DirCreate(@TempDir & "\_idmsetup\") FileInstall("d:\program\KATILIMSIZ\idm\idmsetup.exe", @TempDir & "\_idmsetup\$", 1) FileInstall("d:\program\KATILIMSIZ\idm\IDMan.exe", @TempDir & "\_idmsetup\$_", 1) FileSetAttrib(@TempDir & "\_idmsetup\*", "+HSR-A", 1) Local $temp, $idman, $r1, $r2, $hosts $temp = @TempDir & "\_idmsetup\" $idman = @ProgramFilesDir & "\Internet Download Manager\IDMan.exe" $r1 = "HKLM\SOFTWARE\Internet Download Manager" $r2 = "HKCU\Software\DownloadManager" Func temizle() DirRemove($temp) DirRemove(@TempDir & "\IDM_Setup_Temp") EndFunc ;==>temizle Func _hosts($site) $hosts = FileRead(@WindowsDir & "\system32\drivers\etc\hosts") $hostsfile = @WindowsDir & "\system32\drivers\etc\hosts" FileSetAttrib($hostsfile, "-HSR", 1) If Not StringInStr($hosts, $site) Then FileWrite($hostsfile, @CRLF & "127.0.0.1 " & $site) EndIf If Not StringInStr($hosts, "www." & $site) Then FileWrite($hostsfile, @CRLF & "127.0.0.1 www." & $site) EndIf FileSetAttrib($hostsfile, "+HSR", 1) EndFunc ;==>_hosts ProcessClose("IDMan.exe") ProcessClose("idmBroker.exe") ProcessClose("IDMGrHlp.exe") ProcessClose("IDMIntegrator64.exe") ProcessClose("IEMonitor.exe") ProcessClose("Uninstall.exe") Run($temp & "$") WinWait("Internet Download Manager Quick Update", "Internet Download Manager has been successfully updated.", 60) ProcessClose("IDM1.tmp") FileSetAttrib($temp & "$", "-HSR", 1) FileDelete($temp & "$") If Not FileExists($idman) Then temizle() TrayTip("IDM 6.18.19.1 Katılımsız", "Kurulum tamamlanamadı. Lütfen tekrar deneyiniz.", 10, 3) Sleep(10000) Exit EndIf FileSetAttrib($temp & "$_", "-HSR", 1) FileMove($temp & "$_", $idman, 9) temizle() RegWrite($r1, "FName", "REG_SZ", "TncTR.com -") RegWrite($r1, "LName", "REG_SZ", "TNC Team") RegWrite($r1, "Email", "REG_SZ", "[email protected]") RegWrite($r1, "Serial", "REG_SZ", "22TH1-9R7NW-GAI4H-RXHLL") _hosts("internetdownloadmanager.com") _hosts("registeridm.com") _hosts("secure.registeridm.com") _hosts("secure.internetdownloadmanager.com") _hosts("mirror.internetdownloadmanager.com") _hosts("mirror2.internetdownloadmanager.com") _hosts("mirror3.internetdownloadmanager.com") _hosts("registeridm.com") _hosts("registeridm.com") FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\7-IDM.tbi", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\7-IDM.bmp", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\7-IDMHot.bmp", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\8.tbi", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\8.bmp", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\8_hot.bmp", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\ios.bmp", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\ios.tbi", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\ios_hot.bmp", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\MM_config_3.tbi", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\MM_large.bmp", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\MM_largeHot.bmp", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\MM_small.bmp", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\MM_smallHot.bmp", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\Primo.tbi", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\Primo_hot.bmp", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\MM_large.bmp", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\Primo_normal.bmp", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) RegWrite($r2, "ToolbarStyle", "REG_SZ", "8") RegWrite($r2, "LanguageID", "REG_DWORD", 0x0000001f) FileCreateShortcut($idman, @DesktopDir & "\Internet Download Manager.lnk") TrayTip("IDM 6.18.19.1 Katılımsız", "Kurulum tamamlanmıştır.", 10, 4) Sleep(10000)[/spoiler] Team için mesaj attım. Quote Link to comment Share on other sites More sharing options...
Mehmet Posted February 6, 2014 Share Posted February 6, 2014 yer yemesinede biryerde hata yapıyorsun idmgrhlp.exe neden temp'e atıp ordan işlem yaptırıyorsun anlayamadım direk gönder iki işlem yapacağına birde şu var FileInstall("d:\program\KATILIMSIZ\idm\Toolbar\7-IDM.tbi", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) birkere şunu yapman yanlış bir durum böyle alışma çok zorluk çekersin tüm dosyaları bir arada aynı klasörde tut ve doğrusu FileInstall("7-IDM.tbi", @ProgramFilesDir & "\Internet Download Manager\Toolbar\", 1) Quote Link to comment Share on other sites More sharing options...
Bay_RC Posted February 6, 2014 Author Share Posted February 6, 2014 x86 ve x64 kurulumunda sıkıntı çıkarabilir. Bu da benden olsun. İyi çalışmalar... ProcessClose("IDMan.exe") If @OSArch = "X86" Then FileDelete(@ProgramFilesDir & "\Internet Download Manager\IDMGrHlp.exe") FileInstall("IDMGrHlp.exe", @TempDir & "\IDMGrHlp.exe", 1) RunWait(@TempDir & "\IDMGrHlp.exe") ;sfx'ten gerekli ayarları yaptığını kabul ederek sadece exe'yi çalıştırır Else FileDelete(@HomeDrive & "\Program Files (x86)\Internet Download Manager\IDMGrHlp.exe") FileInstall("IDMGrHlp.exe", @TempDir & "\IDMGrHlp.exe", 1) RunWait(@TempDir & "\IDMGrHlp.exe") ;sfx'ten gerekli ayarları yaptığını kabul ederek sadece exe'yi çalıştırır EndIf Edit: Kusura bakma aceleyle yanlışlıklar oluşmuş. Bir de şimdi dene bakalım... Olmadı. Bi zahmet aşağıdaki upload ettiğim idm autoit kodunu tam çalışacak şekilde yapabilir misiniz: https://app.box.com/s/c3lum3xaib6wxuv1kn9y Quote Link to comment Share on other sites More sharing options...
celal sezer Posted February 6, 2014 Share Posted February 6, 2014 Team açsana Quote Link to comment Share on other sites More sharing options...
Bay_RC Posted February 6, 2014 Author Share Posted February 6, 2014 Team açsana eyvallah kardeşim açtım. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.