HTML code for sharing vbscript для WiX source code

HTML Copy To Clipboarddone!

<div class="highlight" style="background: #f8f8f8"><pre style="line-height: 125%"><div id="lc1">&#39;Получение текущего разрешения экрана
</div><div id="lc2">&#39;и запись в SCREENWIDTH и SCREENHEIGHT
</div><div id="lc3">Function GetScreenWidth()
</div><div id="lc4">	Set objWMIService = GetObject(&quot;Winmgmts:\\.\root\cimv2&quot;)
</div><div id="lc5">	Set colItems = objWMIService.ExecQuery(&quot;Select * From Win32_DesktopMonitor where DeviceID = &#39;DesktopMonitor1&#39;&quot;,,0)
</div><div id="lc6">	For Each objItem in colItems
</div><div id="lc7">		intHorizontal = objItem.ScreenWidth
</div><div id="lc8">		intVertical = objItem.ScreenHeight
</div><div id="lc9">	Next
</div><div id="lc10">	Session.Property(&quot;SCREENWIDTH&quot;) = &quot;&quot; &amp; intHorizontal
</div><div id="lc11">	Session.Property(&quot;SCREENHEIGHT&quot;) = &quot;&quot; &amp; intVertical
</div><div id="lc12">End Function
</div></pre></div>
<p style="padding: 0; margin: 2em 0 1em 0; font-size: 0.8em; color: #666;"><span style="padding: 0 1em; background-color: #f5f5f5;"> Colored with <a style="color: #333" href="http://dumpz.org">dumpz.org</a></span></p>

BBCODE Copy To Clipboarddone!

Light HTML Copy To Clipboarddone!

That method generates HTML with CSS classes. Hence you'll need the style sheet file

<div class="highlight"><pre><div id="lc1">&#39;Получение текущего разрешения экрана
</div><div id="lc2">&#39;и запись в SCREENWIDTH и SCREENHEIGHT
</div><div id="lc3">Function GetScreenWidth()
</div><div id="lc4">	Set objWMIService = GetObject(&quot;Winmgmts:\\.\root\cimv2&quot;)
</div><div id="lc5">	Set colItems = objWMIService.ExecQuery(&quot;Select * From Win32_DesktopMonitor where DeviceID = &#39;DesktopMonitor1&#39;&quot;,,0)
</div><div id="lc6">	For Each objItem in colItems
</div><div id="lc7">		intHorizontal = objItem.ScreenWidth
</div><div id="lc8">		intVertical = objItem.ScreenHeight
</div><div id="lc9">	Next
</div><div id="lc10">	Session.Property(&quot;SCREENWIDTH&quot;) = &quot;&quot; &amp; intHorizontal
</div><div id="lc11">	Session.Property(&quot;SCREENHEIGHT&quot;) = &quot;&quot; &amp; intVertical
</div><div id="lc12">End Function
</div></pre></div>
<p style="padding: 0; margin: 2em 0 1em 0; font-size: 0.8em; color: #666;"><span style="padding: 0 1em; background-color: #f5f5f5;"> Colored with <a style="color: #333" href="http://dumpz.org">dumpz.org</a></span></p>

Habrahabr.ru HTML Copy To Clipboarddone!

Use that HTML for publications on habrahabr.ru

<blockquote><code>&#39;Получение&nbsp;текущего&nbsp;разрешения&nbsp;экрана
&#39;и&nbsp;запись&nbsp;в&nbsp;SCREENWIDTH&nbsp;и&nbsp;SCREENHEIGHT
Function&nbsp;GetScreenWidth()
&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;objWMIService&nbsp;=&nbsp;GetObject(&quot;Winmgmts:\\.\root\cimv2&quot;)
&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;colItems&nbsp;=&nbsp;objWMIService.ExecQuery(&quot;Select&nbsp;*&nbsp;From&nbsp;Win32_DesktopMonitor&nbsp;where&nbsp;DeviceID&nbsp;=&nbsp;&#39;DesktopMonitor1&#39;&quot;,,0)
&nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;Each&nbsp;objItem&nbsp;in&nbsp;colItems
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;intHorizontal&nbsp;=&nbsp;objItem.ScreenWidth
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;intVertical&nbsp;=&nbsp;objItem.ScreenHeight
&nbsp;&nbsp;&nbsp;&nbsp;Next
&nbsp;&nbsp;&nbsp;&nbsp;Session.Property(&quot;SCREENWIDTH&quot;)&nbsp;=&nbsp;&quot;&quot;&nbsp;&amp;&nbsp;intHorizontal
&nbsp;&nbsp;&nbsp;&nbsp;Session.Property(&quot;SCREENHEIGHT&quot;)&nbsp;=&nbsp;&quot;&quot;&nbsp;&amp;&nbsp;intVertical
End&nbsp;Function
</code></blockquote><p><font color="gray">Colored with <a href="http://dumpz.org">dumpz.org</a></p>