Beiträge von Oscar

**Oscar** · 18. September 2022

Ich habe gerade eine tolle Funktion im engl. Forum gefunden (_GUICtrlStatusBar_SetFont).

Vielleicht kennt ihr die ja schon, aber ich habe trotzdem mal ein Beispiel-Script erstellt, mit dem man die Schriftgröße der Statusbar während der Laufzeit ändern kann.

Das brauchte ich für ein anderes Projekt und dachte, dass es der Ein oder Andere auch gebrauchen kann.

AutoIt

#include <FontConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <SendMessage.au3>
#include <WinAPIConv.au3>
#include <WinAPIGdiInternals.au3>
#include <WinAPIHObj.au3>
#include <WindowsConstants.au3>

Global $g_iFontSize = 18, $g_iFontWeight = 400, $g_iFontStyle = 2, $g_sFontname = 'Times New Roman'

Global $g_hGui = GUICreate('Statusbar change fontsize', 800, 200)
GUISetState(@SW_SHOW, $g_hGui)
GUISetBkColor(0xCCCCCC)

Global $g_hFont, $g_aParts[] = [120, -1], $g_aText[] = [$g_iFontSize & 'px', '<STRG> & Mousewheel to change']
Global $g_hStatus = _GUICtrlStatusBar_Create($g_hGui, $g_aParts, $g_aText)
_GUICtrlStatusBar_SetMinHeight($g_hStatus, $g_iFontSize)
_GUICtrlStatusBar_SetFont($g_hStatus, $g_iFontSize, $g_iFontWeight, $g_iFontStyle, $g_sFontname)

GUISetState(@SW_SHOW, $g_hGui)

GUIRegisterMsg($WM_MOUSEWHEEL, '_WM_MOUSEWHEEL')

While True
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            If $g_hFont Then _WinAPI_DeleteObject($g_hFont)
            Exit
    EndSwitch
WEnd

Func _WM_MOUSEWHEEL($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $lParam
    Local Const $iWheelDelta = 120, $MK_CONTROL = 0x0008, $iMinSize = 10, $iMaxSize = 48
    Local $iWheel, $iVKey
    Local Static $iOldSize = $g_iFontSize
    $iWheel = _WinAPI_HiWord($wParam) / $iWheelDelta ; down = -1, up = 1
    $iVKey = _WinAPI_LoWord($wParam)
    If BitAND($iVKey, $MK_CONTROL) Then ; if pressed [STRG/CTRL]
        $g_iFontSize += $iWheel
        If $g_iFontSize < $iMinSize Then $g_iFontSize -= $iWheel
        If $g_iFontSize > $iMaxSize Then $g_iFontSize -= $iWheel
        If $g_iFontSize <> $iOldSize Then
            $iOldSize = $g_iFontSize
            _GUICtrlStatusBar_SetMinHeight($g_hStatus, $g_iFontSize)
            _GUICtrlStatusBar_SetText($g_hStatus, $g_iFontSize & 'px')
            _GUICtrlStatusBar_SetFont($g_hStatus, $g_iFontSize, $g_iFontWeight, $g_iFontStyle, $g_sFontname)
        EndIf
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc   ;==>_WM_MOUSEWHEEL

; from rasim (https://www.autoitscript.com/forum/topic/88063-_guictrlstatusbar_settext/?do=findComment&comment=632524)
Func _GUICtrlStatusBar_SetFont($hWnd, $iSize = 15, $iWeight = 400, $iAttr = 0, $sFontName = "Arial")
    If $g_hFont Then _WinAPI_DeleteObject($g_hFont)
    $g_hFont = _WinAPI_CreateFont($iSize, 0, 0, 0, $iWeight, _
            BitAND($iAttr, 2), BitAND($iAttr, 4), BitAND($iAttr, 8), _
            $DEFAULT_CHARSET, $OUT_DEFAULT_PRECIS, _
            $CLIP_DEFAULT_PRECIS, $DEFAULT_QUALITY, _
            0, $sFontName)
    _SendMessage($hWnd, $WM_SETFONT, $g_hFont, 1)
EndFunc   ;==>_GUICtrlStatusBar_SetFont

Alles anzeigen

**Oscar** · 12. September 2022

Zitat von AspirinJunkie

Doku lesen hilft anscheinend - muss ich mir mal beherzigen.

Dito!

Bis zu Deinem Post kannte ich die WinApi-Funktion "PathCleanupSpec" gar nicht.

Und SetExtended hatte ich auch nicht so auf dem Schirm (ich benutze zu selten das @extended Makro).

Also gleich ein doppeltes Dankeschön für diese Funktion! So brauche ich nicht mehr extra eine AutoIt-Prüfung schreiben.

**Oscar** · 11. September 2022

Zitat von AspirinJunkie

Ich kenne mich mit der aber nicht wirklich aus um zu entscheiden ob das gewollt oder ein Bug ist.

Wenn man MSDN zu Rate zieht, dann ist das wohl gewollt. Das Flag wird jedenfalls entsprechend gesetzt:

AutoIt

Global Const $PCS_FATAL = 0x80000000
Global Const $PCS_REPLACEDCHAR = 0x00000001
Global Const $PCS_REMOVEDCHAR = 0x00000002
Global Const $PCS_TRUNCATED = 0x00000004
Global Const $PCS_PATHTOOLONG = 0x00000008

Global $sName = 'T*este /m:ich'
;~ Global $sName = 'Teste /mich'

Global $sNameClean = _WinAPI_PathCleanupSpec($sName)
Global $iExt = @extended
If BitAND($iExt, $PCS_FATAL) Then ConsoleWrite('The cleaned path is not a valid file name.' & @CRLF)
If BitAND($iExt, $PCS_REPLACEDCHAR) Then ConsoleWrite('Replaced one or more invalid characters.' & @CRLF)
If BitAND($iExt, $PCS_REMOVEDCHAR) Then ConsoleWrite('Removed one or more invalid characters.' & @CRLF)
If BitAND($iExt, $PCS_TRUNCATED) Then ConsoleWrite('The returned path is truncated.' & @CRLF)
If BitAND($iExt, $PCS_PATHTOOLONG) Then ConsoleWrite('The function failed because the input path is too long.' & @CRLF)
ConsoleWrite('Path: "' & $sNameClean & '"' & @CRLF)

; von AspirinJunkie
; https://autoit.de/thread/87822-suche-hilfe-unzul%C3%A4ssige-zeichen-bei-dateinamen-ersetzen-mit-stringregexp-f%C3%BCr-anf/?postID=708339#post708339
Func _WinAPI_PathCleanupSpec($sFileName)
    Local $aCall = DllCall('Shell32.dll', 'int', 'PathCleanupSpec', 'WSTR', '', 'WSTR', $sFileName)
    If @error Then Return SetError(@error, StringLen($sFileName), Null)
    Return SetError(0, $aCall[0], $aCall[2])
EndFunc

Alles anzeigen

**Oscar** · 10. September 2022

Ja, ich denke auch, dass die StringFunktion (StringReplace) hierfür ausreichen sollte!

Einfach die HTML-Seite komplett als String laden, dann mit StringReplace die <td> ersetzen und wieder abspeichern.

**Oscar** · 10. September 2022

Zitat von gert_nrw_71

wie kann man am besten mit AutoIt HTML Quellcodeseiten modifizieren, also die HTML Datei öffnen, etwas suchen, eine Zeile hinzufügen oder ändern und das ganze wieder abspeichern ?

Kommt darauf an, wo die HTML-Seite gespeichert ist.

Lokal wie bei jeder anderen Textdatei auch. Auf einem Server: da musst Du mehr Infos liefern.

**Oscar** · 2. September 2022

Zitat von BugFix

Weniger als 0.1 s ist nicht sinnvoll, da dann zu wenig Werte generiert werden und kein an- u. absteigender Graph, sondern eine kurze wilde Zick- Zacklinie entsteht.
Ich mach mir mal Gedanken, wie ich das in einen externen Prozess/anderen Kern auslagern kann.

Stimmt! Ich erinnere mich an mein Programm "FlashTest". Da habe ich das schreiben/lesen auch in einen Slave-Prozess ausgelagert.

Mit Hilfe der MailSlot-UDF habe ich die Kommunikation zwischen dem Master und dem Slave gelöst. Mit MailSlots können die Prozesse asynchron kommunizieren. Das ist wichtig, damit keiner der beiden Prozesse durch den anderen ausgebremst wird, weil der gerade die Nachricht abholt.

Aber als FileCopy-UDF wird das wohl sehr heftig werden, wenn es überhaupt irgendwie geht.

**Oscar** · 2. September 2022

Zitat von BugFix

OK, leider ist das Einbinden des Graphen ncht sinnvoll. Dadurch wird die Geschwindigkeit total ausgebremst, von 86 MB/s bis runter auf 12 MB/s.
Schade.

Auch, wenn Du die Aktualisierung nur z.B. jede Sekunde vornimmst?

**Oscar** · 2. September 2022

Hier noch eine Version mit Beschriftung:

AutoIt

#include <Array.au3>
#include <GDIPlus.au3>
#include <GDIPlusConstants.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <SendMessage.au3>
#include <StaticConstants.au3>
#include <WinAPIHObj.au3>
#include <WinAPIInternals.au3>
#include <WinAPISysInternals.au3>

Global $hGui, $lbPercent, $lbSpeed, $lbFile, $lbRestFiles, $lbRestSize, $lbRestTime, $hStatus, $idProgress
Global $idGraph, $aData[]
_GDIPlus_Startup()

_CreateCopyGui()
GUISetState(@SW_SHOW, $hGui)

Do
    _GraphCtrl_Draw($idGraph, _RandomTransferSpeed(95))
Until GUIGetMsg() = -3
_GDIPlus_Shutdown()

Func _GraphCtrl_Draw($idCtrl, $iSpeed)
    Local Static $sData
    Local $aData, $iMax, $iMin, $iHVal, $iHMin
    Local $hCtrl, $tRect, $iW, $iH, $hBitmap, $hGraphic, $hPenLine, $hPenMax, $hPenMin, $hBMP, $hPrevImage
    Local $hFormat, $hBrushMax, $hBrushMin, $hFamily, $hFont, $tLayout
    $hCtrl = GUICtrlGetHandle($idCtrl)
    If Not IsHWnd($hCtrl) Then Return SetError(1, 0, False)
    $tRect = _WinAPI_GetClientRect($hCtrl)
    $iW = $tRect.Right
    $iH = $tRect.Bottom
    $sData &= $iSpeed & ','
    $aData = StringSplit(StringTrimRight($sData, 1), ',', 2)
    If UBound($aData) > $iW Then
        _ArrayDelete($aData, 0)
        $sData = StringRegExpReplace($sData, '(.+?,)(.+)', '$2')
    EndIf
    $iMax = _ArrayMax($aData, 1)
    $iMin = _ArrayMin($aData, 1)
    $iHVal = ($iH - 20) / $iMax
    $iHMin = Int($iHVal * $iMin)
    $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH)
    $hGraphic = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsSetInterpolationMode($hGraphic, $GDIP_INTERPOLATIONMODE_HIGHQUALITYBICUBIC)
    _GDIPlus_GraphicsSetTextRenderingHint($hGraphic, 4)
    _GDIPlus_GraphicsClear($hGraphic, 0xFF004000)
    $hPenLine = _GDIPlus_PenCreate(0xFFA0FFA0, 1)
    $hPenMax = _GDIPlus_PenCreate(0xFFA0FFA0, 1)
    $hPenMin = _GDIPlus_PenCreate(0xFF108010, 1)
    For $iX = 0 To UBound($aData) - 1 Step 1
        _GDIPlus_GraphicsDrawLine($hGraphic, $iX, $iH, $iX, $iH - Int($iHVal * $aData[$iX]), $hPenLine)
    Next
    _GDIPlus_GraphicsDrawLine($hGraphic, 0, 20, $iW, 20, $hPenMax)
    _GDIPlus_GraphicsDrawLine($hGraphic, 0, $iH - $iHMin, $iW, $iH - $iHMin, $hPenMin)
    $hFormat = _GDIPlus_StringFormatCreate()
    _GDIPlus_StringFormatSetAlign($hFormat, 2)
    $hBrushMax = _GDIPlus_BrushCreateSolid(0xFFA0FFA0)
    $hBrushMin = _GDIPlus_BrushCreateSolid(0xFF108010)
    $hFamily = _GDIPlus_FontFamilyCreate('Arial')
    $hFont = _GDIPlus_FontCreate($hFamily, 10, 1)
    $tLayout = _GDIPlus_RectFCreate($iW - 100, 4, 98, 16)
    _GDIPlus_GraphicsDrawStringEx($hGraphic, Int($iMax) & ' MB/s', $hFont, $tLayout, $hFormat, $hBrushMax)
    $tLayout = _GDIPlus_RectFCreate($iW - 100, $iH - $iHMin + 4, 98, 16)
    _GDIPlus_GraphicsDrawStringEx($hGraphic, Int($iMin) & ' MB/s', $hFont, $tLayout, $hFormat, $hBrushMin)
    $hBMP = _GDIPlus_BitmapCreateDIBFromBitmap($hBitmap)
    $hPrevImage = _SendMessage($hCtrl, $STM_SETIMAGE, $IMAGE_BITMAP, $hBMP)
    If $hPrevImage Then _WinAPI_DeleteObject($hPrevImage)
    _GDIPlus_FontDispose($hFont)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_StringFormatDispose($hFormat)
    _GDIPlus_BrushDispose($hBrushMax)
    _GDIPlus_BrushDispose($hBrushMin)
    _GDIPlus_PenDispose($hPenMin)
    _GDIPlus_PenDispose($hPenMax)
    _GDIPlus_PenDispose($hPenLine)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_BitmapDispose($hBitmap)
EndFunc

Func _RandomTransferSpeed($_iMax=-1)
    Local Static $iMBPerSec = 150
    $iMBPerSec += Random(-1,1,1) * ($iMBPerSec / 100)
    If $iMBPerSec < 1 Then $iMBPerSec = 0
    Return $iMBPerSec
EndFunc

Func _CreateCopyGui()
    $hGui = GUICreate('Copy with Progress', 400, 260)
    GUISetBkColor(0xF0F8FF)
    GUISetFont(10, 400, Default, 'Courier New')

    ; Prozent
    GUICtrlCreateLabel('Fortschritt:', 10, 10, 115, 17)
    $lbPercent = GUICtrlCreateLabel('0', 320, 10, 60, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_RIGHT))
    GUICtrlSetColor(-1, 0x000080)
    GUICtrlCreateLabel('%', 380, 10, 10, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_RIGHT))
    GUICtrlSetColor(-1, 0x000080)

    ; Speed
    GUICtrlCreateLabel('Geschwindigkeit:', 10, 32, 125, 17)
    $lbSpeed = GUICtrlCreateLabel('0 MB', 300, 32, 70, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_RIGHT))
    GUICtrlSetColor(-1, 0x000080)
    GUICtrlCreateLabel('/s', 370, 32, 20, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_RIGHT))
    GUICtrlSetColor(-1, 0x000080)

    ; akt. Datei
    GUICtrlCreateLabel('Name:', 10, 54, 40, 17)
    $lbFile = GUICtrlCreateLabel('', 55, 54, 335, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_RIGHT))
    GUICtrlSetColor(-1, 0x000080)

    ; verbleibende Elemente
    GUICtrlCreateLabel('Verbleibende Elemente:', 10, 76, 180, 17)
    $lbRestFiles = GUICtrlCreateLabel('', 330, 76, 60, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_RIGHT))
    GUICtrlSetColor(-1, 0x000080)

    ; verbleibende Größe
    GUICtrlCreateLabel('Verbleibende Größe:', 10, 98, 180, 17)
    $lbRestSize = GUICtrlCreateLabel('', 280, 98, 110, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_RIGHT))
    GUICtrlSetColor(-1, 0x000080)

    ; verbleibende Zeit
    GUICtrlCreateLabel('Restdauer ungefähr:', 10, 120, 180, 17)
    $lbRestTime = GUICtrlCreateLabel('', 250, 120, 140, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_RIGHT))
    GUICtrlSetColor(-1, 0x000080)

    ; Graph hellgrün: 0xF0F0F0, dunkelgrün: 0x05B024
    $idGraph = GUICtrlCreatePic('', 10, 142, 380, 85)

    ; Statusbar
    $hStatus = _GUICtrlStatusBar_Create($hGui)
    _GUICtrlStatusBar_SetMinHeight($hStatus, 20)
    $idProgress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
    GUICtrlSetColor(-1, 0x008B00) ; grün
    _GUICtrlStatusBar_EmbedControl($hStatus, 0, GUICtrlGetHandle($idProgress))
EndFunc

Alles anzeigen

**Oscar** · 2. September 2022

Ich würde sowas vorschlagen:

AutoIt

#include <Array.au3>
#include <GDIPlus.au3>
#include <GDIPlusConstants.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <SendMessage.au3>
#include <StaticConstants.au3>
#include <WinAPIHObj.au3>
#include <WinAPIInternals.au3>
#include <WinAPISysInternals.au3>

Global $hGui, $lbPercent, $lbSpeed, $lbFile, $lbRestFiles, $lbRestSize, $lbRestTime, $hStatus, $idProgress
Global $idGraph, $aData[]
_GDIPlus_Startup()

_CreateCopyGui()
GUISetState(@SW_SHOW, $hGui)

Do
    _GraphCtrl_Draw($idGraph, _RandomTransferSpeed(95))
Until GUIGetMsg() = -3
_GDIPlus_Shutdown()

Func _GraphCtrl_Draw($idCtrl, $iSpeed)
    Local Static $sData
    Local $aData, $iMax, $iMin, $iHVal, $iHMin
    Local $hCtrl, $tRect, $iW, $iH, $hBitmap, $hGraphic, $hPenLine, $hPenMax, $hPenMin, $hBMP, $hPrevImage
    $hCtrl = GUICtrlGetHandle($idCtrl)
    If Not IsHWnd($hCtrl) Then Return SetError(1, 0, False)
    $tRect = _WinAPI_GetClientRect($hCtrl)
    $iW = $tRect.Right
    $iH = $tRect.Bottom
    $sData &= $iSpeed & ','
    $aData = StringSplit(StringTrimRight($sData, 1), ',', 2)
    If UBound($aData) > $iW Then
        _ArrayDelete($aData, 0)
        $sData = StringRegExpReplace($sData, '(.+?,)(.+)', '$2')
    EndIf
    $iMax = _ArrayMax($aData, 1)
    $iMin = _ArrayMin($aData, 1)
    $iHVal = ($iH - 16) / $iMax
    $iHMin = Int($iHVal * $iMin)
    $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH)
    $hGraphic = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsSetInterpolationMode($hGraphic, $GDIP_INTERPOLATIONMODE_HIGHQUALITYBICUBIC)
    _GDIPlus_GraphicsClear($hGraphic, 0xFF004000)
    $hPenLine = _GDIPlus_PenCreate(0xFF80F080, 1)
    $hPenMax = _GDIPlus_PenCreate(0xFFA0FFA0, 1)
    $hPenMin = _GDIPlus_PenCreate(0xFF30AA30, 1)
    For $iX = 0 To UBound($aData) - 1 Step 1
        _GDIPlus_GraphicsDrawLine($hGraphic, $iX, $iH, $iX, $iH - Int($iHVal * $aData[$iX]), $hPenLine)
    Next
    _GDIPlus_GraphicsDrawLine($hGraphic, 0, 16, $iW, 16, $hPenMax)
    _GDIPlus_GraphicsDrawLine($hGraphic, 0, $iH - $iHMin, $iW, $iH - $iHMin, $hPenMin)
    $hBMP = _GDIPlus_BitmapCreateDIBFromBitmap($hBitmap)
    $hPrevImage = _SendMessage($hCtrl, $STM_SETIMAGE, $IMAGE_BITMAP, $hBMP)
    If $hPrevImage Then _WinAPI_DeleteObject($hPrevImage)
    _GDIPlus_PenDispose($hPenMin)
    _GDIPlus_PenDispose($hPenMax)
    _GDIPlus_PenDispose($hPenLine)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_BitmapDispose($hBitmap)
EndFunc

Func _RandomTransferSpeed($_iMax=-1)
    Local Static $iMBPerSec = 50
    $iMBPerSec += Random(-1,1,1) * ($iMBPerSec / 100)
    If $iMBPerSec < 1 Then $iMBPerSec = 0
    Return $iMBPerSec
EndFunc


Func _CreateCopyGui()
    $hGui = GUICreate('Copy with Progress', 400, 260)
    GUISetBkColor(0xF0F8FF)
    GUISetFont(10, 400, Default, 'Courier New')

    ; Prozent
    GUICtrlCreateLabel('Fortschritt:', 10, 10, 115, 17)
    $lbPercent = GUICtrlCreateLabel('0', 320, 10, 60, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_RIGHT))
    GUICtrlSetColor(-1, 0x000080)
    GUICtrlCreateLabel('%', 380, 10, 10, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_RIGHT))
    GUICtrlSetColor(-1, 0x000080)

    ; Speed
    GUICtrlCreateLabel('Geschwindigkeit:', 10, 32, 125, 17)
    $lbSpeed = GUICtrlCreateLabel('0 MB', 300, 32, 70, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_RIGHT))
    GUICtrlSetColor(-1, 0x000080)
    GUICtrlCreateLabel('/s', 370, 32, 20, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_RIGHT))
    GUICtrlSetColor(-1, 0x000080)

    ; akt. Datei
    GUICtrlCreateLabel('Name:', 10, 54, 40, 17)
    $lbFile = GUICtrlCreateLabel('', 55, 54, 335, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_RIGHT))
    GUICtrlSetColor(-1, 0x000080)

    ; verbleibende Elemente
    GUICtrlCreateLabel('Verbleibende Elemente:', 10, 76, 180, 17)
    $lbRestFiles = GUICtrlCreateLabel('', 330, 76, 60, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_RIGHT))
    GUICtrlSetColor(-1, 0x000080)

    ; verbleibende Größe
    GUICtrlCreateLabel('Verbleibende Größe:', 10, 98, 180, 17)
    $lbRestSize = GUICtrlCreateLabel('', 280, 98, 110, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_RIGHT))
    GUICtrlSetColor(-1, 0x000080)

    ; verbleibende Zeit
    GUICtrlCreateLabel('Restdauer ungefähr:', 10, 120, 180, 17)
    $lbRestTime = GUICtrlCreateLabel('', 250, 120, 140, 17, BitOR($GUI_SS_DEFAULT_LABEL, $SS_RIGHT))
    GUICtrlSetColor(-1, 0x000080)

    ; Graph hellgrün: 0xF0F0F0, dunkelgrün: 0x05B024
    $idGraph = GUICtrlCreatePic('', 10, 142, 380, 85)

    ; Statusbar
    $hStatus = _GUICtrlStatusBar_Create($hGui)
    _GUICtrlStatusBar_SetMinHeight($hStatus, 20)
    $idProgress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
    GUICtrlSetColor(-1, 0x008B00) ; grün
    _GUICtrlStatusBar_EmbedControl($hStatus, 0, GUICtrlGetHandle($idProgress))
EndFunc

Alles anzeigen

**Oscar** · 31. August 2022

Diese UDF zeigt GIF-Animationen mit Hilfe der "neuen" Funktionen an (_GDIPlus_ImageSelectActiveFrame und _GDIPlus_ImageGetPropertyItem, AFAIR ab AutoIt v3.3.14.3).

Der eigentliche Vorteil dieser UDF ist aber das speichern aller Frames der Gif-Animation nebeneinander in einer HBitmap. So kann man mit _WinAPI_BitBlt die Einzelbilder auf das jeweilige Fenster "blitten", was kaum Rechenzeit kostet.

Das abspielen der Animationen kann also nebenbei passieren, was ich im Beispielscript mit einer _Timer-Funktion erledige (vier Gif-Animationen gleichzeitig).

Ich habe das Beispiel ausführlich kommentiert, um evtl. Fragen schon im Voraus zu beantworten. Falls aber trotzdem Fragen auftauchen oder ihr noch Anregungen habt, nur zu...

**Oscar** · 27. August 2022

Zitat von gert_nrw_71

ein laufendes Script per Tastendruck, evtl. eine Funktionstaste, neu zu starten ?

Wozu soll das gut sein?

Man kann Schleifen programmieren, wenn Codeteile mehrfach ausgeführt werden sollen.

**Oscar** · 27. August 2022

Zitat von gert_nrw_71

aber bisher funktioniert es sehr gut

Hast Du es in etwa so gelöst?

AutoIt

#include <GUIConstantsEx.au3>
#include <StructureConstants.au3>
#include <WinAPIConstants.au3>
#include <WinAPIInternals.au3>
#include <WinAPISys.au3>
#include <WinAPISysInternals.au3>
#include <WindowsConstants.au3>
#include <FileConstants.au3>
#include <File.au3>
#include <WinAPI.au3>

Global $Gewerk = "Polsterei"
Global $Titel = "Polsterei.htm"
Global $Titelmin = "Polsterei_min.htm"

Global $Freigabe = "\\ste01\planung\"
Global $hmod, $hHook, $hStub_KeyProc, $buffer = '', $scannerbufferflag = 0
Global $LogText =""
Global $Eingabe
Global $File[5]

; Hier den Postfix-Code von eurem Scanner eintragen.
Global $g_iPostfix = 0x0D ;Enter
; Hier den Prefix-Code von eurem Scanner eintragen.
Global $g_iPrefix = 0x71 ;F2

HotKeySet('{ESC}', '_Exit')
OnAutoItExitRegister('OnAutoItExit')
Global $hKeyProc = DllCallbackRegister('_KeyProc', 'long', 'int;wparam;lparam')
Global $hmod = _WinAPI_GetModuleHandle(0)
Global $hKeyHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hKeyProc), $hmod)

Global $hGui = GUICreate('Barcodescanner', 300, 140)
Global $idBarcode = GUICtrlCreateLabel('', 10, 10, 280, 30)
GUICtrlSetFont(-1, 16, 400, 0, 'Courier New')
Global $idInput = GUICtrlCreateInput('', 10, 50, 280, 30)
GUICtrlSetFont(-1, 16, 400, 0, 'Courier New')
GUISetState(@SW_HIDE)
Global $g_bBufferOk = False, $g_sBuffer = ''
Do
    If $g_bBufferOk Then
        _StatusSave($g_sBuffer)
        $g_sBuffer = ''
        $g_bBufferOk = False
    EndIf
Until GUIGetMsg() = $GUI_EVENT_CLOSE
consolewrite("ende")
Exit

Func _Exit()
    Exit
EndFunc

; ACHTUNG! Callback-Funktion!
; In dieser Funktion darf es keinen blockierenden Code (z.B. MsgBox, Sleep, etc.) geben!
; Hier werden direkt die virtuellen Keycodes der Tastatur ausgewertet:
; https://docs.microsoft.com/en-us/windows/win32/inputdev/virtual-key-codes
Func _KeyProc($nCode, $wParam, $lParam)
    Local $tKBDLLHOOK = DllStructCreate($tagKBDLLHOOKSTRUCT, $lParam)
    Local $iKeyCode = $tKBDLLHOOK.vkCode, $iPressTime
    Local Static $sBuffer = '', $bBarcodeActive = False
    If $nCode >= 0 Then
        If $iKeyCode = $g_iPrefix And $wParam = $WM_KEYUP Then
            $bBarcodeActive = Not $bBarcodeActive
            ConsoleWrite('$bBarcodeActive = ' & $bBarcodeActive & @CRLF)
            $sBuffer = ''
        EndIf
        If $bBarcodeActive Then
            Switch $wParam
                Case $WM_KEYDOWN
                    Return 1
                Case $WM_KEYUP
                    Switch $iKeyCode ; Keycode auswerten
                        Case $g_iPostfix
                            ConsoleWrite(StringFormat('Barcode = "%s"\r\n', $sBuffer))
                            $g_sBuffer = $sBuffer
                            $g_bBufferOk = True
                            $sBuffer = ''
                            $bBarcodeActive = False
                            ConsoleWrite('$bBarcodeActive = ' & $bBarcodeActive & @CRLF)
                            Return 1
                        Case 0x30 To 0x39, 0x41 To 0x5A ; 0 - 9, A - Z
                            $sBuffer &= Chr($iKeyCode)
                            Return 1
                    EndSwitch
            EndSwitch
        EndIf
    EndIf
    Return _WinAPI_CallNextHookEx($hKeyHook, $nCode, $wParam, $lParam)
EndFunc   ;==>_KeyProc

; Wichtig! Beim Programmende den Hook wieder entfernen.
Func OnAutoItExit()
    _WinAPI_UnhookWindowsHookEx($hKeyHook)
    DllCallbackFree($hKeyProc)
EndFunc   ;==>OnAutoItExit

Func _StatusSave($sBuffer)
    Local $hFile
    If FileExists($Freigabe & "\Prod-Status\" & $Gewerk & "\" & $sBuffer & "_Start.log") Then
        $hFile = FileOpen($Freigabe & "\Prod-Status\" & $Gewerk & "\" & $sBuffer & "_Ende.log", 1)
        beep(500,200)
        beep(500,200)
    Else
        $hFile = FileOpen($Freigabe & "\Prod-Status\" & $Gewerk & "\" & $sBuffer & "_Start.log", 1)
        beep(500,200)
    EndIf
    _FileWriteLog($hFile, $sBuffer & @CRLF)
    FileClose($hFile)
EndFunc   ;==>StatusSave

Alles anzeigen

So, würden auch die Beeps nichts ausmachen, weil die Funktion erst in der Hauptschleife aufgerufen wird.

**Oscar** · 26. August 2022

Zitat von gert_nrw_71

da ist es:

Die Beeps müssen raus!

Das ist blockierender Code. Siehe Kommentar in der Callback-Funktion!

Die Callback-Funktion darf nur wenige Millisekunden betragen.

**Oscar** · 26. August 2022

Zitat von gert_nrw_71

Vielleicht noch eine Idee was das sein könnte ?

Hast Du da noch etwas anderes eingebaut?

Bitte poste Dein ganzes Script!

**Oscar** · 26. August 2022

Zitat von DOheim

Nun muss ich mir noch überlegen, wie ich die Datei dann passend wieder schreibe.

Was willst Du denn wirklich machen?

Weil: das ändern von ein paar Pixel geht mit GDI+ viel einfacher.

Das funktioniert dann auch mit allen Bildformaten (nicht nur 24-Bit BMP).

**Oscar** · 26. August 2022

Zitat von BugFix

Wobei ich ein Arbeiten mit FileSetPos / Read / Write / Flush bevorzugen würde, da dann in einem Aufwasch gelesen und geschrieben werden kann.

Das einlesen in eine Pixel-Struktur hat vor allem auch den Vorteil, dass man gleich einen adressierbaren Speicher (Pointer auf die Struktur) für eine Assembler-Routine hat.

**Oscar** · 26. August 2022

Zitat von gert_nrw_71

Kann ich das in der Funktion KeyProc hinzufügen ?

Ja, mit Übergabeparameter geht's ohne Zuweisung an eine globale Variable:

AutoIt

#include <GUIConstantsEx.au3>
#include <StructureConstants.au3>
#include <WinAPIConstants.au3>
#include <WinAPIInternals.au3>
#include <WinAPISys.au3>
#include <WinAPISysInternals.au3>
#include <WindowsConstants.au3>

; Hier den Postfix-Code von eurem Scanner eintragen.
Global $g_iPostfix = 0x0D
; Hier den Prefix-Code von eurem Scanner eintragen.
Global $g_iPrefix = 0x03

HotKeySet('{ESC}', '_Exit')
OnAutoItExitRegister('OnAutoItExit')
Global $hKeyProc = DllCallbackRegister('_KeyProc', 'long', 'int;wparam;lparam')
Global $hmod = _WinAPI_GetModuleHandle(0)
Global $hKeyHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hKeyProc), $hmod)

Global $hGui = GUICreate('Barcodescanner', 300, 140)
Global $idBarcode = GUICtrlCreateLabel('', 10, 10, 280, 30)
GUICtrlSetFont(-1, 16, 400, 0, 'Courier New')
Global $idInput = GUICtrlCreateInput('', 10, 50, 280, 30)
GUICtrlSetFont(-1, 16, 400, 0, 'Courier New')
GUISetState(@SW_HIDE)
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
Exit

Func _Exit()
    Exit
EndFunc

; ACHTUNG! Callback-Funktion!
; In dieser Funktion darf es keinen blockierenden Code (z.B. MsgBox, Sleep, etc.) geben!
; Hier werden direkt die virtuellen Keycodes der Tastatur ausgewertet:
; https://docs.microsoft.com/en-us/windows/win32/inputdev/virtual-key-codes
Func _KeyProc($nCode, $wParam, $lParam)
    Local $tKBDLLHOOK = DllStructCreate($tagKBDLLHOOKSTRUCT, $lParam)
    Local $iKeyCode = $tKBDLLHOOK.vkCode, $iPressTime
    Local Static $sBuffer = '', $bBarcodeActive = False
    If $nCode >= 0 Then
        If $iKeyCode = $g_iPrefix And $wParam = $WM_KEYUP Then
            $bBarcodeActive = Not $bBarcodeActive
            ConsoleWrite('$bBarcodeActive = ' & $bBarcodeActive & @CRLF)
            $sBuffer = ''
        EndIf
        If $bBarcodeActive Then
            Switch $wParam
                Case $WM_KEYDOWN
                    Return 1
                Case $WM_KEYUP
                    Switch $iKeyCode ; Keycode auswerten
                        Case $g_iPostfix
                            ConsoleWrite(StringFormat('Barcode = "%s"\r\n', $sBuffer))
                            _StatusSave($sBuffer)
                            $sBuffer = ''
                            $bBarcodeActive = False
                            ConsoleWrite('$bBarcodeActive = ' & $bBarcodeActive & @CRLF)
                            Return 1
                        Case 0x30 To 0x39, 0x41 To 0x5A ; 0 - 9, A - Z
                            $sBuffer &= Chr($iKeyCode)
                            Return 1
                    EndSwitch
            EndSwitch
        EndIf
    EndIf
    Return _WinAPI_CallNextHookEx($hKeyHook, $nCode, $wParam, $lParam)
EndFunc   ;==>_KeyProc

; Wichtig! Beim Programmende den Hook wieder entfernen.
Func OnAutoItExit()
    _WinAPI_UnhookWindowsHookEx($hKeyHook)
    DllCallbackFree($hKeyProc)
EndFunc   ;==>OnAutoItExit

Func _StatusSave($sBuffer)
    Local $hFile
    If FileExists($Freigabe & "\Prod-Status\" & $Gewerk & "\" & $sBuffer & "_Start.log") Then
        $hFile = FileOpen($Freigabe & "\Prod-Status\" & $Gewerk & "\" & $sBuffer & "_Ende.log", 1)
    Else
        $hFile = FileOpen($Freigabe & "\Prod-Status\" & $Gewerk & "\" & $sBuffer & "_Start.log", 1)
    EndIf
    _FileWriteLog($hFile, $sBuffer & @CRLF)
    FileClose($hFile)
EndFunc   ;==>StatusSave

Alles anzeigen

**Oscar** · 24. August 2022

Ich habe Dir mal ein Script geschrieben, wie ich das angehen würde:

AutoIt

#include <Array.au3>
#include <WinAPIFiles.au3>
#include <WinAPIHObj.au3>
#include <WinAPIInternals.au3>


Global $sFilename = @ScriptDir & '\rot1.bmp'
Global $aPixel = _ReadPixel($sFilename)
_ArrayDisplay($aPixel)

Func _ReadPixel($sFilename)
    Local $tOffset = DllStructCreate('ulong offset')
    Local $tDim = DllStructCreate('ulong width; ulong height')
    Local $tBPP = DllStructCreate('ushort bpp')
    Local $nBytes, $iPad, $iPixelCount, $iBGR, $iOffset = 1
    Local $hFile = _WinAPI_CreateFile($sFilename, 2, 2) ; Datei zum lesen oeffnen
    If Not $hFile Then Return SetError(1)
    _WinAPI_SetFilePointer($hFile, 0x0A) ; 0x0A = Offset auf die Pixeldaten
    _WinAPI_ReadFile($hFile, $tOffset, 4, $nBytes) ; 4 Bytes aus der Datei lesen
    ConsoleWrite('Offset = ' & $tOffset.offset & @CRLF) ; nur zum debuggen
    _WinAPI_SetFilePointer($hFile, 0x12) ; 0x12 = Anfang von Width und Height
    _WinAPI_ReadFile($hFile, $tDim, 8, $nBytes) ; 8 Bytes aus der Datei lesen
    ConsoleWrite('Width = ' & $tDim.width & @CRLF) ; nur zum debuggen
    ConsoleWrite('Height = ' & $tDim.height & @CRLF) ; nur zum debuggen
    _WinAPI_SetFilePointer($hFile, 0x1C) ; 0x1C = Bits per Pixel
    _WinAPI_ReadFile($hFile, $tBPP, 2, $nBytes) ; 2 Bytes aus der Datei lesen
    ConsoleWrite('BPP = ' & $tBPP.bpp & @CRLF) ; nur zum debuggen
    $iPad = Ceiling($tDim.width * 3 / 4) * 4 - $tDim.width * 3 ; das Padding pro Scanzeile ausrechnen
    $iPixelCount = ($tBPP.bpp / 8) * $tDim.width * $tDim.height + $iPad * $tDim.height ; wie viele Pixel
    Local $tPixel = DllStructCreate('byte[' & $iPixelCount & ']') ; Struktur mit den Bytes erstellen
    _WinAPI_SetFilePointer($hFile, $tOffset.offset) ; Filepointer auf den Offset der Pixeldaten setzen
    _WinAPI_ReadFile($hFile, $tPixel, $iPixelCount, $nBytes) ; alle Pixeldaten einlesen
    _WinAPI_CloseHandle($hFile) ; Datei schliessen
    Local $aOut[$tDim.width * $tDim.height], $iCount = 0 ; Ausgabe-Array
    For $iY = 0 To $tDim.height - 1 ; Zeilen-Schleife
        For $iX = 0 To $tDim.width - 1 ; Spalten-Schleife
            $iBGR = 0
            For $i = 0 To 2 ; Schleife fuer B, G, R
                $iBGR = BitOR($iBGR, BitShift(DllStructGetData($tPixel, 1, $iOffset), -(16 - $i * 8)))
                $iOffset += 1
            Next
            ConsoleWrite('0x' & Hex($iBGR, 6) & ', ') ; nur zum debuggen
            $aOut[$iCount] = '0x' & Hex($iBGR, 6)
            $iCount += 1
        Next
        $iOffset += $iPad ; nach jeder Scanzeile werden Padding-Bytes eingefuegt (0-3)
        ConsoleWrite(@CRLF) ; nur zum debuggen
    Next
    Return $aOut
EndFunc

Alles anzeigen

**Oscar** · 21. August 2022

Zitat von BugFix

dass ein systemweiter Keyboard-Hook auch ohne ein Fenster auskommt und somit die Daten einfängt.

Ja, wenn ein Prefix gesendet wird, kann man das hier benutzen:

AutoIt

#include <GUIConstantsEx.au3>
#include <StructureConstants.au3>
#include <WinAPIConstants.au3>
#include <WinAPIInternals.au3>
#include <WinAPISys.au3>
#include <WinAPISysInternals.au3>
#include <WindowsConstants.au3>

; Hier den Postfix-Code von eurem Scanner eintragen.
Global $g_iPostfix = 0x0D
; Hier den Prefix-Code von eurem Scanner eintragen.
Global $g_iPrefix = 0x03

HotKeySet('{ESC}', '_Exit')
OnAutoItExitRegister('OnAutoItExit')
Global $hKeyProc = DllCallbackRegister('_KeyProc', 'long', 'int;wparam;lparam')
Global $hmod = _WinAPI_GetModuleHandle(0)
Global $hKeyHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hKeyProc), $hmod)

Global $hGui = GUICreate('Barcodescanner', 300, 140)
Global $idBarcode = GUICtrlCreateLabel('', 10, 10, 280, 30)
GUICtrlSetFont(-1, 16, 400, 0, 'Courier New')
Global $idInput = GUICtrlCreateInput('', 10, 50, 280, 30)
GUICtrlSetFont(-1, 16, 400, 0, 'Courier New')
GUISetState(@SW_HIDE)
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
Exit

Func _Exit()
    Exit
EndFunc

; ACHTUNG! Callback-Funktion!
; In dieser Funktion darf es keinen blockierenden Code (z.B. MsgBox, Sleep, etc.) geben!
; Hier werden direkt die virtuellen Keycodes der Tastatur ausgewertet:
; https://docs.microsoft.com/en-us/windows/win32/inputdev/virtual-key-codes
Func _KeyProc($nCode, $wParam, $lParam)
    Local $tKBDLLHOOK = DllStructCreate($tagKBDLLHOOKSTRUCT, $lParam)
    Local $iKeyCode = $tKBDLLHOOK.vkCode, $iPressTime
    Local Static $sBuffer = '', $bBarcodeActive = False
    If $nCode >= 0 Then
        If $iKeyCode = $g_iPrefix And $wParam = $WM_KEYUP Then
            $bBarcodeActive = Not $bBarcodeActive
            ConsoleWrite('$bBarcodeActive = ' & $bBarcodeActive & @CRLF)
            $sBuffer = ''
        EndIf
        If $bBarcodeActive Then
            Switch $wParam
                Case $WM_KEYDOWN
                    Return 1
                Case $WM_KEYUP
                    Switch $iKeyCode ; Keycode auswerten
                        Case $g_iPostfix
                            ConsoleWrite(StringFormat('Barcode = "%s"\r\n', $sBuffer))
                            GUICtrlSetData($idBarcode, $sBuffer)
                            $sBuffer = ''
                            $bBarcodeActive = False
                            ConsoleWrite('$bBarcodeActive = ' & $bBarcodeActive & @CRLF)
                            Return 1
                        Case 0x30 To 0x39, 0x41 To 0x5A ; 0 - 9, A - Z
                            $sBuffer &= Chr($iKeyCode)
                            Return 1
                    EndSwitch
            EndSwitch
        EndIf
    EndIf
    Return _WinAPI_CallNextHookEx($hKeyHook, $nCode, $wParam, $lParam)
EndFunc   ;==>_KeyProc

; Wichtig! Beim Programmende den Hook wieder entfernen.
Func OnAutoItExit()
    _WinAPI_UnhookWindowsHookEx($hKeyHook)
    DllCallbackFree($hKeyProc)
EndFunc   ;==>OnAutoItExit

Alles anzeigen

**Oscar** · 21. August 2022

Zitat von gert_nrw_71

aber da gibt es bestimmt noch eine sauberer Lösung, oder ?

Hmm...das Problem ist, dass da die Tastatureingaben der Gui abgefangen werden.

Ob und wie man das systemweit machen kann, weiß ich nicht.

Es ist sogar so, dass die Scandaten an ein anderes Fenster gesendet werden, wenn das gerade aktiv ist. Insofern nützt es wenig, die eigene Gui zu verstecken.

Was willst Du denn mit den Scandaten machen? Benutzt Du denn gar keine Gui? Es muss ja nicht die Gui aus dem Beispiel sein.

Beiträge von Oscar

Schriftart und -größe bei einer Statusbar ändern

Suche Hilfe - unzulässige Zeichen bei Dateinamen ersetzen - mit "StringRegExp" für ANFÄNGER!

Suche Hilfe - unzulässige Zeichen bei Dateinamen ersetzen - mit "StringRegExp" für ANFÄNGER!

mit AutoIt HTML Quellcodeseiten (.htm) modifizieren

mit AutoIt HTML Quellcodeseiten (.htm) modifizieren

Graph - bei sich verändernden Werten Skalierung anpassen

Graph - bei sich verändernden Werten Skalierung anpassen

Graph - bei sich verändernden Werten Skalierung anpassen

Graph - bei sich verändernden Werten Skalierung anpassen

_GUICtrlGifAnim

AutoIT Script welches läuft neu starten

Barcode in Variable scannen ohne den Inhalt irgendwo anzuzeigen

Barcode in Variable scannen ohne den Inhalt irgendwo anzuzeigen

Barcode in Variable scannen ohne den Inhalt irgendwo anzuzeigen

GUICtrlCreateIcon mit png-Datei

GUICtrlCreateIcon mit png-Datei

Barcode in Variable scannen ohne den Inhalt irgendwo anzuzeigen

GUICtrlCreateIcon mit png-Datei

Barcode in Variable scannen ohne den Inhalt irgendwo anzuzeigen

Barcode in Variable scannen ohne den Inhalt irgendwo anzuzeigen