; Capture full screen
; Fist parameter - filename, last - jpeg quality. 

SplashTextOn("", "Screen Capture 1.0 Loading!(By Jake)", 400, 22, 312 ,375 ,1 ,"system", "", "")
Sleep(2000)
SplashOff ( )

Global $Window
Global $Count = 1
Global $FileName = Random ( 0240984 , 1374895 )
Global $format = IniRead("screencapture.ini", "fileformat", "format", 1)

Select
 Case @Error = 0
  
  HotKeySet("{PRINTSCREEN}", "Print_Window")
 Case @Error = 1
  Exit
 Case @Error = 3
  MsgBox(4096, "ERROR", "The Input Box failed to open")
  Exit
EndSelect

While (1)

 $Window = WinGetTitle("")
 Sleep(250)

WEnd

Func Print_Window ()

 Local $Size = WinGetPos($Window)
 
DllCall("captdll.dll", "int:cdecl", "CaptureScreen", "str", $FileName & $Count & $format, "int", $Size[0], "int", $Size[1], "int", $Size[2], "int", $Size[3], "int", -1)
 $Count += 1

EndFunc