Beiträge von Nathax

ControlClick Sendet einen Mausklick-Befehl an das angegebene Control.

ControlCommand Sendet einen Befehl an ein Control.

ControlDisable Sperrt/deaktivert ein Control.

ControlEnable Gibt ein gesperrtes (disabled) Control frei.

ControlFocus Setzt den Eingabefokus auf ein bestimmtes Control in einem Fenster.

ControlGetFocus Gibt den Klassennamen des Controls zurück, das den (Eingabe-) Fokus in einem bestimmten Fenster hat.

ControlGetHandle Erfragt den internen "handle" (Prozessidentifizierungscode) eines Controls.

ControlGetPos Erfragt die Position und die Größe eines Controls relativ zu seinem Fenster.

ControlGetText Erfragt Text vom Control.

ControlHide Versteckt ein Control.

ControlListView Sendet einen Befehl an ein ListView32 Control.

ControlMove Verschiebt ein Control in einem Fenster.

ControlSend Sendet eine Folge von Zeichen (Tastendrücken) an ein Control

ControlSetText Schreibt einen neuen Text in ein Control.

ControlShow Zeigt ein verstecktes Control an.

ControlTreeView Sendet einen Befehl an ein TreeView32 Control.

StatusbarGetText Liest den Text der Statusbar, soweit es sich um ein Standard Control handelt.

HotKeySet("a", "Start")

Global $HNUnten
Global $HNOben

While 1
Sleep(50)
WEnd

Func Start()
While 1
$Hohe = PixelSearch(745, 273, 783, 666, 0x91D6F3)
If IsArray($Hohe) Then
$RelUR = $Hohe[0] + 85
$RelOR = $Hohe[1] - 40
$RolUR = $Hohe[0] + 85
$RolOR = $Hohe[1] + 40
$HNUnten = PixelGetColor($RelUR, $RelOR)
$HNOben = PixelGetColor($RolUR, $RolOR)
Else
MsgBox(0, 0, "PixelSearch Error!")
EndIf

Sleep(10)
Send("{UP down}")
Sleep(110)
Send("{UP up}")

If $HNUnten = 0x031E31 Then
GoUp()
EndIf

If $HNOben = 0x031E31 Then
GoDown()
EndIf

WEnd
EndFunc ;==>Start

Func GoUp()
Send("{UP down}")
Sleep(1500)
Send("{UP up}")
EndFunc ;==>GoUp

Func GoDown()
Send("{DOWN down}")
Sleep(1500)
Send("{DOWN up}")
EndFunc ;==>GoDown

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIResizeMode",$GUI_DOCKALL)

Global $subfolder[30]

$version = "1.0"
$mainframe = GUICreate("Project Creator " & $version, 300, 200)

GUICtrlCreateLabel("Projektname:", 20, 10)
$project = GUICtrlCreateInput("", 20, 30, 200, 20)

GUICtrlCreateLabel("Projektpfad:", 20, 60)
$folder = GUICtrlCreateInput("", 20, 80, 200, 20)
$browse = GUICtrlCreateButton("Browse", 230, 80, 50, 18)

GUICtrlCreateLabel("Anzahl Unterordner:", 20, 110, 220, 15)
$subfolder_count = GUICtrlCreateInput("", 20, 130, 20, 20)

$start = GUICtrlCreateButton("", 100, 155, 23, 23, 0x0040)
GUICtrlSetTip(-1, "Projekt anlegen")
GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -138, 0)
$label1 = GUICtrlCreateLabel("Projekt anlegen", 130, 160)

GUIsetstate(@SW_SHOW, $mainframe)

$read_subfolder_count = GUICtrlRead($subfolder_count)

While 1
Switch (GUIGetMsg())
Case $GUI_EVENT_CLOSE
Exit
Case $browse
$var = FileSelectFolder("Wähle einen Ordner wo das Projekt erstellt werden soll:", "", 1)

If @error Then
MsgBox(4096,"","Kein Ordner ausgewählt!")
Else
GUICtrlSetData($folder, $var & "\")
EndIf
Case $start
$read_project = GUICtrlRead($project)
$read_folder = GUICtrlRead($folder)
$read_subfolder_count = GUICtrlRead($subfolder_count)
If $read_folder = "" Then
MsgBox(0,"ALERT", "Es wurde kein Projektpfad angegeben")
ElseIf $read_project = "" Then
MsgBox(0,"ALERT", "Es wurde kein Projektname angegeben")
ElseIf $read_subfolder_count = "" Then
$read_project = GUICtrlRead($project)
$read_folder = GUICtrlRead($folder)
DirCreate($read_folder & $read_project)
$label2 = GUICtrlCreateLabel("Projekt erstellt", 130, 160)
GUICtrlSetColor($label2, 0x33CC33)
Sleep(3000)
GUICtrlSetState(-1, $GUI_HIDE)
Else
DirCreate($read_folder & $read_project)
Local $arTest[$read_subfolder_count]
For $i = 0 To UBound($arTest) -1
$arTest[$i] = GUICtrlRead($subfolder[$i])
DirCreate($read_folder & $read_project & "\" & $arTest[$i])
Next

$read_project = GUICtrlRead($project)
$read_folder = GUICtrlRead($folder)
$label2 = GUICtrlCreateLabel("Projekt erstellt", 130, 160)
GUICtrlSetColor($label2, 0x33CC33)
Sleep(3000)
GUICtrlSetState(-1, $GUI_HIDE)
EndIf
EndSwitch

If GUICtrlRead($subfolder_count) <> $read_subfolder_count Then
$read_subfolder_count = GUICtrlRead($subfolder_count)
If GUICtrlRead($subfolder_count) >= 31 Then
MsgBox(0,"","Zuviele Ordner")
Else
For $i = 0 To $read_subfolder_count -1
$subfolder[$i] = GUICtrlCreateInput("", 290, 30*$i+30, 135, 20)
Next
_GUIAutoSize($mainframe, "C", "C")
EndIf
EndIf
$read_subfolder_count = GUICtrlRead($subfolder_count)
WEnd

Func _GUIAutoSize($hGUI, $GUIX = Default, $GUIY = Default)
Local Const $GW_CHILD = 0x5
Local Const $GW_HWNDNEXT = 0x2
Local Const $GWL_STYLE = 0xFFFFFFF0
Local Const $WS_VISIBLE = 0x10000000
Local $aClient, $aHwnd, $aID, $aPos, $aStyle, $NCW, $NCH
; ---------------------------------------------------------------------------------------------------------------------------
; Dimensionen des NonClient-Bereichs des Fensters ermitteln
If Not IsHWnd($hGUI) Then Return SetError(1, 1, False)
$aPos = WinGetPos($hGUI)
$aClient = WinGetClientSize($hGUI)
$NCW = $aPos[2] - $aClient[0]
$NCH = $aPos[3] - $aClient[1]
; ---------------------------------------------------------------------------------------------------------------------------
; Positionen der Controls ermitteln
Local $aSize[4] = [999999, 999999, 0, 0]
$aHwnd = DllCall("User32.dll", "HWND", "GetWindow", "HWND", $hGUI, "UInt", $GW_CHILD)
If @error Or $aHwnd[0] = 0 Then Return SetError(1, 2, False)
While $aHwnd[0]
$aStyle = DllCall("User32.dll", "Long", "GetWindowLong", "HWND", $aHwnd[0], "Int", $GWL_STYLE)
If BitAND($aStyle[0], $WS_VISIBLE) = $WS_VISIBLE Then
$aID = DllCall("User32.dll", "Int", "GetDlgCtrlID", "HWND", $aHwnd[0])
$aPos = ControlGetPos($hGUI, "", $aID[0])
$aPos[2] += $aPos[0]
$aPos[3] += $aPos[1]
If $aPos[0] < $aSize[0] Then $aSize[0] = $aPos[0]
If $aPos[1] < $aSize[1] Then $aSize[1] = $aPos[1]
If $aPos[2] > $aSize[2] Then $aSize[2] = $aPos[2]
If $aPos[3] > $aSize[3] Then $aSize[3] = $aPos[3]
EndIf
$aHwnd = DllCall("User32.dll", "HWND", "GetWindow", "HWND", $aHwnd[0], "UInt", $GW_HWNDNEXT)
If @error Then Return SetError(1, 2, False)
WEnd
If $aSize[0] = 999999 Then Return SetError(1, 3, False)
; ---------------------------------------------------------------------------------------------------------------------------
; Fenster anpassen
Local $GUIW = $aSize[2] + $aSize[0] + $NCW
Local $GUIH = $aSize[3] + $aSize[1] + $NCH
If $GUIX = "C" Then $GUIX = (@DesktopWidth - $GUIW) / 2
If $GUIY = "C" Then $GUIY = (@DesktopHeight - $GUIH) / 2
WinMove($hGUI, "", $GUIX, $GUIY, $GUIW, $GUIH, 1)
Return True
EndFunc ;==>_GUIAutoSize

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIResizeMode",$GUI_DOCKALL)

Global $subfolder[30]

$version = "1.0"
$mainframe = GUICreate("Project Creator " & $version, 300, 200)

GUICtrlCreateLabel("Projektname:", 20, 10)
$project = GUICtrlCreateInput("", 20, 30, 200, 20)

GUICtrlCreateLabel("Projektpfad:", 20, 60)
$folder = GUICtrlCreateInput("", 20, 80, 200, 20)
$browse = GUICtrlCreateButton("Browse", 230, 80, 50, 18)

GUICtrlCreateLabel("Anzahl Unterordner:", 20, 110, 220, 15)
$subfolder_count = GUICtrlCreateInput("", 20, 130, 20, 20)

$start = GUICtrlCreateButton("", 100, 155, 23, 23, 0x0040)
GUICtrlSetTip(-1, "Projekt anlegen")
GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -138, 0)
$label1 = GUICtrlCreateLabel("Projekt anlegen", 130, 160)

GUIsetstate(@SW_SHOW, $mainframe)

$read_subfolder_count = GUICtrlRead($subfolder_count)

While 1
Switch (GUIGetMsg())
Case $GUI_EVENT_CLOSE
Exit
Case $browse
$var = FileSelectFolder("Wähle einen Ordner wo das Projekt erstellt werden soll:", "", 1)

If @error Then
MsgBox(4096,"","Kein Ordner ausgewählt!")
Else
GUICtrlSetData($folder, $var & "\")
EndIf
Case $start
$read_project = GUICtrlRead($project)
$read_folder = GUICtrlRead($folder)
$read_subfolder_count = GUICtrlRead($subfolder_count)
If $read_folder = "" Then
MsgBox(0,"ALERT", "Es wurde kein Projektpfad angegeben")
ElseIf $read_project = "" Then
MsgBox(0,"ALERT", "Es wurde kein Projektname angegeben")
ElseIf $read_subfolder_count = "" Then
$read_project = GUICtrlRead($project)
$read_folder = GUICtrlRead($folder)
DirCreate($read_folder & $read_project)
$label2 = GUICtrlCreateLabel("Projekt erstellt", 130, 160)
GUICtrlSetColor($label2, 0x33CC33)
Sleep(3000)
GUICtrlSetState(-1, $GUI_HIDE)
Else
DirCreate($read_folder & $read_project)
Local $arTest[$read_subfolder_count]
For $i = 0 To UBound($arTest) -1
$arTest[$i] = GUICtrlRead($subfolder[$i])
DirCreate($read_folder & $read_project & "\" & $arTest[$i])
Next

$read_project = GUICtrlRead($project)
$read_folder = GUICtrlRead($folder)
$label2 = GUICtrlCreateLabel("Projekt erstellt", 130, 160)
GUICtrlSetColor($label2, 0x33CC33)
Sleep(3000)
GUICtrlSetState(-1, $GUI_HIDE)
EndIf
EndSwitch

If GUICtrlRead($subfolder_count) <> $read_subfolder_count Then
$read_subfolder_count = GUICtrlRead($subfolder_count)
If GUICtrlRead($subfolder_count) >= 31 Then
MsgBox(0,"","Zuviele Ordner")
Else
For $i = 0 To $read_subfolder_count -1
$subfolder[$i] = GUICtrlCreateInput("", 290, 30*$i+30, 135, 20)
Next
_GUIAutoSize($mainframe, "C", "C")
EndIf
EndIf
$read_subfolder_count = GUICtrlRead($subfolder_count)
WEnd

Func _GUIAutoSize($hGUI, $GUIX = Default, $GUIY = Default)
Local Const $GW_CHILD = 0x5
Local Const $GW_HWNDNEXT = 0x2
Local Const $GWL_STYLE = 0xFFFFFFF0
Local Const $WS_VISIBLE = 0x10000000
Local $aClient, $aHwnd, $aID, $aPos, $aStyle, $NCW, $NCH
; ---------------------------------------------------------------------------------------------------------------------------
; Dimensionen des NonClient-Bereichs des Fensters ermitteln
If Not IsHWnd($hGUI) Then Return SetError(1, 1, False)
$aPos = WinGetPos($hGUI)
$aClient = WinGetClientSize($hGUI)
$NCW = $aPos[2] - $aClient[0]
$NCH = $aPos[3] - $aClient[1]
; ---------------------------------------------------------------------------------------------------------------------------
; Positionen der Controls ermitteln
Local $aSize[4] = [999999, 999999, 0, 0]
$aHwnd = DllCall("User32.dll", "HWND", "GetWindow", "HWND", $hGUI, "UInt", $GW_CHILD)
If @error Or $aHwnd[0] = 0 Then Return SetError(1, 2, False)
While $aHwnd[0]
$aStyle = DllCall("User32.dll", "Long", "GetWindowLong", "HWND", $aHwnd[0], "Int", $GWL_STYLE)
If BitAND($aStyle[0], $WS_VISIBLE) = $WS_VISIBLE Then
$aID = DllCall("User32.dll", "Int", "GetDlgCtrlID", "HWND", $aHwnd[0])
$aPos = ControlGetPos($hGUI, "", $aID[0])
$aPos[2] += $aPos[0]
$aPos[3] += $aPos[1]
If $aPos[0] < $aSize[0] Then $aSize[0] = $aPos[0]
If $aPos[1] < $aSize[1] Then $aSize[1] = $aPos[1]
If $aPos[2] > $aSize[2] Then $aSize[2] = $aPos[2]
If $aPos[3] > $aSize[3] Then $aSize[3] = $aPos[3]
EndIf
$aHwnd = DllCall("User32.dll", "HWND", "GetWindow", "HWND", $aHwnd[0], "UInt", $GW_HWNDNEXT)
If @error Then Return SetError(1, 2, False)
WEnd
If $aSize[0] = 999999 Then Return SetError(1, 3, False)
; ---------------------------------------------------------------------------------------------------------------------------
; Fenster anpassen
Local $GUIW = $aSize[2] + $aSize[0] + $NCW
Local $GUIH = $aSize[3] + $aSize[1] + $NCH
If $GUIX = "C" Then $GUIX = (@DesktopWidth - $GUIW) / 2
If $GUIY = "C" Then $GUIY = (@DesktopHeight - $GUIH) / 2
WinMove($hGUI, "", $GUIX, $GUIY, $GUIW, $GUIH, 1)
Return True
EndFunc ;==>_GUIAutoSize