Beiträge von Yjuq

  • Fenster verschieben, Script nicht pausieren

    Gleiche Frage hatte ich auch mal ;P

    [autoit]

    _Timer_SetTimer()

    [/autoit]

    Das sollte dir definitiv weiterhelfen :D


    Das Beispielscript aus der Hilfe:

    Spoiler anzeigen
    [autoit]

    #include <WindowsConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <Timers.au3>
    #include <GuiStatusBar.au3>
    #include <ProgressConstants.au3>

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

    Global $iMemo, $hStatusBar, $progress, $percent = 0, $direction = 1

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

    _Example_CallBack()

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

    Func _Example_CallBack()
    Local $hGUI, $iTimerProgress, $btn_change, $iWait = 10, $btn_state
    Local $aParts[3] = [75, 330, -1]

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

    $hGUI = GUICreate("Timers Using CallBack Function(s)", 400, 320)
    $iMemo = GUICtrlCreateEdit("", 2, 32, 396, 226, BitOR($WS_HSCROLL, $WS_VSCROLL))
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    $btn_state = GUICtrlCreateButton("Start Progress Bar", 70, 270, 100, 25)
    $btn_change = GUICtrlCreateButton("Change", 215, 270, 90, 25)
    GUICtrlSetState($btn_change, $GUI_DISABLE)
    $hStatusBar = _GUICtrlStatusBar_Create($hGUI, $aParts)
    _GUICtrlStatusBar_SetText($hStatusBar, "Timers")
    _GUICtrlStatusBar_SetText($hStatusBar, @TAB & @TAB & StringFormat("%02d:%02d:%02d", @HOUR, @MIN, @SEC), 2)
    $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
    GUICtrlSetColor($progress, 0xff0000)
    _GUICtrlStatusBar_EmbedControl($hStatusBar, 1, GUICtrlGetHandle($progress))
    GUISetState()

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

    _Timer_SetTimer($hGUI, 1000, "_UpdateStatusBarClock") ; create timer

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

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    ExitLoop
    Case $btn_state
    If GUICtrlRead($btn_state) = "Start Progress Bar" Then
    $iTimerProgress = _Timer_SetTimer($hGUI, $iWait, "_UpdateProgressBar") ; create timer
    If @error Or $iTimerProgress = 0 Then ContinueLoop
    GUICtrlSetData($btn_state, "Stop Progress Bar")
    GUICtrlSetState($btn_change, $GUI_ENABLE)
    Else
    GUICtrlSetState($btn_change, $GUI_DISABLE)
    _Timer_KillTimer($hGUI, $iTimerProgress)
    GUICtrlSetData($btn_state, "Start Progress Bar")
    EndIf

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

    Case $btn_change
    If $iWait = 10 Then
    $iWait = 250
    Else
    $iWait = 10
    EndIf
    MemoWrite("Timer for _UpdateProgressBar set at: " & $iWait & " milliseconds")
    $iTimerProgress = _Timer_SetTimer($hGUI, $iWait, "", $iTimerProgress) ; reuse timer with different interval
    EndSwitch
    WEnd
    ConsoleWrite("Killed All Timers? " & _Timer_KillAllTimers($hGUI) & @CRLF)
    GUIDelete()
    EndFunc ;==>_Example_CallBack

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

    ; call back function
    Func _UpdateStatusBarClock($hWnd, $Msg, $iIDTimer, $dwTime)
    #forceref $hWnd, $Msg, $iIDTimer, $dwTime
    _GUICtrlStatusBar_SetText($hStatusBar, @TAB & @TAB & StringFormat("%02d:%02d:%02d", @HOUR, @MIN, @SEC), 2)
    EndFunc ;==>_UpdateStatusBarClock

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

    ; call back function
    Func _UpdateProgressBar($hWnd, $Msg, $iIDTimer, $dwTime)
    #forceref $hWnd, $Msg, $iIDTimer, $dwTime
    $percent += 5 * $direction
    GUICtrlSetData($progress, $percent)
    If $percent = 100 Or $percent = 0 Then $direction *= -1
    If $percent = 100 Then
    GUICtrlSetColor($progress, 0xff0000)
    ElseIf $percent = 0 Then
    GUICtrlSetColor($progress, 0x0000ff)
    EndIf
    EndFunc ;==>_UpdateProgressBar

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

    ; Write a line to the memo control
    Func MemoWrite($sMessage)
    GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
    EndFunc ;==>MemoWrite

    [/autoit]

  • Userpics von euch :)

    Vllt. zerstöre ich euch jetzt euren ersten eindruck :o

    Aber ich möchte nicht, dass jemand einen falschen Eindruck von mir hat ^^
    Und aus diesem Grund habe ich auch mein Gesicht freigegeben :P


    >> Aber das dadurch Scripte "schlechter" werden ?o

  • Userpics von euch :)

    Nun ja, ich könnte jetzt einen Streit anfachen. Aber ich lass das mal lieber bleiben. Es ist genauso wie die Vorurteile bei schwarzen.
    >> Schwarz = Guter Basketball spieler
    >> Kind = Nervensäge & Fehlermaschine v1.0

    Nur gut das (nach meinem alter zu urteilen) die bezeichnung Jugendlicher eher zutrifft ;)

  • Software aus Registry auslesen, in Textdatei schreiben und filtern

    Hier ein Script, was ich dir mal auf die schnelle geschrieben habe ^^ | Es sollte dir garantiert helfen :P

    >> Es ist sinvoller, wenn man das Array überprüft bevor man in die Textdatei schreibt.

    [autoit]


    Dim $Array[10] ;~ Nehmen wir mal an, dein Array hat 10 strings gespeichert.

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

    $Array[0] = 'String 1'
    $Array[1] = 'String 2'
    $Array[2] = 'Sicherheitsupdate 1'
    $Array[3] = 'String 3'
    $Array[4] = 'String 4'
    $Array[5] = 'String 5'
    $Array[6] = 'Sicherheitsupdate 2'
    $Array[7] = 'String 6'
    $Array[8] = 'Sicherheitsupdate 3'
    $Array[9] = 'String 7'

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

    $Open = FileOpen('Beispiel.txt', 2)

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

    ;~ Nun gehen wir mit einer For-Schleife das ganze Array durch und suchen uns die bestimmten Werte heraus.
    For $i = 0 To UBound($Array, 1) -1
    $bool = StringRegExp($Array[$i], 'Sicherheitsupdate', 0) ;~ Hier musst du nur das pattern anpassen.
    If $bool = 0 Then
    FileWrite($Open, $Array[$i] & @CRLF)
    EndIf
    Next

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

    FileClose($Open)

    [/autoit]

  • Wo ist der fehlende 1€?

    Mal noch zu der ersten Frage:
    Ich war falsch ^^ | Alles was ich gesagt habe war mist :P

    >> Gebe ich offen zu ^^ hat bei mir aber gedauert bis der Groschen gefallen ist und ich tatsächlich auf die wahre RICHTIGE lösung gekommen bin :D
    progandy hatte recht, man muss das ganze vom Standort der Jungen sehen ^^ dann haut das auch hin :D

  • Wo ist der fehlende 1€?

    Lösung:

    Spoiler anzeigen


    Wenn der Typ jetzt 5€ zurück bringen soll, dann bezahlen die Jungen 25€. Davon bezahlt jeder Junge 8,333€.

    Nun bekommt jeder aber nur 1€ zurück, weil der Typ sich 2 einsteckt. Also bezahlen die Jungen 28€. Davon bezahlt jeder Junge 9,333€

    Jetzt noch der Typ der die 2€ hat und wir kommen auf 30€ ;)

  • IE.au3 (Kein Plan)

    Guten Abend,
    ich möchte mein Wissen gerne erweitern. Aber leider habe ich keine Ahnung wo ich bei der UDF IE.au3 anfangen soll.

    Ich habe dazu keinerlei Vorwissen...


    Kennt jemand ein gutes deutsches Tutorial dazu?


    Zudem habe ich auch noch ein paar Fragen.

    1. Was sind diese "Objekte"? Also wie verwende ich diese und woher weiß ich welches Objekt man verwenden muss?
    2. Kann man mit IE.au3 auch Seiten in eine eigene GUI laden? Also ohne dass sich ein extra Fenster öffnet?
    3. Muss ich dafür HTML können? Ich habe nämlich so ein paar Funktionen in der Hilfe gefunden, die auf den Quelltext eingehen...


    Bedanke mich schonmal im Vorraus ^^ |> Wie gesagt, habe sogut wie kein Vorwissen. Nur ein paar Funktionen ausprobiert... Das wars auch schon :P

  • Syntax Frage zu Run

    Hallo, ich möchte gerne Inhalte von Variablen als Kommandozeilenparameter übergeben.

    Ich habe 2 Variable:
    $var_1 = 1
    $var_2 = 'Test'

    Nun möchte ich über die Kommandozeile diese beiden Variablen übergeben.
    Aber wie sieht die Syntax dazu aus oO?

    >> Ich bedanke mich schonmal im Vorraus.