the1night Posted October 3, 2009 Share Posted October 3, 2009 arkadaşlar ben 1 program yaptın programlan ama ekranı gizlemeyi anlamadım kodları veriyorum nereye ekleniceğini söylerseniz sevinirim kolay gelsin Run('add.exe') WinWait("Setup - AusLogics Disk Defrag","Welcome to the AusLo") If Not WinActive("Setup - AusLogics Disk Defrag","Welcome to the AusLo") Then WinActivate("Setup - AusLogics Disk Defrag","Welcome to the AusLo") WinWaitActive("Setup - AusLogics Disk Defrag","Welcome to the AusLo") Send("{ENTER}") WinWait("Setup - AusLogics Disk Defrag","Please read the foll") If Not WinActive("Setup - AusLogics Disk Defrag","Please read the foll") Then WinActivate("Setup - AusLogics Disk Defrag","Please read the foll") WinWaitActive("Setup - AusLogics Disk Defrag","Please read the foll") Send("{TAB}{UP}{ENTER}") WinWait("Setup - AusLogics Disk Defrag","Select Destination L") If Not WinActive("Setup - AusLogics Disk Defrag","Select Destination L") Then WinActivate("Setup - AusLogics Disk Defrag","Select Destination L") WinWaitActive("Setup - AusLogics Disk Defrag","Select Destination L") Send("{ENTER}") WinWait("Setup - AusLogics Disk Defrag","Select Start Menu Fo") If Not WinActive("Setup - AusLogics Disk Defrag","Select Start Menu Fo") Then WinActivate("Setup - AusLogics Disk Defrag","Select Start Menu Fo") WinWaitActive("Setup - AusLogics Disk Defrag","Select Start Menu Fo") Send("{ENTER}") WinWait("Setup - AusLogics Disk Defrag","Select Additional Ta") If Not WinActive("Setup - AusLogics Disk Defrag","Select Additional Ta") Then WinActivate("Setup - AusLogics Disk Defrag","Select Additional Ta") WinWaitActive("Setup - AusLogics Disk Defrag","Select Additional Ta") Send("{ENTER}") WinWait("Setup - AusLogics Disk Defrag","Completing the AusLo") If Not WinActive("Setup - AusLogics Disk Defrag","Completing the AusLo") Then WinActivate("Setup - AusLogics Disk Defrag","Completing the AusLo") WinWaitActive("Setup - AusLogics Disk Defrag","Completing the AusLo") Send("{SPACE}{ENTER}") #endregion --- ScriptWriter generated code End --- Quote Link to comment Share on other sites More sharing options...
HaXeM Posted January 3, 2010 Share Posted January 3, 2010 #region --- ScriptWriter generated code Start --- Opt("WinWaitDelay",100) Opt("WinTitleMatchMode",4) Opt("WinDetectHiddenText",1) Opt("MouseCoordMode",0) Run('nero.exe') WinWait("Kur Dilini Seçiniz","Lütfen kurulum sıras") If Not WinActive("Kur Dilini Seçiniz","Lütfen kurulum sıras") Then WinActivate("Kur Dilini Seçiniz","Lütfen kurulum sıras") WinWaitActive("Kur Dilini Seçiniz","Lütfen kurulum sıras") Send("{ENTER}") WinWait("Nero 8 Micro - Kur","Nero 8 Micro Kurulum") If Not WinActive("Nero 8 Micro - Kur","Nero 8 Micro Kurulum") Then WinActivate("Nero 8 Micro - Kur","Nero 8 Micro Kurulum") WinWaitActive("Nero 8 Micro - Kur","Nero 8 Micro Kurulum") Send("{ENTER}") WinWait("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman") If Not WinActive("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman") Then WinActivate("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman") WinWaitActive("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman") Send("{TAB}{TAB}{CTRLDOWN}v{CTRLUP}{TAB}{TAB}{ENTER}{TAB}{UP}{ENTER}{ENTER}{ENTER }{ENTER}{SPACE}{ENTER}{ENTER}") WinWait("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih") If Not WinActive("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih") Then WinActivate("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih") WinWaitActive("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih") Send("{ENTER}") #endregion --- ScriptWriter generated code End --- arkadaşlar görüntüyü nasıl gizlerin yardımcı olurmusunuz Quote Link to comment Share on other sites More sharing options...
blackman12 Posted January 3, 2010 Share Posted January 3, 2010 Hasbinallah! Arkadaşım hiç denedin mi ön sayfadaki mantığı anlamayı? Quote Link to comment Share on other sites More sharing options...
HaXeM Posted January 3, 2010 Share Posted January 3, 2010 arkadaşım incelemiştim baktım ama autoit te daha yeniyim anlayamadım çok denemler yaptım ama işe yaramadı :/ en son çare olarak zaten buraya yazdım Quote Link to comment Share on other sites More sharing options...
blue_life Posted January 4, 2010 Share Posted January 4, 2010 (edited) @HaXeM Winwait satırının altına winsettrans ekliyorsun... Tabi farkı yöntemlerde mevcut ama şimdilik bu şekilde alıştırmalar yap. Kolay gelsin.... #region --- ScriptWriter generated code Start ---Opt("WinWaitDelay",100)Opt("WinTitleMatchMode",4)Opt("WinDetectHiddenText",1)Opt("MouseCoordMode",0)Run('nero.exe')WinWait("Kur Dilini Seçiniz","Lütfen kurulum sıras")WinSetTrans("Kur Dilini Seçiniz","Lütfen kurulum sıras",1)If Not WinActive("Kur Dilini Seçiniz","Lütfen kurulum sıras") Then WinActivate("Kur Dilini Seçiniz","Lütfen kurulum sıras")WinWaitActive("Kur Dilini Seçiniz","Lütfen kurulum sıras")Send("{ENTER}")WinWait("Nero 8 Micro - Kur","Nero 8 Micro Kurulum")WinSetTrans("Nero 8 Micro - Kur","Nero 8 Micro Kurulum",1)If Not WinActive("Nero 8 Micro - Kur","Nero 8 Micro Kurulum") Then WinActivate("Nero 8 Micro - Kur","Nero 8 Micro Kurulum")WinWaitActive("Nero 8 Micro - Kur","Nero 8 Micro Kurulum")Send("{ENTER}")WinWait("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman")WinSetTrans("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman",1)If Not WinActive("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman") Then WinActivate("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman")WinWaitActive("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman")Send("{TAB}{TAB}{CTRLDOWN}v{CTRLUP}{TAB}{TAB}{ENTER}" & _"{TAB}{UP}{ENTER}{ENTER}{ENTER}{ENTER}{SPACE}{ENTER}{ENTER}")WinWait("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih")WinSetTrans("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih",1)If Not WinActive("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih") Then WinActivate("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih")WinWaitActive("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih")Send("{ENTER}")#endregion --- ScriptWriter generated code End ---[/CODE] Edited January 4, 2010 by blue_life Quote Link to comment Share on other sites More sharing options...
gangster94 Posted March 10, 2010 Share Posted March 10, 2010 arkadaşlar ilk önce teşekkürler böyle bir konu açtığınız için ben bir ücretsiz virüs programını record ettim ama ekranı gizleyemedim kodum şöyle #region --- ScriptWriter generated code Start --- Opt("WinWaitDelay",100) Opt("WinTitleMatchMode",4) Opt("WinDetectHiddenText",1) Opt("MouseCoordMode",0) Run('mssefullinstall-x86fre-tr-tr-xp.exe') WinWait("Microsoft Security Essentials","Microsoft Security E") If Not WinActive("Microsoft Security Essentials","Microsoft Security E") Then WinActivate("Microsoft Security Essentials","Microsoft Security E") WinWaitActive("Microsoft Security Essentials","Microsoft Security E") Send("{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}{ENTER}{ENTER}{ENTER}{TAB}{TAB}{TAB}{TAB}") MouseMove(182,234) MouseDown("left") MouseUp("left") Send("{TAB}{ENTER}") #endregion --- ScriptWriter generated code End --- bunu ekranı gizlemesi için kod ekleyebilirmisiniz bende böylece kodların nereye eklendiğini gözlemleyip konuyu daha iyi kavrayabilirim belki iyi günler Quote Link to comment Share on other sites More sharing options...
blue_life Posted March 10, 2010 Share Posted March 10, 2010 #region --- ScriptWriter generated code Start --- Opt("WinWaitDelay",100) Opt("WinTitleMatchMode",4) Opt("WinDetectHiddenText",1) Opt("MouseCoordMode",0) Run('mssefullinstall-x86fre-tr-tr-xp.exe') WinWait("Microsoft Security Essentials","Microsoft Security E") WinMove("Microsoft Security Essentials","Microsoft Security E", @DesktopWidth + 10, @DesktopHeight + 10) If Not WinActive("Microsoft Security Essentials","Microsoft Security E") Then WinActivate("Microsoft Security Essentials","Microsoft Security E") WinWaitActive("Microsoft Security Essentials","Microsoft Security E") Send("{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}{ENTER}{ENTER}{ENTER}{TAB}{TAB}{TAB}{TAB}") Send("{TAB}{ENTER}") #endregion --- ScriptWriter generated code End ---[/CODE] Teorik olarak daha önce dediğim gibi WinWait altına WinSetTrans, veyahut WinMove kullanabilirsin... Quote Link to comment Share on other sites More sharing options...
x_files_x Posted March 14, 2010 Share Posted March 14, 2010 Hocam bende bişi sorcamda dün Blulife hocamın autoit ile exploreri resetlemek icin bi kodu vermişti ona baktım.ama fazla karısık geldi yani anlıyamadım ben şöyle bişi yapmaya karar verdim çünkü tam bilmiyorum autoit yeniyim. KOD; Opt("TrayIconHide", 1) ProcessClose("explorer.exe") Run(@WindowsDir & "\explorer.exe") WinWait("Belgelerim") WinWaitActive("Belgelerim") winclose("Belgelerim") ama kodda yalnış şeyler var explorer kapatılıyor kapatılırke diger ekranlarda gidiyor..birde görünmez yapamadım cıkan belglerim kalsorunu..belgelerim hic cıkmasa olmaz mı.diger herseyimde gidiyor..bu yontemle nasıl yaparım yardımcı olurmusunuz Quote Link to comment Share on other sites More sharing options...
Mükemmel Posted March 14, 2010 Share Posted March 14, 2010 ProcessClose("explorer.exe") Yazdığın için explorer kapatılıyor. Quote Link to comment Share on other sites More sharing options...
Mükemmel Posted March 14, 2010 Share Posted March 14, 2010 (edited) İstediğin kod şu şekilde: Opt("TrayIconHide", 1) Run(@WindowsDir & "\explorer.exe","", 1) WinWait("Belgelerim","", 1) WinWaitActive("Belgelerim","", 1) Galiba bazı pencereler görünmez yapılmıyor. Edited March 14, 2010 by Mükemmel Quote Link to comment Share on other sites More sharing options...
x_files_x Posted March 14, 2010 Share Posted March 14, 2010 Zaten amacım O, exploreri katatıp tekrar actırmak..ama acılınca ekrana ilk gelen o belgelerim ekranı olmasın diyorum..onu yapamadım Quote Link to comment Share on other sites More sharing options...
Mükemmel Posted March 14, 2010 Share Posted March 14, 2010 Opt("TrayIconHide", 1) ProcessClose("explorer.exe") Run(@WindowsDir & "\explorer.exe","", 1) WinWait("Belgelerim","", 1) WinWaitActive("Belgelerim","", 1) Quote Link to comment Share on other sites More sharing options...
x_files_x Posted March 14, 2010 Share Posted March 14, 2010 Tsk ederim arkadasım benim için ugrasıyorsun.ama yine o belgelerim cıktı demek ki kurtulus yok yada farklı bi yontemler vardır Allah senden razı olsun Quote Link to comment Share on other sites More sharing options...
Mükemmel Posted March 15, 2010 Share Posted March 15, 2010 Dediğim gibi, bazı pencereler görünmez yapılmıyor. Bu konuda bir çözümüm yok. Quote Link to comment Share on other sites More sharing options...
x_files_x Posted March 15, 2010 Share Posted March 15, 2010 saglık olsun kardeş..Canın saolsun Quote Link to comment Share on other sites More sharing options...
realyte Posted April 4, 2010 Share Posted April 4, 2010 (edited) 7zip le olan katılımsız gibi tamamiyle gizli(sadece işlemlerde görülüyor) olmuyor değil mi? eğer öyle ise alternatif katılımsızlar daha güzel gibi Edited April 4, 2010 by realyte Quote Link to comment Share on other sites More sharing options...
wiyan Posted June 17, 2010 Share Posted June 17, 2010 üstadlar corel knockout2 programı için yaptığım kodlarda bir yanlışlık mı var kurulum ekranı gizlenmiyor. sadece send komutu ile yapılan işlemler gözükmüyor yardımcı olursanız sevinirim.. Run('kSetup.exe') WinWait("Welcome","Welcome to the Knock") WinSetTrans("Welcome","Welcome to the Knock",1) if Not WinActive("Welcome","Welcome to the Knock") then WinActivate("Welcome","Welcome to the Knock") _WinWaitActivate("Welcome","Welcome to the Knock") Send("{TAB}{TAB}{ENTER}") WinWait("Software License Agreement","Please read the foll") WinSetTrans("Software License Agreement","Please read the foll",1) if Not WinActive("Software License Agreement","Please read the foll") then WinActivate("Software License Agreement","Please read the foll") _WinWaitActivate("Software License Agreement","Please read the foll") Send("{TAB}{TAB}{ENTER}") WinWait("Serial Number Page","Please enter your na") WinSetTrans("Serial Number Page","Please enter your na",1) if Not WinActive("Serial Number Page","Please enter your na") then WinActivate("Serial Number Page","Please enter your na") _WinWaitActivate("Serial Number Page","Please enter your na") Send("{TAB}{SHIFTDOWN}{TAB}{SHIFTUP}reklam{TAB}ko20crd-0019351-rku{TAB}{TAB}{ENTER}") WinWait("Setup Type","Click the type of Se") WinSetTrans("Setup Type","Click the type of Se",1) if Not WinActive("Setup Type","Click the type of Se") then WinActivate("Setup Type","Click the type of Se") _WinWaitActivate("Setup Type","Click the type of Se") Send("{TAB}{TAB}{ENTER}") WinWait("KnockOut 2 Program Files Destination","Please select the de") WinSetTrans("KnockOut 2 Program Files Destination","Please select the de",1) if Not WinActive("KnockOut 2 Program Files Destination","Please select the de") then WinActivate("KnockOut 2 Program Files Destination","Please select the de") _WinWaitActivate("KnockOut 2 Program Files Destination","Please select the de") Send("{TAB}{TAB}{ENTER}") WinWait("Choose Folder","Please choose the in") WinSetTrans("Choose Folder","Please choose the in",1) if Not WinActive("Choose Folder","Please choose the in") then WinActivate("Choose Folder","Please choose the in") _WinWaitActivate("Choose Folder","Please choose the in") Send("{TAB}{DOWN}{DOWN}{ENTER}{DOWN}{ENTER}{DOWN}{DOWN}{UP}{DOWN}{DOWN}{DOWN}{DOWN }{ENTER}{SHIFTDOWN}{TAB}{SHIFTUP}{RIGHT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT }{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{L EFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{ RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGH T}{LEFT}{LEFT}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{CTRLDOWN}z{CTRLUP}{CTRLDOWN}a{CTRLUP }{HOME}{SHIFTDOWN}{END}{SHIFTUP}{CTRLDOWN}c{CTRLUP}{TAB}{TAB}{TAB}{ENTER}") WinWait("KnockOut 2 Program Files Destination","Please select the de") WinSetTrans("KnockOut 2 Program Files Destination","Please select the de",1) if Not WinActive("KnockOut 2 Program Files Destination","Please select the de") then WinActivate("KnockOut 2 Program Files Destination","Please select the de") _WinWaitActivate("KnockOut 2 Program Files Destination","Please select the de") Send("{TAB}{TAB}{ENTER}") WinWait("Select Plugins Folder","Please select the Pl") WinSetTrans("Select Plugins Folder","Please select the Pl",1) if Not WinActive("Select Plugins Folder","Please select the Pl") then WinActivate("Select Plugins Folder","Please select the Pl") _WinWaitActivate("Select Plugins Folder","Please select the Pl") Send("{TAB}{TAB}{ENTER}") WinWait("Choose Folder","Please choose the in") WinSetTrans("Choose Folder","Please choose the in",1) if Not WinActive("Choose Folder","Please choose the in") then WinActivate("Choose Folder","Please choose the in") _WinWaitActivate("Choose Folder","Please choose the in") Send("{CTRLDOWN}v{CTRLUP}{TAB}{TAB}{TAB}{ENTER}") WinWait("Select Plugins Folder","Please select the Pl") WinSetTrans("Select Plugins Folder","Please select the Pl",1) if Not WinActive("Select Plugins Folder","Please select the Pl") then WinActivate("Select Plugins Folder","Please select the Pl") _WinWaitActivate("Select Plugins Folder","Please select the Pl") Send("{TAB}{TAB}{ENTER}") WinWait("Start Copying Files","Setup has enough inf") WinSetTrans("Start Copying Files","Setup has enough inf",1) if Not WinActive("Start Copying Files","Setup has enough inf") then WinActivate("Start Copying Files","Setup has enough inf") _WinWaitActivate("Start Copying Files","Setup has enough inf") Send("{ENTER}") WinWait(" PRODUCT REGISTRATION"," PRODUCT REGISTRATIO") WinSetTrans(" PRODUCT REGISTRATION"," PRODUCT REGISTRATIO",1) if Not WinActive(" PRODUCT REGISTRATION"," PRODUCT REGISTRATIO") then WinActivate(" PRODUCT REGISTRATION"," PRODUCT REGISTRATIO") _WinWaitActivate(" PRODUCT REGISTRATION"," PRODUCT REGISTRATIO") Send("{TAB}{ENTER}") WinWait("Cancel Registration?","Are you sure you wan") WinSetTrans("Cancel Registration?","Are you sure you wan",1) if Not WinActive("Cancel Registration?","Are you sure you wan") then WinActivate("Cancel Registration?","Are you sure you wan") _WinWaitActivate("Cancel Registration?","Are you sure you wan") Send("{TAB}{ENTER}") WinWait("Setup Complete","The installation of ") WinSetTrans("Setup Complete","The installation of ",1) if Not WinActive("Setup Complete","The installation of ") then WinActivate("Setup Complete","The installation of ") _WinWaitActivate("Setup Complete","The installation of ") Send("{TAB}{TAB}{ENTER}") #endregion --- Internal functions Au3Recorder End --- Func _WinWaitActivate($title,$text,$timeout=0) WinWait($title,$text,$timeout) If Not WinActive($title,$text) Then WinActivate($title,$text) WinWaitActive($title,$text,$timeout) EndFunc #endregion --- Internal functions Au3Recorder End ---[/CODE] Quote Link to comment Share on other sites More sharing options...
arpaco Posted June 28, 2010 Share Posted June 28, 2010 Bir sorum var... Autoit ile kurulum oluşturdum ekranı gizlemeyide yaptım ancak ilk iki pencere gizlenmiyor sonraki pencereler gizli olarak devam ediyor. Sebebi ne olabilir. Kodlar burada yardımcı olabilirseniz sevinirm. Run('ccsetup233.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("{TAB}{SPACE}") WinWait("CCleaner v2.33 Kurulumu","CCleaner v2.33 Kurul",) WinSetTrans("CCleaner v2.33 Kurulumu","CCleaner v2.33 Kurul",1) If Not WinActive("CCleaner v2.33 Kurulumu","CCleaner v2.33 Kurul") Then WinActivate("CCleaner v2.33 Kurulumu","CCleaner v2.33 Kurul") WinWaitActive("CCleaner v2.33 Kurulumu","CCleaner v2.33 Kurul") Send("{SPACE}") WinWait("CCleaner v2.33 Kurulumu ","Lütfen CCleaner v2.3",) WinSetTrans("CCleaner v2.33 Kurulumu ","Lütfen CCleaner v2.3",1) If Not WinActive("CCleaner v2.33 Kurulumu ","Lütfen CCleaner v2.3") Then WinActivate("CCleaner v2.33 Kurulumu ","Lütfen CCleaner v2.3") WinWaitActive("CCleaner v2.33 Kurulumu ","Lütfen CCleaner v2.3") Send("{TAB}{RIGHT}{SPACE}") WinWait("CCleaner v2.33 Kurulumu ","CCleaner v2.33 progr",) WinSetTrans("CCleaner v2.33 Kurulumu ","CCleaner v2.33 progr",1) If Not WinActive("CCleaner v2.33 Kurulumu ","CCleaner v2.33 progr") Then WinActivate("CCleaner v2.33 Kurulumu ","CCleaner v2.33 progr") WinWaitActive("CCleaner v2.33 Kurulumu ","CCleaner v2.33 progr") Send("{TAB}{TAB}{TAB}{SPACE}") WinWait("CCleaner v2.33 Kurulumu","Herhangi bir seçenek",) WinSetTrans("CCleaner v2.33 Kurulumu","Herhangi bir seçenek",1) If Not WinActive("CCleaner v2.33 Kurulumu","Herhangi bir seçenek") Then WinActivate("CCleaner v2.33 Kurulumu","Herhangi bir seçenek") WinWaitActive("CCleaner v2.33 Kurulumu","Herhangi bir seçenek") Send("{TAB}{TAB}{TAB}{TAB}{SPACE}{TAB}{SPACE}{TAB}{TAB}{SPACE}") WinWait("CCleaner v2.33 Kurulumu ","CCleaner v2.33 Kurul",) WinSetTrans("CCleaner v2.33 Kurulumu ","CCleaner v2.33 Kurul",1) If Not WinActive("CCleaner v2.33 Kurulumu ","CCleaner v2.33 Kurul") Then WinActivate("CCleaner v2.33 Kurulumu ","CCleaner v2.33 Kurul") WinWaitActive("CCleaner v2.33 Kurulumu ","CCleaner v2.33 Kurul") Send("{SPACE}{TAB}{SPACE}") #endregion --- ScriptWriter generated code End ---[/CODE] Quote Link to comment Share on other sites More sharing options...
MostWanted Posted June 28, 2010 Share Posted June 28, 2010 (edited) #NoTrayIcon #Region;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=TNCTR.ico #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_Description=CCleaner Katılımsız #AutoIt3Wrapper_Res_Fileversion=2.28 #EndRegion;**** Directives created by AutoIt3Wrapper_GUI **** #Region --- CodeWizard generated code Start --- ;SpashImage features: Title=No, Width=381, Height=175, Always On Top FileInstall("ali.bmp", @TempDir &"\ali.bmp") #EndRegion --- CodeWizard generated code End --- FileInstall("CCleaner.exe", @TempDir &"\CCleaner.exe") FileInstall("lang-1055.dll", @TempDir &"\lang-1055.dll") FileInstall("ccsetup228.exe", @TempDir &"\ccsetup228.exe") Run(@TempDir &"\ccsetup228.exe","", @SW_HIDE ) WinSetTrans ( "Installer Language", "", 0 ) WinWait( "Installer Language") WinSetTrans ( "Installer Language", "", 0 ) WinActivate ( "Installer Language") ControlClick("Installer Language", "", "[CLASS:Button; ID:1]") WinSetTrans ( "Installer Language", "", 0 ) WinWait ( "CCleaner v2.28 Kurulumu") WinSetTrans ( "CCleaner v2.28 Kurulumu", "", 0 ) WinActivate ( "CCleaner v2.28 Kurulumu") ControlClick("CCleaner v2.28 Kurulumu", "", "[CLASS:Button; ID:1]", "left", 3) WinActivate ( "CCleaner v2.28 Kurulumu") $talha2=ControlClick("CCleaner v2.28 Kurulumu", "", "[CLASS:Button; ID:1206]") WinActivate ( "CCleaner v2.28 Kurulumu") $talha=ControlClick("CCleaner v2.28 Kurulumu", "", "[CLASS:Button; ID:1200]") WinActivate ( "CCleaner v2.28 Kurulumu") ControlClick("CCleaner v2.28 Kurulumu", "", "[CLASS:Button; ID:1]") Sleep(5000) WinActivate ( "CCleaner v2.28 Kurulumu") $talha3=ControlClick("CCleaner v2.28 Kurulumu", "", "[CLASS:Button; ID:1203]") WinActivate ( "CCleaner v2.28 Kurulumu") ControlClick("CCleaner v2.28 Kurulumu", "", "[CLASS:Button; ID:1]") if $talha3 = 0 Then Sleep(10000) WinActivate ( "CCleaner v2.28 Kurulumu") $talha4=ControlClick("CCleaner v2.28 Kurulumu", "", "[CLASS:Button; ID:1203]") WinActivate ( "CCleaner v2.28 Kurulumu") ControlClick("CCleaner v2.28 Kurulumu", "", "[CLASS:Button; ID:1]") if $talha4 = 0 Then MsgBox(64, "Hata!", "Hata oluştu tekrar deneyin!") Exit EndIf EndIf FileCreateShortcut(@ProgramFilesDir & "\CCleaner\CCleaner.exe", @DesktopDir & "\CCleaner TiEnSi [TnC] Edition.INK")[/CODE] Kendim bi arkadaşım için ccleaneri katılımsız yapmıştım.Buyur sende dene.. Edited June 28, 2010 by talha_252 Quote Link to comment Share on other sites More sharing options...
Undisputed Posted June 30, 2010 Share Posted June 30, 2010 Yaptım Ama Adobe de Olmadı .. Quote Link to comment Share on other sites More sharing options...
Editor köylü Posted October 27, 2010 Editor Share Posted October 27, 2010 arkadaslar asagıdaki kodlarla kurulum ekranını gizlemek istiyorum yapamadım yardımcı olan arkadaslara simdiden tesekkürler Opt("WinWaitDelay",100) Opt("WinTitleMatchMode",4) Opt("WinDetectHiddenText",1) Opt("MouseCoordMode",0) Run('G:\windowslive.exe') WinWait("A-Patch","Messenger'a Yamayi U") If Not WinActive("A-Patch","Messenger'a Yamayi U") Then WinActivate("A-Patch","Messenger'a Yamayi U") WinWaitActive("A-Patch","Messenger'a Yamayi U") Send("{ENTER}") WinWait("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri") If Not WinActive("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri") Then WinActivate("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri") WinWaitActive("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri") Send("{ENTER}") WinWait("Dikkat","Yamayi modifiye edil") If Not WinActive("Dikkat","Yamayi modifiye edil") Then WinActivate("Dikkat","Yamayi modifiye edil") WinWaitActive("Dikkat","Yamayi modifiye edil") Send("{ENTER}") WinWait("A-Patch","Ödeme Bilgi Menüleri") If Not WinActive("A-Patch","Ödeme Bilgi Menüleri") Then WinActivate("A-Patch","Ödeme Bilgi Menüleri") WinWaitActive("A-Patch","Ödeme Bilgi Menüleri") Send("{ENTER}{ENTER}7{ENTER}{ENTER}") MouseMove(392,357) MouseDown("left") MouseUp("left") Quote Link to comment Share on other sites More sharing options...
blue_life Posted October 28, 2010 Share Posted October 28, 2010 @tiflisli WinMove ile ekranda görünmeyecek bir yere taşıyabilirsin... Opt("WinWaitDelay",100) Opt("WinTitleMatchMode",4) Opt("WinDetectHiddenText",1) Run('G:\windowslive.exe') WinWait("A-Patch","Messenger'a Yamayi U") If Not WinActive("A-Patch","Messenger'a Yamayi U") Then WinActivate("A-Patch","Messenger'a Yamayi U") WinWaitActive("A-Patch","Messenger'a Yamayi U") WinMove("A-Patch","Messenger'a Yamayi U",@DesktopWidth,@DesktopHeight) Send("{ENTER}") WinWait("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri") If Not WinActive("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri") Then WinActivate("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri") WinWaitActive("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri") WinMove("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri",@DesktopWidth,@DesktopHeight) Send("{ENTER}") WinWait("Dikkat","Yamayi modifiye edil") If Not WinActive("Dikkat","Yamayi modifiye edil") Then WinActivate("Dikkat","Yamayi modifiye edil") WinWaitActive("Dikkat","Yamayi modifiye edil") WinMove("Dikkat","Yamayi modifiye edil",@DesktopWidth,@DesktopHeight) Send("{ENTER}") WinWait("A-Patch","Ödeme Bilgi Menüleri") If Not WinActive("A-Patch","Ödeme Bilgi Menüleri") Then WinActivate("A-Patch","Ödeme Bilgi Menüleri") WinWaitActive("A-Patch","Ödeme Bilgi Menüleri") WinMove("A-Patch","Ödeme Bilgi Menüleri",@DesktopWidth,@DesktopHeight) Send("{ENTER}{ENTER}7{ENTER}{ENTER}") Quote Link to comment Share on other sites More sharing options...
Editor köylü Posted October 28, 2010 Editor Share Posted October 28, 2010 (edited) @blue_life tesekkür ediyorum alaka gösterdigin için kurulum ekranı yine görünüyor ama öncekinden hızlı geciyor benim istedigim hiç görünmeyecek bide program acık kalıyo programı kapatıp winmdows live yi baslatacak pro kapandımı windows live otomatik olarak baslıyo zaten benim verdigim koddaki en son mouse degerleri calısmıyo verdigim hali ile calısıyo windows live otomatik calısıyo ama ben görünmesin istiyorum tesekkürr eder basarılar dilerim şu komutlarında calısması lazım bunlar calısmayınca program sonlanmıyor MouseMove(392,357) MouseDown("left") MouseUp("left") Edited October 28, 2010 by tiflisli Quote Link to comment Share on other sites More sharing options...
blue_life Posted October 28, 2010 Share Posted October 28, 2010 @tiflisli Programın ekranı tam olarak gizlenebilir (gizlenmeyebilir). Ekran tam olarak gizlenirse normal send komutları işe yaramayacaktır. Normal mouse komutları ise her zaman bu konularda sorunludur. Control komutları daha başarılı! Bu arada, anladığım kadarıyla messenger için yama yapan bir programı katılımsız yapmaya çalışıyorsun. Bence ilgili yama yapan programın hangi dosyaları değiştirdiğini tespit edip, o dosyaları sistemden alıp kullanman daha mantıklı ve güzel bir yol! Quote Link to comment Share on other sites More sharing options...
Editor köylü Posted October 28, 2010 Editor Share Posted October 28, 2010 @blue_life evet win7 için windows live temel parcaların tümünü katılımsız yaptım buda coklu yaması ve reklamları kaldırmak için hangi dosyaları değistirdigini bulamadım sadece reg kayıdı ekliyor multipleinstances dword deger 1 ben reg kaydını katılımsız kuruluma ekliyorum olmuyor girdigim degerler kaydoluyor ama coklu olmuyor yamayı illaki bu path la yapacam diye bi şart yok baska türlü de olabilir en son autoitle denedim oluyo ama ekranda gözüküyo baska yöntem varsa yardımını bekliyorum tesekkürler 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.