speed problems with screenshot functions

[corgano]

Sorry for the low quality thread, but its 2 am at time of writing. I need a way to speed up this script, anyone know of a better method?

main loop:

$mod = 10
    while 1
        _ScreenCapture_Capture($temp,0-$mod,0-$mod,@desktopwidth + $mod, @desktopheight + $mod, False)
        If Not FileExists($temp) Then Return -1
        DllCall("user32.dll", "int", "SystemParametersInfo", _
        "int", $SPI_SETDESKWALLPAPER, _
        "int", 0, _
        "str", $temp, _
        "int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDCHANGE))
    WEnd

Is there any way to set the desktop image to a hbitmap instead of needing to make it an image first?

[Melba23]

corgano,

From the Help file for _ScreenCapture_Capture:

Remarks

If FileName is blank, this function will capture the screen and return a HBITMAP handle to the bitmap image. In this case, after you are finished with the bitmap you must call _WinAPI_DeleteObject to delete the bitmap handle.

I have used this function to return a HBITMAP handle successfully in several scripts.

I hope you slept well!

M23

[corgano]

I can get it to return the hbmp, but then I cannot set as the desktop. The setdesktopwalpaper() function I originally got did not support setting a bitmaphandle as the desktop, but would work with a file. Know of a function to set a hBitmap as the desktop wallpaper?

original function:

Func _ChangeDestopWallpaper($bmp, $style = 0)
   If Not FileExists($bmp) Then Return -1
   Local $SPI_SETDESKWALLPAPER = 20
   Local $SPIF_UPDATEINIFILE = 1
   Local $SPIF_SENDCHANGE = 2
   Local $REG_DESKTOP= "HKEY_CURRENT_USER\Control Panel\Desktop"
      if $style = 1 then 
      RegWrite($REG_DESKTOP, "TileWallPaper", "REG_SZ", 1)
      RegWrite($REG_DESKTOP, "WallpaperStyle", "REG_SZ", 0)
   Else
   RegWrite($REG_DESKTOP, "TileWallPaper", "REG_SZ", 0)
   RegWrite($REG_DESKTOP, "WallpaperStyle", "REG_SZ", $style)
   EndIf
   DllCall("user32.dll", "int", "SystemParametersInfo", _
         "int", $SPI_SETDESKWALLPAPER, _
         "int", 0, _
         "str", $bmp, _
         "int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDCHANGE))
   Return 0
EndFunc  ;==>_ChangeDestopWallpaper

And, yes, I did try removing the "If Not FileExists($bmp) Then Return -1". It didn't help.

Edited February 20, 2010 by corgano