Beiträge von Nathax

Nathax

Was für eine Art Mikrokontroller benutzt du?

Nathax

Alles Gute

Nathax

Das sieht geil aus, Kev.
Womit hast du das gemacht? Rainmeter?
Gibts den Skin irgendwo zu downloaden? Oder ist das Windows 8?

Nathax

Du kannst mit den Befehlen

[autoit]

StdoutRead
StdinWrite

[/autoit]

auf Konsolenausgaben zugreifen. Kannst ja mal ein bisschen rumprobieren.

Nathax

Frohes neues Jahr

Nathax

Sieht schonmal besser aus.

Nathax

minx: Sieht echt geil aus das von dir erstellte Design. Allerdings wäre ich für andere Farben. Villeicht orange/blau oder blau/weiß?

Stevenx: Das Motiv der Tasse finde ich klasse. Ich hab sie jetzt nicht in der Hand, aber ich finde sie ist noch etwas zu schlicht. Villeicht eine leicht cremige Farbe für die Tasse. Oder hell blau. Ansonsten ist weiß auch in Ordnung.

@[Beide]:

Nathax

Mir persöhnlich gefällt das jetzige Logo besser.

Nathax

Alternativ über ganz normale PHP-Datein, denen du per GET-Methode die Parameter übergibst.

Nathax

Quelle?
Ich habe die ganze Zeit lang eine mit Autoit kompilierte Anwendung laufen,
wurde aber vorhin nicht gebannt.

Nathax

Alles Gute wünsch ich euch beiden

Nathax

Ja, du liegst schon richtig.
Du brauchst das Handle oder den Titel/Text, des Fensters und die ID des Controls, in deinem Fall die ID des Input-Felds.
Damit kannst du dann Funktionen wie

Spoiler anzeigen

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.

benutzen.

Nathax

Speicher doch einfach die ListView in einem Array.
Dann füllst du diese mit den Werten aus dem Array, und löscht jeweils das @CRLF beim hereinzuschreibenden String.

Nathax

Hmm...
kein schöner Code, aber das sollte so doch funktionieren:

[autoit]

#include <GuiListView.au3>

[/autoit][autoit][/autoit][autoit]

$GUI = GUICreate("listview items", 400, 250, 100, 200)
$hListView = GUICtrlCreateListView("2342|234234", 10, 10, 500, 250)
GUICtrlCreateListViewItem("123|123", $hListView)
GUICtrlCreateListViewItem("abc|abc", $hListView)

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

GUISetState()
Do
Sleep(50)
$msg = GUIGetMsg()
ConsoleWrite(_GUICtrlListView_GetSelectedIndices($hListView) & @CRLF)
Until $msg = -3
Exit

[/autoit]

Nathax

Ich habs nicht getestet, aber vllt. vor der ersten Abfrage alle de-selecten:

[autoit]

For $i = 0 to _GUICtrlListView_GetItemCount()
_GUICtrlListView_SetItemChecked($hListView, $i, False)
Next

[/autoit]

Nathax

Eine Frage: Wozu das @CRLF, wenn das sowieso nichts bewirkt?

Nathax

[autoit]

If _GUICtrlListView_GetSelectedIndices($hListView) = "" Then ...

[/autoit]

Nathax

Spoiler anzeigen

[autoit]

HotKeySet("a", "Start")

[/autoit] [autoit][/autoit] [autoit]

Global $HNUnten
Global $HNOben

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(50)
WEnd

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

If $HNUnten = 0x031E31 Then
GoUp()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If $HNOben = 0x031E31 Then
GoDown()
EndIf

[/autoit] [autoit][/autoit] [autoit]

WEnd
EndFunc ;==>Start

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit]

Nathax

Hier noch eine elegantere Lösung:

Spoiler anzeigen

[autoit]

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

[/autoit] [autoit][/autoit] [autoit]

Global $subfolder[30]

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

GUIsetstate(@SW_SHOW, $mainframe)

[/autoit] [autoit][/autoit] [autoit]

$read_subfolder_count = GUICtrlRead($subfolder_count)

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

$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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit]

Nathax

Spoiler anzeigen

[autoit]

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

[/autoit] [autoit][/autoit] [autoit]

Global $subfolder[30]

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

GUIsetstate(@SW_SHOW, $mainframe)

[/autoit] [autoit][/autoit] [autoit]

$read_subfolder_count = GUICtrlRead($subfolder_count)

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

$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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit]

Du hast das Array nicht mit Werten gefüllt.
So müsste das Erstellen jetzt eigentlich funktionieren.

Beiträge von Nathax

Mit SD-Card "RAW" kommunizieren

Alles gute zum 26'ten, chip

Wie sieht euer Desktop aus?

CS:GO Dedicated Server Update

2012 --> 2013

Das AutoIt T-Shirt

Das AutoIt T-Shirt

Neues Logo

Mysql

WARNUNG! Alle Battlefield 3 Spieler: LESEN!

Pee wird 24 und Funkey 32

Input eines anderen Fensters/Programms

ListView Darstellungsproblem unter Windows XP

ListView abfrage bei keiner Auswahl

ListView abfrage bei keiner Auswahl

ListView Darstellungsproblem unter Windows XP

ListView abfrage bei keiner Auswahl

Fehler: Subscript used with non-Array variable

Ordner durch Array erstellen

Ordner durch Array erstellen