Autoit Ekran Kapatmak

[aylavyu]

BS playerda kurdururken cok basit bir sorun yaşadım ama çözümünü bulamadım.

Program yüklenirken son sayfada duruma göre 2 sayfa geliyor 2 side kurulum bitti ekranı. ben 2 sin de de finish e tıklamasını istiyorum nasıl yapabilirim. sadece birinde yapabliyorum

[MostWanted]

O ekranları görmeden nasıl bi yorum yapabiliriz sence?

[KintaRo]

MostWanted; yapamıyorsan söyle ben yapayım

[MasterTR]

valla hayalle olmuyor ama sanırım anladım sorununu,

[img]http://img232.imageshack.us/img232/1075/adszfd0.jpg[/img]

Kurulum çubuğunun dolmasını beklemiyordur script.
[code]sleep(10000) koymalısın[/code]

[MostWanted]

Ben anladım fakat başlıklarını ve id lerii görmeden bi kod yazamam. @MasterTR bence sorun bu değil.

[aylavyu]

Anlatmak istediğim. Bs Player 2.57 sürümünü bilgisayarına İlk defa kurduğunda son finish ekranı farklı geliyor. Makinende varsa silip de tekrar kurarduğunda veya üzerine kurduğunda da farklı bir ekran geliyor (finish ekranı)

WinWait("BS.Player PRO Setup " , "[color="#FF0000"]Installation Complete")[/color]

WinWait("BS.Player PRO Setup " , "[color="#FF0000"]Completing the BS.Player PRO Setup Wizard[/color]")

Kırmızılar dediğim farklı 2 ekran. Sorunum ise bunları herhalukarda kapattırmak. yani sorunsuz kurulum yapmak

.au3 dosyasını da veriyim
[code]http://www.mediafire.com/?lc09pkrow1x18da[/code]

Edited August 30, 2011 by aylavyu

[blue_life]

@aylavyu

Katılımsız kurulum örneklerinde, ben bir şey karalamıştım sanki.
Ilgili konudaki örneği indirip, kurcala istersen...

[b][color="#0000FF"]http://www.tnctr.com/topic/130213-autoit-v3-ile-katylymsyz-kurulum-oernekleri/[/color][/b]

[aylavyu]

X64 benim sistemim x64 lerde çalışır mı o örnek

[blue_life]

@aylavyu

Hazırlayalı uzun bir zaman oldu. Şuan nasıl bir kodlama yaptığım hakkında bir şey hatırlamıyorum.
Ama heralde hazırlarken gerekli düzenlemeyi yapmış olabilirim...

[aylavyu]

[b][color="#FF6633"][color="#FF6633"]blue_life[/color][/color]
senin veriğin örnek le yaptım oldu gibi ama anlamadığım çok şey var.[/b]
ekranı gizlemiyor mesela kurulurken
global komutlarını silsem olurmu işlevi nedir?
librayde *.ico dosyası var ama kullanılmıyor ne işey yarıyor o buil dedikten sonra simge değişimi iiçn sanırım ama olmuyor

Edited August 30, 2011 by aylavyu

[blue_life]

@aylavyu

Şuan ilgili script içeriği hakkında bir bilgim yok malesef (unuttum )
Global = Tanımladığımız bir değişkenin, tanımlandıktan sonra tüm script tarafından tanınması anlamına gelir...

[aylavyu]

Buyur komutları


[code]#NoTrayIcon
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Library\BSPlayer.ico
#AutoIt3Wrapper_Outfile=KBSPlayer.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Description=Katılımsız BsPlayer
#AutoIt3Wrapper_Res_Fileversion=1.1.0.0
#AutoIt3Wrapper_Res_LegalCopyright=© 2010 BlueLife
#AutoIt3Wrapper_Res_Language=1055
#AutoIt3Wrapper_Res_Field=BSPlayer Version|2.5.6.1043
#AutoIt3Wrapper_Res_Field=CompanyName|BlueLife
#AutoIt3Wrapper_Res_Field=Dosya Adı|KEasyBoot.exe
#AutoIt3Wrapper_Res_Field=Hazırlama Tarihi|%date% %time%
#AutoIt3Wrapper_Res_Field=AutoIt Versiyonu|%AutoItVer%
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Region
#EndRegion

#include <Library\BlueLife.au3> ;Benim hazırladığım kütüphane

; Kur dosyamızı sessiz kurmak için gerekli parametremizi bir değişkene atıryoruz.
Global $Parametrem = "/S"
Global $UserName = "Burası" ;Lisans bilgilerini düzeltin
Global $Register_Code = "Burası" ;Lisans bilgilerini düzeltin
Global $Download = False ;codecmanager.exe programı çalışırsa sonlandırır. ;Internet bağlantısını engelliyor


; Temp klasöründe olmayan bir dosya ismi belirliyoruz.
Global $Setup_File = _TempFile()

; Dosyalarımızı autoit içine alarak belirlediğimiz isimde Temp klasörüne çıkartıyoruz.
; BsPlayer kurunu BSPlayer.exe olarak isimlendirip Library klasörüne koyunuz.
FileInstall("Library\BSPlayer.exe", $Setup_File)

;Programı belirlediğimiz parametre ile çalıştırıp pidini bir değişkene atıyruz.
Global $ProgramPID = Run($Setup_File & " " & $Parametrem)
Do
If Not $Download And ProcessExists("codecmanager.exe") Then ProcessClose("codecmanager.exe")
Sleep(500)
Until Not ProcessExists($ProgramPID)


;Şimdi kurulan BsPlayeri lisanlamak için açalım
; ==============================================================
Global $ProgramPID = Run(@ProgramFilesDir & "\Webteh\BSplayerPro\bsplayer.exe") ;Çalıştırdığımız programın pidini bir değişkene atayalım.
If $ProgramPID <> 0 Then ;Programımız çalışmışsa
If WinWait("[CLASS:BSPlayer]", "", 10) <> 0 Then ;BsPlayer ekranını 10 saniye bekleyelim
WinSetState("[CLASS:BSPlayer]", "", @SW_MINIMIZE) ;Ekranı simge durumuna atalım
If WinWait("[CLASS:Trgfrm.UnicodeClass]", "", 5) <> 0 Then ;;Lisans penceresi 5 saniye içnde görünürse
WinMove("[CLASS:Trgfrm.UnicodeClass]", "", @DesktopWidth + 10, @DesktopHeight + 10) ;Ekranı görünmeyecek bir yere taşıyalım
BlockInput(1) ;Fare ve klevyeyi kitleyelim
ControlSetText("[CLASS:Trgfrm.UnicodeClass]", "", "TTntEdit.UnicodeClass2", "IcyCool") ;Register bilgilerini giriyoruz
ControlSetText("[CLASS:Trgfrm.UnicodeClass]", "", "TTntEdit.UnicodeClass1", "2992A28687A90445B3E1CF4D067C127D179FB1B0E3C0")
ControlCommand("[CLASS:Trgfrm.UnicodeClass]", "", "TTntButton.UnicodeClass1", "Check") ;Onaylıyoruz.
BlockInput(0) ;Fare ve klevyenin kilitini kaldıralım
If WinWait("[CLASS:#32770]", "BS.Player", 5) <> 0 Then ;Mesaj ekranını 5 saniye bekleyelim
WinMove("[CLASS:#32770]", "BS.Player", @DesktopWidth + 10, @DesktopHeight + 10) ;Ekranı görünmeyecek bir yere taşıyalım
ControlCommand("[CLASS:#32770]", "BS.Player", "Button1", "Check") ;Onaylıyoruz.
EndIf
If ProcessWaitClose($ProgramPID, 10) = 1 Then ;Çalıştırdığımız bsplayer 10 saniye içinde kapanırsa bir süre yeniden açılma olsılığına karşı önlem alalım
If ProcessWait("bsplayer.exe", 7) <> 0 Then ;Bsplayerin yeniden başlamasını 7 saniye bekleyelim
ProcessClose("bsplayer.exe") ;kapatalım
EndIf
EndIf
EndIf
EndIf
ProcessClose($ProgramPID) ;Çalıştırdığımız program açıksa kapatalım.
EndIf
; ==============================================================
FileDelete($Setup_File) ;Şimdi temp klasörüne çıkarttığımız dosyamızı silelim.
Exit ; Çıkış[/code]

[blue_life]

@aylavyu

Global değişkenlerini silemene gerek yok!
Icon dosyası ilgili konumda ve ilgili isimdeyse sorunm çıkmaması lazım.
Scite ekranında, yukarıdaki menüden Tools -> Compile ye tıklat.
Gelen ekrandan ilgili icon dosyanı gösterebilrisin.

Ekran gizlenmiyor derken, winmove satırları ilgili scritpte mevcut.
Yani ekranın taşınması lazım...
Sen simge çubuğunumu kastediyorsun?

[aylavyu]

Ekran taşınma olayı yok herşey gözüküyor. simge durumuna küçültüyo sadece. key filan girerken gözüküyo normal mi

[blue_life]

@aylavyu

Yukarıdaki örnekte ilgili pencerenin ekranda görünmesi için WinWait ile bekleme yapılıyor.
Haliyle pencerenin gelmesini beklediğimiz için, kısa bir süre için pencerenin ekranda görünmesi normaldir!

[aylavyu]

Üstad cevapların için cok teşekkürer ederim. Sana son bi sorum olacak
[i]
Run(@ProgramFilesDir & "\Webteh\BSplayerPro\bsplayer.exe")[/i]

Bu komut , Bs playeri kurduktan sonra yeniden açmıyor lisanslamak için.Xp de denedim sorunsuz çalışıyor ama, win 7 x64 başka bi komut kullanabir miyim hem xp de hem win 7 x64 de çalışması için?

Edited August 31, 2011 by aylavyu

[mrecep38]

[i]Scriptin en başına; şunları yazarak[/i] dener misin, olacak mı?


[code]#RequireAdmin

If @OSArch = "X86" Then
;X86 için kurulum
RunWait("X86.exe")
Else
;X64 ve IA64 için kurulum
RunWait("X64.exe")
EndIf [/code]

Edited August 31, 2011 by mrecep38

[blue_life]

Bende şuan win7 x64 yok!
Win7 x64 te kurulumdan sonra Webteh\BSplayerPro\bsplayer.exe nin konumu tam olarak nedir?
Yani ilgili program, Program Files klasörünemi yoksa Program Files (x86) klasörüne mi kuruluyor?

Cevabına göre çözüm haliyle basit...

[MostWanted]

Program Files (x86) 'ya kuruluyor.

[abdullahTR]

[quote name='mrecep38' date='31 August 2011 - 12:01 ' timestamp='1314781287' post='1072210']
[i]Scriptin en başına; şunları yazarak[/i] dener misin, olacak mı?


[code]#RequireAdmin

If @OSArch = "X86" Then
;X86 için kurulum
RunWait("X86.exe")
Else
;X64 ve IA64 için kurulum
RunWait("X64.exe")
EndIf [/code]
[/quote]


[quote name='blue_life' date='31 August 2011 - 12:48 ' timestamp='1314784092' post='1072219']
Bende şuan win7 x64 yok!
Win7 x64 te kurulumdan sonra Webteh\BSplayerPro\bsplayer.exe nin konumu tam olarak nedir?
Yani ilgili program, Program Files klasörünemi yoksa Program Files (x86) klasörüne mi kuruluyor?

Cevabına göre çözüm haliyle basit...
[/quote]

üstteki arkadasın verdigi kod işe yaramıyormu sisteme göre kendi ayarlıyor kurulumu o kod herhalde mantıken 7 ziple katılımsız kurulum yaparken bunu kullanıyorumda ben

[mrecep38]

[spoiler]Func _ProgramFilesDir()

Local $ProgramFileDir

Switch @OSArch

Case "X32"

$ProgramFileDir = "Program Files"

Case "X64"

$ProgramFileDir = "Program Files (x86)"

EndSwitch

Return @HomeDrive & "\" & $ProgramFileDir

EndFunc
[/spoiler]
Benim önceki sayfada verdiğim kod, zaten Blue_Life üstada ait. Bildiğim kadarıyla scriptin 32 ve 64 bitte çalışmasını sağlıyor.
Ancak buradaki sorun, program files yolu sorunu ise işe yaramayabilir. Program Files (x86) yolu yukarıdaki ekle hallediliyor diye biliyorum, ancak deneme imkanım olmadı.

Edited August 31, 2011 by mrecep38

[blue_life]

Şimdi bazı x86 kur dosyaları nadirde olsa içlerinde x64 olan bir kur dosyasını barındırabilir.
Yani sen x86 (32bit) kur dosyasını çalıştırdığında, sistem x64 ise içerisinden x64 bit olan kur dosyasını çıkartıp çalıştırabilir.

Ben acaba böyle bir durum mu var diyerekten ilgili soruyu sormuştum.
Sen bize ilgili sistemde tabi program kurulduktan sonra, programın kurulduğu konumu verirsen sorunun ne olduğunu bir nebze olsun anlarız.
Yani bir ihtimal acaba program farklı bir konumu mı kuruluyor?

Bu durumu kontrol etmelisin...

[aylavyu]

[quote name='mrecep38' date='31 August 2011 - 09:01 ' timestamp='1314781287' post='1072210']
[i]Scriptin en başına; şunları yazarak[/i] dener misin, olacak mı?


[code]#RequireAdmin

If @OSArch = "X86" Then
;X86 için kurulum
RunWait("X86.exe")
Else
;X64 ve IA64 için kurulum
RunWait("X64.exe")
EndIf [/code]
[/quote]

Olmadı

[quote name='MostWanted' date='31 August 2011 - 10:04 ' timestamp='1314785095' post='1072228']
Program Files (x86) 'ya kuruluyor.
[/quote]

onu kastetmedim. zaten x64 de oraya kurar. program x86 ise

[blue_life]

[b]Global $ProgramPID = Run(@ProgramFilesDir & "\Webteh\BSplayerPro\bsplayer.exe") [/b]
O zaman kodlamada bir sorun yok

Istersen ilgili satırdan önce bir mesaj kutusu çıkartıp, bsplayer.exe konumunun doğru olup olmadığını kontrol et.
Veyahut ilgili programı cmd.exe altında çalıştır. Komut istemi bu gibi sorunlarda çözüm sağlayabilir.

Konumu teyit etmek için;
[b]MsgBox(64,"",@ProgramFilesDir & "\Webteh\BSplayerPro\bsplayer.exe")[/b]

Programı cmd.exe altında çalıştırmak için;
[b]Global $ProgramPID = Run(@ComSpec & " /c " & @ProgramFilesDir & "\Webteh\BSplayerPro\bsplayer.exe", "", @SW_HIDE)[/b]
Tabi biz ilgili programın pid bilgisiyle işlem yaptığımızdan, cmd.exe nin pid bilgisi gelecektir.
Bu yüzden pek sağlıklı deyil. Sen yinede dene istersen...

Edited August 31, 2011 by blue_life

[aylavyu]

[b]Global $ProgramPID = Run(@ComSpec & " /c " & @ProgramFilesDir & "\Webteh\BSplayerPro\bsplayer.exe", "", @SW_HIDE)

Kullandım sonuc aynı. Teyit etme ekranı da aynı etkisiz

[code][/b]#RequireAdmin

If @OSArch = "X86" Then
;X86 için kurulum
RunWait("X86.exe")
Else
;X64 ve IA64 için kurulum
RunWait("X64.exe")
EndIf [/code]
[b]
bu komut işe yaradı ama bu sefer keyleri girmedi nedense
[/b]