Beiträge von UEZ

  • Progressbar über die Dauer einer aktiven CMD-Session ausgeben

    Probiere es mal damit:

  • Progressbar über die Dauer einer aktiven CMD-Session ausgeben

    Zitat von bazii

    Hab' vielen Dank. Das klappt hervorragend. Könntest Du mir dennoch ein Beispiel mit einer Messagebox geben? Wäre klasse.

    edit: Und so ein Balken, der sich die ganze Zeit wie eine Gif-Animation bewegt (siehe Post 2 von UEZ) wäre als Beispiel für micch natürlich auch ganz toll.

    Für alle aber zunächst mal: Vielen Dank für die Hilfe. Vor allem an Zeitriss, der mir heute Abend SUPER weitergeholfen hat. :thumbup:
    Es ist nicht einfach, sich in die Funktionen einzuarbeiten. Vielleicht stelle ich mich auch doof an und kapier es einfach nicht. Ich habe heute in 5 Stunden nicht das zusammengebracht, was mir Zeitriss eben gepostet hat. Mit einem Beispiel ist das einfacher zu lernen. Für mich jedenfalls.

    Welche Animation hättest du gerne? Die mit den Prozentangaben macht deinem Fall keinen Sinn.

  • Comspec / Remote Service auslesen

    Scheint ein Authentifizierungsproblem zu sein, denn ohne User und Passwort funzt es.

    Du kannst auch alternativ WMI benutzen, um die deaktivierten Dienste zu bekommen:

  • Bilder trapezförmig skalieren und mit Text versehen

    Dies sollte deine 2 Fragen beantworten:


    1. $fDX und $fDY
    2. $fFontSize

  • CoSiNUs brOTHerS inTRO build 2015-04-20

    Leider steht nicht mehr viel Rechenzeit zur Verfügung, um noch weitere Effekte einzubauen.

    Der Aufruf der Anim Funktion nimmt ca. 25 ms in Anspruch. Das sind ca. 40 FPS und momentan läuft das Intro mit ca. 30 FPS und ca. 90% Auslastung auf einem Core (gemessen auf meinem Schlepptop Intel i5-4300U @ 2,6 GHz). Könnte man die Last auf die Cores verteilen (Multithreading), so könnte man auch weitere Effekte einbauen.

    Leider ist dem nicht so.

    Scrollbars hatte ich vor einiger Zeit implementiert:

    [autoit]

    ;coded by UEZ 2012 build 2012-08-09
    #AutoIt3Wrapper_Compile_Both=n
    #AutoIt3Wrapper_UseX64=y
    #AutoIt3Wrapper_Run_Au3Stripper=y
    #Au3Stripper_Parameters=/so
    #AutoIt3Wrapper_Run_After=del /f /q "%scriptdir%\%scriptfile%_stripped.au3"
    #AutoIt3Wrapper_UseUpx=y
    #AutoIt3Wrapper_UPX_Parameters=--best --lzma

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

    #include <Array.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GDIPlus.au3>
    Opt('GUIOnEventMode', 1)
    Opt("MustDeclareVars", 1)

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

    Global Const $hGDI32 = DllOpen("gdi32.dll")
    _GDIPlus_Startup()
    Global Const $iW = 640, $iH = 480
    Global $sGUIText = "Rotating Raster Bars (C64 Style) by UEZ 2012 / FPS: "
    Global Const $hGUI = GUICreate($sGUIText, 640, 480)
    GUISetState()

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

    #region init GDI+
    Global Const $hBitmap = _WinAPI_CreateDIB($iW, $iH)
    Global Const $hDC = _WinAPI_GetDC($hGUI)
    Global Const $hDC_backbuffer = _WinAPI_CreateCompatibleDC($hDC)
    Global Const $DC_obj = _WinAPI_SelectObject($hDC_backbuffer, $hBitmap)
    Global Const $hGraphic = _GDIPlus_GraphicsCreateFromHDC($hDC_backbuffer)
    Global Const $hBrush = _GDIPlus_BrushCreateSolid(0x40000000)
    _GDIPlus_GraphicsSetSmoothingMode($hGraphic, 2)
    #endregion
    Global Const $fPI = ACos(-1)
    Global Const $f2PI = 2 * ACos(-1)
    Global Const $fRad = ACos(-1) / 180
    Global Const $fYPos = $iH / 2
    Global Const $fSpeed = 0.3
    Global Const $fRadius = 150
    Global Const $fZSize = 20
    Global Const $iSize = 100, $iS2 = $iSize / 2
    Global $aBitmaps[3][4], $e, $r, $j, $k, $l , $z = 0, $iFPS = 0
    Global $iUb = UBound($aBitmaps) - 1

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

    For $e = 0 To $iUb
    $r = Random(3, 12, 1)
    $aBitmaps[$e][0] = CreateBar($r, $iW, $iSize, "0xFF" & Hex(Random(0x0, 0xFFFFFF, 1), 6))
    $aBitmaps[$e][1] = $fYPos
    $aBitmaps[$e][2] = Sin($e * $fRad) * 360 / ($iUb + 1)
    Next

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

    GUISetOnEvent($GUI_EVENT_CLOSE , "_Exit")
    AdlibRegister("FPS", 1000)

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

    While Sleep(10)
    _GDIPlus_GraphicsFillRect($hGraphic, 0, 0, $iW, $iH)
    For $j = 0 To $iUb
    $k = Sin($fRad * $z + $aBitmaps[$j][2]) * $fRadius
    $aBitmaps[$j][3] = Cos(270 + $fRad * $z + $aBitmaps[$j][2])
    $aBitmaps[$j][1] = $fYPos + $k - $iS2
    _GDIPlus_GraphicsDrawImageRect($hGraphic, $aBitmaps[$j][0], 0, $aBitmaps[$j][1], $iW, $iSize + $aBitmaps[$j][3] * $fZSize)
    $z += $fSpeed
    Next
    _ArraySort($aBitmaps, 0, 0, 0, 3)
    DllCall($hGDI32, "bool", "BitBlt", "handle", $hDC, "int", 0, "int", 0, "int", $iW, "int", $iH, "handle", $hDC_backbuffer, "int", 0, "int", 0, "dword", $SRCCOPY) ;_WinAPI_BitBlt()
    $iFPS += 1
    WEnd

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

    Func CreateBar($iStep, $iW, $iH, $iColor, $iBoost = 3)
    Local Const $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH)
    Local Const $hCtx = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    Local Const $hBrush = _GDIPlus_BrushCreateSolid(0x00000000)
    Local $i, $y = 0
    For $x = 0 To $iH / 2 Step $iStep
    _GDIPlus_BrushSetSolidColor($hBrush, CalcColor($iColor, $iBoost * $x))
    _GDIPlus_GraphicsFillRect($hCtx, 0, $y, $iW, $iStep, $hBrush)
    $y += $iStep
    Next
    For $x = $iH / 2 - $iStep To 0 Step -$iStep
    _GDIPlus_BrushSetSolidColor($hBrush, CalcColor($iColor, $iBoost * $x))
    _GDIPlus_GraphicsFillRect($hCtx, 0, $y, $iW, $iStep, $hBrush)
    $y += $iStep
    Next
    _GDIPlus_GraphicsDispose($hCtx)
    _GDIPlus_BrushDispose($hBrush)
    Return $hBitmap
    EndFunc

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

    Func CalcColor($iColor, $iStep)
    Local Const $iA = Hex(BitAND(0xFF, BitShift($iColor, 24)), 2)
    Local Const $iR = Hex(Min(BitAND(0xFF, BitShift($iColor, 16)) + Int($iStep), 0xFF), 2)
    Local Const $iG = Hex(Min(BitAND(0xFF, BitShift($iColor, 8)) + Int($iStep), 0xFF), 2)
    Local Const $iB = Hex(Min(BitAND(0xFF, $iColor) + Int($iStep), 0xFF), 2)
    Return "0x" & $iA & $iR & $iG & $iB
    EndFunc

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

    Func FPS()
    WinSetTitle("", "", $sGUIText & $iFPS)
    $iFPS = 0
    EndFunc

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

    Func Min($a, $b)
    If $a < $b Then Return $a
    Return $b
    EndFunc

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

    Func _Exit()
    AdlibUnRegister("FPS")
    DllClose($hGDI32)
    Local $c
    For $c = 0 To UBound($aBitmaps) - 1
    _GDIPlus_BitmapDispose($aBitmaps[$c][0])
    Next
    _GDIPlus_BrushDispose($hBrush)
    _GDIPlus_GraphicsDispose($hGraphic)
    _WinAPI_SelectObject($hDC, $DC_obj)
    _WinAPI_DeleteObject($hBitmap)
    _WinAPI_ReleaseDC($hGUI, $hDC)
    _GDIPlus_Shutdown()
    GUIDelete($hGUI)
    Exit
    EndFunc

    [/autoit]

  • CoSiNUs brOTHerS inTRO build 2015-04-20

    Yep, leider sind die Sterne über dem Bild, obwohl zuerst die Sterne gezeichnet werden und anschließend das Bild. Keine Ahnung, warum das so ist. ?(

    Ich habe den Hintergrund dunkler gemacht, damit die Sterne besser zur Geltung kommen -> diesmal wirklich letzes Update. :saint:

  • Große Icons im Button

    Probiere es mal damit:

    [autoit]

    #include <ButtonConstants.au3>
    #include <WinAPIShellEx.au3>
    #include <WinAPIGdi.au3>

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

    $hGUI = GUICreate("Test")
    $button01 = GUICtrlCreateButton('',5,5,80,80, $BS_BITMAP)

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

    $hIcon = _WinAPI_ShellExtractIcon(@SystemDir & '\shell32.dll', 22, 72, 72)
    $hBmp = _WinAPI_Create32BitHBITMAP($hIcon)

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

    _WinAPI_DeleteObject(_SendMessage(GUICtrlGetHandle($button01) , $BM_SETIMAGE, $IMAGE_BITMAP, $hBmp))
    GUISetState()

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

    Do
    Until GUIGetMsg() = -3

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

    _WinAPI_DeleteObject($hBmp)
    _WinAPI_DestroyIcon($hIcon)

    [/autoit]

  • CoSiNUs brOTHerS inTRO build 2015-04-20

    Zitat von Raupi

    Bei mir läuft dein Intro auch nicht richtig. Nur feststehendes Bild mit 2 Grauen Streifen.
    Autoit 3.3.12.0 Windows 7 Ultimate 64. Die Waving Imag.Exe läuft einwandfrei.

    Hmm, läuft die CoSiNUs brOTHerS inTRO.exe denn richtig? Ansonsten kann ich nicht sagen, was bei dir schief läuft.


    Zitat von Photon

    Hmmm, den stauch und dehn Effekt würde ich nicht unbedingt als Scroller einordnen.
    Der Text am Ende mit den Credits ist ein Scroller.
    Aber sonst nicht schlecht.
    UEZ mit der ersten AutoIt Demo auf der Revision 2016? :)

    Woher kommen eig diese schwarzen Artefakte?
    [Blockierte Grafik: http://fs2.directupload.net/images/150415/g2b2z26t.png]


    Raupi dein Fehler klingt ähnlich dem von Kevlar.

    Zu "Scroller": mir war nichts besseres eingefallen.

    DIe schwarzen Artefakte scheinen am Schwarz/Weiß Bild zu liegen. Anscheinend hat _WinAPI_StretchBlt damit ein kleines Problem.


    Den letzten Platz hätte ich bei der nächsten Revision sicher. ;)