Beiträge von RR04

  • Icon für einen Button in den Quelltext implementieren

    Ein Beispiel:

    Spoiler anzeigen
    [autoit]


    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_outfile=iconPLUS1.exe
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_Res_Icon_Add=C:\Test\10.ico
    #AutoIt3Wrapper_Res_Icon_Add=C:\Test\11.ico
    #AutoIt3Wrapper_Res_Icon_Add=C:\Test\12.ico
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>

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

    #Region - GUI Create
    GUICreate(' iconPLUS', 400, 400)
    $Checkbox = GUICtrlCreateCheckbox("cb", 30, 90, 150, 40, BitOR($BS_ICON, $BS_PUSHLIKE))
    GUICtrlSetImage(-1, @ScriptFullPath, -7)
    $bnOK = GUICtrlCreateButton("OK", 20, 350, 75, 40, $BS_ICON)
    GUICtrlSetImage(-1, @ScriptFullPath, -5)
    $bnClose = GUICtrlCreateButton("b", 305, 350, 75, 40, $BS_ICON)
    GUICtrlSetImage(-1, @ScriptFullPath, -6)
    GUISetState()
    #EndRegion - GUI Create

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

    #Region - GUI SelectLoop
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE Or $msg = $bnClose
    MsgBox(64, " iconPLUS - Example", "Viel Spaß wünscht RR04 !" & @TAB, 3)
    Exit
    Case $msg = $bnOK
    MsgBox(64, " iconPLUS - Example", "OK wurde gedrückt !" & @TAB)
    Case $msg = $Checkbox
    MsgBox(64, " iconPLUS - Example", "CheckBox wurde gedrückt !" & @TAB)
    EndSelect
    WEnd
    #EndRegion - GUI SelectLoop
    ; Ende

    [/autoit]

  • GuiCtrlSetState will nicht

    Hi Ilse,

    ich habe Dir die Funktion "_SelectAll" mal angepasst, schaus Dir mal an! ;)

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    #include <GUIConstantsEx.au3>

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

    Opt("GUIOnEventMode", 1)

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

    ;##########################################################
    Global $tate = $gui_unchecked
    ;##########################################################

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

    $Gui = GUICreate("Namen", 701, 571, 208, 178)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_End")
    $Pic1 = GUICtrlCreatePic("C:\Users\Ilse\Desktop\Backbild.jpg", -4, -4, 805, 629)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $SelectAll = GUICtrlCreateButton("All on/off", 568, 424, 75, 25)
    GUICtrlSetOnEvent(-1, "_SelectAll")
    ;$Alle = GUICtrlCreateButton("Alle", 304, 232, 75, 25)

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

    Dim $var[19][2] = [[18, 0],[1, 'Petra-Müller'],[2, 'Klaus Schmidt'],[3, 'Lissi'],[4, 'Norbert'],[5, 'Paul'],[6, 'Carla'],[7, 'Fritz'],[8, 'Tanja'],[9, 'Bert'], _
    [10, 'Rosi'],[11, 'Peter'],[12, 'Lena'],[13, 'Ralf'],[14, 'Theo'],[15, 'Zora'],[16, 'Birgit'],[17, 'Sandra'],[18, 'Tom']]

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

    ;~ $var = IniReadSection(@ScriptDir & '\meine.ini', "Titel")

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

    ;~ If @error Then
    ;~ MsgBox(4096, "", "Error occurred, probably no INI file.")
    ;~ EndIf
    _ArrayDelete($var, 0)
    ;Local $aktiv = True
    Dim $arControl[UBound($var)][2], $arProgress[UBound($var)]

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

    Dim $Links = 50
    Dim $Oben = 20
    Dim $Zwischen = 25
    Dim $Zeilen = 8 ; <- hier die Anzahl der Zeilen eintragen
    Dim $Abstand = 220 ; <- hier den Abstand zwischen den Spalten eintragen

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

    For $i = 0 To UBound($arControl) - 1
    $arControl[$i][0] = GUICtrlCreateCheckbox('', $Links + Int($i / $Zeilen) * $Abstand, $Oben + Mod($i, $Zeilen) * $Zwischen, 20, 20)
    GUICtrlSetFont(-1, 12, 500, 0, "Arial") ; hier habe ich die Schriftgröße geändert
    $arControl[$i][1] = GUICtrlCreateLabel($var[$i][1], $Links + 20 + Int($i / $Zeilen) * $Abstand, $Oben + Mod($i, $Zeilen) * $Zwischen, 110, 20) ; <- hier die Breite (60) und Höhe (20) angeben.
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetOnEvent(-1, "_CheckboxSelect")
    GUICtrlSetFont(-1, 12, 500, 0, "Arial") ; hier habe ich die Schriftgröße geändert
    $arProgress[$i] = GUICtrlCreateProgress($Links + 130 + Int($i / $Zeilen) * $Abstand, $Oben + Mod($i, $Zeilen) * $Zwischen, 70, 20)
    Next
    GUISetState(@SW_SHOW)

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

    While Sleep(1000)
    WEnd

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

    Func _End()
    Exit
    EndFunc ;==>_End

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

    ;##########################################################
    Func _SelectAll()
    $tate = BitXOR($tate, $gui_checked, $gui_unchecked)
    For $i = 0 To UBound($arControl) - 1
    GUICtrlSetState($arControl[$i][0], $tate)
    Next
    EndFunc ;==>_SelectAll
    ;##########################################################

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

    Func _CheckboxSelect()
    Local $ID = @GUI_CtrlId - 1
    If BitAND(GUICtrlRead($ID), $gui_checked) Then
    GUICtrlSetState($ID, $gui_unchecked)
    Else
    GUICtrlSetState($ID, $gui_checked)
    EndIf
    EndFunc ;==>_CheckboxSelect

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

    ; Ende

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

  • GUI-Design: Hintergrundfarbe einer Gruppierung setzen

    Hi, ich habe es auf diese Art gemacht. ;)

    [autoit]


    #Region Group Daten
    GUICtrlCreateLabel("", 220, 12, 164, 152)
    GUICtrlSetBkColor(-1, 0xEEEEEE) ;i silber
    GUICtrlSetState(-1, $GUI_DISABLE)

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

    GUICtrlCreateGroup("", 220, 5, 165, 160) ; create group $gbDaten

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

    ;~ [...]

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

    GUICtrlCreateGroup("", -99, -99, 1, 1) ; close group $gbDaten
    #EndRegion Group Daten

    [/autoit]

  • GUI

    Hi, besser so:

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

    #include <GUIConstantsEx.au3>

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

    Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

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

    $mainwindow = GUICreate("HauptGUI", 200, 100)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
    GUICtrlCreateLabel("Hallo Welt! Wie geht's?", 30, 10)
    $okbutton = GUICtrlCreateButton("GUI 2", 70, 50, 60)
    GUICtrlSetOnEvent($okbutton, "OKButton")
    GUISetState(@SW_SHOW, $mainwindow)

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

    $mainwindow2 = GUICreate("GUI 2", 200, 100)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
    GUICtrlCreateLabel("Hallo Welt! Wie geht's?", 30, 10)
    $okbutton = GUICtrlCreateButton("GUI 2 close", 70, 50, 75, 22)
    GUICtrlSetOnEvent($okbutton, "_CLOSE")

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

    While Sleep(1000) ; Im Leerlauf bummeln
    WEnd

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

    Func OKButton()
    ;Beachte: an diesem Punkt wäre @GUI_CTRLID gleich $okbutton,
    ;und @GUI_WINHANDLE wäre gleich $mainwindow
    GUISetState(@SW_SHOW, $mainwindow2)
    MsgBox(0, "GUI Event", "Du hast auf OK geklickt!")
    EndFunc

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

    Func CLOSEClicked()
    ;Beachte: an diesem Punkt wäre @GUI_CTRLID gleich $GUI_EVENT_CLOSE,
    ;und @GUI_WINHANDLE wäre gleich $mainwindow
    MsgBox(0, "GUI Event", "Du hast auf CLOSE geklickt! Programm wird beendet...")
    Exit
    EndFunc

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

    Func _CLOSE()
    GUISetState(@SW_HIDE, $mainwindow2)
    EndFunc
    ; Ende

    [/autoit]


    :thumbup:

  • Checkbox (array) Problem

    Wie man das passend zur Laufzeit macht, kann ich Dir nicht sagen. Aber Du kannst den Progress beeinflussen:

    [autoit]


    Func meinefunktion($index)
    For $j = 0 To 100 Step 10 ;i########## hier die 10 auf Step 1 setzen z.B.
    GUICtrlSetData($arControlProg[$i], $j)
    Sleep(500)
    Next
    MsgBox(0, "TaTa ...", "Die Funktion wurde ausgeführt und die Einstellungen zurückgesetzt." & @TAB & @CRLF & "Bitteschön !")
    GUICtrlSetData($arControlProg[$i], 0)
    GUICtrlSetState($arControl[$i], 4)
    EndFunc ;==>meinefunktion

    [/autoit]


    :thumbup:

  • GUI

    Hi,
    schau Dir mal:

    [autoit]


    WinSetOnTop($title, '', 1) ;i 1 = den Wert für "Immer im Vordergrund" setzen

    [/autoit]


    genauer an. :thumbup:

  • Checkbox (array) Problem

    Ich glaube Du meinst es etwa so:
    ;)

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

    ;i Hier sind keine Include nötig, aber nur bis hier! ;)
    Dim $arControl[5]
    Dim $arControlProg[5]
    GUICreate("Form1", 615, 440, 391, 202)
    For $i = 0 To 4 ;i erstellt 0 bis 4 = 5 Checkboxen, ;i statisch kein Ubound
    $arControl[$i] = GUICtrlCreateCheckbox("Checkbox " & $i + 1, 64, 64 + $i * 36, 97, 17)
    $arControlProg[$i] = GUICtrlCreateProgress(164, 64 + $i * 36, 150, 17)
    Next
    $Go = GUICtrlCreateButton("Start", 448, 164, 75, 25)

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

    GUISetState(@SW_SHOW)

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

    While 1
    Switch GUIGetMsg()
    Case -3
    Exit
    Case $Go
    For $i = 0 To 4
    If BitAND(GUICtrlRead($arControl[$i]), 1) = 1 Then ; ja die checkbox ist markiert...
    meinefunktion($i) ; ruft meine Funktion auf die die aktuelle Datei nun bearbeitet...
    EndIf
    Next
    EndSwitch
    WEnd

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

    Func meinefunktion($index)
    For $j = 0 To 100 Step 10
    GUICtrlSetData($arControlProg[$i], $j)
    Sleep(500)
    Next
    MsgBox(0, "TaTa ...", "Die Funktion wurde ausgeführt und die Einstellungen zurückgesetzt." & @TAB & @CRLF & "Bitteschön !")
    GUICtrlSetData($arControlProg[$i], 0)
    GUICtrlSetState($arControl[$i], 4)
    EndFunc ;==>meinefunktion

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

    ; Ende

    [/autoit]

  • Checkbox (array) Problem

    [autoit]


    ;i so sind keine Include nötig! ;)
    Dim $arControl[5]
    Dim $arControlProg[5]
    GUICreate("Form1", 615, 440, 391, 202)
    For $i = 0 To 4 ;i erstellt 0 bis 4 = 5 Checkbox
    $arControl[$i] = GUICtrlCreateCheckbox("Checkbox" & $i, 64, 64+$i*36, 97, 17)
    $arControlProg[$i] = GUICtrlCreateProgress(164, 64+$i*36, 150, 17)
    Next
    $Go = GUICtrlCreateButton("Start", 448, 164, 75, 25)

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

    GUISetState(@SW_SHOW)

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

    While 1
    Switch GUIGetMsg()
    Case -3
    Exit
    Case $Go
    For $i = 0 To UBound($arControl) - 1
    If GUICtrlRead($arControl[$i]) = 1 Then
    GUICtrlSetData($arControlProg[$i], 100)
    Else
    GUICtrlSetData($arControlProg[$i], 0)
    EndIf
    Next
    EndSwitch
    WEnd
    ; Ende

    [/autoit]

  • Unterverzeichnisse / Dateien auflisten und in datei schreiben

    Hi, hier ein Beispiel. 8)

    [autoit]


    #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6

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

    #include <File.au3>
    #include <Array.au3>

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

    Global $handle = FileOpen(@ScriptDir & "\verzeichnisse.txt", 1)
    Global $dir = 'D:\Install-Software-AutoIt'
    Global $FileList = _FileListToArray($dir)

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

    Switch @error
    Case 1
    MsgBox(0, "", "No Folders Found.")
    Exit
    Case 4
    MsgBox(0, "", "No Files Found.")
    Exit
    EndSwitch

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

    _ArrayDisplay($FileList, "$FileList")

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

    For $i = 1 To $FileList[0]
    ConsoleWrite($dir & "\" & $FileList[$i] & @CRLF)
    ;~ FileWrite($handle, $dir & "\" & $FileList[$i] & @CRLF)
    Next
    ;~ FileClose($handle)
    ; Ende

    [/autoit]

  • Button Befehl zuweisen ?

    Noch viel besser, denn verwendest Du die Variable, dann scheibt Dir der Obfuscator diese wieder zurück ! ;)

    [autoit]


    Global Const $GUI_EVENT_CLOSE = -3 ;i Hier Deine -3 <<<<<<<<<<<<<<<
    Global Const $SS_NOTIFY = 0x0100
    Global Const $WS_MINIMIZEBOX = 0x00020000
    Global Const $WS_SYSMENU = 0x00080000
    Global Const $WS_CAPTION = 0x00C00000
    Global Const $WS_CLIPSIBLINGS = 0x04000000
    Global Const $WS_POPUP = 0x80000000
    Global Const $GUI_SS_DEFAULT_GUI = BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU)
    HotKeySet("{F7}", "_Start")
    HotKeySet("{F8}", "_Exit")
    GUICreate("Form1", 551, 441, 218, 17)
    $Event1 = GUICtrlCreateButton("v1", 8, 128, 137, 25)
    $Event2 = GUICtrlCreateButton("v4", 8, 304, 137, 25)
    $Event3 = GUICtrlCreateButton("v3", 8, 248, 137, 25)
    $Event4 = GUICtrlCreateButton("v5", 8, 368, 137, 25)
    $Event = GUICtrlCreateButton("v2", 8, 184, 137, 25)
    $Pic1 = GUICtrlCreatePic("C:\Users\Peter\Pictures\fuer tool Aussehen5.jpg", 0, 0, 550, 440, BitOR($SS_NOTIFY, $WS_CLIPSIBLINGS))
    GUISetState(@SW_SHOW)
    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    _Exit()
    Case $Event
    _Start()
    EndSwitch
    WEnd
    Func _Start()
    Sleep(10000)
    Send("{ENTER}")
    Sleep(300)
    Send("Guten Tag")
    Sleep(300)
    Send("{ENTER}")
    EndFunc
    Func _Exit()
    Exit
    EndFunc

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