Administrator sk8er_boi Posted July 19, 2007 Administrator Share Posted July 19, 2007 Bu örnek crazy_pretty_murat arkadaşımız için öncelikle hazırlandı. Kuracağımız program Install Creator http://rapidshare.com/files/43755980/Install.exe[/CODE]Örnekte gördüğünüz gibi her değişen başlık için Winwait komutunun altında winsettrans komutu var.Winsettrans başlık bilgisi verilen pencereyi transparan yapar. 255 ile 0 arasınra bir değerdir. 255 yaparsanız tam görünür olur. 0 yaparsanız hiç gözükmez fakat butonlara tıklamıyor bu sefer. En iyisi 1.İşte örnek:[codebox]Run('Install.exe')WinWait("Install Creator - Installation Program","&Next >");Açılan Pencerenin transparanlığını 1 yapWinSetTrans("Install Creator - Installation Program","&Next >",1)If Not WinActive("Install Creator - Installation Program","&Next >") Then WinActivate("Install Creator - Installation Program","&Next >")WinWaitActive("Install Creator - Installation Program","&Next >")Send("{ENTER}{ENTER}")WinWait("Install Creator - Installation Program","Unregistered Version")If Not WinActive("Install Creator - Installation Program","Unregistered Version") Then WinActivate("Install Creator - Installation Program","Unregistered Version")WinWaitActive("Install Creator - Installation Program","Unregistered Version")Send("{ENTER}")WinWait("Install Creator - Installation Program","I agree with the abo")If Not WinActive("Install Creator - Installation Program","I agree with the abo") Then WinActivate("Install Creator - Installation Program","I agree with the abo")WinWaitActive("Install Creator - Installation Program","I agree with the abo")Send("{TAB}{TAB}{TAB}{UP}{TAB}{ENTER}")WinWait("Install Creator - Installation Program","&Next >")If Not WinActive("Install Creator - Installation Program","&Next >") Then WinActivate("Install Creator - Installation Program","&Next >")WinWaitActive("Install Creator - Installation Program","&Next >")Send("{ENTER}{ENTER}{ENTER}{ENTER}")WinWait("Install Creator - Installation Program","Launch Install Creat")If Not WinActive("Install Creator - Installation Program","Launch Install Creat") Then WinActivate("Install Creator - Installation Program","Launch Install Creat")WinWaitActive("Install Creator - Installation Program","Launch Install Creat")Send("{ENTER}")WinWait("Welcome","Welcome to the Insta")WinSetTrans("Welcome","Welcome to the Insta",1)If Not WinActive("Welcome","Welcome to the Insta") Then WinActivate("Welcome","Welcome to the Insta")WinWaitActive("Welcome","Welcome to the Insta")Send("{ALTDOWN}{F4}{ALTUP}")WinWait("Clickteam Install Creator - Install","&Include sub-directo")WinSetTrans("Clickteam Install Creator - Install","&Include sub-directo",1)If Not WinActive("Clickteam Install Creator - Install","&Include sub-directo") Then WinActivate("Clickteam Install Creator - Install","&Include sub-directo")WinWaitActive("Clickteam Install Creator - Install","&Include sub-directo")Send("{ALTDOWN}{F4}{ALTUP}")[/codebox] Quote Link to comment Share on other sites More sharing options...
Thund3R Posted July 19, 2007 Share Posted July 19, 2007 Bu kodları yaptığmız projenin en altına mı yazcaz autoit kodnun olduğu yerin? Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted July 19, 2007 Author Administrator Share Posted July 19, 2007 Bu kodları yaptığmız projenin en altına mı yazcaz autoit kodnun olduğu yerin? AutoIT kodu zaten bunlar. Bat dosyasına filan yazma . Quote Link to comment Share on other sites More sharing options...
crazy_pretty_murat Posted July 19, 2007 Share Posted July 19, 2007 (edited) Allah razı olsun sk8er_boi. Yani çok şaşırdım vallaha çok sağol.Şu an rapid de sorun var indiremiyorum ama eve gidince veya başka biri aracılığı ile alıcam.Verdiğin örnekte anlaşılıyor nasıl yapılacağı.Bende o kadar çok sordum ki bu soruyu,artık yeter dedin biliyorum Neyse çok teşekkürler.Bu konu ile ilgili daha soru sormam artık.Tekrar çok teşekkürler. Edited October 27, 2008 by crazy_pretty_murat Quote Link to comment Share on other sites More sharing options...
sheak Posted July 21, 2007 Share Posted July 21, 2007 ya ben ekranı gizleyemedim o mouse un tum hareketlerini gosterior. başka bir yolu varmı Quote Link to comment Share on other sites More sharing options...
blackman12 Posted July 21, 2007 Share Posted July 21, 2007 sheak zaten mouse la yaparsan her zaman için çalışmaz autoit scriptleri çözünürlüğü farklı olan bir bilgisayarda nasıl çalıştırcaksın? bunun için klavyeyle veya yardımcı kodlarla çalışmalısın. Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted July 21, 2007 Author Administrator Share Posted July 21, 2007 ya ben ekranı gizleyemedim o mouse un tum hareketlerini gosterior. başka bir yolu varmı Gün olur sende gizlersin ( Sorununu tam olarak dile getirebildiğin , yaptığın örneği verdiğin gün en azından ) Quote Link to comment Share on other sites More sharing options...
Thund3R Posted August 13, 2007 Share Posted August 13, 2007 (edited) Biraz daha açıklayıcı olsn.Örneğin autoit ile yaptığım bir programı nasıl gizlerim ben sana kodlarını yazsam sen resim olarak gösterirmisin?Yani o kodları nereye yazacağımı resim olarak werbilirmisin rica etsem Örnek kod;Program pdf to word programı Opt("WinWaitDelay",100)Opt("WinTitleMatchMode",4)Opt("WinDetectHiddenText",1)Opt("MouseCoordMode",0)Run('C:\Documents and Settings\ThunderBolt\Desktop\pdf2word.exe')WinWait("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP")If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Select Destination L")If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Select Destination L") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Select Destination L")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Select Destination L")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo")If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Select Additional Ta")If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Select Additional Ta") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Select Additional Ta")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Select Additional Ta")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Setup is now ready t")If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Setup is now ready t") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Setup is now ready t")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Setup is now ready t")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP")If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP")Send("{SPACE}{ENTER}")[/CODE] Edited August 13, 2007 by wildwachsend Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted August 13, 2007 Author Administrator Share Posted August 13, 2007 Biraz daha açıklayıcı olsn.Örneğin autoit ile yaptığım bir programı nasıl gizlerim ben sana kodlarını yazsam sen resim olarak gösterirmisin?Yani o kodları nereye yazacağımı resim olarak werbilirmisin rica etsem Örnek kod;Program pdf to word programı Opt("WinWaitDelay",100)Opt("WinTitleMatchMode",4)Opt("WinDetectHiddenText",1)Opt("MouseCoordMode",0)Run('C:\Documents and Settings\ThunderBolt\Desktop\pdf2word.exe')WinWait("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP")If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Select Destination L")If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Select Destination L") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Select Destination L")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Select Destination L")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo")If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Select Additional Ta")If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Select Additional Ta") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Select Additional Ta")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Select Additional Ta")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Setup is now ready t")If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Setup is now ready t") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Setup is now ready t")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Setup is now ready t")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP")If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP")Send("{SPACE}{ENTER}")[/CODE] [CODE]WinWait("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP")[/CODE] bu satırdan sonra koyacaksın. Quote Link to comment Share on other sites More sharing options...
Thund3R Posted August 13, 2007 Share Posted August 13, 2007 en sonuna koyuyorsun sen birde.Onu nere atcaz WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP")[/CODE] yerinin üstüne mi? Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted August 13, 2007 Author Administrator Share Posted August 13, 2007 en sonuna koyuyorsun sen birde.Onu nere atcaz WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP")[/CODE] yerinin üstüne mi? Farklı program açılıyorsa koyarsın onu Quote Link to comment Share on other sites More sharing options...
Thund3R Posted August 13, 2007 Share Posted August 13, 2007 (edited) Kod Bu Şekilde Ama Ekranda Çıkıyor Run('C:\Documents and Settings\ThunderBolt\Desktop\pdf2word.exe')WinWait("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP")WinSetTrans("Setup - VeryPDF PDF2Word v3.0 - Installation Program","&Next >",1)If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Select Destination L")If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Select Destination L") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Select Destination L")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Select Destination L")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo")If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Select Additional Ta")If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Select Additional Ta") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Select Additional Ta")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Select Additional Ta")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Setup is now ready t")If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Setup is now ready t") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Setup is now ready t")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Setup is now ready t")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP")If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP")Send("{SPACE}{ENTER}")[/CODE] Not o dediğin gbi Install Creator Programını Yaptım ekran gizleniyor ama öbür programlarda olmuyor Edited August 13, 2007 by wildwachsend Quote Link to comment Share on other sites More sharing options...
crazy_pretty_murat Posted August 13, 2007 Share Posted August 13, 2007 (edited) Sk8er_boinin verdiği örnek gayet açıklayıcıydı bana göre.Program orda,komutları orda.Sk8er_boinin sayesinde öğrendim bende. İstersen programını rapide ver.Yapmaya çalışayım. Edited August 13, 2007 by crazy_pretty_murat Quote Link to comment Share on other sites More sharing options...
Thund3R Posted August 13, 2007 Share Posted August 13, 2007 Tamam kardeş buyur http://rapidshare.com/files/48810632/Desktop.exe.html[/CODE] Quote Link to comment Share on other sites More sharing options...
crazy_pretty_murat Posted August 13, 2007 Share Posted August 13, 2007 (edited) Run('pdf2word.exe')WinWait("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP")WinSetTrans("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP",1)If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Welcome to the VeryP")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Select Destination L")WinSetTrans("Setup - VeryPDF PDF2Word v3.0","Select Destination L",1)If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Select Destination L") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Select Destination L")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Select Destination L")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo")WinSetTrans("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo",1)If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Select Additional Ta")WinSetTrans("Setup - VeryPDF PDF2Word v3.0","Select Start Menu Fo",1)If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Select Additional Ta") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Select Additional Ta")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Select Additional Ta")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Setup is now ready t")WinSetTrans("Setup - VeryPDF PDF2Word v3.0","Setup is now ready t",1)If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Setup is now ready t") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Setup is now ready t")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Setup is now ready t")Send("{ENTER}")WinWait("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP")WinSetTrans("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP",1)If Not WinActive("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP") Then WinActivate("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP")WinWaitActive("Setup - VeryPDF PDF2Word v3.0","Completing the VeryP")Send("{SPACE}{ENTER}")ProcessClose("pdf2word.exe")[/CODE] [color=#006600]Bu olucak Script'in içi.1.cisi İlk baştaki run komutunda documen and settings\....... v.s gibi şeyler olmayacak.Sadece programın ismi olucak uzantısıyla birlikte.[/color] [CODE]WinWait("Başlık","Text")[/CODE] [color=#006600]WinWait budur.WinWait bu ise Winsettransa şunu yazıcaksın.[/color] [CODE]Winsettrans("Buraya WinWaitteki Başlığın İsmini","Buraya WinWaitteki Texttin ismini",Buraya Transparan rakamını)[/CODE] [color=#009900]yazıcaksın.Ayrıca bu programın Silent Switchi var.Bu program için autoıt gerekmez.Bat dosyasının içine [/color] [CODE]cmdow @ /hidpdf2word.exe /VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-[/CODE] [color=#006600]bunu yazabilirsin.Bu daha güzel olur.Ben Scripti bilgi amaçlı gösterdim.Ama bunu kurmak istiyorsan bat dosyasının içine dediğim komutları yazabilirsin.Aynı şey farketmez.[/color] Edited September 9, 2008 by crazy_pretty_murat Quote Link to comment Share on other sites More sharing options...
Thund3R Posted August 14, 2007 Share Posted August 14, 2007 Yoo kardeş biliyorm.Onu zaten USSF ile parametresini alıp kuruyorm.Sadece autoiti denemek için yaptım.Saol kardeş açıklayıcı Quote Link to comment Share on other sites More sharing options...
Thund3R Posted August 31, 2007 Share Posted August 31, 2007 Gene olmuyor Winwait komutunun altına yazıyorum ama gene ekran gizlenmiyor Quote Link to comment Share on other sites More sharing options...
blackman12 Posted August 31, 2007 Share Posted August 31, 2007 programı ver kodlarda yardımcı olim Quote Link to comment Share on other sites More sharing options...
Thund3R Posted August 31, 2007 Share Posted August 31, 2007 Kardeş Pdf To Word programında oluyor ama öbür türlü misal olarak TweakXp yaparken olmuyor Sölediğiniz gbi Winwait Komutunun altına yazıyorum ama olmuyor.Bunu hep size yaptırmak istemiyorm ama olmyor neden olabilir Quote Link to comment Share on other sites More sharing options...
blackman12 Posted August 31, 2007 Share Posted August 31, 2007 bende senle beraber ilk defa denicem sen programı ver eğer yapabilirsem anlamışımdır ve sanada detaylı anlatabilirim Quote Link to comment Share on other sites More sharing options...
shekey_boys Posted January 1, 2008 Share Posted January 1, 2008 Slm arkadaşlar ben bunu denedim kodu yazdım çalışıyor ama pencere geçilerinde bi anlık görünüyor gidiyor ve eğer kurulumda bi dolum işaret geliorsa orda hiç kaybolmuyor orda tam bekliyor bunun sebebi ne olabilir bide şu pencere dışına taşıma kodu varya onu tam olarak nereye yazmam gerekiyor örneğin bu şekilde bi örnek verirsek WinMove("Install Creator - Installation Program",,@DesktopWidth,@DesktopHeight +100)[/CODE] tşk ederim. Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted January 1, 2008 Author Administrator Share Posted January 1, 2008 Slm arkadaşlar ben bunu denedim kodu yazdım çalışıyor ama pencere geçilerinde bi anlık görünüyor gidiyor ve eğer kurulumda bi dolum işaret geliorsa orda hiç kaybolmuyor orda tam bekliyor bunun sebebi ne olabilir bide şu pencere dışına taşıma kodu varya onu tam olarak nereye yazmam gerekiyor örneğin bu şekilde bi örnek verirsek WinMove("Install Creator - Installation Program",,@DesktopWidth,@DesktopHeight +100)[/CODE] tşk ederim. O kadar olur. Quote Link to comment Share on other sites More sharing options...
shekey_boys Posted January 1, 2008 Share Posted January 1, 2008 tşk ederim sk8er_boi peki şu ekran dışına taşıma kodunu nerde kullanıcağamı söyleyebilirmisin nereye yasıcam tam olarak. Quote Link to comment Share on other sites More sharing options...
blackman12 Posted January 2, 2008 Share Posted January 2, 2008 pencere kaydırma (winmove) komutunu programı çalıştırıp (run) pencerenin gelmesini bekleyip aktif ettikten (winwaitactive) sonra yazabilirsiniz. Quote Link to comment Share on other sites More sharing options...
akk33 Posted January 28, 2008 Share Posted January 28, 2008 (edited) 2. sorum var yardımcı olur musunuz?..!! 1.hocam herşey güzel ekran gizleniyorda bunun Install Creator la ne ilgisi var? 2. sorum ise ben ekranı gizliyebiliyorum.. ama bu ekran gizlense de en az 1 defa gösterip kayıp ediyor.. bunu nasıl önlüyebilirim.. yani hiç göstermeden ekranın tamamen arka planda çalışmasını sağlarım..? teşekkürler yaptığınız yardımlar için... Edited January 28, 2008 by akk33 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.