Снимок экрана из буфера обмена в файл

Искал сегодня в интернете, ничего годного не нашел. Были ссылки, но все были платные. Данная разработка абсолютно бесплатна. ВИРУСОВ НЕТ! В программе только код для сохранения изображения. 

Во вложении исходный код

Пример кода для вызова из 1С: 

 &НаКлиенте
Процедура Команда1(Команда)
	ОпОп = Новый ОписаниеОповещения("ОкончаниеВызоваПриложения",ЭтаФорма);
	//после пути к экзешнику имя файла, куда нужно сохранить изображение
	НачатьЗапускПриложения(ОпОп,"C:UsersremadDesktopНовая папка (4)ScreenToFile.exe C:1C_BASES1.jpg");
КонецПроцедуры

&НаКлиенте
Процедура ОкончаниеВызоваПриложения(КодВозврата,П)Экспорт
	
	ДвоичныеДанные = Новый ДвоичныеДанные("C:1C_BASES1.jpg");
	АдресКартинки = ПоместитьВоВременноеХранилище(ДвоичныеДанные,УникальныйИдентификатор);
	Реквизит1 = АдресКартинки;
	
КонецПроцедуры