Was macht die DLL Funktion SetLayeredWindowAttributes ?

pceumel

Hallo,

ich habe hier im Forum diesen Code gefunden(Mausverfolger oder Wie kann ich etwas "direkt" auf den Bildschirm malen) :

[autoit]

Func _WinAPI_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $dwFlages = 0x03, $isColorRef = False)
If $dwFlages = Default Or $dwFlages = "" Or $dwFlages < 0 Then $dwFlages = 0x03
If Not $isColorRef Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $dwFlages)
Select
Case @error
Return SetError(@error, 0, 0)
Case $Ret[0] = 0
Return SetError(4, _WinAPI_GetLastError(), 0)
Case Else
Return 1
EndSelect
EndFunc ;==>_WinAPI_SetLayeredWindowAttributes

[/autoit]

Was macht dieser Code?

Lg Pceumel

**eukalyptus**

Grob gesagt setzt du damit die Farbe, welche das Fenster durchsichtig macht.
Wenn du z.B. die Farbe 0xABCDEF setzt und dann damit ein Quadrat zeichnest, ist genau dieser Bereich dann durchsichtig.

(beim Mausverfolgerscript "lösche" ich die Quadrate eben mit dieser Farbe)

lgE

EDIT: als Beispiel:

[autoit]

#include <WinAPI.au3>
#include <WindowsConstants.au3>

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

$hGui = GUICreate("Test", 120, 120, -1, -1, -1, $WS_EX_LAYERED)
_WinAPI_SetLayeredWindowAttributes($hGui, 0xABCDEF, 255)
GUICtrlCreateLabel("Test", 10, 10, 100, 100)
GUICtrlSetBkColor(-1, 0xABCDEF)
GUISetState()

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

While GUIGetMsg() <> -3
Sleep(10)
WEnd

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

Func _WinAPI_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $dwFlages = 0x03, $isColorRef = False)
; Von progandy Thx^^
If $dwFlages = Default Or $dwFlages = "" Or $dwFlages < 0 Then $dwFlages = 0x03
If Not $isColorRef Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $dwFlages)
Select
Case @error
Return SetError(@error, 0, 0)
Case $Ret[0] = 0
Return SetError(4, _WinAPI_GetLastError(), 0)
Case Else
Return 1
EndSelect
EndFunc ;==>_WinAPI_SetLayeredWindowAttributes

[/autoit]

progandy

und noch was: bitte mich als Autor drinlassen (...)

**eukalyptus**

Sorry, hab die Function aus diesem Tread http://www.autoitscript.com/forum/index.php?showtopic=84055, und da steht nirgens wo ProgAndy...

naja, du wirst es doch hoffentlich überleben ?!?

progandy

Geht schon klar Wenn ich das sehe, schreib ich es halt hin. Das ist einfach schlechter Stil im Englischen Forum. Alles wird kopiert und dann alle Kommentare entfernt... Man muss immer ne extra Zeile hinmachen DO NOTE REMOVE AUTHOR! und alles in die Func reinschreiben und nicht drüber

[autoit]

; Author : ...
Func
EndFunc

[/autoit]

das verschwindet immer, das untere dagegen bleibt ...

[autoit]

Func
; Author: ...
; DO NOT REMOVE AUTHOR
EndFunc

[/autoit]

Greek

Super Funktion, da kann man ja jetzt sau geil Rummalen =D

Spoiler anzeigen

[autoit]

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

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

HotKeySet ( "{ESC}", "_ende" )

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

_GDIPlus_Startup()

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

$hGui = GUICreate("Rahmen", @DesktopWidth, @DesktopHeight, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
_WinAPI_SetLayeredWindowAttributes($hGui, 0xABCDEF, 255)
GUICtrlCreateLabel( "", 0, 0, @DesktopWidth, @DesktopHeight )
GUICtrlSetBkColor(-1, 0xABCDEF)
GUISetState()

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

$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hGui)
$Pinsel=_GDIPlus_PenCreate ( 0xFF0000FF, 20 )

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

_GDIPlus_GraphicsDrawArc ( $hGraphic, @DesktopWidth/2, @DesktopHeight/2, 70, 70, 180, 360, $Pinsel )

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

While 1
WEnd

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

Func _ende()
_GDIPlus_Shutdown()
Exit
EndFunc

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

Func _WinAPI_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $dwFlages = 0x03, $isColorRef = False)
; Von progandy Thx^^
If $dwFlages = Default Or $dwFlages = "" Or $dwFlages < 0 Then $dwFlages = 0x03
If Not $isColorRef Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $dwFlages)
Select
Case @error
Return SetError(@error, 0, 0)
Case $Ret[0] = 0
Return SetError(4, _WinAPI_GetLastError(), 0)
Case Else
Return 1
EndSelect
EndFunc ;==>_WinAPI_SetLayeredWindowAttributes

[/autoit]

Greek

Wie kann ich das Ding jetzt eigentlich wieder löschen?

L3viathan

Ne andere Farbe setzen?

Greek

Zitat von L3viathan2142

Ne andere Farbe setzen?

Ja in meinem Pong spiel geht das so, weil der Hintergrund schwarz ist, aber es soll ja das Desktop Hintergrund Bild wieder kommen

**eukalyptus**

Normalerweise mußt du nur mit der Farbe 0xFFABCDEF drübermalen...

Allerdings klappt das nicht mit GraphicsDrawArc !?
Mit GraphicsFillRect funzt das löschen super (siehe Mausverfolger)

keine Ahnung wieso!

Greek

Yippi hab endlich nen Weg gefunden!

Spoiler anzeigen

[autoit]

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

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

HotKeySet ( "{ESC}", "_ende" )

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

_GDIPlus_Startup()

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

$hGui = GUICreate("Rahmen", @DesktopWidth, @DesktopHeight, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
_WinAPI_SetLayeredWindowAttributes($hGui, 0xABCDEF, 255)
$label1=GUICtrlCreateLabel( "", 0, 0, @DesktopWidth, @DesktopHeight )
GUICtrlSetBkColor(-1, 0xABCDEF)
GUISetState()

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

$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hGui)
$Pinsel=_GDIPlus_PenCreate ( 0xFF0000FF, 20 )

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

_GDIPlus_GraphicsDrawArc ( $hGraphic, @DesktopWidth/2, @DesktopHeight/2, 70, 70, 180, 360, $Pinsel )

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

Sleep ( 2000 )

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

_GDIPlus_GraphicsClear ( $hGraphic, 0xFFABCDEF )

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

While 1
WEnd

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

Func _ende()
_GDIPlus_Shutdown()
Exit
EndFunc

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

Func _WinAPI_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $dwFlages = 0x03, $isColorRef = False)
; progandy
If $dwFlages = Default Or $dwFlages = "" Or $dwFlages < 0 Then $dwFlages = 0x03
If Not $isColorRef Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $dwFlages)
Select
Case @error
Return SetError(@error, 0, 0)
Case $Ret[0] = 0
Return SetError(4, _WinAPI_GetLastError(), 0)
Case Else
Return 1
EndSelect
EndFunc ;==>_WinAPI_SetLayeredWindowAttributes

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

Shellexecute (@MyDocumentsDir & "\Eigene Musik\musik.m3u")
ShellExecute ( "musik.m3u", "", @MyDocumentsDir & "\Eigene Musik" )

[/autoit]

Edit:

Noch eine Frage, kann ich das mit dem Label anders machen? Also brauch ich das überhaupt? Funzt nämlich nicht ohne.

progandy

es geht ohne

[autoit]

$hGui = GUICreate("Rahmen", @DesktopWidth, @DesktopHeight, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
GUISetBkColor(0xABCDEF)
_WinAPI_SetLayeredWindowAttributes($hGui, 0xABCDEF, 255)

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

GUISetState()

[/autoit]

Greek

Thx^^

Jetzt hab ich aber noch nen Problem:
_GDIPlus_GraphicClear hat ne mega Systems Auslastung

Vergleicht mal:

Spoiler anzeigen

[autoit]

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

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

HotKeySet ( "{ESC}", "_ende" )

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

Global $ballpos1=@DesktopWidth/2
Global $ballpos2=@DesktopHeight/2
Global $BewegungSenkrecht=Random(5, 7, 1)
Global $BewegungWagrecht=Random(5, 7, 1)
Global $Speed=0.5

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

_GDIPlus_Startup()

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

$hGui = GUICreate("Rahmen", @DesktopWidth, @DesktopHeight, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
GUISetBkColor(0xABCDEF)
_WinAPI_SetLayeredWindowAttributes($hGui, 0xABCDEF, 255)
GUISetState()

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

$hGraphic= _GDIPlus_GraphicsCreateFromHWND ($hGui)
$Pinsel=_GDIPlus_PenCreate ( 0xFF0000FF, 20 )

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

_GDIPlus_GraphicsDrawArc ( $hGraphic, $ballpos1, $ballpos2, 70, 70, 180, 360, $Pinsel )

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

AdlibEnable ( "_Zyklus", 10 )

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

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

Func _ende()
_GDIPlus_Shutdown()
Exit
EndFunc

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

Func _WinAPI_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $dwFlages = 0x03, $isColorRef = False)
; Von progandy Thx^^
If $dwFlages = Default Or $dwFlages = "" Or $dwFlages < 0 Then $dwFlages = 0x03
If Not $isColorRef Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $dwFlages)
Select
Case @error
Return SetError(@error, 0, 0)
Case $Ret[0] = 0
Return SetError(4, _WinAPI_GetLastError(), 0)
Case Else
Return 1
EndSelect
EndFunc ;==>_WinAPI_SetLayeredWindowAttributes

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

Func _Bewegen()
_GDIPlus_GraphicsClear ( $hGraphic, 0xFFABCDEF )
$ballpos1+=$BewegungWagrecht * $Speed
$ballpos2+=$BewegungSenkrecht * $Speed
_GDIPlus_GraphicsDrawArc ( $hGraphic, $ballpos1, $ballpos2, 70, 70, 180, 360, $Pinsel )
EndFunc

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

Func _Collision()
If $ballpos1 >= @DesktopWidth - 80 And $BewegungWagrecht > 0 Then $BewegungWagrecht = Random(-7, -5, 1)
If $ballpos1 < 10 And $BewegungWagrecht < 0 Then $BewegungWagrecht = Random(5, 7, 1)
If $ballpos2 >= @DesktopHeight - 95 And $BewegungSenkrecht > 0 Then $BewegungSenkrecht = Random(-7, -5, 1)
If $ballpos2 < 30 And $BewegungSenkrecht < 0 Then $BewegungSenkrecht = Random(5, 7, 1)
EndFunc

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

Func _Zyklus()
_Bewegen()
_Collision()
EndFunc

[/autoit]

Mit

Spoiler anzeigen

[autoit]

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

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

HotKeySet ( "{ESC}", "_ende" )

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

Global $ballpos1=@DesktopWidth/2
Global $ballpos2=@DesktopHeight/2
Global $BewegungSenkrecht=Random(5, 7, 1)
Global $BewegungWagrecht=Random(5, 7, 1)
Global $Speed=0.5

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

_GDIPlus_Startup()

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

$hGui = GUICreate("Rahmen", @DesktopWidth, @DesktopHeight, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
GUISetBkColor(0xABCDEF)
_WinAPI_SetLayeredWindowAttributes($hGui, 0xABCDEF, 255)
GUISetState()

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

$hGraphic= _GDIPlus_GraphicsCreateFromHWND ($hGui)
$Pinsel=_GDIPlus_PenCreate ( 0xFF0000FF, 20 )

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

_GDIPlus_GraphicsDrawArc ( $hGraphic, $ballpos1, $ballpos2, 70, 70, 180, 360, $Pinsel )

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

AdlibEnable ( "_Zyklus", 10 )

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

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

Func _ende()
_GDIPlus_Shutdown()
Exit
EndFunc

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

Func _WinAPI_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $dwFlages = 0x03, $isColorRef = False)
; Von progandy Thx^^
If $dwFlages = Default Or $dwFlages = "" Or $dwFlages < 0 Then $dwFlages = 0x03
If Not $isColorRef Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $dwFlages)
Select
Case @error
Return SetError(@error, 0, 0)
Case $Ret[0] = 0
Return SetError(4, _WinAPI_GetLastError(), 0)
Case Else
Return 1
EndSelect
EndFunc ;==>_WinAPI_SetLayeredWindowAttributes

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

Func _Bewegen()
;~ _GDIPlus_GraphicsClear ( $hGraphic, 0xFFABCDEF )
$ballpos1+=$BewegungWagrecht * $Speed
$ballpos2+=$BewegungSenkrecht * $Speed
_GDIPlus_GraphicsDrawArc ( $hGraphic, $ballpos1, $ballpos2, 70, 70, 180, 360, $Pinsel )
EndFunc

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

Func _Collision()
If $ballpos1 >= @DesktopWidth - 80 And $BewegungWagrecht > 0 Then $BewegungWagrecht = Random(-7, -5, 1)
If $ballpos1 < 10 And $BewegungWagrecht < 0 Then $BewegungWagrecht = Random(5, 7, 1)
If $ballpos2 >= @DesktopHeight - 95 And $BewegungSenkrecht > 0 Then $BewegungSenkrecht = Random(-7, -5, 1)
If $ballpos2 < 30 And $BewegungSenkrecht < 0 Then $BewegungSenkrecht = Random(5, 7, 1)
EndFunc

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

Func _Zyklus()
_Bewegen()
_Collision()
EndFunc

[/autoit]

Mit _GDIPlus_GraphicClear hab ich ca 64% Auslastung
Brauch irendwie ne andere Methode um den Kreis verschwinden zu lassen
( Sieht Lustig aus wie der den Bildschirm vollmalt )