#include-once
#include <Clipboard.au3>
#include <FF.au3>
#include <ScreenCapture.au3>

; Tue Apr 28 22:19:57 CEST 2009 @888 /Internet Time/
; by thorsten.willert Chr(64) gmx.de ;)
; Requirement(s).: FF.au3 > V0.5.3.x / MozRepl / Screengrab!
;===============================================================================
Func _FF_Screengrab_SaveCompleteDocument($sFileName = "")
	If Not _FF_ScreenGrab_CopyCompleteDocument() Then Return 0
	Sleep(500)
	Return __FF_ScreenGrab_SaveClipboard($sFileName)
EndFunc   ;==>_FF_Screengrab_SaveCompleteDocument
;===============================================================================
Func _FF_Screengrab_SaveVisibleDocument($sFileName = "")
	If Not _FF_ScreenGrab_CopyVisibleDocument() Then Return 0
	Sleep(500)
	Return __FF_ScreenGrab_SaveClipboard($sFileName)
EndFunc   ;==>_FF_Screengrab_SaveCompleteDocument
;===============================================================================
Func _FF_ScreenGrab_CopyCompleteDocument()
	_FFCmd("Screengrab.copyCompleteDocument();")
	If @error Then Return 0
	Return 1
EndFunc   ;==>_FF_ScreenGrab_CopyCompleteDocument
;===============================================================================
Func _FF_ScreenGrab_CopyVisibleDocument()
	_FFCmd("Screengrab.copyVisibleDocument();")
	If @error Then Return 0
	Return 1
EndFunc   ;==>_FF_ScreenGrab_CopyCompleteDocument
;===============================================================================
Func __FF_ScreenGrab_SaveClipboard($sFileName = "")
	Local $hBMP = _ClipBoard_GetData($CF_BITMAP)

	If $sFileName = "" Then
		$sFileName = @MyDocumentsDir & "\"
		$sFileName &= StringRegExpReplace(_FFCmd("Screengrab.defaultFileName() + '.' + Screengrab.format();"),"[^\s\w\.]","")
	EndIf
	_ScreenCapture_SaveImage($sFileName, $hBMP)
	If Not @error Then Return 1

	Return 0
EndFunc   ;==>__FF_ScreenGrab_SaveClipboard