whitedeath Posted March 19, 2013 Share Posted March 19, 2013 arkadaşlar msi ye çevirdiğim bi programı autoit ile en bait şekilde nasıl katılımsız yapabilirim program bittiğinde sağ altta uyarı baloncoğu çıkacak şekilde.bilen arkadaşlar anlatırsa çok makbule geçer emin olun Quote Link to comment Share on other sites More sharing options...
reyiz Posted March 19, 2013 Share Posted March 19, 2013 (edited) Lazım olabilecek tüm kodları en sade hali ile yazdım, kendinize göre değiştirebilirsiniz. Kodlar hakkında sorunuz varsa sorabilirsiniz. Kolay gelsin... #RequireAdmin #NoAutoIt3Execute Opt("TrayMenuMode", 1) TraySetToolTip("Programınız kuruluyor...") FileInstall(@DesktopDir & "\dosya.msi", @TempDir & "\dosya.msi") ShellExecuteWait(@TempDir & "\dosya.msi", "/quiet /norestart") TraySetToolTip("Kurulum tamamlandı.") TrayTip("TNCTR.com", "Kurulum tamamlandı!", 20, 4) Sleep(20000) Edited March 21, 2013 by reyiz Quote Link to comment Share on other sites More sharing options...
abdullahTR Posted March 19, 2013 Share Posted March 19, 2013 /qn parametresi ile kurdurtacaksın Quote Link to comment Share on other sites More sharing options...
NoobAccountant Posted March 19, 2013 Share Posted March 19, 2013 Kurulum ekranının görünmesini istersen /qb görünmesini istemezsen /qn parametresi ile yapacaksın. Quote Link to comment Share on other sites More sharing options...
whitedeath Posted March 19, 2013 Author Share Posted March 19, 2013 reyiz verdiğin kodları nasıl kullanıcam kısaca açıklayabilirmisin.bide aşağıdaki kodu buldum onu denedim ama uyarı falan çıkıyo ama program kurulmuyo Opt("TrayMenuMode", 1) TrayTip(".::MeHMeT::.UYARI!", "Yahoo Messenger yüklenirken lütfen bekleyiniz", 30, 4) Sleep(2000) Global $Program = _TempFile() Global $Parametre = "/qn" FileInstall("Yahoomessenger.msi",$Program) ;~ ;RunWait($Program & " " & $Parametre) ShellExecuteWait($Program,$Parametre) FileDelete($Program) TrayTip("Başarıyla", "Yüklendi", 10,4) Sleep(2000) Func _TempFile($s_DirectoryName = @TempDir, $s_FileExtension = ".msi", $s_FilePrefix = "~", $i_RandomLength = 7) Local $s_TempName If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\" Do $s_TempName = "" While StringLen($s_TempName) < $i_RandomLength $s_TempName = $s_TempName & Chr(Random(97, 122, 1)) WEnd $s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension Until Not FileExists($s_TempName) Return ($s_TempName) EndFunc;==>_TempFile Quote Link to comment Share on other sites More sharing options...
reyiz Posted March 19, 2013 Share Posted March 19, 2013 (edited) #RequireAdmin ; katılımsızı açtığınızda yönetici hakları ister #NoAutoIt3Execute ; yanlışlıkla bir parametre ile açılırsa hata vermesini önler Opt("TrayMenuMode", 1) ; katılımsız kurulumun yanlışlıkla görev çubuğundan kapatılmasını engeller TraySetToolTip("Programınız kuruluyor...") ; görev çubuğunda ki iconun üzerine gelince çıkan yazı FileInstall(@DesktopDir & "\dosya.msi", @TempDir & "\dosya.msi") ; msi dosyasını katılımsızın içerisine atma, birinci kısım senin bilgisayarın, ikinci kısım açılacak olan bilgisayarda atılacak kısım, @tempdir temp klasörüne atmasını sağlar ShellExecuteWait(@TempDir & "dosya.msi", "/quiet /norestart") ; msi dosyasını çalıştırır, /quiet yerine /passive yazarsan sadece ilerleme çubuğu gözükür ama katılımsız kurar, /norestart yeniden başlatmayı önler TraySetToolTip("Kurulum tamamlandı.") ; görev çubuğundaki yazıyı günceller TrayTip("TNCTR.com", "Kurulum tamamlandı!", 20, 4) ; mesaj çıkartır, 20 yerine 10 yazarsan 10 sn. gözükür fakat alttada 10000 yapman gerekir Sleep(20000) Edited March 19, 2013 by reyiz Quote Link to comment Share on other sites More sharing options...
WolfmanTR_ Posted March 19, 2013 Share Posted March 19, 2013 /qn Tam sessiz, yapar, eğer kurulum progress i görünsün ama katılımsız olsun istiyorsan /qb yapabilirsin. Quote Link to comment Share on other sites More sharing options...
whitedeath Posted March 19, 2013 Author Share Posted March 19, 2013 reyiz kodları scripte atıyorum gerekli yerleride değiştiriyorum dosya.msi yi yani.msi olan dosyada masa üstünde sonra sağ tıklayıp compile script diyorum hata veriyor olmuyor.benmi yanlış yapıyorum* Quote Link to comment Share on other sites More sharing options...
reyiz Posted March 19, 2013 Share Posted March 19, 2013 (edited) Hata mesajı nedir? Ezberden yazdım belki bir yerinde bir sorun olabilir. Edited March 19, 2013 by reyiz Quote Link to comment Share on other sites More sharing options...
whitedeath Posted March 19, 2013 Author Share Posted March 19, 2013 Invalid FileInstall() function hatası veriyor Quote Link to comment Share on other sites More sharing options...
whitedeath Posted March 19, 2013 Author Share Posted March 19, 2013 kurulum paramtresi yok ondan olabilirmi "/qn" yani Quote Link to comment Share on other sites More sharing options...
reyiz Posted March 19, 2013 Share Posted March 19, 2013 Hayır. Katılımsızın içine aktarmaya çalıştığınız dosyanın yolunda bir hata var, msi dosyasını da masaüstüne atınız. ve bu şekilde yapınız Quote Link to comment Share on other sites More sharing options...
FLaky Posted March 20, 2013 Share Posted March 20, 2013 (edited) Func _TempFile($s_DirectoryName = @TempDir, $s_FileExtension = ".msi", $s_FilePrefix = "~", $i_RandomLength = 7) Local $s_TempName If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\" Do $s_TempName = "" While StringLen($s_TempName) < $i_RandomLength $s_TempName = $s_TempName & Chr(Random(97, 122, 1)) WEnd $s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension Until Not FileExists($s_TempName) Return ($s_TempName) EndFunc;==>_TempFile Fonksiyonda hata olabilir aslını C:\Program Files (x86)\AutoIt3\Include File.au3 içinde bulabilirsiniz.. Func _TempFile($s_DirectoryName = @TempDir, $s_FilePrefix = "~", $s_FileExtension = ".tmp", $i_RandomLength = 7) ; Check parameters If IsKeyword($s_FilePrefix) Then $s_FilePrefix = "~" If IsKeyword($s_FileExtension) Then $s_FileExtension = ".tmp" If IsKeyword($i_RandomLength) Then $i_RandomLength = 7 If Not FileExists($s_DirectoryName) Then $s_DirectoryName = @TempDir ; First reset to default temp dir If Not FileExists($s_DirectoryName) Then $s_DirectoryName = @ScriptDir ; Still wrong then set to Scriptdir ; add trailing \ for directory name If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\" ; Local $s_TempName Do $s_TempName = "" While StringLen($s_TempName) < $i_RandomLength $s_TempName = $s_TempName & Chr(Random(97, 122, 1)) WEnd $s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension Until Not FileExists($s_TempName) Return $s_TempName EndFunc ;==>_TempFile Global $Temp_Dosya = _TempFile() FileInstall("Setup.msi", $Temp_Dosya, 1) ShellExecuteWait($Temp_Dosya,"/qn /norestart") Edited March 20, 2013 by FLaky Quote Link to comment Share on other sites More sharing options...
whitedeath Posted March 20, 2013 Author Share Posted March 20, 2013 flaky yazdığın şeylerden bişi anlamadım aşağıdak verdiğin kodları file doyasınamı kopyalıycam Quote Link to comment Share on other sites More sharing options...
reyiz Posted March 20, 2013 Share Posted March 20, 2013 (edited) Lazım olabilecek tüm kodları en sade hali ile yazdım, kendinize göre değiştirebilirsiniz. Kodlar hakkında sorunuz varsa sorabilirsiniz. Kolay gelsin...#RequireAdmin #NoAutoIt3Execute Opt("TrayMenuMode", 1) TraySetToolTip("Programınız kuruluyor...") FileInstall(@DesktopDir & "\dosya.msi", @TempDir & "\dosya.msi") ShellExecuteWait(@TempDir & "dosya.msi", "/quiet /norestart") TraySetToolTip("Kurulum tamamlandı.") TrayTip("TNCTR.com", "Kurulum tamamlandı!", 20, 4) Sleep(20000) Size en sade hali ile verdim, kodlar sorunsuz çalışıyor. Siz yanlış kullanıyo olabilirsiniz. Düzenlediğiniz hali verir misiniz? Edited March 20, 2013 by reyiz Quote Link to comment Share on other sites More sharing options...
whitedeath Posted March 20, 2013 Author Share Posted March 20, 2013 (edited) #RequireAdmin #NoAutoIt3Execute Opt("TrayMenuMode", 1) TraySetToolTip("Programınız kuruluyor...") Global $Program = _TempFile() Global $Parametre = "/qn" FileInstall("open.msi",$Program) ;~ ;RunWait($Program & " " & $Parametre) ShellExecuteWait($Program,$Parametre) TraySetToolTip("Kum tamamlandı.") TrayTip("TNCTR.com", "Kurulum tamamlandı!", 10, 4) Sleep(20000) Func _TempFile($s_DirectoryName = @TempDir, $s_FileExtension = "open.msi", $s_FilePrefix = "~", $i_RandomLength = 7) Local $s_TempName If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\" Do $s_TempName = "" While StringLen($s_TempName) < $i_RandomLength $s_TempName = $s_TempName & Chr(Random(97, 122, 1)) WEnd $s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension Until Not FileExists($s_TempName) Return ($s_TempName) EndFunc;==>_TempFile reyiz düzenlemeyi bilsem zaten konu açmazdım.düzenlenmiş halini bilen varsa yazsın isteğim bu sadece Edited March 20, 2013 by whitedeath Quote Link to comment Share on other sites More sharing options...
reyiz Posted March 20, 2013 Share Posted March 20, 2013 Benim verdiğim kodun kendinize göre uyarlanmış halini kastetmiştim. Yukarıdaki kod biraz karışık olduğundan sizin gibi yeni öğrenen arkadaşlara zor gelebilir. Bu yüzden daha sadece bir şekilde kodu yazdım. #RequireAdmin#NoAutoIt3ExecuteOpt("TrayMenuMode", 1)TraySetToolTip("Programınız kuruluyor...")FileInstall(@DesktopDir & "\dosya.msi", @TempDir & "\dosya.msi")ShellExecuteWait(@TempDir & "dosya.msi", "/quiet /norestart")TraySetToolTip("Kurulum tamamlandı.")TrayTip("TNCTR.com", "Kurulum tamamlandı!", 20, 4)Sleep(20000) Kurmak istediğiniz msi dosyasını masaüstünüze dosya.msi diye kaydedin ve kodu compile edin. Yapacağınız bu kadar :) Quote Link to comment Share on other sites More sharing options...
FLaky Posted March 20, 2013 Share Posted March 20, 2013 _TempFile Fonksiyonu Temp dizininde bulunmaya bi dosya ismi belirler..Üzerinde değişiklik yapma fonksiyonun.. Func _TempFile($s_DirectoryName = @TempDir, $s_FilePrefix = "~", $s_FileExtension = ".tmp", $i_RandomLength = 7) ; Check parameters If IsKeyword($s_FilePrefix) Then $s_FilePrefix = "~" If IsKeyword($s_FileExtension) Then $s_FileExtension = ".tmp" If IsKeyword($i_RandomLength) Then $i_RandomLength = 7 If Not FileExists($s_DirectoryName) Then $s_DirectoryName = @TempDir ; First reset to default temp dir If Not FileExists($s_DirectoryName) Then $s_DirectoryName = @ScriptDir ; Still wrong then set to Scriptdir ; add trailing \ for directory name If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\" ; Local $s_TempName Do $s_TempName = "" While StringLen($s_TempName) < $i_RandomLength $s_TempName = $s_TempName & Chr(Random(97, 122, 1)) WEnd $s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension Until Not FileExists($s_TempName) Return $s_TempName EndFunc ;==>_TempFile Global $Temp_Dosya = _TempFile() ;Bir isim belirletiyoruz.. FileInstall("Setup.msi", $Temp_Dosya, 1) ;Dosyamızı exemiin içine gömüyoruz ShellExecuteWait($Temp_Dosya,"/qn /norestart") ; Buradada msi dosyaımızı silent olarak kurduruyoruz.. Quote Link to comment Share on other sites More sharing options...
whitedeath Posted March 21, 2013 Author Share Posted March 21, 2013 neyse reyiz yazdığın kodu denemedin sanırım.dediklerinin aynısını yapıyorum ama aynı hatayı veriyor belliki kodlarda hata var.flakynin ne demek istediğini hala anlamış değilim.tek istediğim sadece düzgün çalışan bi kod bunuda veren olmadı Quote Link to comment Share on other sites More sharing options...
denizduac5 Posted March 21, 2013 Share Posted March 21, 2013 Tam sessiz kurulum için : /qn Kurulum progress'inin görünmesini istiyorsan : /qb Parametrelerini kullan. Quote Link to comment Share on other sites More sharing options...
reyiz Posted March 21, 2013 Share Posted March 21, 2013 (edited) Forumda AutoIt ile katılımsız hazırlama bir çok anlatım var. AutoIt'in temelini öğrenmeden direk kodlarla işlem yapmakta doğru değil. Ayrıca da tek bir konuya bağlı kalmamanızı tavsiye ediyorum. AutoIt yerine MS-DOS komutları ve Smart Install Maker ile de katılımsız hazırlayabilirsiniz. Kolay gelsin... :) Edited March 21, 2013 by reyiz Quote Link to comment Share on other sites More sharing options...
whitedeath Posted March 21, 2013 Author Share Posted March 21, 2013 reyiz sen bu kodları denedinmi çalışıyomu Quote Link to comment Share on other sites More sharing options...
reyiz Posted March 21, 2013 Share Posted March 21, 2013 Au3Check ile test ettim, herhangi bir sorun yok. Quote Link to comment Share on other sites More sharing options...
reyiz Posted March 21, 2013 Share Posted March 21, 2013 Sorun uzaktan yardım aracılığıyla çözülmüştür. 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.