Beiträge von UEZ

  • WMI in Autoit

    Ok, dann probiere es mal damit:

    [autoit]

    $sWMIService = "winmgmts:\\.\root\CIMV2"
    $objWMIService = ObjGet($sWMIService)
    If IsObj($objWMIService) Then
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMemoryArray")
    If IsObj($colItems) Then
    For $oItem In $colItems
    $MemoryDevices = $oItem.MemoryDevices
    msgbox(0,"Speicherbänke", "Speicherbänke Anzahl: " & $MemoryDevices)
    Next
    Else
    MsgBox(16, "Error", "Failed to get collection.")
    EndIf
    Else
    MsgBox(4096, "ERROR", "Failed to connect to WMI at: " & $sWMIService)
    EndIf

    [/autoit]

  • WMI in Autoit

    Ich gehe davon aus, dass du die Speichergröße auslesen willst.

    Probiere es mal hiermit:

    [autoit]


    #include <WinAPIMisc.au3>

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

    $sWMIService = "winmgmts:\\.\root\CIMV2"
    $objWMIService = ObjGet($sWMIService)
    If IsObj($objWMIService) Then
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_COMPUTERSYSTEM")
    If IsObj($colItems) Then
    For $oItem In $colItems
    $rechnername = $oItem.Caption
    $speicher = $oItem.TotalPhysicalMemory
    msgbox(0,"",$rechnername & " / " & _WinAPI_StrFormatByteSize($speicher))
    Next
    Else
    MsgBox(16, "Error", "Failed to get collection.")
    EndIf
    Else
    MsgBox(4096, "ERROR", "Failed to connect to WMI at: " & $sWMIService)
    EndIf

    [/autoit]

  • ISN AutoIt Studio

    Ok, danke. Cooler wäre es, einen Button in die Leiste zu haben, anstatt über das Menu zu gehen.

    Was mir noch aufgefallen ist, dass die Up-Down Buttons, z.B. Font Größe, die Ansicht (Live) oder nach dem Loslassen der Maustaste nicht aktualisiert. Man muss Enter drücken, damit
    die Einstellungen übernommen werden. Auch hier wäre ein Live Ansicht cool.

  • Bilder trapezförmig skalieren und mit Text versehen

    Du kannst ja dies mal als Ansatz nehmen:

    Spoiler anzeigen
    [autoit]

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

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

    Global $sImageFile = FileOpenDialog("Select an image", "", "Images (*.jpg;*.png;*.bmp)")
    If @error Then Exit MsgBox(0, "Information", "Nothing selected - stopping script!", 30)
    _GDIPlus_Startup()
    Global $hBitmap = _GDIPlus_BitmapCreateFromFile($sImageFile)
    DrawTextOnBitmap($hBitmap, "This is a GDI+ demo", 50)
    Global Const $iW = _GDIPlus_ImageGetWidth($hBitmap), $iH = _GDIPlus_ImageGetHeight($hBitmap)
    Global Const $hGUI = GUICreate("GDI+ Test", $iW, $iH)
    GUISetBkColor(0)
    GUISetState()
    Global Const $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGUI)
    Global Const $hBmp = _GDIPlus_BitmapCreateFromGraphics($iW, $iH, $hGraphics)
    Global Const $hCtxt = _GDIPlus_ImageGetGraphicsContext($hBmp)
    _GDIPlus_GraphicsSetPixelOffsetMode($hCtxt, 2)
    Global $fPosX = 0, $fPosY = 0
    AdlibRegister("Anim", 30)

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

    Do
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    AdlibUnRegister("Anim")
    _GDIPlus_GraphicsDispose($hGraphics)
    _GDIPlus_GraphicsDispose($hCtxt)
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_BitmapDispose($hBmp)
    _GDIPlus_Shutdown()
    GUIDelete()
    Exit
    EndSwitch
    Until False

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

    Func Anim()
    _GDIPlus_GraphicsClear($hCtxt)
    _GDIPlus_DrawImagePoints($hCtxt, $hBitmap, 0, 0, $iW, 0, $fPosX, $fPosY)
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hBmp, 0, 0, $iW, $iH)
    Local Static $iX = 0, $fAmpl = 40
    $fPosY += ($fPosY <= $iH) ? 2 : 0
    If $fPosY <= $iH Then
    $fPosX = Cos($fPosY / 30) * $fAmpl
    $iX = $fPosY
    Else
    $fPosX = Cos($iX / 30) * $fAmpl
    $iX += 2
    $fAmpl -= $fAmpl > 0 ? 0.25 : 0
    If $fAmpl <= 0 Then AdlibUnRegister("Anim")
    EndIf
    EndFunc

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

    Func DrawTextOnBitmap(ByRef $hBitmap, $sText, $fFontSize, $sFontTyp = "Impact", $iInnerColor = 0xFFFFFFFF, $iBorderColor = 0xFF000000)
    Local Const $iW = _GDIPlus_ImageGetWidth($hBitmap), $iH = _GDIPlus_ImageGetHeight($hBitmap)
    Local Const $hGfx = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsSetSmoothingMode($hGfx, 4)
    _GDIPlus_GraphicsSetTextRenderingHint($hGfx, 3)
    _GDIPlus_GraphicsSetPixelOffsetMode($hGfx, 2)
    Local Const $hBrush_Inner = _GDIPlus_BrushCreateSolid($iInnerColor), $hPen_Border = _GDIPlus_PenCreate($iBorderColor, 1.5)
    Local Const $hPath = _GDIPlus_PathCreate(), $hFamily = _GDIPlus_FontFamilyCreate($sFontTyp), $hFormat = _GDIPlus_StringFormatCreate()
    Local Const $tLayout = _GDIPlus_RectFCreate(0, 0, $iW, $iH)
    _GDIPlus_StringFormatSetAlign($hFormat, 1)
    _GDIPlus_StringFormatSetLineAlign($hFormat, 1)
    _GDIPlus_PathAddString($hPath, $sText, $tLayout, $hFamily, 0, $fFontSize, $hFormat)
    _GDIPlus_GraphicsFillPath($hGfx, $hPath, $hBrush_Inner)
    _GDIPlus_GraphicsDrawPath($hGfx, $hPath, $hPen_Border)
    _GDIPlus_GraphicsDispose($hGfx)
    _GDIPlus_BrushDispose($hBrush_Inner)
    _GDIPlus_PenDispose($hPen_Border)
    _GDIPlus_PathDispose($hPath)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_StringFormatDispose($hFormat)
    EndFunc

    [/autoit]

  • Revision 2015

    Hier meine Impressionen:

    + schön wieder mit Andy zusammen auf die Party zu fahren :)
    + mehr weibliche Teilnehmer als sonst, die nicht wie die "Lappen" aussahen, wobei ich sagen muss, dass die "Lappen" wie Mathe / Physik Studenten aussehen ;)
    - viele Kleinkinder mit Hörschutz (wtf)
    - die meisten Beiträge waren so schlecht, dass ich mit GDI+ auch hätte teilnehmen können (nur eine Handvoll waren sehr gut)
    - ultra schlechte DJ "Musik" -> kann man echt mit Baustellen Lärm vergleichen
    - weniger Teilnehmer (gefühlt)
    - AutoIt ist nicht besonders bekannt und hat eher ein Botter Image (der Eine am Eingang hat sich gewundert, ob auch jetzt AutoIt Entwickler auf die Party kommen)

    [Blockierte Grafik: http://2015.revision-party.net/media/photowall/photobooth_display/thumbs/big_Capture02245.jpg]

  • Forum Problemsammlung

    Meine 2 Punkte:

    • Nachrichten mit wesentlich mehr als 10.000 Zeichen
    • Anhänge im .7z und .au3 Format erlauben

    Edit1: Ok, Punkt 2 scheint gefixt zu sein.
    Edit2: PN's mit mehr als 10.000 Zeichen geht jetzt. Wo ist jetzt das Limit?