Beiträge von BugFix

  • gui mit whille schleife

    Eines noch, es ist übersichtlicher, wenn du das in eine Funktion auslagerst.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    Global $stat = 0
    $gui1 = GUICreate('GUI 1')
    $btn1 = GUICtrlCreateButton('Starte Help', 10, 20, 100, 20)
    GUICtrlSetBkColor($btn1, 0x00FF00)

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

    GUISetState(@SW_SHOW, $gui1)

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

    While 1
    $msg = GUIGetMsg()
    $pid = ProcessExists('AutoIt3Help.exe')
    If $stat <> $pid Then $stat = _ToggleBtnCol($btn1, $pid)
    Switch $msg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $btn1
    If $stat Then
    ProcessClose($stat)
    Else
    ShellExecute(StringReplace(@AutoItExe, 'autoit3.exe', 'AutoIt3Help.exe'))
    EndIf
    EndSwitch
    WEnd

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

    Func _ToggleBtnCol($ID, $PID)
    If $PID Then
    GUICtrlSetBkColor($ID, 0xFA8072)
    ControlSetText($gui1, '', $ID, 'Beende Help')
    Else
    GUICtrlSetBkColor($ID, 0x00FF00)
    ControlSetText($gui1, '', $ID, 'Starte Help')
    EndIf
    Return $PID
    EndFunc

    [/autoit]

  • gui mit whille schleife

    Hier mal ein allg. Bsp.

    [autoit]

    #include <GUIConstants.au3>

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

    Global $stat = False
    $gui1 = GUICreate('GUI 1')
    $btn1 = GUICtrlCreateButton('Starte Help', 10, 20, 100, 20)
    GUICtrlSetBkColor($btn1, 0x00FF00)

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

    GUISetState(@SW_SHOW, $gui1)

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

    While 1
    $msg = GUIGetMsg()
    If $stat Then
    If Not ProcessExists('AutoIt3Help.exe') Then
    GUICtrlSetBkColor($btn1, 0x00FF00)
    $stat = False
    EndIf
    Else
    If ProcessExists('AutoIt3Help.exe') Then
    GUICtrlSetBkColor($btn1, 0xFA8072)
    $stat = True
    EndIf
    EndIf
    Switch $msg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $btn1
    ShellExecute(StringReplace(@AutoItExe, 'autoit3.exe', 'AutoIt3Help.exe'))
    EndSwitch
    WEnd

    [/autoit]

  • gui mit whille schleife

    Zum Einen setzt du die Textfarbe (du willst doch aber sicher den Button selbst färben -> GUICtrlSetBkColor), zum Anderen setzt du die Farbe ständig (solange der Prozess existiert). Besser, eine Variable, die den Status aufnimmt, und nur wenn der Status sich ändert, wird auch die Farbe geändert.

  • Wie erstelle ich eine *.DLL?

    Zitat von Jam00

    Wie kann ich denn die Resurcen aus einer DLL abrufen? Also ich meine geht das auch mit einer Ganz normalen Gui, bei BugFix ist das so komplizirt!

    Man kann nicht alles haben... :D
    Ich verstehe sowieso nicht, warum plötzlich jeder seine Ressourcen in einer dll verbarrikadieren will. :S
    Aber wer das Eine will, muß das Andere mögen - sprich: es ist (teilweise) ein gewisser Aufwand notwendig, um die Ressourcen wieder verfügbar zu machen. :P

  • DLL

    Zitat von Jam00

    Und wie bekomme ich da was in die DLL? Könnt ihr mir mal einen Namen von einem Guten ResHack geben

    :D Der Reshacker ==> wird dir mit SciTE4AutoIt mitinstalliert. Schau mal ins Installationsverzeichnis. ;)
    Ordner: ..\Programme\AutoIt3\SciTE\AutoIt3Wrapper

  • Stringauswertung

    Da die Fragen dazu häufig sind, hatte ich mal ein Muster erstellt:

    Spoiler anzeigen
    [autoit]

    ; Muster Checkbox-Bearbeitung
    ; Ziel: einfache Abfrage, welche CB aktiviert sind

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

    #include <GUIConstants.au3>
    Opt('GUIOnEventMode', 1)
    Opt("MustDeclareVars", 1)
    Global $bCheckAll, $bUnCheckAll, $GUI, $i, $str
    Global $arCB[20][2] ; Array für Handle und Dual-Wert der CB
    For $i = 0 To UBound($arCB) -1
    $arCB[$i][1] = 2^$i ; Zuweisung eindeutiger Wert
    Next
    Global $Checked = 0 ; Variable nimmt Status ALLER Checkboxen in einem Wert auf,
    ; Startstatus für alle: UNCHECKED
    Global $w = 500, $h = 20*30+40, $l = (@DesktopWidth-$w)/2, $t = (@DesktopHeight-$h)/2
    Global $top = -10
    $GUI = GUICreate('Test Checkbox', $w, $h, $l, $t)
    GUISetOnEvent($GUI_EVENT_CLOSE, '_Ende')
    For $i = 0 To UBound($arCB) -1
    $top += 30
    $arCB[$i][0] = GUICtrlCreateCheckbox('CheckBox_' & $i+1, 40, $top, 120)
    GUICtrlSetOnEvent(-1, '_ClickCB')
    Next
    $bCheckAll = GUICtrlCreateButton('Alle markieren', 250, 20, 150, 21)
    GUICtrlSetOnEvent(-1, '_CheckAll')
    $bUnCheckAll = GUICtrlCreateButton('Markierung aufheben', 250, 50, 150, 21)
    GUICtrlSetOnEvent(-1, '_UnCheckAll')
    GUISetState()

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

    While 1
    Sleep(100)
    WEnd

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

    Func _Ende()
    Exit
    EndFunc

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

    Func _ClickCB()
    For $i = 0 To UBound($arCB) -1
    If $arCB[$i][0] = @GUI_CtrlId Then
    $Checked = BitXOR($Checked, $arCB[$i][1])
    ExitLoop
    EndIf
    Next
    _ReadCB()
    EndFunc

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

    Func _CheckAll()
    For $i = 0 To UBound($arCB) -1
    If Not BitAND($Checked, $arCB[$i][1]) Then
    GUICtrlSetState($arCB[$i][0], $GUI_CHECKED)
    $Checked = BitXOR($Checked, $arCB[$i][1])
    EndIf
    Next
    _ReadCB()
    EndFunc

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

    Func _UnCheckAll()
    For $i = 0 To UBound($arCB) -1
    If BitAND($Checked, $arCB[$i][1]) Then
    GUICtrlSetState($arCB[$i][0], $GUI_UNCHECKED)
    $Checked = BitXOR($Checked, $arCB[$i][1])
    EndIf
    Next
    _ReadCB()
    EndFunc

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

    Func _ReadCB() ; Fkt. dient nur zur Ausgabe, welche CB markiert sind
    Local $str = 'Markiert: '
    For $i = 0 To UBound($arCB) -1
    If BitAND($Checked, $arCB[$i][1]) Then $str &= $i+1 & ', '
    Next
    WinSetTitle($GUI, '', StringTrimRight($str, 2))
    EndFunc

    [/autoit]

  • Fenster schließen ?

    Das hat mehrsolala doch schon (fast) beantwortet. :P

    [autoit]

    WinActivate("VENTURIS Setup", "InstallShield Wizard hat die Wartungsoperationen")
    WinWait("VENTURIS Setup", "InstallShield Wizard hat die Wartungsoperationen")

    [/autoit]

    ist 'suboptimal' :D
    besser:

    [autoit]

    WinActivate("VENTURIS Setup", "InstallShield Wizard hat die Wartungsoperationen")
    WinWaitActive("VENTURIS Setup", "InstallShield Wizard hat die Wartungsoperationen")

    [/autoit]

  • Fenster eindeutig erkennen

    Die Fenster werden doch nicht zeitgleich erscheinen? - Oder?
    Also kannst du doch auf das Erscheinen des Fensters mit dem Title: "XX Programm 2009" (oder Class: #32770) warten und dann auf das folgende, etc. Wo ist das Problem?