Jump to content

AutoIT ile ekranı gizlemek

sk8er_boi

By sk8er_boi,
in AutoIT

 Share

Recommended Posts

  • Administrator
sk8er_boi Experienced

sk8er_boi

Posted
  • Administrator
Posted

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 yap
WinSetTrans("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]

Link to comment
Share on other sites
  • Replies 95
  • Created
  • Last Reply

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

crazy_pretty_murat Newbie

crazy_pretty_murat

Posted
Posted (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 :D Neyse çok teşekkürler.Bu konu ile ilgili daha soru sormam artık.Tekrar çok teşekkürler.

Edited by crazy_pretty_murat
Link to comment
Share on other sites
  • Administrator
sk8er_boi Experienced

sk8er_boi

Posted
  • Author
  • Administrator
Posted

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 )

Link to comment
Share on other sites
  • 4 hafta sonra ...
Thund3R Newbie

Thund3R

Posted
Posted (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 by wildwachsend
Link to comment
Share on other sites
  • Administrator
sk8er_boi Experienced

sk8er_boi

Posted
  • Author
  • Administrator
Posted

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.

Link to comment
Share on other sites
Thund3R Newbie

Thund3R

Posted
Posted (edited)

Kod Bu Şekilde Ama Ekranda Çıkıyor :D:D:D



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 by wildwachsend
Link to comment
Share on other sites
crazy_pretty_murat Newbie

crazy_pretty_murat

Posted
Posted (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 @ /hid

pdf2word.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 by crazy_pretty_murat
Link to comment
Share on other sites
  • 3 hafta sonra ...
  • 4 ay sonra...
shekey_boys Newbie

shekey_boys

Posted
Posted

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.

Link to comment
Share on other sites
  • Administrator
sk8er_boi Experienced

sk8er_boi

Posted
  • Author
  • Administrator
Posted
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.

Link to comment
Share on other sites
  • 4 hafta sonra ...
akk33 Newbie

akk33

Posted
Posted (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... :clapping:

Edited by akk33
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...