Notifications
Clear all
May 28, 2010 2:33 am
Can any one see what I’m doing wrong here. This is just capturing black so I’m guessing I’m missing something, can any one see what it is?
newBmp=dotNetObject "system.drawing.bitMap" 100 100 ((dotNetClass "system.Drawing.Imaging.PixelFormat").Format32bppArgb)
g=(dotNetClass "System.Drawing.graphics").FromImage newBmp
g.CopyFromScreen 0 0 100 100 (dotNetObject "system.drawing.size" 100 100) (dotNetClass "System.Drawing.CopyPixelOperation").SourceCopy
newBmp.Save (maxFilePath+"viewportGrab.png") (dotNetClass "system.Drawing.Imaging.ImageFormat").png
5 Replies
May 28, 2010 2:33 am
The script is capturing black because newBmp is pasted on g at position [100,100].
Try this:
g.CopyFromScreen 100 100 0 0 (dotNetObject "system.drawing.size" 100 100)
More Infos on CopyFromScreen :
http://msdn.microsoft.com/en-us/library/cdcw1c3b.aspx
May 28, 2010 2:33 am
Fn ScreenCapture PosX PosY ImgW ImgH ImgFileName =
(
try
(
local DotNetBmp,DotNetGraphics,DotNetPoint
local tempBmp,tempGraphic
DotNetBmp = DotNetClass "System.Drawing.Bitmap"
DotNetGraphics = DotNetClass "System.Drawing.Graphics"
DotNetPoint = DotNetClass "System.Drawing.Point"
tempBmp = DotNetObject "System.Drawing.Bitmap" ImgW ImgH
tempGraphic = DotNetGraphics.FromImage tempBmp
tempGraphic.CopyFromScreen (DotNetObject DotNetPoint PosX PosY) \
(DotNetObject DotNetPoint 0 0) tempBmp.Size
tempBmp.Save ImgFileName
tempGraphic.Dispose()
true
)
catch (false)
)
ScreenCapture 0 0 200 200 "c:\ estScreenCapture.png"
it is my code
May 28, 2010 2:33 am
Sigmao: I see what that does now. I wasn’t really sure of what the third and forth number were doing and didn’t really play with those. Thanks for the help.
CGGD: Thanks as well.
May 28, 2010 2:33 am
very cool!
J.
May 28, 2010 2:33 am
This is what I was writing.