Beiträge von chip

  • endlos funktion

    Er will im Grunde eine Anzahl X an Parameter mit scheinbar zufälligem Typ an eine Funktion übergeben.

    Sprich z.b. 100 Paramter davon 20 Arrays, 60 String und 20 Integer.

    Also um es mal anders zu sagen totaler Murks.

    So wie es im Starpost sich ließt will er eine Funktion als Datenbank missbrauchen.

  • Gui verschieben

    Hier:

    Spoiler anzeigen
    [autoit]

    #include <string.au3>
    #include <file.au3>
    #include <Array.au3>
    #include <Constants.au3>
    #include <IE.au3>
    #include <Excel.au3>
    #include <GuiConstantsEx.au3>
    #include <Date.au3>
    #include <WindowsConstants.au3>
    #include <ButtonConstants.au3>
    #include <GuiButton.au3>
    #include <Misc.au3>

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

    Global $zminutena = 3, $zminutenb = 2, $minuten = 0, $zeilevorschub1 = 2, $zeilevorschub = 2, $Stunden = 0, $zstundena = 13, $zstundenb = 2
    Global $fVisible, $datum, $uhrzeit, $sNewDate0, $Zeilenanzahl1, $Zeilenanzahl2, $dateidatum, $blink = True, $msg
    Global $Starttimer15 = TimerInit(), $Starttimer30 = TimerInit(), $Starttimer45 = TimerInit(), $Starttimer60 = TimerInit()
    $dateidatum = (_DateTimeFormat(_NowCalc(), 2))

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

    $form = GUICreate("", 80, 50, 323, 169, BitOR($WS_BORDER, $WS_POPUP))
    GUISetBkColor(0x000000)
    $Button3 = GUICtrlCreateButton("Exit", 4, 20, 35, 17)
    $Label1 = GUICtrlCreateLabel("Statistik", 6, 5, 77, 17)
    GUICtrlSetColor(-1, 0xFFFFFF)
    $ico = GUICtrlCreateIcon("user32.dll", -2, 40, 20, 32, 32)

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

    GUISetState(@SW_SHOW)

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

    $move = 0
    While 1
    Do
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_SECONDARYDOWN
    $move = 1
    Case $msg = $GUI_EVENT_SECONDARYUP
    $move = 0
    Case $msg = $GUI_EVENT_CLOSE
    MsgBox(0, "", "Dialog wurde beendet")
    Exit
    Case $msg = $GUI_EVENT_MINIMIZE
    MsgBox(0, "", "Dialog wurde minimiert", 2)
    Case $msg = $Button3
    Ende()
    ExitLoop

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

    EndSelect
    Until $msg = 0

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

    If $move = 1 Then
    WinMove($form, "", MouseGetPos(0), MouseGetPos(1))
    EndIf
    WEnd

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

    Func _blink() ; Für das zeichen damit es blinkt
    $blink = Not $blink
    If $blink Then
    GUICtrlSetState($ico, 16);$GUI_SHOW
    Else
    GUICtrlSetState($ico, 32);$GUI_HIDE
    EndIf
    EndFunc ;==>_blink

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

    Func Ende()
    Exit
    EndFunc ;==>Ende

    [/autoit]

  • Wert in .txt suchen und die Zeile zurückgeben

    Immer dieses umständliche und meist überflüssige RegExp:

    [autoit]

    $file = FileOpen("test.txt", 0)

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

    $check = 0

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

    While 1
    $line = FileReadLine($file)
    If $check = 1 Then
    $problem = $problem & @CRLF & $line
    ElseIf StringInStr($line, "Problem:") Then
    $check = 1
    $problem = $line
    EndIf
    If @error = -1 Then ExitLoop
    WEnd

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

    FileClose($file)

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

    MsgBox(0,"",$problem)

    [/autoit]

  • Zwei GUIs und eine Variable

    Hier so gehts:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

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

    $Form1 = GUICreate("Form1", 165, 110, 200, 125)
    $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 25, 15, 100, 15)
    $Button1 = GUICtrlCreateButton("Button1", 25, 50, 75, 25)
    GUISetState(@SW_SHOW)

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

    $Form2 = GUICreate("Form1", 250, 150, 200, 125)
    $Label1_Gui2 = GUICtrlCreateLabel("Hier sollte 'Check' stehen", 65, 30, 150, 35)
    GUISetState(@SW_HIDE)

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

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

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

    If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
    GUICtrlSetData($Label1_Gui2, "Check")
    GUISetState(@SW_HIDE, $Form1)
    GUISetState(@SW_SHOW, $Form2)
    Else
    MsgBox(0, "", "Uncheck")
    EndIf
    EndSwitch
    WEnd

    [/autoit]

  • Fehler in DriveStatus

    Ließ nochmal genauer Oscar, da steht "may even work" das heißt es kann vielleicht Funktionieren, muss es aber nicht. Das mit dem kompletten Pfad angeben war vor 3.3.8.1 Glückssache und wurde vermutlich nun gestrichen. Lediglich ohne die Hilfe zu aktuallisieren.