Beiträge von Oscar

 Func _5A()
    Local $c[99], $a[99][4], $t = 0.0, $u = 0.0
    For $i = 0 To UBound($c) - 1 Step 1
        $c[$i] = BitShift(Random(0, 0xFFFF, 1), -16) + Random(0, 0xFFFF, 1)
        $a[$i][0] = 0
        $a[$i][1] = 0
        $a[$i][2] = 0
        $a[$i][3] = 0
    Next
    Local $p = DllStructCreate('int')
    Local $q = DllStructCreate('byte B;byte G;byte R;byte A', DllStructGetPtr($p)) ; BGRA Byte order
    $t = TimerInit()
    For $i = 0 To UBound($a) - 1 Step 1
        DllStructSetData($p, 1, $c[$i])
        $a[$i][0] = $q.A; DllStructGetData($q, 4)
        $a[$i][1] = $q.R; DllStructGetData($q, 3)
        $a[$i][2] = $q.G; DllStructGetData($q, 2)
        $a[$i][3] = $q.B; DllStructGetData($q, 1)
    Next
    $t = TimerDiff($t)
    $u = TimerInit()
    For $i = 0 To UBound($a) - 1 Step 1

    Next
    $u = TimerDiff($u)
    Return ($t - $u)/99.0
EndFunc

Func _5A()
    Local $c[99], $a[99][4], $t = 0.0, $u = 0.0
    For $i = 0 To UBound($c) - 1 Step 1
        $c[$i] = BitShift(Random(0, 0xFFFF, 1), -16) + Random(0, 0xFFFF, 1)
        $a[$i][0] = 0
        $a[$i][1] = 0
        $a[$i][2] = 0
        $a[$i][3] = 0
    Next
    Local $p = DllStructCreate('int BGRA')
    Local $q = DllStructCreate('byte B;byte G;byte R;byte A', DllStructGetPtr($p)) ; BGRA Byte order
    $t = TimerInit()
    For $i = 0 To UBound($a) - 1 Step 1
        $p.BGRA = $c[$i]; DllStructSetData($p, 1, $c[$i])
        $a[$i][0] = $q.A; DllStructGetData($q, 4)
        $a[$i][1] = $q.R; DllStructGetData($q, 3)
        $a[$i][2] = $q.G; DllStructGetData($q, 2)
        $a[$i][3] = $q.B; DllStructGetData($q, 1)
    Next
    $t = TimerDiff($t)
    $u = TimerInit()
    For $i = 0 To UBound($a) - 1 Step 1

    Next
    $u = TimerDiff($u)
    Return ($t - $u)/99.0
EndFunc

#include <StructureConstants.au3>
#include <Timers.au3>
#include <WinAPIConv.au3>

Global $hDummy = GUICreate('dummy')
Global $iTimer =  _Timer_SetTimer($hDummy, 100, '_TimerFunc')
MsgBox(0, 'Messagebox', 'Infotext')

Func _TimerFunc($hWnd, $iMsg, $iIDTimer, $iTime)
    Local $hWin = WinGetHandle('Messagebox')
    If Not IsHWnd($hWin) Then Return
    Local $aCtrlPos = ControlGetPos($hWin, '', '[CLASS:Button; INSTANCE:1]')
    If @error Then Return
    Local $tPoint = DllStructCreate($tagPOINT)
    $tPoint.x = $aCtrlPos[0] + $aCtrlPos[2] / 2
    $tPoint.y = $aCtrlPos[1] + $aCtrlPos[3] / 2
    _WinAPI_ClientToScreen($hWin, $tPoint)
    MouseMove($tPoint.x, $tPoint.y, 0)
    _Timer_KillAllTimers($hDummy)
EndFunc

#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WinAPISysInternals.au3>
#include <WindowsConstants.au3>

Global $sText = 'When a GUI window is resized the controls within react - how they react is determined by this function. To be able to resize a GUI window it needs to have been created with the $WS_SIZEBOX and $WS_SYSMENU styles. See GUICreate().'

Global $hGui = GUICreate('Test', 640, 110, -1, -1, $WS_SIZEBOX + $WS_SYSMENU)
Global $idLabel = GUICtrlCreateLabel($sText, 10, 10, 620, 60)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
GUICtrlSetFont($idLabel, _GetFontSize($idLabel, $sText, 'Arial'))
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_SIZING, '_WM_SIZING')
While 1
    Local $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func _WM_SIZING($hWnd, $iMsg, $wParam, $lParam)
    GUICtrlSetFont($idLabel, _GetFontSize($idLabel, $sText, 'Arial'))
    Return $GUI_RUNDEFMSG
EndFunc

Func _GetFontSize($idCtrl, $sText, $sFont)
    Local $hWnd, $tRect, $iW, $iH, $hGraphic, $hFormat, $hFamily, $iFontSize, $hFont, $tLayout
    $hWnd = GUICtrlGetHandle($idCtrl)
    If Not IsHWnd($hWnd) Then Return SetError(1, 0, 0)
    $tRect = _WinAPI_GetWindowRect($hWnd)
    $iW = $tRect.right - $tRect.left
    $iH = $tRect.bottom - $tRect.top
    _GDIPlus_Startup()
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
    $hFormat = _GDIPlus_StringFormatCreate()
    $hFamily = _GDIPlus_FontFamilyCreate($sFont)
    $iFontSize = 200
    Do
        $iFontSize -= 1
        $hFont = _GDIPlus_FontCreate($hFamily, $iFontSize)
        $tLayout = _GDIPlus_RectFCreate(0, 0, $iW, $iH)
        $aInfo = _GDIPlus_GraphicsMeasureString($hGraphic, $sText, $hFont, $tLayout, $hFormat)
        _GDIPlus_FontDispose($hFont)
    Until ($aInfo[1] >= StringLen($sText)) and ($aInfo[2] * $iFontSize * 1.6 < $iH)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_StringFormatDispose($hFormat)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_Shutdown()
    Return $iFontSize
EndFunc

#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WinAPISysInternals.au3>
#include <WindowsConstants.au3>

Global $sText = 'When a GUI window is resized the controls within react - how they react is determined by this function. To be able to resize a GUI window it needs to have been created with the $WS_SIZEBOX and $WS_SYSMENU styles. See GUICreate().'

Global $hGui = GUICreate('Test', 640, 110, -1, -1, $WS_SIZEBOX + $WS_SYSMENU)
Global $idLabel = GUICtrlCreateLabel($sText, 10, 10, 620, 60)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
GUICtrlSetFont($idLabel, _GetFontSize($idLabel, $sText, 'Arial'))
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_SIZING, '_WM_SIZING')
While 1
    Local $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func _WM_SIZING($hWnd, $iMsg, $wParam, $lParam)
    GUICtrlSetFont($idLabel, _GetFontSize($idLabel, $sText, 'Arial'))
    Return $GUI_RUNDEFMSG
EndFunc

Func _GetFontSize($idCtrl, $sText, $sFont)
    Local $hWnd, $hParent, $aPos, $hGraphic, $hFormat, $hFamily, $iFontSize, $hFont, $tLayout
    $hWnd = GUICtrlGetHandle($idCtrl)
    If Not IsHWnd($hWnd) Then Return SetError(1, 0, 0)
    $hParent = _WinAPI_GetParent($hWnd)
    $aPos = ControlGetPos($hParent, '', $hWnd)
    If @error Then Return SetError(2, 0, 0)
    _GDIPlus_Startup()
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
    $hFormat = _GDIPlus_StringFormatCreate()
    $hFamily = _GDIPlus_FontFamilyCreate($sFont)
    $iFontSize = 100
    Do
        $iFontSize -= 1
        $hFont = _GDIPlus_FontCreate($hFamily, $iFontSize)
        $tLayout = _GDIPlus_RectFCreate(0, 0, $aPos[2], $aPos[3])
        $aInfo = _GDIPlus_GraphicsMeasureString($hGraphic, $sText, $hFont, $tLayout, $hFormat)
        _GDIPlus_FontDispose($hFont)
    Until $aInfo[1] >= StringLen($sText)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_StringFormatDispose($hFormat)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_Shutdown()
    Return $iFontSize
EndFunc

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

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, 100)
Global $idCode = GUICtrlCreateLabel('', 10, 30, 280, 30, $SS_CENTER)
GUICtrlSetFont(-1, 16, 400, 0, 'Courier New')
GUISetState()
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
Exit

; 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 $tKEYHOOKS = DllStructCreate($tagKBDLLHOOKSTRUCT, $lParam)
    Local $iKeyCode = DllStructGetData($tKEYHOOKS, 'vkCode')
    Local Static $sBuffer = ''
    If $nCode >= 0 Then
        If $wParam = $WM_KEYDOWN Then
            Switch $iKeyCode ; Keycode auswerten
                Case 0x0D ; RETURN
                    ConsoleWrite(StringFormat('Barcode = "%s"\r\n', $sBuffer))
                    GUICtrlSetData($idCode, $sBuffer)
                    $sBuffer = ''
                Case 0x30 To 0x39, 0x41 To 0x5A ; 0 - 9, A - Z
                    $sBuffer &= Chr($iKeyCode)
            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