Autoit Office 2003

[Abdullah 37]

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]

[blackman12]

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.

[Abdullah 37]

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]

[blue_life]

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

[Abdullah 37]

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