Advertisement
Guest User

Untitled

a guest
Aug 15th, 2017
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 0.59 KB | None | 0 0
  1. #include <GDIPlus.au3>
  2. #include <WinAPI.au3>
  3. $hWnd=GUICreate("", 400, 400, -1, -1, -1, 0x00080000)
  4. GUISetState()
  5. _GDIPlus_Startup()
  6. $hBrush=_GDIPlus_BrushCreateSolid(0xFFFFAAFF)
  7. $hGraphics=_GDIPlus_GraphicsCreateFromHWND($hWnd)
  8. _GDIPlus_GraphicsFillRect($hGraphics, 200, 200, 100, 100, $hBrush)
  9. While True
  10.     _GDIPlus_GraphicsFillRect($hGraphics, 200, 200, 100, 100, $hBrush)
  11.     _WinAPI_SetLayeredWindowAttributes($hWnd, 0xFFAAFF, 255)
  12.     Switch GUIGetMsg()
  13.         Case -3
  14.             _GDIPlus_BrushDispose($hBrush)
  15.             _GDIPlus_GraphicsDispose($hGraphics)
  16.             _GDIPlus_Shutdown()
  17.             Exit
  18.     EndSwitch
  19. WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement