--- In [email protected], "swzoh" <[EMAIL PROTECTED]> wrote:
>
> This ScreenCapture script will capture the transparent windows too,
> into the format BMP/JPG/GIF/TIF/PNG. With a little modification, you
> can also capture a part of the screen.
>
> ----------------- ScreenCapture.PowerPro ---------------------------
> args sName,xName,hDC,mDC,hBM,hOld,pToken,pBitmap,nCodecs,nSize,ci,si
>
> sName=?"C:\screen.bmp"
> dll.call("MultiByteToWideChar|ui ui s i s i",;;+
> 0,0,"sName",-1,"xName",136)
>
> hDC=dll.call("GetDC|ui",0)
> mDC=dll.call("CreateCompatibleDC|ui",hDC)
> hBM=dll.call("CreateCompatibleBitmap|ui i i",hDC,xscreen,yscreen)
> hOld=dll.call("SelectObject|ui ui",mDC,hBM)
>
> dll.call("BitBlt|ui i i i i ui i i ui",;;+
> mDC,0,0,xscreen,yscreen,hDC,0,0,0x00CC0020 | 0x40000000)
>
> //
> si=dll.create_array(4,"i",1)
> dll.call("gdiplus|GdiplusStartup|ui* a* ui","pToken",si,0)
>
> dll.call("gdiplus|GdipCreateBitmapFromHBITMAP|ui ui ui*",;;+
> hBM,0,"pBitmap")
>
> dll.call("gdiplus|GdipGetImageEncodersSize|ui* ui*","nCodecs","nSize")
> ci=dll.create_array(nSize/4+1,"i")
> dll.call("gdiplus|GdipGetImageEncoders|ui ui a* b",nCodecs,nSize,ci)
>
> for(local i=0;i<nCodecs;i++)
> dll.call("WideCharToMultiByte|ui ui i i s i ui ui",;;+
> 0,0,ci[19*i+12],-1,"nSize",272,0,0)
> if(index(nSize,file.type(sName)))
> break
> endfor
>
> for(local j=4;j;j--)
> si[j]=ci[j+i*76]
> endfor
>
> dll.call("gdiplus|GdipSaveImageToFile|ui s a* ui",;;+
> pBitmap,"xName",si,0)
> dll.call("gdiplus|GdipDisposeImage|ui",pBitmap)
> dll.call("gdiplus|GdiplusShutdown|ui",pToken)
> //
>
> dll.call("SelectObject|ui ui",mDC,hOld)
> dll.call("DeleteObject|ui",hBM)
> dll.call("DeleteDC|ui",mDC)
> dll.call("ReleaseDC|ui ui",hWnd,hDC)
> quit
> --------------------------------------------------------------------
The last line before quit should be:
dll.call("ReleaseDC|ui ui",0,hDC)
Sean
Attention: PowerPro's Web site has moved: http://www.ppro.org
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/power-pro/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/power-pro/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
