Jump to content

AutoIT ile ekranı gizlemek

sk8er_boi

By sk8er_boi,
in AutoIT

 Share

Recommended Posts

blue_life Newbie

blue_life

Posted
Posted (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 :dribble:

Edited by blue_life
Link to comment
Share on other sites
  • 3 ay sonra...
  • Replies 95
  • Created
  • Last Reply

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

MasterTR Newbie

MasterTR

Posted
Posted

[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]

Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted (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 by blue_life
Link to comment
Share on other sites
MasterTR Newbie

MasterTR

Posted
Posted (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 by MasterTR
Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

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]

Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted (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 by blue_life
Link to comment
Share on other sites
MasterTR Newbie

MasterTR

Posted
Posted (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 by MasterTR
Link to comment
Share on other sites
Dj Demir Newbie

Dj Demir

Posted
Posted

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 ..

Link to comment
Share on other sites
MasterTR Newbie

MasterTR

Posted
Posted

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]

Link to comment
Share on other sites
  • 6 ay sonra...
abdullahTR Contributor

abdullahTR

Posted
Posted (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 by PoweredByAbdullah
Link to comment
Share on other sites
MostWanted Newbie

MostWanted

Posted
Posted

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ı.

Link to comment
Share on other sites
abdullahTR Contributor

abdullahTR

Posted
Posted (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 by PoweredByAbdullah
Link to comment
Share on other sites
  • 2 hafta sonra ...
  • 3 hafta sonra ...
forumcuyum_ben Newbie

forumcuyum_ben

Posted
Posted

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.

Link to comment
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...