Beiträge von UEZ

DU v1.61 - Directory disk usage reporter
Copyright (C) 2005-2016 Mark Russinovich
Sysinternals - www.sysinternals.com

usage: du [-c[t]] [-l <levels> | -n | -v] [-u] [-q] <directory>
   -c     Print output as CSV. Use -ct for tab delimiting.
          Use -nobanner to suppress banner.
   -l     Specify subdirectory depth of information (default is one level).
   -n     Do not recurse.
   -q     Quiet.
   -nobanner
          Do not display the startup banner and copyright message.
   -u     Count each instance of a hardlinked file.
   -v     Show size (in KB) of all subdirectories.

CSV output is formatted as:
Path,CurrentFileCount,CurrentFileSize,FileCount,DirectoryCount,DirectorySize,DirectorySizeOnDisk

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.5
 Author:         alpines

 Script Function:
    AutoIt implementation of the "game" Rule 110.
    https://en.wikipedia.org/wiki/Rule_110

#ce ----------------------------------------------------------------------------

#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <StringConstants.au3>

Global Const $I_GUI_WIDTH = 1024
Global Const $I_GUI_HEIGHT = 768

Opt("GUIOnEventMode", 1)

#cs
    Interessante Rules

    Rule 126 = Sierpinski Dreieck
    Rule 122 = Schachbrett
    Rule 118 = Schattierte Pyramide

    Rule 137 = Invertiertes Rule 110
#ce

Global Const $I_RULE = 110; max. 8 bit => 255

Global $oRule = ObjCreate("Scripting.Dictionary")

For $iBitA = 0 To 1
    For $iBitB = 0 To 1
        For $iBitC = 0 To 1
            Local $iCurrentBit = BitShift(1, -(BitShift($iBitA, -2) + BitShift($iBitB, -1) + BitShift($iBitC, -0)))
            $oRule.Add($iBitA & $iBitB & $iBitC, BitAND($I_RULE, $iCurrentBit) ? 1 : 0)
        Next
    Next
Next

Global $hGUI = GUICreate("Rule " & $I_RULE, $I_GUI_WIDTH, $I_GUI_HEIGHT)
GUISetOnEvent($GUI_EVENT_CLOSE, ExitApp)
GUISetState(@SW_SHOW, $hGUI)

Global $aCells[$I_GUI_HEIGHT][$I_GUI_WIDTH]
For $i = 0 To UBound($aCells) - 1
    For $j = 0 To UBound($aCells, 2) - 1
        $aCells[$i][$j] = 0
    Next
Next

;Ausgangssituation! Für Rule 110 die letzte Spalte in der ersten Zeile 1 setzen.
;Es ist hier in die Mitte gesetzt um es nicht ständig umsetzen zu müssen.
;Interessante Muster kommen auch raus wenn man mehrere Startpunkte 1 setzt ;)
$aCells[0][UBound($aCells, 2) / 2] = 1

_GDIPlus_Startup()
Global $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGUI)
Global $tPixelData = DllStructCreate("uint scan0[" & $I_GUI_WIDTH * $I_GUI_HEIGHT  & "];")
Global $hBitmap = _GDIPlus_BitmapCreateFromScan0($I_GUI_WIDTH, $I_GUI_HEIGHT, $GDIP_PXF32ARGB, $I_GUI_WIDTH * 4, $tPixelData)

Global $iUB1 = UBound($aCells) - 1, $iUB2 = UBound($aCells, 2) - 1, $t1, $tmrRow = TimerInit()

For $iRow = 1 To $iUB1
    $t1 = $iRow - 1
    $iRO = $t1
    $iRowOffset = $iRO * $I_GUI_WIDTH
    For $iColumn = 0 To $iUB2
        $aCells[$iRow][$iColumn] = $oRule.Item((($iColumn = 0) ? 0 : $aCells[$t1][$iColumn - 1]) & _
                                                                     ($aCells[$t1][$iColumn]) & _
                                                                    (($iColumn = $iUB2) ? 0 : $aCells[$t1][$iColumn + 1]))
        $tPixelData.Scan0(($iRowOffset + $iColumn)) = $aCells[$iRow][$iColumn] ? 0xFF000000 : 0xFFFFFFFF
    Next
    DllCall($__g_hGDIPDll,  "int", "GdipDrawImageRectRect", "handle", $hGraphics, "handle", $hBitmap, _
                                        "float", 0, "float", $iRO, "float", $I_GUI_WIDTH, "float", 1, _
                                        "float", 0, "float", $iRO, "float", $I_GUI_WIDTH, "float", 1, _
                                        "int", 2, "handle", 0, "ptr", 0, "ptr", 0)
Next

ConsoleWrite(TimerDiff($tmrRow) & @CRLF)

While Sleep(10)
WEnd

Func ExitApp()
    _GDIPlus_GraphicsDispose($hGraphics)
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_Shutdown()
    Exit
EndFunc

;Coded by UEZ build 2020-01-07
;Original idea and graphic concept by Fernando Cohen -> https://codepen.io/designfenix/pen/pYyOJE
#pragma compile(Icon, "c:\Program Files (x86)\AutoIt3\Icons\au3.ico")
#AutoIt3Wrapper_Run_Au3Stripper=y
#Au3Stripper_Parameters=/so /pe /rm
#AutoIt3Wrapper_Run_After=del /f /q "%scriptdir%\%scriptfile%_stripped.au3"

#include <GDIPlus.au3>
#include <GuiConstantsEx.au3>
#include <InetConstants.au3>
#include <WindowsConstants.au3>


_GDIPlus_Startup()
Global $hGUI, $iFPS = 0, $iShowFPS = 0, $bExit
Global Const $iW = 1200, $iH = 700, $iWh = $iW / 2, $iHh = $iH / 2, $sTitle = "GDI+ Parallax Effect v0.55"
Global Const $fPi = ACos(-1), $fRad = $fPi / 180, $fDeg = 180 / $fPi
AutoItSetOption("GUIOnEventMode", 1)

ParallaxFX()

AutoItSetOption("GUIOnEventMode", 0)
_GDIPlus_Shutdown()


Func ParallaxFX()
    ConsoleWrite("Downloading images if images don't exist locally...Please wait!" & @CRLF)
    Local Const $sImg1 = @ScriptDir & "\mountain.png", $sImg2 = @ScriptDir & "\island.png", $sImg3 = @ScriptDir & "\bird.png", $sImg4 = @ScriptDir & "\boat.png"
    If Not FileExists($sImg1) Then InetGet("http://www.design-fenix.com.ar/parallax/mountain.png", $sImg1, BitOR($INET_FORCERELOAD, $INET_BINARYTRANSFER))
    If Not FileExists($sImg2) Then InetGet("http://www.design-fenix.com.ar/parallax/island.png", $sImg2, BitOR($INET_FORCERELOAD, $INET_BINARYTRANSFER))
    If Not FileExists($sImg3) Then InetGet("http://www.design-fenix.com.ar/parallax/bird.png", $sImg3, BitOR($INET_FORCERELOAD, $INET_BINARYTRANSFER))
    If Not FileExists($sImg4) Then InetGet("http://www.design-fenix.com.ar/parallax/boat.png", $sImg4, BitOR($INET_FORCERELOAD, $INET_BINARYTRANSFER))

    $bExit = False
    $hGUI = GUICreate($sTitle, $iW, $iH) ;, 0, 0, $WS_POPUP)
    Local Const $iLabel = GUICtrlCreateLabel("", 0, 0, $iW, $iH)
    GUISetState(@SW_SHOW, $hGUI)
    GUISetCursor(9, 1)

    ;create canvas elements
    Local Const $hDC = _WinAPI_GetDC($hGUI)
    Local Const $hHBitmap = _WinAPI_CreateCompatibleBitmap($hDC, $iW, $iH)
    Local Const $hDC_backbuffer = _WinAPI_CreateCompatibleDC($hDC)
    Local Const $DC_obj = _WinAPI_SelectObject($hDC_backbuffer, $hHBitmap)
    Local Const $hCanvas = _GDIPlus_GraphicsCreateFromHDC($hDC_backbuffer)
    _GDIPlus_GraphicsSetSmoothingMode($hCanvas, $GDIP_SMOOTHINGMODE_HIGHQUALITY)
    _GDIPlus_GraphicsSetPixelOffsetMode($hCanvas, $GDIP_PIXELOFFSETMODE_HIGHQUALITY)
    _GDIPlus_GraphicsSetTextRenderingHint($hCanvas, $GDIP_TEXTRENDERINGHINT_ANTIALIASGRIDFIT)

    Local Const $hBrush_Clr = _GDIPlus_BrushCreateSolid(0xFFF4F9FA), _
                $hBrush_FPS = _GDIPlus_BrushCreateSolid(0xF0808080), _
                $hFormat_FPS = _GDIPlus_StringFormatCreate(), _
                $hFamily_FPS = _GDIPlus_FontFamilyCreate("Arial"), _
                $hFont_FPS = _GDIPlus_FontCreate($hFamily_FPS, 8), _
                $tLayout_FPS = _GDIPlus_RectFCreate(0, 0, 60, 16)

    $iFPS = 0

    Local $tObj = DllStructCreate("float x1;float y1;float x2;float y2;float x3;float y3;float x4;float y4;" & _
                                  "float dx1;float dy1;float dx2;float dy2;float dx3;float dy3;float dx4;float dy4;" & _
                                  "ptr bmp1;ptr bmp2;ptr bmp3;ptr bmp4")

    $tObj.bmp1 = _GDIPlus_ImageLoadFromFile($sImg1)
    $tObj.bmp2 = _GDIPlus_ImageLoadFromFile($sImg2)
    $tObj.bmp3 = _GDIPlus_ImageLoadFromFile($sImg3)
    $tObj.bmp4 = _GDIPlus_ImageLoadFromFile($sImg4)

    $tObj.x1 = ($iW - _GDIPlus_ImageGetWidth($tObj.bmp1)) / 2
    $tObj.y1 = 60
    $tObj.x2 = ($iW - _GDIPlus_ImageGetWidth($tObj.bmp2)) / 2
    $tObj.y2 = 250
    $tObj.x3 = 210
    $tObj.y3 = 250
    $tObj.x4 = $iW - _GDIPlus_ImageGetWidth($tObj.bmp4) - 300
    $tObj.y4 = 430

    Local $hFamily = _GDIPlus_FontFamilyCreate("Impact"), $hFont = _GDIPlus_FontCreate($hFamily, 120), $hFormat = _GDIPlus_StringFormatCreate(), _
          $tLayout = _GDIPlus_RectFCreate(), $hBrush = _GDIPlus_BrushCreateSolid(0xD8FFFFFF), _
          $hFamily_s = _GDIPlus_FontFamilyCreate("Palatino Linotype"), $hFont_s = _GDIPlus_FontCreate($hFamily_s, 24), _
          $tLayout_s = _GDIPlus_RectFCreate($iW + 1, $iH - 44, $iW * 2, 50), $hBrush_s = _GDIPlus_BrushCreateSolid(0x2884898A)

    Local $aDim = _GDIPlus_GraphicsMeasureString($hCanvas, "Parallax", $hFont, $tLayout, $hFormat)
    Local $sScrollerTxt = "Parallax Effect ported to AutoIt by UEZ. Original idea and graphic concept by Fernando Cohen."
    Local $aDim2 = _GDIPlus_GraphicsMeasureString($hCanvas, $sScrollerTxt, $hFont_s, $tLayout_s, $hFormat)

    $tLayout.x = ($iW - $aDim[0].width) / 2
    $tLayout.y = 190
    Local $aMPos, $aDir[4][2] = [[16, 128], [32, 64], [64, 32], [128, 16]], $iDir = 0, _
          $iPosX = GUIGetCursorInfo($hGUI)[0], $iPosY = GUIGetCursorInfo($hGUI)[1]

    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit_About")
    AdlibRegister("CalcFPS", 1000)

    Local $fVx, $fVy, $fAcc = 0.925, $fVmax = 32

    Do
        DllCall($__g_hGDIPDll, "int", "GdipFillRectangle", "handle", $hCanvas, "handle", $hBrush_Clr, "float", 0, "float", 0, _
                               "float", $iW, "float", $iH) ;erase canvas background

        $aMPos = GUIGetCursorInfo($hGUI)
        If ($iPosX <> $aMPos[0] Or $iPosY <> $aMPos[1]) And $aMPos[4] = $iLabel Then
            $fVx = $aMPos[0] - $iPosX
            $fVy = $aMPos[1] - $iPosY
            If $fVx < 0 Then
                $fVx = $fVx < -$fVmax ? -$fVmax : $fVx
            Else
                $fVx = $fVx > $fVmax ? $fVmax : $fVx
            EndIf
            If $fVy < 0 Then
                $fVy = $fVy < -$fVmax ? -$fVmax : $fVy
            Else
                $fVy = $fVy > $fVmax ? $fVmax : $fVy
            EndIf
            $tObj.dx1 = -$fVx / $aDir[0][$iDir]
            $tObj.dy1 = -$fVy / $aDir[0][$iDir]
            $tObj.dx2 = -$fVx / $aDir[1][$iDir]
            $tObj.dy2 = -$fVy / $aDir[1][$iDir]
            $tObj.dx3 = -$fVx / $aDir[2][$iDir]
            $tObj.dy3 = -$fVy / $aDir[2][$iDir]
            $tObj.dx4 = -$fVx / $aDir[3][$iDir]
            $tObj.dy4 = -$fVy / $aDir[3][$iDir]

            $tObj.x1 += $tObj.dx1
            $tObj.y1 += $tObj.dy1
            $tObj.x2 += $tObj.dx2
            $tObj.y2 += $tObj.dy2
            $tObj.x3 += $tObj.dx3
            $tObj.y3 += $tObj.dy3
            $tObj.x4 += $tObj.dx4
            $tObj.y4 += $tObj.dy4

            $iPosX = $aMPos[0]
            $iPosY = $aMPos[1]
        Else
            $tObj.dx1 *= $fAcc
            $tObj.dy1 *= $fAcc
            $tObj.dx2 *= $fAcc
            $tObj.dy2 *= $fAcc
            $tObj.dx3 *= $fAcc
            $tObj.dy3 *= $fAcc
            $tObj.dx4 *= $fAcc
            $tObj.dy4 *= $fAcc
            $tObj.x1 += $tObj.dx1
            $tObj.y1 += $tObj.dy1
            $tObj.x2 += $tObj.dx2
            $tObj.y2 += $tObj.dy2
            $tObj.x3 += $tObj.dx3
            $tObj.y3 += $tObj.dy3
            $tObj.x4 += $tObj.dx4
            $tObj.y4 += $tObj.dy4
        EndIf

        _GDIPlus_GraphicsDrawImage($hCanvas, $tObj.bmp1, $tObj.x1, $tObj.y1)
        _GDIPlus_GraphicsDrawStringEx($hCanvas, "Parallax", $hFont, $tLayout, $hFormat, $hBrush)
        _GDIPlus_GraphicsDrawImage($hCanvas, $tObj.bmp2, $tObj.x2, $tObj.y2)
        _GDIPlus_GraphicsDrawImage($hCanvas, $tObj.bmp3, $tObj.x3, $tObj.y3)
        _GDIPlus_GraphicsDrawImage($hCanvas, $tObj.bmp4, $tObj.x4, $tObj.y4)

        _GDIPlus_GraphicsDrawStringEx($hCanvas, $sScrollerTxt, $hFont_s, $tLayout_s, $hFormat, $hBrush_s)
        $tLayout_s.x -= 1.0
        If $tLayout_s.x < -$aDim2[0].width Then $tLayout_s.x = $iW + 10

        _GDIPlus_GraphicsDrawStringEx($hCanvas, "FPS: " & $iShowFPS, $hFont_FPS, $tLayout_FPS, $hFormat_FPS, $hBrush_FPS) ;draw background message text
        _WinAPI_BitBlt($hDC, 0, 0, $iW, $iH, $hDC_backbuffer, 0, 0, $SRCCOPY) ;blit drawn bitmap to GUI

        $iFPS += 1
        If $bExit Then ExitLoop
    Until Not Sleep(10)

    AdlibUnRegister("CalcFPS")
    ;release resources
    _GDIPlus_ImageDispose($tObj.bmp1)
    _GDIPlus_ImageDispose($tObj.bmp2)
    _GDIPlus_ImageDispose($tObj.bmp3)
    _GDIPlus_ImageDispose($tObj.bmp4)
    _GDIPlus_StringFormatDispose($hFormat)
    _GDIPlus_BrushDispose($hBrush)
    _GDIPlus_FontDispose($hFont)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_BrushDispose($hBrush_s)
    _GDIPlus_FontDispose($hFont_s)
    _GDIPlus_FontFamilyDispose($hFamily_s)

    _GDIPlus_FontFamilyDispose($hFamily_FPS)
    _GDIPlus_StringFormatDispose($hFormat_FPS)
    _GDIPlus_BrushDispose($hBrush_Clr)
    _GDIPlus_BrushDispose($hBrush_FPS)
    _GDIPlus_GraphicsDispose($hCanvas)
    _WinAPI_SelectObject($hDC_backbuffer, $DC_obj)
    _WinAPI_DeleteDC($hDC_backbuffer)
    _WinAPI_DeleteObject($hHBitmap)
    _WinAPI_ReleaseDC($hGUI, $hDC)
    GUIDelete($hGUI)
EndFunc   ;==>ParallaxFX


Func _Exit_About()
    $bExit = True
EndFunc   ;==>_Exit_About

Func CalcFPS() ;display FPS
    $iShowFPS = $iFPS
    $iFPS = 0
EndFunc   ;==>CalcFPS

#include <Array.au3>

$sInput = "das ist ein Hund\das ist eine Banane\das ist eine Katze\das ist ein Kakadu"
$sInput = StringReplace($sInput, "\", " \ ")
$aSplit = StringSplit($sInput, " ", 3)
$aUnique = _ArrayUnique($aSplit)

For $i = 1 To $aUnique[0]
    If $aSplit[$i] = "\" Then ContinueLoop
    StringReplace($sInput, $aUnique[$i], $aUnique[$i])
    $aCount = StringRegExp($sInput, "\b" & $aUnique[$i] & "\b", 3)
    $iCount = UBound($aCount)
    If $iCount > 1 Then
            For $j = 0 To UBound($aSplit) - 1
                If $iCount > 1 Then
                    If $aUnique[$i] = $aSplit[$j] Then
                        $aSplit[$j] = ""
                        $iCount -= 1
                    EndIf
                EndIf
            Next
    EndIf
Next

$sResult = ""
For $i = 0 To UBound($aSplit) - 1
    If $aSplit[$i] <> "" Then
        $sResult &= $aSplit[$i]
        If $aSplit[$i] <> "\" Then
            If $i < UBound($aSplit) - 1 Then
                If $aSplit[$i + 1] <> "\" And $aSplit[$i + 1] <> " " Then $sResult &= " "
            EndIf
        EndIf
    EndIf
Next
ConsoleWrite($sResult & @CRLF)