Abdullah 37 Posted May 16, 2010 Share Posted May 16, 2010 Arkadaşlar şimdi ben bir Gui penceresi oluşturup 5 tane buton (yada 5 tane checkbox 1 tane buton) koymak istiyorum. Şimdi örnek olarak; butonlardan birine tıklayınca (yada checkbox'u işaretleyip kur butonuna tıklayınca) Normal Yükleme başka bir butona tıklayınca Tam Yükleme başka bir butona tıklayınca da Özel yükleme yapsın istiyorum.Ama bu seçilerek yükleme hakkında nasıl script yazacağımı bilmiyorum.Arkadaşlar bu konu hakkında bilgisi olan arkadaşlar yardım edebilir mi? Bunlara ne gerek var başka yöntemler var diyebilirsiniz ama ben AutoIT ile yapmak istiyorum. Gördüğünüz gibi orjinal kurulum penceresinde 5 tane radıo buton var bende onun için beş tane buton yada 5 checkbox 1 tane buton oluşturacağım Elimde Sadece Tam Yükleme Scripti var. Run("SETUP.EXE") WinWaitActive ("Microsoft Office 2003 Kur", "Microsoft Office Professional Edition 2003") Sleep(8000) WinWaitActive ("Microsoft Office 2003 Kur", "Kullanıcı Bilgileri") ControlClick ("Microsoft Office 2003 Kur", "İ&leri", "Button1") Sleep (1000) WinWaitActive ("Microsoft Office 2003 Kur", "Kurulum Türü") Sleep (1000) ControlClick ("Microsoft Office 2003 Kur", "T&am Yükleme", "Button3") Sleep (1000) WinWaitActive ("Microsoft Office 2003 Kur", "Kurulum Türü") Sleep(1000) ControlClick ("Microsoft Office 2003 Kur", "İ&leri", "Button8") Sleep (1000) WinWaitActive ("Microsoft Office 2003 Kur", "Aşağıdaki Microsoft Office 2003 uygulamalarını yükle") Sleep (1000) ControlClick ("Microsoft Office 2003 Kur", "Yü&kle", "Button1") Sleep (1000) WinWaitActive ("Microsoft Office 2003 Kur", "Kur Tamamlandı") Sleep (1000) ControlClick ("Microsoft Office 2003 Kur", "&Son", "Button2") MsgBox(64,"Microsoft Office 2003 Kur","Microsoft Office 2003 Başarıyla Sisteminize Kuruldu")[/CODE] Link to comment Share on other sites More sharing options...
blackman12 Posted May 17, 2010 Share Posted May 17, 2010 Arkadaşım özel mesaj atmışsın WLM projen var buna benzeyen diye.Evet var ve o programın kaynak kodları da var. Kafana göre düzenleyebilir.Veya oradan nasıl yaptığımı görebilirsin. Link to comment Share on other sites More sharing options...
Abdullah 37 Posted May 19, 2010 Author Share Posted May 19, 2010 Arkadaşım özel mesaj atmışsın WLM projen var buna benzeyen diye.Evet var ve o programın kaynak kodları da var. Kafana göre düzenleyebilir.Veya oradan nasıl yaptığımı görebilirsin. Hocam şimdi ben gui oluşturdum.2 tane sorum var. 1) Oluşturduğum gui de radıo butonlara tıklayınca radıo butona işletmek istediğim kodu nasıl seçtireceğim 2) Şimdi şöyle bir soru sormak istiyorum.Diyelim ki ben normal yükleme yerine tam yükleme butonunu seçtim ve kur butonuna bastım.Bunun için bütün script kodlarını her buton için yeniden yazmak yerine aşağıdaki ControlClick ("Microsoft Office 2003 Kur", "&Normal Yükleme", "Button2") yazan kodu ıf else gibi bir kod kullanarak ControlClick ("Microsoft Office 2003 Kur", "T&am Yükleme", "Button3") kodu ile değiştirebilirmiyiz. Yani kullanıcı Normal Yükleme butonunu seçerse şu kod ile, Tam Yükleme butonunu seçerse şu kod ile işlem yap gibi böyle birşeyi yapmak mümkün mü hocam #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=c:\documents and settings\sanal pc\desktop\ofis.kxf $Office_Kur = GUICreate("Microsoft Office 2003 Kur", 338, 210, 188, 119) $Resim = GUICtrlCreatePic("C:\Documents and Settings\Sanal PC\Desktop\gf.bmp", 0, 0, 340, 68, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $Normal = GUICtrlCreateRadio("Normal Yükleme", 16, 80, 113, 17) $Tam = GUICtrlCreateRadio("Tam Yükleme", 16, 112, 113, 17) $Kucuk = GUICtrlCreateRadio("En Küçük Yükleme", 16, 144, 113, 17) $Ozel = GUICtrlCreateRadio("Özel Yükleme", 200, 80, 113, 17) $Ag = GUICtrlCreateRadio("Ağ Üzerinden Çalıştır", 200, 112, 113, 17) $Kur = GUICtrlCreateButton("Kur", 176, 176, 75, 25, $WS_GROUP) $Cikis = GUICtrlCreateButton("Çıkış", 256, 176, 75, 25, $WS_GROUP) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Run("SETUP.EXE") WinWaitActive ("Microsoft Office 2003 Kur", "Microsoft Office Professional Edition 2003") Sleep(8000) WinWaitActive ("Microsoft Office 2003 Kur", "Kullanıcı Bilgileri") ControlClick ("Microsoft Office 2003 Kur", "İ&leri", "Button1") Sleep (1000) WinWaitActive ("Microsoft Office 2003 Kur", "Kurulum Türü") Sleep (1000) ------------------------------------------------------------------------------------------------------- ;bu kodu ControlClick ("Microsoft Office 2003 Kur", "&Normal Yükleme", "Button2") ;bununla nasıl bir kod kullanarak butonlara bastığımda değiştirme yapabilirim ControlClick ("Microsoft Office 2003 Kur", "T&am Yükleme", "Button3") ------------------------------------------------------------------------------------------------------- Sleep (1000) WinWaitActive ("Microsoft Office 2003 Kur", "Kurulum Türü") Sleep(1000) ControlClick ("Microsoft Office 2003 Kur", "İ&leri", "Button8") Sleep (1000) WinWaitActive ("Microsoft Office 2003 Kur", "Aşağıdaki Microsoft Office 2003 uygulamalarını yükle") Sleep (1000) ControlClick ("Microsoft Office 2003 Kur", "Yü&kle", "Button1") Sleep (1000) WinWaitActive ("Microsoft Office 2003 Kur", "Kur Tamamlandı") Sleep (1000) ControlClick ("Microsoft Office 2003 Kur", "&Son", "Button2") MsgBox(64,"Microsoft Office 2003 Kur","Microsoft Office 2003 Başarıyla Sisteminize Kuruldu")[/CODE] Link to comment Share on other sites More sharing options...
blue_life Posted May 19, 2010 Share Posted May 19, 2010 #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Global $Type #Region ### START Koda GUI section ### Form=c:\documents and settings\sanal pc\desktop\ofis.kxf $Office_Kur = GUICreate("Microsoft Office 2003 Kur", 338, 210, 188, 119) $Resim = GUICtrlCreatePic("C:\Documents and Settings\Sanal PC\Desktop\gf.bmp", 0, 0, 340, 68, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $Normal = GUICtrlCreateRadio("Normal Yükleme", 16, 80, 113, 17) GUICtrlSetState($Normal,1) $Tam = GUICtrlCreateRadio("Tam Yükleme", 16, 112, 113, 17) $Kucuk = GUICtrlCreateRadio("En Küçük Yükleme", 16, 144, 113, 17) $Ozel = GUICtrlCreateRadio("Özel Yükleme", 200, 80, 113, 17) $Ag = GUICtrlCreateRadio("Ağ Üzerinden Çalıştır", 200, 112, 113, 17) $Kur = GUICtrlCreateButton("Kur", 176, 176, 75, 25, $WS_GROUP) $Cikis = GUICtrlCreateButton("Çıkış", 256, 176, 75, 25, $WS_GROUP) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Cikis Exit Case $Kur If GUICtrlRead($Normal) = 1 Then MsgBox(64,"","Normal için kodlar buraya") ElseIf GUICtrlRead($Tam) = 1 Then MsgBox(64,"","Tam için kodlar buraya") ElseIf GUICtrlRead($Kucuk) = 1 Then MsgBox(64,"","Küçük için kodlar buraya") ElseIf GUICtrlRead($Ozel) = 1 Then MsgBox(64,"","özel için kodlar buraya") ElseIf GUICtrlRead($Ag) = 1 Then MsgBox(64,"","Ag için kodlar buraya") EndIf EndSwitch WEnd[/CODE] Link to comment Share on other sites More sharing options...
Abdullah 37 Posted May 19, 2010 Author Share Posted May 19, 2010 hocam kod yazacağım yere bütün scriptimi yazacağım.(Eğer öyle ise benim sorum şöyle hocam.Bir script içindeki bir kodu tamamıyla yazmak yerine butona tıklayınca script içindeki değişmesi gereken kodu if else gibi komutlar kullanarak değiştirmek mümkünü.Yani sadece bir tane bütün bir script olacak .Ama radıo butonu tıklayınca ıf else gibi kodlar yardımıyla sadece değişmesi gereken yeri değiştirebilirmiyiz.) Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.