Beiträge von Jam00

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Pixelfarbenfinder", 215, 102, 193, 115)
$Label1 = GUICtrlCreateLabel("", 6, 8, 209, 17)
$Label2 = GUICtrlCreateLabel("", 6, 25, 204, 40)
$Label3 = GUICtrlCreateLabel("", 6, 73, 209, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$PosOld = MouseGetPos ()
AdlibEnable ("_Pos",10)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd
Func _Pos()
$Pos = MouseGetPos()
If $PosOld[0] <> $Pos[0] OR $PosOld[1] <> $Pos[1] Then
$PosOld = $Pos
$Color = PixelGetColor ($Pos[0],$Pos[1])
$Color = "0x" & Hex ($Color,6)
GUICtrlSetData ($Label1,"X:" & $Pos[0] & " Y:" & $Pos[1])
GUICtrlSetBkColor ($Label2,$Color)
GUICtrlSetData ($Label3,"Farbcode:" & $Color)
EndIf
EndFunc

#include <guiconstants.au3>
GUICreate("",800,600)
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
GUISetState(@sw_show)
$progress = GUICtrlCreateProgress(300,200,200,50)
GUICtrlSetColor($progress,0xFF0000)
GUICtrlSetData($progress,100)
while 1
$msg=GUIGetMsg()
Select
case $msg=$gui_event_close
exit 1
EndSelect
WEnd

#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 193, 115)
$ListView1 = GUICtrlCreateListView("Zeit|Montag|Dienstag|Mittwoch|Donnerstag|Freitag|Samstag|Sonntag", 7, 7, 618, 435)
GUICtrlSendMsg(-1, 0x101E, 0, 50)
For $1 = 1 To 24
GUICtrlCreateListViewItem($1 & " Uhr", $ListView1)
Next
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 193, 115)
$ListView1 = GUICtrlCreateListView("Zeit|Montag|Dienstag|Mittwoch|Donnerstag|Freitag|Samstag|Sonntag", 7, 7, 618, 435)
_GUICtrlListView_SetExtendedListViewStyle($ListView1, $LVS_EX_GRIDLINES)
GUICtrlSendMsg(-1, 0x101E, 0, 50)
For $1 = 1 To 24
GUICtrlCreateListViewItem($1 & " Uhr", $ListView1)
Next
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 458, 298, 193, 115)
$TreeView1 = GUICtrlCreateTreeView(8, 9, 445, 283)
$TreeView1_0 = GUICtrlCreateTreeViewItem("Test", $TreeView1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $TreeView1
MsgBox (0,"","")
EndSwitch
WEnd

; Kompiliere dieses Skript zu "ConsoleRead.exe".
; Öffne ein Konsolenfenster und wechsle in das Verzeichnis, in dem ConsoleRead.exe ist.
; Tippe folgendes in die Befehlszeile:
; echo Hallo! | ConsoleRead.exe
;
; Wenn obige Zeile in einem Konsolenfenster aufgerufen wird, gibt der echo Befehl den Text
; "Hallo!" aus. Anstatt diesen anzuzeigen, bewirkt das "|" in dem Befehl, das der Text
; an den STDIN Stream des ConsoleRead.exe Prozesses weitergeleitet wird.
If Not @Compiled Then
MsgBox (0, "", "Dieses Skript muss kompiliert sein, um seine Funktionalität zu demonstrieren.")
Exit -1
EndIf

Local $data
While True
$data &= ConsoleRead ( )
If @error Then ExitLoop
Sleep (25)
WEnd
MsgBox (0, "", "Erhalten: " & @CRLF & @CRLF & $data)

ConsoleRead ( [peek = false[, binary = false ]])