amirc Posted December 22, 2005 Share Posted December 22, 2005 how do i snap a picture of the screen and save it as file? ty Link to comment Share on other sites More sharing options...
seandisanti Posted December 22, 2005 Share Posted December 22, 2005 how do i snap a picture of the screen and save it as file?ty i have script that sends an hourly screenshot of a program. i just have it send "!{PRINTSCREEN}") to the app i want pic of, then run("mspaint.exe") and control send the "^v" to paste, and save it via "!fs" Link to comment Share on other sites More sharing options...
BigDod Posted December 22, 2005 Share Posted December 22, 2005 how do i snap a picture of the screen and save it as file?ty Use Laztcats capture plugin.See Here Time you enjoyed wasting is not wasted time ......T.S. Elliot Suspense is worse than disappointment................Robert Burns God help the man who won't help himself, because no-one else will...........My Grandmother Link to comment Share on other sites More sharing options...
amirc Posted December 22, 2005 Author Share Posted December 22, 2005 10x you two.. =) Link to comment Share on other sites More sharing options...
BigDod Posted December 22, 2005 Share Posted December 22, 2005 10x you two.. =)Here is a script that uses LazyCats captdll.dll, you can get that if you follow the link on LazyCats sig HotKeySet("{F9}", "OnScreenShot") HotKeySet("{ESC}", "Terminate") While 1 Sleep(20) WEnd Func OnScreenShot() If Not FileExists (@scriptdir & "\screenshots") Then DirCreate (@scriptdir & "\screenshots") If Not FileExists(@scriptdir & "\captdll.dll") Then FileInstall( "captdll.dll", @scriptdir & "" ,1) Local $Cwin1 = WinGetHandle(""); gets the handle of the active window Local $Cwin2 = WinGetPos($Cwin1); gets active window dimensions Local $Quality = 85; use -1 to save as BMP or use number between 0 - 100 to save as JPG quality If $Quality = -1 Then Local $SaveAs = ".bmp" Else Local $SaveAs = ".jpg" EndIf Local $CaptureDirectory = @ScriptDir & "\Screenshots\"; directory uses to store screen caps Local $CaptureFile = @YEAR & "-" & @MON & "-" & @MDAY & "_" & @HOUR & @MIN & "-" & @SEC & $SaveAs DllCall(@scriptdir & "\captdll.dll", "int", "CaptureRegion", "str", $CaptureDirectory & $CaptureFile, "int", $Cwin2[0], "int", $Cwin2[1], "int", $Cwin2[2], "int", $Cwin2[3], "int", $Quality) If @error Then MsgBox(262160,"ERROR","The screen was not captured",4) EndFunc Func Terminate() Exit EndFunc I did not write this I just copied it from the forum. Time you enjoyed wasting is not wasted time ......T.S. Elliot Suspense is worse than disappointment................Robert Burns God help the man who won't help himself, because no-one else will...........My Grandmother Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now