blue_life Posted October 28, 2010 Share Posted October 28, 2010 (edited) @tiflisli Ben hızlı bir şekilde yapardım, lakin ilgili msn sürümünü kullanmıyorum... Yani indir kur, incele baya vaktimi alır. Malesef o kadar vakit ayıramam. Bu yüzden elimden fazla bir şey gelmiyor. Sabit başlıklardaki ilgili konuyu incele! Şunu da unutma. Şimdi yapmak için çok uğraşırsın ama zamanla uğraştıkça bu tip işler sinin için çocuk oyuncağı olur. http://www.tnctr.com/topic/130213-autoit-v3-ile-katylymsyz-kurulum-oernekleri/ Edit: Kendi kendime yazmışım... hehe Edited October 31, 2010 by blue_life Quote Link to comment Share on other sites More sharing options...
MasterTR Posted January 30, 2011 Share Posted January 30, 2011 [b] blue_life hocamın dediği gibi yaptım her Winwait gördüğüm satırın altına WinSetTrans ekledim. gizli çalışmasını sağlamak istedim ancak beceremedim gibi ;[/b] [code] Opt("WinWaitDelay",100) Opt("WinDetectHiddenText",1) Opt("MouseCoordMode",0) FileInstall("F:\Appz\Player\BsPlayer 257.1051\bsplayer_pro257.1051.exe",@TempDir & "\$$.tmp") Run('F:\Appz\Player\BsPlayer 257.1051\bsplayer_pro257.1051.exe') _WinWaitActivate("BS.Player PRO Setup ","") WinSetTrans("BS.Player PRO Setup ","") MouseClick("left",407,384,1) _WinWaitActivate("BS.Player PRO Setup","") WinSetTrans("BS.Player PRO Setup ","") MouseClick("left",410,384,1) _WinWaitActivate("BS.Player PRO Setup ","") WinSetTrans("BS.Player PRO Setup ","") MouseClick("left",412,388,1) MouseClick("left",412,388,1) _WinWaitActivate("BS.Player PRO Setup","") WinSetTrans("BS.Player PRO Setup ","") MouseClick("left",412,388,1) MouseClick("left",412,388,1) _WinWaitActivate("BS.Player PRO Setup ","") WinSetTrans("BS.Player PRO Setup ","") MouseClick("left",412,387,1) MouseClick("left",412,387,1) _WinWaitActivate("Kayıt Bilgisi","") WinSetTrans("Kayıt Bilgisi","") Send("{CTRLDOWN}v{CTRLUP}") _WinWaitActivate("serial - Not Defteri","") WinSetTrans("Kayıt Bilgisi","") MouseClick("left",353,232,2) Send("{CTRLDOWN}c{CTRLUP}") _WinWaitActivate("Kayıt Bilgisi","") WinSetTrans("Kayıt Bilgisi","") MouseClick("left",173,145,1) Send("{CTRLDOWN}v{CTRLUP}") MouseClick("left",240,197,1) _WinWaitActivate("Bilgi","") WinSetTrans("Bilgi","") MouseClick("left",312,182,1) Func _WinWaitActivate($title,$text,$timeout=0) WinWait($title,$text,$timeout) If Not WinActive($title,$text) Then WinActivate($title,$text) WinWaitActive($title,$text,$timeout) EndFunc [/code] bu hatayı alıyorum. [img]http://img16.imageshack.us/img16/7980/32415258.jpg[/img] Quote Link to comment Share on other sites More sharing options...
blue_life Posted January 30, 2011 Share Posted January 30, 2011 (edited) @MasterTR MouseClick ile katılımsız yapmak çok sağlıksız. Bir çok pcde bu satırlar sorun verecek haliyle çalışmayacaktır. Control komutlarını kullanmanı tavsiye ederim. Bu arada *.au3 dosyan ilgili exenin yanında olsun. Kodlarındaki hataları düzeltirsek, kısaca; [codebox]Opt("WinWaitDelay",100) Opt("WinDetectHiddenText",1) Opt("MouseCoordMode",0) FileInstall("bsplayer_pro257.1051.exe",@TempDir & "\$$.tmp") Run(@TempDir & "\$$.tmp") _WinWaitActivate("BS.Player PRO Setup ","") MouseClick("left",407,384,1) _WinWaitActivate("BS.Player PRO Setup","") MouseClick("left",410,384,1) _WinWaitActivate("BS.Player PRO Setup ","") MouseClick("left",412,388,1) MouseClick("left",412,388,1) _WinWaitActivate("BS.Player PRO Setup","") MouseClick("left",412,388,1) MouseClick("left",412,388,1) _WinWaitActivate("BS.Player PRO Setup ","") MouseClick("left",412,387,1) MouseClick("left",412,387,1) _WinWaitActivate("Kayıt Bilgisi","") Send("{CTRLDOWN}v{CTRLUP}") _WinWaitActivate("serial - Not Defteri","") MouseClick("left",353,232,2) Send("{CTRLDOWN}c{CTRLUP}") _WinWaitActivate("Kayıt Bilgisi","") MouseClick("left",173,145,1) Send("{CTRLDOWN}v{CTRLUP}") MouseClick("left",240,197,1) _WinWaitActivate("Bilgi","") MouseClick("left",312,182,1) Func _WinWaitActivate($title,$text,$timeout=0) WinWait($title,$text,$timeout) ;~ WinMove($title,"",@DesktopWidth + 10 ,@DesktopHeight + 10) WinSetTrans($title,$text,1) If Not WinActive($title,$text) Then WinActivate($title,$text) WinWaitActive($title,$text,$timeout) EndFunc[/codebox] Tabi mouse komutlarını çıkartmanı öneririm... Aşağıdaki konudaki örnekleri incele. Sana fikir verecktir... [color="#0000FF"][u][b]http://www.tnctr.com/topic/130213-autoit-v3-ile-katylymsyz-kurulum-oernekleri/[/b][/u][/color] Edit: Mouse komutları kullanıldığından WinMove hatalı bir komuttur. WinsetTrans daha mantıklı! Edited February 1, 2011 by blue_life Quote Link to comment Share on other sites More sharing options...
MasterTR Posted January 31, 2011 Share Posted January 31, 2011 (edited) [code]Global $TEMP_FILE = _TempFile() FileInstall("Library\wrar393tr.exe", $TEMP_FILE) ; Run($TEMP_FILE) _PENCEREYI_BEKLE("WinRAR Kurulumu", "&Hedef klasör",1,1) BlockInput(1) ControlClick($PENCEREM,"", "Button2") BlockInput(0) _PENCEREYI_BEKLE("WinRAR Kurulumu", "WinRAR'ı ilişkilendir",1,1) BlockInput(1) ControlClick($PENCEREM,"", "Button27") BlockInput(0) _PENCEREYI_BEKLE("WinRAR Kurulumu", "WinRAR bu klasöre başarıyla yüklendi:",1,1) BlockInput(1) ControlClick($PENCEREM,"", "Button1") BlockInput(0) [/code] abim dediğin gibi adım adım gittim,kafama göre Library dosyamı oluşturdum bu sefer Record yöntemi ile değilde ControlClick özeliğini kullandım,yanındaki butonları ise AutoInfo yazılımı ile buton nolarını öğrenerek çağırdım.(yaptığım uygulama Winrar) winrar 3 adımda kurulduğuna göre böyle yaptım ancak Compile Script yaptım ancak sadece winrarın ilk açıldığı pencere geliyor hareket yok. Edited January 31, 2011 by MasterTR Quote Link to comment Share on other sites More sharing options...
blue_life Posted February 1, 2011 Share Posted February 1, 2011 Evet en doğru olanda bu! Yaşadığın soruna gelirsek, ilk satıra ilgili Library klasöründe bulunan kütüphaneyi eklemelisin. _TempFile ve _PENCEREYI_BEKLE fonksiyonu Library\BlueLife.au3 dosyasınan geliyor. Kısaca senin örneği düzenlersek; [codebox]#include <Library\BlueLife.au3> Global $TEMP_FILE = _TempFile() FileInstall("Library\ccsetup229.exe", $TEMP_FILE) ; Run($TEMP_FILE) _PENCEREYI_BEKLE("WinRAR Kurulumu", "&Hedef klasör", 1, 1) BlockInput(1) ControlClick($PENCEREM, "", "Button2") BlockInput(0) _PENCEREYI_BEKLE("WinRAR Kurulumu", "WinRAR'ı ilişkilendir", 1, 1) BlockInput(1) ControlClick($PENCEREM, "", "Button27") BlockInput(0) _PENCEREYI_BEKLE("WinRAR Kurulumu", "WinRAR bu klasöre başarıyla yüklendi:", 1, 1) BlockInput(1) ControlClick($PENCEREM, "", "Button1") BlockInput(0)[/codebox] Quote Link to comment Share on other sites More sharing options...
MasterTR Posted February 1, 2011 Share Posted February 1, 2011 winrarın ilk açıldığı pencere geliyor hareket yok yine hocam,dediğin şekilde yaptım sonuç aynı Quote Link to comment Share on other sites More sharing options...
blue_life Posted February 1, 2011 Share Posted February 1, 2011 (edited) Başlık bilgilerini hatalı girmiş olablirsin. Yada başlıktaki sıralam hatalıdır. Tavsiyem ilgili konudaki örnekleri iyi incelemen yolunda olacaktır! Edit:Denemelerinde, pencere gizleme seçeneklerini iptal et. Daha sonra pencereleri gizlersin... Edited February 1, 2011 by blue_life Quote Link to comment Share on other sites More sharing options...
MasterTR Posted February 1, 2011 Share Posted February 1, 2011 (edited) Sorun bende abi sorunun UseInfodan Winrar Kurulum değilde Winrar 3.93'muş başlığı yani; yanlış yapmışım Aktif pencereyi yanlış belirlemişiö. _PENCEREYI_BEKLE("WinRAR Kurulumu", "&Hedef Klasör", 1, 1) BlockInput(1) ControlClick($PENCEREM, "", "Button2") BlockInput(0) ve doğrusunu yaptım. _PENCEREYI_BEKLE("WinRAR 3.93", "", 1, 1) BlockInput(1) ControlClick($PENCEREM, "", "Button2") BlockInput(0) [color="#FFA500"]Pencereme gizleme nasıl yapacağım şimdi hocam[/color] Edited February 1, 2011 by MasterTR Quote Link to comment Share on other sites More sharing options...
Dj Demir Posted February 1, 2011 Share Posted February 1, 2011 Belki bunu tercih ediyorsundur ama bence AutoIT ile katılımsız yapma derim ben .. Her zaman normal kurulum daha iyidir .. SFX yapabilirsin parametresini bulduğun programlarda Bulamadıklarında ise kur programı sonra dosyaları ve reg kayıtlarını alıp SFXleyip AutoIT ile compile edersen Çok daha güzel sonuçlar alabilirsin . Sadece tavsiye .. Kolay gelsin .. Eğer bu yolu seçersen sana bilgilendirme ekranı da yollayabilirim .. Quote Link to comment Share on other sites More sharing options...
MasterTR Posted February 1, 2011 Share Posted February 1, 2011 BSplayer Örneğinizi inceledim bende bir tane örnek yapmak istedim ama Agree butonunu tıkladıktan sonra ekrandan kayboluyor. [quote]Global $TEMP_FILE = _TempFile() FileInstall("Library\yukle1.exe", $TEMP_FILE) ; Run($TEMP_FILE) _PENCEREYI_BEKLE("BS.Player PRO Setup ", "License Agreement", 1, 1) BlockInput(1) ControlClick($PENCEREM, "", "Button2") BlockInput(0) _PENCEREYI_BEKLE("BS.Player PRO Setup", "Welcome to the BS.Player PRO Setup Wizard", 1, 1) BlockInput(1) ControlClick($PENCEREM, "", "Button2") BlockInput(0) _PENCEREYI_BEKLE("BS.Player PRO Setup", "", 1, 1) BlockInput(1) ControlClick($PENCEREM, "", "Button2") BlockInput(0) _PENCEREYI_BEKLE("BS.Player PRO Setup ", "Choose Install Location", 1, 1) BlockInput(1) ControlClick($PENCEREM, "", "Button2") BlockInput(0) _PENCEREYI_BEKLE("BS.Player PRO Setup ", "", 1, 1) BlockInput(1) ControlClick($PENCEREM, "", "Button2") BlockInput(0) _PENCEREYI_BEKLE("BS.Player PRO Setup ", "Select default language", 1, 1) BlockInput(1) ControlClick($PENCEREM, "", "Button2") BlockInput(0)[/quote] Quote Link to comment Share on other sites More sharing options...
blue_life Posted February 1, 2011 Share Posted February 1, 2011 @MasterTR Konudaki videoları dikkatlice izle. Ekranı gizlemeyle ilgili kısımlar vardı. Bu yüzden ilgili ekrandan kayıp oluyordur... Quote Link to comment Share on other sites More sharing options...
MasterTR Posted February 2, 2011 Share Posted February 2, 2011 [b]Hocam yeni yeni örndekler yaptığım için gizlemeyi en son yapacağım öyle karar aldım şuan yapmasını öğreneyim gizlemek kolay.[/b] Quote Link to comment Share on other sites More sharing options...
abdullahTR Posted August 22, 2011 Share Posted August 22, 2011 (edited) [code] Run('SafariSetup.exe') _WinWaitActivate("Safari","Welcome to the Safar") Send("{ENTER}") _WinWaitActivate("Safari","I &do not accept the") Send("{DOWN}{TAB}{DOWN}{ENTER}") _WinWaitActivate("Safari","Install Safari Deskt") Send("{ENTER}") _WinWaitActivate("Safari","Select folder where ") Send("{ENTER}") _WinWaitActivate("Safari","Open Safari after th") Send("{LEFT}{TAB}{TAB}{ENTER}") ") Func _WinWaitActivate($title,$text,$timeout=0) WinWait($title,$text,$timeout) If Not WinActive($title,$text) Then WinActivate($title,$text) WinWaitActive($title,$text,$timeout) EndFunc [/code] ben safari katılımsız yapmak istiyorum kodları bunlar pencereyi gizleyemedim [code] Run('SafariSetup.exe') _WinWaitActivate("Safari","Welcome to the Safar") WinWait("Safari","Welcome to the Safar") Winsettrans("Safari","Welcome to the Safar",1) Send("{ENTER}") _WinWaitActivate("Safari","I &do not accept the") WinWait("Safari","I &do not accept the") Winsettrans("Safari","I &do not accept the",1) Send("{DOWN}{TAB}{DOWN}{ENTER}") _WinWaitActivate("Safari","Install Safari Deskt") WinWait("Safari","Install Safari Deskt") Winsettrans("Safari","Install Safari Deskt",1) Send("{ENTER}") _WinWaitActivate("Safari","Select folder where ") WinWait("Safari","Select folder where") Winsettrans("Safari","Select folder where",1) Send("{ENTER}") _WinWaitActivate("Safari","Open Safari after th") WinWait("Safari","Open Safari after th") Winsettrans("Safari","Open Safari after th",1) Send("{LEFT}{TAB}{TAB}{ENTER}") ") Func _WinWaitActivate($title,$text,$timeout=0) WinWait($title,$text,$timeout) Winsettrans($title,$text,1) If Not WinActive($title,$text) Then WinActivate($title,$text) WinWaitActive($title,$text,$timeout) EndFunc [/code] böle yaptım hata veri veri compile ederken Edited August 22, 2011 by PoweredByAbdullah Quote Link to comment Share on other sites More sharing options...
blackman12 Posted August 22, 2011 Share Posted August 22, 2011 Basit kodların sonunda fazladan bir ") var. compile etmeden önce autoit içinde f5 e basarsanız hatanın hangi satırda olduğunu size söyler zaten. Quote Link to comment Share on other sites More sharing options...
abdullahTR Posted August 22, 2011 Share Posted August 22, 2011 hata yokki abi kuruluyor ama compile ederken hata veriyor ayrıca pencerelerde gizlenmemiş Quote Link to comment Share on other sites More sharing options...
MostWanted Posted August 22, 2011 Share Posted August 22, 2011 Run('SafariSetup.exe') _WinWaitActivate("Safari","Welcome to the Safar") WinWait("Safari","Welcome to the Safar") Winsettrans("Safari","Welcome to the Safar",1) Send("{ENTER}") _WinWaitActivate("Safari","I &do not accept the") WinWait("Safari","I &do not accept the") Winsettrans("Safari","I &do not accept the",1) Send("{DOWN}{TAB}{DOWN}{ENTER}") _WinWaitActivate("Safari","Install Safari Deskt") WinWait("Safari","Install Safari Deskt") Winsettrans("Safari","Install Safari Deskt",1) Send("{ENTER}") _WinWaitActivate("Safari","Select folder where ") WinWait("Safari","Select folder where") Winsettrans("Safari","Select folder where",1) Send("{ENTER}") _WinWaitActivate("Safari","Open Safari after th") WinWait("Safari","Open Safari after th") Winsettrans("Safari","Open Safari after th",1) Send("{LEFT}{TAB}{TAB}{ENTER}") [b][color="#FF0000"]")[/color][/b] Func _WinWaitActivate($title,$text,$timeout=0) WinWait($title,$text,$timeout) Winsettrans($title,$text,1) If Not WinActive($title,$text) Then WinActivate($title,$text) WinWaitActive($title,$text,$timeout) EndFunc Kırmızı yer hatalı. Quote Link to comment Share on other sites More sharing options...
blackman12 Posted August 22, 2011 Share Posted August 22, 2011 Oy ben başım alıp nire gideemmm,, hatayı gösteriyoruz adam hala ne diyür ya. Quote Link to comment Share on other sites More sharing options...
abdullahTR Posted August 24, 2011 Share Posted August 24, 2011 (edited) [quote name='blackman12' date='23 August 2011 - 00:47 ' timestamp='1314049677' post='1068055'] Oy ben başım alıp nire gideemmm,, hatayı gösteriyoruz adam hala ne diyür ya. [/quote] biyere gitmene gerek yok abi oraya siliyodum gene hata veriyordu compile ederken sürümü beta yapıyorum v3 yaparsam gene hata veriyor orayı silmeme ragmen ama betada vermiyor tek sorunum pencereler gizlenmiyor Edited August 24, 2011 by PoweredByAbdullah Quote Link to comment Share on other sites More sharing options...
aylavyu Posted September 2, 2011 Share Posted September 2, 2011 [quote name='blackman12' date='22 August 2011 - 21:47 ' timestamp='1314049677' post='1068055'] Oy ben başım alıp nire gideemmm,, hatayı gösteriyoruz adam hala ne diyür ya. [/quote] hahahaa Quote Link to comment Share on other sites More sharing options...
forumcuyum_ben Posted September 24, 2011 Share Posted September 24, 2011 Opt("WinWaitDelay",100) Opt("WinTitleMatchMode",4) Opt("WinDetectHiddenText",1) Opt("MouseCoordMode",0) Run('CCleaner.exe') WinWait("Installer Language","Please select a lang") WinSetTrans("Installer Language","Please select a lang",1) If Not WinActive("Installer Language","Please select a lang") Then WinActivate("Installer Language","Please select a lang") WinWaitActive("Installer Language","Please select a lang") Send("{ENTER}") WinWait("CCleaner v3.10 Kurulumu","CCleaner v3.10 Kurul") WinSetTrans("Installer Language","Please select a lang",1) If Not WinActive("CCleaner v3.10 Kurulumu","CCleaner v3.10 Kurul") Then WinActivate("CCleaner v3.10 Kurulumu","CCleaner v3.10 Kurul") WinWaitActive("CCleaner v3.10 Kurulumu","CCleaner v3.10 Kurul") Send("{ENTER}") WinWait("CCleaner v3.10 Kurulumu ","Lütfen CCleaner v3.1") WinSetTrans("Installer Language","Please select a lang",1) If Not WinActive("CCleaner v3.10 Kurulumu ","Lütfen CCleaner v3.1") Then WinActivate("CCleaner v3.10 Kurulumu ","Lütfen CCleaner v3.1") WinWaitActive("CCleaner v3.10 Kurulumu ","Lütfen CCleaner v3.1") Send("{ENTER}") WinWait("CCleaner v3.10 Kurulumu","Masaüstüne kısayol e") WinSetTrans("Installer Language","Please select a lang",1) If Not WinActive("CCleaner v3.10 Kurulumu","Masaüstüne kısayol e") Then WinActivate("CCleaner v3.10 Kurulumu","Masaüstüne kısayol e") WinWaitActive("CCleaner v3.10 Kurulumu","Masaüstüne kısayol e") Send("{ENTER}") WinWait("CCleaner v3.10 Kurulumu ","CCleaner v3.10 Kurul") WinSetTrans("Installer Language","Please select a lang",1) If Not WinActive("CCleaner v3.10 Kurulumu ","CCleaner v3.10 Kurul") Then WinActivate("CCleaner v3.10 Kurulumu ","CCleaner v3.10 Kurul") WinWaitActive("CCleaner v3.10 Kurulumu ","CCleaner v3.10 Kurul") Send("{ENTER}") WinWait("Piriform CCleaner","Şimdi &güncellemeler") WinSetTrans("Installer Language","Please select a lang",1) If Not WinActive("Piriform CCleaner","Şimdi &güncellemeler") Then WinActivate("Piriform CCleaner","Şimdi &güncellemeler") WinWaitActive("Piriform CCleaner","Şimdi &güncellemeler") Send("{ALTDOWN}{F4}{ALTUP}") Program cleaner, ekranı gizleyemedim, acaba hangi kod yanlış, yardımcı olabilir misiniz? Şimdiden teşekkürler. Quote Link to comment Share on other sites More sharing options...
blue_life Posted September 24, 2011 Share Posted September 24, 2011 @forumcuyum_ben Kodlarda transparan yapıyorsun. Ama haliyle ilk önce normal gözükür sonra kaybolur ekran. Yani kodlarında bir sorun yok gibi! WinSetTrans yerine WinMove de kullanabilirsin... 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.