<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="html"><![CDATA[Серый форум &mdash; VBScript: Скриншот экрана]]></title>
	<link rel="self" href="https://forum.script-coding.com/extern.php?action=feed&amp;tid=8040&amp;type=atom" />
	<updated>2013-02-05T13:04:44Z</updated>
	<generator>PunBB</generator>
	<id>https://forum.script-coding.com/viewtopic.php?id=8040</id>
		<entry>
			<title type="html"><![CDATA[Re: VBScript: Скриншот экрана]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=69119#p69119" />
			<content type="html"><![CDATA[<p>Спасибо. Получилось</p>]]></content>
			<author>
				<name><![CDATA[ufik007]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=29534</uri>
			</author>
			<updated>2013-02-05T13:04:44Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=69119#p69119</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: VBScript: Скриншот экрана]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=69097#p69097" />
			<content type="html"><![CDATA[<p><a href="http://msdn.microsoft.com/en-us/library/8c6yea83(VS.85).aspx">SendKeys Method</a>:<br /></p><div class="quotebox"><blockquote><p><strong>Note:</strong> You cannot send the PRINT SCREEN key {PRTSC} to an application.</p></blockquote></div><p><a href="http://www.jsware.net/jsware/compfiles.php5#draw">JSWare - VBScript - Samples and Components</a><br /></p><div class="quotebox"><blockquote><p><strong>Method Capture(FilePath, Left, Top, Width, Height)</strong><br />• Saves a screen capture as BMP file.<br />ex: ob.Capture &quot;C:\pic.bmp&quot;, 100, 100, 300, 400</p><p>FilePath is path of BMP file to be created.<br />Left, Top, Width, Height reference dimensions and location<br />of Desktop area to capture.</p><p>Capture saves all or part of the current screen image as a BMP file.<br />Use Left and Top for X,Y coordinates of topleft pixel in image.<br />&nbsp; &nbsp; For entire desktop use:<br />&nbsp; &nbsp; boo = ob.GetDesktopSize(w, h)<br />&nbsp; &nbsp; ob.Capture sFilePath, 0, 0, w, h</p><p>If FilePath does not end in &quot;.bmp&quot; then &quot;.bmp&quot; will be appended.<br />If FilePath exists Capture will not overwrite it.<br />The Capture method can be used to save a copy of graphics drawn onscreen.</p><p>Note: Capture is not a drawing method. The coordinates do not<br />correspond to the current canvas but rather to the Desktop. To capture<br />current drawing set parameters to canvas coordinates.</p></blockquote></div>]]></content>
			<author>
				<name><![CDATA[alexii]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=1844</uri>
			</author>
			<updated>2013-02-04T13:44:01Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=69097#p69097</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[VBScript: Скриншот экрана]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=69095#p69095" />
			<content type="html"><![CDATA[<p>Привет всем. Помогите кто может. Нужно программно сделать printscreen экрана. Казалось бы просто.<br /></p><div class="codebox"><pre><code>Option Explicit

Dim WshShell  
Set WshShell = WScript.CreateObject(&quot;WScript.Shell&quot;)

WshShell.SendKeys &quot;{PRTSC}&quot;</code></pre></div><p>Но почему то не работает. Подставлял CapsLock и Scroll Lock - все фурычит.</p>]]></content>
			<author>
				<name><![CDATA[ufik007]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=29534</uri>
			</author>
			<updated>2013-02-04T11:58:54Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=69095#p69095</id>
		</entry>
</feed>
