Beiträge von RR04

  • Sicher ist Sicher...

    Das MS-Address Book ist zur Sicherung hinzu gekommen und Anpassungen wurden vorgenommen.

    Oscars tolle Funktion hat gleich drei Ehrenplätze bekommen - Noch einmal Danke an Oscar! ;)

    Download siehe Post 1.

  • Sicher ist Sicher...

    Oscar ,

    eine schöne Lösung, leider werden die Hacken bei mir nicht richtig zugeordnet ? ?(
    Ein Erststart OHNE Ini funktioniert (Error-Abfrage OK) und auch die Ini wird richtig geschrieben !
    Die Abrage der Ini mit meinem Testscript geht dann wieder ? ?(

    Habe ich noch etwas übersehen ?

  • Outlook & OExpress Saver...

    Startbutton, Tooltip und Menü/Datei - Bezeichnung wechselt jeweils von "Sichern nach Restore". Der Zielpfad wird gespeichert. ;)

    Sicherheitsabfragen wurden eingefügt. Download siehe Post 1.

    Viel Spaß mit OES !

  • guicreate problem - Styles werden nicht gefunden

    Ich hab noch was vergessen, Du auch ! :rolleyes:

    [autoit]


    #include <WindowsConstants.au3>

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

    #Region $vars_default
    Global $vars_default_title = "Spacebar"
    #EndRegion

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

    #Region $vars
    Global $vars_title = IniRead( "spacebar.ini", "vars", "vars_title", 0 )
    #EndRegion

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

    #Region check_vars
    If $vars_title = 0 Then
    IniWrite( "spacebar.ini", "vars", "vars_title", $vars_default_title )
    $vars_title = $vars_default_title
    EndIf
    #EndRegion

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

    Global $gui = GUICreate($vars_title, @DesktopWidth, @DesktopHeight, 300, 300, BitOR($WS_POPUP + $WS_BORDER, $WS_EX_TOOLWINDOW))

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

    GUISetState()

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

    While 1
    Sleep(100)
    WEnd

    [/autoit]

    Viel Erfolg !

  • guicreate problem - Styles werden nicht gefunden

    Hi,

    ein falsches Include ! ;)
    So ist es besser:

    Spoiler anzeigen
    [autoit]


    #include <WindowsConstants.au3>

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

    #Region $vars_default
    Global $vars_default_title = "Spacebar"
    #EndRegion

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

    #Region $vars
    Global $vars_title = IniRead( "spacebar.ini", "vars", "vars_title", 0 )
    #EndRegion

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

    #Region check_vars
    If $vars_title = 0 Then
    IniWrite( "spacebar.ini", "vars", "vars_title", $vars_default_title )
    $vars_title = $vars_default_title
    EndIf
    #EndRegion

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

    $gui = GUICreate($vars_title, 390, 800, @DesktopWidth, @DesktopHeight, $WS_POPUP + $WS_BORDER, $WS_EX_TOOLWINDOW)

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

    While 1
    Sleep(100)
    WEnd

    [/autoit]

  • Sicher ist Sicher...

    @(A)Lina

    Danke für Dein Lob. Ich gebe es gerne weiter an unsere "Lehrer" speziell auch an Oscar, die immer wieder aufzeigen, wie es GUT oder BESSER gemacht wird !

    MadMax

    Hallo und Herzlich Willkommen !
    Eine Rücksicherung ist eine gute Idee, die ich auf meine ToDoList setzen werde. ;)

  • Checkbox Kombination in Gui ... ?

    Hallo,

    hier ein Beispiel mit einer weiteren Möglichkeit in Zeile 25:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

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

    Opt("GUIOnEventMode", 1)
    Opt("MustDeclareVars", 1)

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

    GUICreate("Checkbox-Abfrage", 300, 200)
    GUISetOnEvent($GUI_EVENT_CLOSE, '_quit')
    Global $Checkbox1 = GUICtrlCreateCheckbox("Ckb 1", 100, 125, 142)
    GUICtrlSetOnEvent($Checkbox1, "_EnableUpdate")

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

    ; [...]

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

    ; [...]

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

    Global $Checkbox10 = GUICtrlCreateCheckbox("Ckb 10", 100, 100, 142)
    Global $InputVerbindungOnboard = GUICtrlCreateInput("", 10, 152, 280, 21)
    GUICtrlSetOnEvent($Checkbox10, "_EnableUpdate")

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

    GUISetState(@SW_SHOW)

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

    While 1
    Sleep(1000)
    WEnd

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

    Func _quit()
    Exit
    EndFunc ;==>_quit

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

    Func _EnableUpdate()
    If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then _test1()

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

    ; [...]

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

    ;[...]

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

    If BitAND(GUICtrlRead($Checkbox10), $GUI_CHECKED) Then _test10()
    EndFunc ;==>_EnableUpdate

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

    Func _test1()
    MsgBox(0, 'Test', 'Test1 funktioniert ! ')
    EndFunc

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

    Func _test10()
    MsgBox(0, 'Test', 'Test10 funktioniert ! ')
    EndFunc

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

    ; ENDE

    [/autoit]


    Viel Erfolg ! ;)

  • Sicher ist Sicher...

    SiS baut auf ein vorinstalliertes 7zip auf. Sollte kein installiertes 7zip gefunden werden, versagt SiS nicht mehr den Dienst. SiS nutzt jetzt eine mitgebrachte 195kb Version von 7zip. Bei einer späteren Nachinstallation von 7zip wird diese (aktuellere) bevorzugt genutzt. ;)

    Download siehe Post 1

    Viel Spaß mit SiS !

  • Fehler abfangen

    Oscar ,

    Gute Besserung - Gib der Krankenkasse Fersengeld !

    Schau Dir mal "GUISwitch()" an,vielleicht ist das ja etwas für Dich. ;)

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

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

    Opt('MustDeclareVars', 1)

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

    Example()

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

    Func Example()
    Local $parent1, $parent2, $tabitem, $msg

    $parent1 = GUICreate("Parent1")
    GUICtrlCreateTab(10, 10)
    $tabitem = GUICtrlCreateTabItem("tab1")
    GUICtrlCreateTabItem("tab2")
    GUICtrlCreateTabItem("")

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

    $parent2 = GUICreate("Parent2", -1, -1, 100, 100)

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

    GUISwitch($parent2)
    GUISetState()
    Do
    $msg = GUIGetMsg()
    Until $msg = $GUI_EVENT_CLOSE

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

    GUISwitch($parent1, $tabitem)
    GUICtrlCreateButton("OK", 50, 50, 50)
    GUICtrlCreateTabItem("")

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

    GUISetState(@SW_SHOW, $parent1)
    Do
    $msg = GUIGetMsg()
    Until $msg = $GUI_EVENT_CLOSE
    EndFunc ;==>Example

    [/autoit]


    Viel Erfolg !

  • Input Feld per Checkbox "enable" machen

    Hallo,

    ich hab Dir mal ein Beispiel gebaut:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

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

    Opt("GUIOnEventMode", 1)

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

    Dim $tate = $GUI_ENABLE, $ini

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

    GUICreate("Enable-Switch", 300, 200)
    GUISetOnEvent($GUI_EVENT_CLOSE, '_quit')
    $Checkbox4 = GUICtrlCreateCheckbox("update Window-List every", 100, 125, 142)
    $InputVerbindungOnboard = GUICtrlCreateInput("", 10, 152, 280, 21)
    GUICtrlSetState($Checkbox4, IniRead($ini, "Settings", "update Window List", "4"))
    GUICtrlSetOnEvent($Checkbox4, "_EnableUpdate")

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

    GUISetState(@SW_SHOW)

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

    While 1
    Sleep(1000)
    WEnd

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

    Func _quit()
    Exit
    EndFunc ;==>_quit

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

    Func _EnableUpdate()
    $tate = BitXOR($tate, $GUI_ENABLE, $GUI_DISABLE)
    GUICtrlSetState($InputVerbindungOnboard, $tate)
    GUICtrlSetState($Input1, $tate)
    ; [...]

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

    ; [...]
    GUICtrlSetState($Input9, $tate)
    EndFunc ;==>_EnableUpdate
    ; ENDE

    [/autoit]


    Viel Erfolg ! ;)

  • Radio Button zweizeilig

    Hi,

    schau Dir auch "$BS_AUTORADIOBUTTON" mal an: ;)

    Spoiler anzeigen
    [autoit]


    $aTimeRb = GUICtrlCreateRadio($aTime, 100, 180, 85, 28, BitOR($BS_AUTORADIOBUTTON, $BS_MULTILINE))

    [/autoit]


    Viel Erfolg!