Beiträge von BugFix

  • Bilder wie button animieren ?

    oder so:

    Spoiler anzeigen
    [autoit]

    #include<GUIConstantsEx.au3>
    #include<StaticConstants.au3>
    Global $picBasic = 'C:\WINDOWS\system32\oobe\images\'
    Global $pic1 = 'nextover.jpg', $pic2 = 'nextup.jpg'

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

    $gui = GUICreate("Test",Default,Default,-1,-1)
    $btn = GUICtrlCreatePic($picBasic & $pic1, 30, 40, 24, 24, $SS_BLACKRECT)
    GUISetState()

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

    Do
    $msg = GUIGetMsg()
    $aCursorInfo = GUIGetCursorInfo()
    Select
    Case $aCursorInfo[2] = 1 And $aCursorInfo[4] = $btn
    _AnimButton($gui, $btn, $picBasic & $pic1, $picBasic & $pic2)
    ; Code
    Case Else
    ;;
    EndSelect
    Until $msg = $GUI_EVENT_CLOSE

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

    Func _AnimButton($IDgui, ByRef $IDbtn, $picUP, $picDOWN, $delay=150)
    Local $pos = ControlGetPos($IDgui, '', $IDbtn)
    GUICtrlDelete($IDbtn)
    Local $tmpBtn = GUICtrlCreatePic($picDOWN, $pos[0], $pos[1]+1, $pos[2]-1, $pos[3]-1)
    Sleep($delay)
    GUICtrlDelete($tmpBtn)
    $IDbtn = GUICtrlCreatePic($picUP, $pos[0], $pos[1], $pos[2], $pos[3])
    EndFunc

    [/autoit]

  • Hello zusammen

    Hi,
    Bot-Coding ist hier nicht gern gesehen. Aber ich hoffe, dass die vielfältigen Möglichkeiten von AutoIt dich stärker interessieren. ;)
    Also sei Willkommen in der AutoIt-Gemeinde.

  • Anfänger Programm mit GUI Refresh Problem

    Ich würde es hier unterbringen:

    Spoiler anzeigen
    [autoit]

    Func STARTButton()
    If $openFileDialog > 0 Then
    MsgBox(0, "GUI Event", "Keine Datei Ausgewählt," & @CRLF & "Bitte wählen sie eine Datei!")
    Else
    verlauf()
    FileWriteLine($openFileDialogDestinationDatei, "DFT spectrum")
    FileWriteLine($openFileDialogDestinationDatei, "NumPoints = " & $zeilenZaehlen &", ")
    FileWriteLine($openFileDialogDestinationDatei, "Frequency(Hz) Magnitude(dB)")
    $i = 4
    MsgBox(0,"Eingelesene Zeilen:", $zeilenZaehlen)
    Local $step = Floor(100/$zeilenZaehlen), $progress = 0
    ProgressOn('Schreibe in Datei', 'Spektrumanalyse')
    Do
    $progress += $step
    ProgressSet($progress, $progress & ' %')
    FileWriteLine($openFileDialogDestinationDatei, StringRegExpReplace($csvDateiInhaltArray[$i], "[\.]", "\,"))
    $i = $i + 1
    Until $i = $zeilenZaehlen
    ProgressSet(100, 'Fertig!')
    Sleep(1500)
    ProgressOff()
    FileClose($openFileDialogDestinationDatei)
    MsgBox(0,"", "Datei Geschrieben!")
    EndIf
    EndFunc

    [/autoit]

  • Mehere Radiobutton in einer Dialogbox *edit*

    Zitat von Carsten

    Leider ist das mit der neuen AutoIt-Version so nicht mehr machbar. Ich bin so zu meinem Ziel gekommen:


    ?(
    An der Syntax hat sich auch unter 3.2.12.0 nichts geändert.
    - Start Gruppe mit Koordinaten
    - Radio-Ctrl erstellen
    - Gruppe schließen

    [autoit]

    GUICtrlCreateGroup("Group 1", 190, 60, 90, 140)
    $radio_1 = GUICtrlCreateRadio("Radio 1", 210, 90, 50, 20)
    $radio_2 = GUICtrlCreateRadio("Radio 2", 210, 110, 60, 50)
    GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group

    [/autoit]

  • übergebene Parameter auslesen

    Wenn du mit SciTE arbeitest: cmdlineselect und SPACE
    Dann erscheint:

    Spoiler anzeigen
    [autoit]

    #region - CmdlineSelect
    If $CMDLINE[0] Then
    For $i = 1 To $CMDLINE[0]
    Select
    Case $CMDLINE[$i] = '/?'
    MsgBox(0x40000, @ScriptName & ' Help', _
    'Switches are:' & @CRLF _
    & @CRLF & '/extract' _
    & @CRLF & @TAB & 'Extract files to current directory' _
    & @CRLF & '/x' _
    & @CRLF & @TAB & '' _
    & @CRLF & '/x' _
    & @CRLF & @TAB & '' _
    & @CRLF & '/x' _
    & @CRLF & @TAB & '' _
    & @CRLF & '/x' _
    & @CRLF & @TAB & '')
    Exit
    Case $CMDLINE[$i] = '/extract'
    FileInstall('x', @ScriptDir & '\')
    Exit
    Case $CMDLINE[$i] = '/x'
    Case $CMDLINE[$i] = '/x'
    Case $CMDLINE[$i] = '/x'
    Case $CMDLINE[$i] = '/x'
    Case Else
    MsgBox(0x40000, 'Incorrect switch used', _
    'Command used:' & @CRLF & $CMDLINERAW & @CRLF & _
    @CRLF & 'Use /? for the switches available.')
    Exit
    EndSelect
    Next
    EndIf
    #endregion

    [/autoit]

  • Eine Grafik angeben und deren Inhalt auf dem Bildschirm suchen

    Zitat von latemail

    aber z.B. um eine Anwendung zu starten, ohne wissen zu müssen, wo auf dem DT das Icon ist .... oder eine Anwendung/Fenster zu schließen, auch wenn ich die genaue Position des jeweiligen Buttons nicht kenne (Auflösun kann anders sein etc.)


    Im Normalfall brauchst du für nix davon die Position der entsprechenden Controls. (ControlClick, ControlSend etc.)
    Koordinaten eines Fensters kannst du dir z.B. mit WinGetPos holen. Auch Control-Positionen kannst du dir ausgeben lassen (ControlGetPos).

    Also genug Möglichkeiten um sich den Aufwand, den du betreiben möchtest, zu ersparen.

  • Mein Script lässt sich nicht beenden

    Warum wollt ihr keine AutoIt-Funktion nutzen? ?(

    [autoit]

    $var = Ping("www.AutoIt.de",250)
    If $var Then; also possible: If @error = 0 Then ...
    Msgbox(0,"Status","Online, Reaktionszeit: " & $var & 'ms')
    Else
    Msgbox(0,"Status","Fehler, Nummer: " & @error)
    EndIf

    [/autoit]

  • ListView - Editieren aller SubItems

    Hi,
    in einem Listview lassen sich mit dem Style $LVS_EDITLABELS Einträge on-the-fly editieren. Dies gilt aber nur für die Einträge in Spalte 0.
    Mit der folgenden Methode lassen sich alle SubItem sofort editieren. In der zuständigen Funktion verwende ich OnEventMode. Ich habe es aber so geschrieben, dass nur für die Ausführung der Funktion in den OnEventMode geschaltet wird, anschließend wird wieder in den vorherigen Modus zurückgeschaltet (Für all jene, die sich noch immer mit GUIGetMsg rumplagen möchten :D ).
    Das Bsp. habe ich daher auch mal im GetMsgMode erstellt.
    Um den Editiermodus nutzen zu können, darf $LVS_EDITLABELS hier nicht gesetzt sein.

    - mit Doppelklick öffnet sich genau über der angeklickten Spalte ein Editfenster mit dem Inhalt des SubItem
    - der untere Rand des Editfensters liegt an der Mauszeigerspitze
    - das Eingabefeld paßt sich der Breite der zugehörigen Spalte an
    - ist das Fenster so verschoben, dass eine Spalte nach links/rechts über den Desktop hinausragt, wird das Editfenster am Bildschirmrand, statt mittig über der Spalte positioniert
    - der geänderte Inhalt des Fensters wird mit ENTER übernommen und in das SubItem geschrieben
    - findet keine Änderung statt muß das Fenster mit ESC geschlossen werden
    - während des Editierens werden im Fenstertitel Zeilennummer und Spaltenname des editierten SubItem angezeigt

    Bsp. Edit SubItems
    [autoit]

    #include<StaticConstants.au3>
    #include<GUIConstantsEx.au3>
    #include<ListViewConstants.au3>
    #include<StructureConstants.au3>
    #include<WindowsConstants.au3>
    #include <GUIListView.au3>

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

    Global $currentItem[2], $title, $currentOpt[2] = ["none"]

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

    $GUI = GUICreate('test')
    $hListView = GUICtrlCreateListView('Spalte1|Spalte2|Spalte3', 10, 10, 300, 200, $LVS_REPORT)
    _GUICtrlListView_SetColumnWidth($hListView, 0, 70)
    _GUICtrlListView_SetColumnWidth($hListView, 1, 60)
    _GUICtrlListView_SetColumnWidth($hListView, 2, $LVSCW_AUTOSIZE_USEHEADER )
    For $i = 1 To 9
    GUICtrlCreateListViewItem('Z. ' & $i & ' - Sp. 1|Z. ' & $i & ' - Sp. 2|Z. ' & $i & ' - Sp. 3', $hListView)
    Next

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

    $EditBox = GUICreate('', 200, 30, -1, -1, BitOR($WS_POPUP,$WS_BORDER), $WS_EX_TOPMOST)
    $hEdit = GUICtrlCreateInput('', 5, 5, 190, 20, $SS_CENTER)
    HotKeySet('{ESC}', '_EscEdit')

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

    GUISetState(@SW_SHOW, $GUI)
    GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

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

    While True
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
    WEnd

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

    Func _LeftDblClick($Info)
    If $Info[3] = -1 Then Return
    If $currentOpt[0] = "none" Then
    $currentOpt[0] = Opt('GUICoordMode', 1)
    $currentOpt[1] = Opt("GUIOnEventMode", 1)
    EndIf
    GUICtrlSetOnEvent($hEdit, '_EditEnter')
    _GUICtrlListView_SetSelectedColumn($Info[1], $Info[4])
    $title = WinGetTitle($GUI)
    Local $mouse = MouseGetPos(), $posEdit = WinGetPos($EditBox)
    Local $posGUI = WinGetPos($GUI), $posLV = ControlGetPos($GUI, '', $hListView)
    Local $colInfo = _GUICtrlListView_GetColumn($Info[1], $Info[4]), $sumWidth = 0, $tmp
    WinSetTitle($GUI, '', 'Editiere: Zeile ' & $Info[3]+1 & ', ' & $colInfo[5])
    For $i = 0 To $Info[4]
    $tmp = _GUICtrlListView_GetColumn($Info[1], $i)
    $sumWidth += $tmp[4]
    Next
    $sumWidth -= $colInfo[4]
    Local $xPos = $posGUI[0]+$posLV[0]+$sumWidth
    If $xPos+$colInfo[4]+10 > @DesktopWidth Then $xPos = @DesktopWidth - ($colInfo[4] + 10)
    If $xPos < 0 Then $xPos = 0
    WinMove($EditBox, '', $xPos, $mouse[1]-$posEdit[3], $colInfo[4]+10)
    GUICtrlSetData($hEdit, _GUICtrlListView_GetItemText($Info[1], $Info[3], $Info[4]))
    $currentItem[0] = $Info[3]
    $currentItem[1] = $Info[4]
    GUISetState(@SW_SHOW, $EditBox)
    EndFunc

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

    Func _EscEdit()
    WinSetTitle($GUI, '', $title)
    Opt('GUICoordMode', $currentOpt[0])
    Opt("GUIOnEventMode", $currentOpt[1])
    $currentOpt[0] = "none"
    GUISetState(@SW_HIDE, $EditBox)
    EndFunc

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

    Func _EditEnter()
    WinSetTitle($GUI, '', $title)
    Opt('GUICoordMode', $currentOpt[0])
    Opt("GUIOnEventMode", $currentOpt[1])
    $currentOpt[0] = "none"
    _GUICtrlListView_SetItemText($hListView, $currentItem[0], GUICtrlRead($hEdit), $currentItem[1])
    GUISetState(@SW_HIDE, $EditBox)
    EndFunc

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

    Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
    $hWndListView = $hListView ; ID des LV
    If Not IsHWnd($hListView) Then $hWndListView = GUICtrlGetHandle($hListView) ; ID des LV
    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
    Case $hWndListView
    Switch $iCode
    Case $NM_DBLCLK
    Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
    Local $aInfo[5] = [$hWndFrom, $iIDFrom, $iCode, DllStructGetData($tInfo, "Index"), _
    DllStructGetData($tInfo, "SubItem")]
    _LeftDblClick($aInfo)
    EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
    EndFunc ;==>WM_NOTIFY

    [/autoit]

    Hier mal eine alternative Variante, die EditBox kann bei nichtgeändertem Inhalt jetzt auch mit ENTER verlassen werden.

    Spoiler anzeigen
    [autoit]

    #include<StaticConstants.au3>
    #include<GUIConstantsEx.au3>
    #include<ListViewConstants.au3>
    #include<StructureConstants.au3>
    #include<WindowsConstants.au3>
    #include <GUIListView.au3>

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

    Global $currentItem[2], $title, $currentOpt[2] = ["none"]

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

    $GUI = GUICreate('test')
    $hListView = GUICtrlCreateListView('Spalte1|Spalte2|Spalte3', 10, 10, 300, 200, $LVS_REPORT)
    _GUICtrlListView_SetColumnWidth($hListView, 0, 70)
    _GUICtrlListView_SetColumnWidth($hListView, 1, 60)
    _GUICtrlListView_SetColumnWidth($hListView, 2, $LVSCW_AUTOSIZE_USEHEADER )
    For $i = 1 To 9
    GUICtrlCreateListViewItem('Z. ' & $i & ' - Sp. 1|Z. ' & $i & ' - Sp. 2|Z. ' & $i & ' - Sp. 3', $hListView)
    Next

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

    $EditBox = GUICreate('', 200, 30, -1, -1, BitOR($WS_POPUP,$WS_BORDER), $WS_EX_TOPMOST)
    $dummy = GUICtrlCreateDummy()
    $hEdit = GUICtrlCreateInput('', 5, 5, 190, 20, $SS_CENTER)
    HotKeySet('{ESC}', '_EscEdit')
    Global $AccelKeys[1][2]=[["{ENTER}", $dummy]]
    GUICtrlSetOnEvent($dummy, "_EditEnter")
    GUISetAccelerators($AccelKeys)

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

    GUISetState(@SW_SHOW, $GUI)
    GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

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

    While True
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
    WEnd

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

    Func _LeftDblClick($Info)
    If $Info[3] = -1 Then Return
    If $currentOpt[0] = "none" Then
    $currentOpt[0] = Opt('GUICoordMode', 1)
    $currentOpt[1] = Opt("GUIOnEventMode", 1)
    EndIf
    GUICtrlSetOnEvent($hEdit, '_EditEnter')
    _GUICtrlListView_SetSelectedColumn($Info[1], $Info[4])
    $title = WinGetTitle($GUI)
    Local $mouse = MouseGetPos(), $posEdit = WinGetPos($EditBox)
    Local $posGUI = WinGetPos($GUI), $posLV = ControlGetPos($GUI, '', $hListView)
    Local $colInfo = _GUICtrlListView_GetColumn($Info[1], $Info[4]), $sumWidth = 0, $tmp
    WinSetTitle($GUI, '', 'Editiere: Zeile ' & $Info[3]+1 & ', ' & $colInfo[5])
    For $i = 0 To $Info[4]
    $tmp = _GUICtrlListView_GetColumn($Info[1], $i)
    $sumWidth += $tmp[4]
    Next
    $sumWidth -= $colInfo[4]
    Local $xPos = $posGUI[0]+$posLV[0]+$sumWidth
    If $xPos+$colInfo[4]+10 > @DesktopWidth Then $xPos = @DesktopWidth - ($colInfo[4] + 10)
    If $xPos < 0 Then $xPos = 0
    WinMove($EditBox, '', $xPos, $mouse[1]-$posEdit[3], $colInfo[4]+10)
    GUICtrlSetData($hEdit, _GUICtrlListView_GetItemText($Info[1], $Info[3], $Info[4]))
    $currentItem[0] = $Info[3]
    $currentItem[1] = $Info[4]
    GUISetState(@SW_SHOW, $EditBox)
    EndFunc

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

    Func _EscEdit()
    WinSetTitle($GUI, '', $title)
    Opt('GUICoordMode', $currentOpt[0])
    Opt("GUIOnEventMode", $currentOpt[1])
    $currentOpt[0] = "none"
    GUISetState(@SW_HIDE, $EditBox)
    EndFunc

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

    Func _EditEnter()
    WinSetTitle($GUI, '', $title)
    Opt('GUICoordMode', $currentOpt[0])
    Opt("GUIOnEventMode", $currentOpt[1])
    $currentOpt[0] = "none"
    _GUICtrlListView_SetItemText($hListView, $currentItem[0], GUICtrlRead($hEdit), $currentItem[1])
    GUISetState(@SW_HIDE, $EditBox)
    EndFunc

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

    Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
    $hWndListView = $hListView ; ID des LV
    If Not IsHWnd($hListView) Then $hWndListView = GUICtrlGetHandle($hListView) ; ID des LV
    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
    Case $hWndListView
    Switch $iCode
    Case $NM_DBLCLK
    Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
    Local $aInfo[5] = [$hWndFrom, $iIDFrom, $iCode, DllStructGetData($tInfo, "Index"), _
    DllStructGetData($tInfo, "SubItem")]
    _LeftDblClick($aInfo)
    EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
    EndFunc ;==>WM_NOTIFY

    [/autoit]

  • String in einzelne Zeichen zerlegen und verändert zusammen legen

    Ein Einzeiler gefällig ? ;)

    [autoit]

    MsgBox(0, "Newstring", StringReplace(StringReplace(StringReplace(StringReplace("Hallo", "h", "1"), "a", "2"), "l", "3"), "o", "4"))

    [/autoit]

    Da du es aber sicher mit vorher nicht bekannten Wörtern unterschiedlicher Zeichenlänge zu tun hast, empfehle ich die Verwendung eines Array oder hier sogar besser eines Object.Dictionary um die Buchstaben-Ersatzzeichen Zuordnung zu speichern.

  • FileWrite macht Files als Mac vormat

    Zitat von schmidt-ma


    macht er ein File im MAC Format


    ?? - Ich sehe hier nicht, dass er etwas macht, sondern dass du explizit eine Schreibanweisung für die Datei ausgibst. Und genau nach dieser Anweisung wird die Datei erstellt.
    Ein Bug wäre, wenn lt. Anweisung @CR geschrieben werden soll, im Text aber @CRLF erscheinen würde. Also nix da Bug. :P

    ( 90% der Fehler sitzen 80 cm vorm Monitor ) :whistling:

  • neue autoit version, virus?

    Liegt daran, dass einige Hersteller von AV-Proggis panische Angst vor Skriptprogrammen haben und alles, was dort neu ist, erst mal auf die schwarze Liste setzen, bis sich dann herausstellt, dass doch keine Gefahr besteht.

  • Digitaluhr

    Zitat von Oscar

    Ja ok, soweit kann ich folgen, aber warum ist die Konstante anders deklariert?
    Sollte das nicht bei jeder AutoIt-Version gleich sein?


    Nein, war auch in den Changes zur AutoIt-Version ausdrücklich angesprochen, dass in Zukunft nur noch diese Datentypen in DLL-Aufrufen zu verwenden sind.