MostWanted Posted August 31, 2011 Share Posted August 31, 2011 [quote] onu kastetmedim. zaten x64 de oraya kurar. program x86 ise [/quote] Cevabım blue_life'a idi zaten. Bu arada kurulan yer madem bu kadar sorun kurarken kurulacak yerin yazdığı inputtan değeri okuruz? O zaman tamamen garanti olur işimiz.O sayfadan değeri alamazsan yardımcı olabiliriz. Quote Link to comment Share on other sites More sharing options...
MostWanted Posted September 1, 2011 Share Posted September 1, 2011 Soruna şöyle bi çözüm getirdim umarım çalışır. [codebox]#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 ; ============================================================== $ProgramFiles=_ProgramFiles() Global $ProgramPID = Run($ProgramFiles & "\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ış Func _ProgramFiles() If @OSArch = "X86" Then Return RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProgramFilesDir") Else Return RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProgramFilesDir (x86)") EndIf EndFunc [/codebox] Quote Link to comment Share on other sites More sharing options...
MostWanted Posted September 1, 2011 Share Posted September 1, 2011 Soruna şöyle bi çözüm getirdim umarım çalışır. [codebox]#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 ; ============================================================== $ProgramFiles=_ProgramFiles() Global $ProgramPID = Run($ProgramFiles & "\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ış Func _ProgramFiles() If @OSArch = "X86" Then Return RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProgramFilesDir") Else Return RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProgramFilesDir (x86)") EndIf EndFunc [/codebox] Quote Link to comment Share on other sites More sharing options...
aylavyu Posted September 1, 2011 Author Share Posted September 1, 2011 [color="#0000FF"][b]Helal oldu. Teşekkür ederim talha [/b][/color] 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.