#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <ScreenCapture.au3>
#Include <File.au3>

#Region ### START Koda GUI section ### Form=C:\Users\Tom1\Desktop\koda_1.7.2.1_b191_2009-07-09\Forms\remotedesk.kxf
$remForm1 = GUICreate("Remote Deskop By Manzarek", 905, 629, 561, 163)
$remPic1 = GUICtrlCreatePic("C:\Users\Tom1\Pictures\182649_1_f.jpg", 88, 8, 809, 614, BitOR($SS_NOTIFY,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS))
$remButton1 = GUICtrlCreateButton("Single", 8, 8, 75, 25)
$remButton2 = GUICtrlCreateButton("Capture", 8, 40, 75, 25)
$remButton3 = GUICtrlCreateButton("Screenshot", 8, 72, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$ScrenName=(@DesktopDir&"\remote\screen.jpg")

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $remButton1
		AdlibUnRegister("_screen")
		_screen()

		case $remButton2
	AdlibRegister("_screen")

	EndSwitch
WEnd


func _screen ()
FileDelete(@DesktopDir&"\remote\temp.jpg")
			_ScreenCapture_Capture($ScrenName)
			$binimage=FileOpen($ScrenName,16)
			$stringimage=FileRead($binimage)
			FileClose($binimage)
			$image=FileWrite(@DesktopDir&"\remote\temp.jpg",$stringimage)
			GUICtrlSetImage($remPic1,@DesktopDir&"\remote\temp.jpg")
EndFunc