Beiträge von funkey

#include <GUIConstantsEx.au3>
#include <StringConstants.au3>


Global Enum $AA, $BB, $CC

Global $funktioniert = "Es|hat|funktioniert"
Global $arrfunktioniert = StringSplit($funktioniert, "|", $STR_NOCOUNT)
Global $aBtn[UBound($arrfunktioniert)]

Global $hGui = GUICreate("Test", 400, 400)

For $i = 0 To UBound($arrfunktioniert) -1
    $aBtn[$i] = GUICtrlCreateButton($arrfunktioniert[$i], 10, 10 + $i * 35, 100, 30)
Next

GUISetState(@SW_SHOW)

Global $iMsg


While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $aBtn[$AA]
            MsgBox(16, "", "$AA pressed - " & $arrfunktioniert[$AA])
        Case $aBtn[$BB]
            MsgBox(16, "", "$BB pressed - " & $arrfunktioniert[$BB])
        Case $aBtn[$CC]
            MsgBox(16, "", "$CC pressed - " & $arrfunktioniert[$CC])
    EndSwitch
WEnd

#include <Hotkey.au3>

Global Const $VK_CLEAR = 0x0C

HotKeySet ( "{numpad5}" , "_num_5_" )
_HotKey_Assign($VK_CLEAR, '_num_5_')

While 1
    Sleep(20)
WEnd

Func _num_5_()
    ConsoleWrite("5" & @CRLF)
    Exit
EndFunc

TCPStartup()

Global $iSock = TCPConnect(TCPNameToIP ("192.168.x.x:"), 3052)

Global $Packet = "GET /local/rest/v1/ups/status HTTP/1.1" & @CRLF & _
"Authorization: <BEARER-TOKEN-COPIED-EARLIER>" & @CRLF & _
"Accept: application/json" & @CRLF & @CRLF

TCPSend($iSock, $Packet)
Global $sRecv = TCPRecv($iSock, 1024)
TCPCloseSocket($iSock)

ConsoleWrite($sRecv & @CRLF)

#include <ColorConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiRichEdit.au3>


Func UpdateEditField( $idEditField, $sString, $bError )
   Local $sValue = GUICtrlRead( $idEditField )
   If $bError = True Then
;~       Beep( 500, 500 )
      _GUICtrlRichEdit_SetCharColor( $idEditField, _WinAPI_SwitchColor($COLOR_RED ))
      _GUICtrlRichEdit_AppendText( $idEditField, @CRLF & $sString )
      _GUICtrlRichEdit_SetCharColor( $idEditField, _WinAPI_SwitchColor($COLOR_BLACK ))
   Else
      _GUICtrlRichEdit_AppendText( $idEditField, @CRLF & $sString )
   EndIf
EndFunc


Global $hGui = GUICreate("Test", 400, 400)
Global $nBtn = GUICtrlCreateButton("Add Text", 10, 10, 100, 30)
Global $hRichEdit = _GUICtrlRichEdit_Create($hGui, "Text", 10, 90, 380, 300)

GUISetState(@SW_SHOW)

 While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                _GUICtrlRichEdit_Destroy($hRichEdit)
                ExitLoop
            Case $nBtn
                UpdateEditField( $hRichEdit, Chr(Random(65, 90, 1)), Random(0, 1, 1 ))
        EndSwitch
    WEnd

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <WinAPISysWin.au3>

Opt("GUIOnEventMode", 1)

Global $hGui = GUICreate("test")
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "SpecialEvents")
GUISetOnEvent($GUI_EVENT_RESTORE, "SpecialEvents")

Global $nLbl = GUICtrlCreateLabel("Bitte einen Text eingeben. Das Ergebnis ist nicht sichtbar", 10, 100, Default, Default, 0, 0)
Global $nEdit = GUICtrlCreateInput("", 10, -100, 300, 20)

GUICtrlCreateButton("Show", 10, 200, 100, 25)
GUICtrlSetOnEvent(-1, "_ShowInput")
GUICtrlCreateButton("Hide", 120, 200, 100, 25)
GUICtrlSetOnEvent(-1, "_HideInput")

GUISetState(@SW_SHOW)

While 1
        Sleep(100)
WEnd

Func _ShowInput()
    GUICtrlSetPos($nEdit, 10, 100)
    GUICtrlSetState($nLbl, $GUI_HIDE)
EndFunc

Func _HideInput()
    GUICtrlSetState($nLbl, $GUI_SHOW)
    GUICtrlSetPos($nEdit, 10, -100)
    _WinAPI_SetFocus(GUICtrlGetHandle($nEdit))
EndFunc

Func SpecialEvents()
    Select
        Case @GUI_CtrlId = $GUI_EVENT_CLOSE
            GUIDelete()
            Exit
    EndSelect
EndFunc   ;==>SpecialEvents