Beiträge von Fastluso

#cs Author und Info
Diese Script wurde erstellt von Fastluso
Es ist ein Automatisierungstest
#ce

Chrome()

Func Chrome ()
    ; Startet den Editor
    Run ("C:\Program Files\Google\Chrome\Application\chrome.exe", "", @SW_MAXIMIZE)

    ; Wartet maximal 10 Sekunden bis das Editorfenster erscheint.
    WinWaitActive ("[CLASS:Chrome]", "", 5)

    ; Wartet 2 Sekunden bis das Editorfenster dargestellt wird.
    Sleep (1000)

    ; Schließt das Editorfenster durch die Verwendung des Klassennamens (classname) vom Editor.
    WinWaitClose ("[CLASS:Chrome]","", 6)
EndFunc   ;==>Chrome

#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <MsgBoxConstants.au3>
#include <GuiSlider.au3>

Example()

Func Example()
    ; Erstellt eine GUI mit verschiedenen Controls.
    Local $hGUI = GUICreate("test", 500, 400)
    Local $idHuhu = GUICtrlCreateButton("huhu", 280, 10, 200, 25)
    Local $idHaha = GUICtrlCreateButton("haha", 10, 10, 200, 25)
    Local $idFile0 = GUICtrlCreateInput("min", 10, 50, 60, 20)
    Local $idFile1 = GUICtrlCreateInput("min1", 10, 80, 60, 20)
    Local $idFile2 = GUICtrlCreateInput("min2", 310, 50, 60, 20)
    Local $idFile3 = GUICtrlCreateInput("min3", 310, 80, 60, 20)
    Local $idFile4 = GUICtrlCreateSlider(10,110,200,20)    
    

    Local $aWindow_Size = WinGetPos($hGUI)
    ConsoleWrite('Fensterbreite  = ' & $aWindow_Size[2] & @CRLF)
    ConsoleWrite('Fensterhöhe = ' & $aWindow_Size[3] & @CRLF)
    Local $aWindowClientArea_Size = WinGetClientSize($hGUI)
    ConsoleWrite('Breite des Clientbereichs des Fensters = ' & $aWindowClientArea_Size[0] & @CRLF)
    ConsoleWrite('Höhe des Clientbereichs des Fensters = ' & $aWindowClientArea_Size[1] & @CRLF)

    ; Zeigt die GUI
    GUISetState(@SW_SHOW, $hGUI)
    


    ; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst.
    While 1
        Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE, $idOK
                            ExitLoop
        Case $idHuhu 
                            MouseClick("left",832,703,1) 
                            Sleep(2000)
                            Local $sReturn = ($hGUI)
                            
                            
        Case $idHaha
                            MouseClick("left",1053,737,1) 
                            Sleep(2000)
                                                

        EndSwitch
    WEnd

    ; Löscht die vorherige GUI und alle Controls.
    GUIDelete($hGUI)
EndFunc   ;==>Example