<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title><![CDATA[Серый форум &mdash; VBS: Очистка кэша Internet Explorer.]]></title>
		<link>https://forum.script-coding.com/viewtopic.php?id=5428</link>
		<atom:link href="https://forum.script-coding.com/extern.php?action=feed&amp;tid=5428&amp;type=rss" rel="self" type="application/rss+xml" />
		<description><![CDATA[Недавние сообщения в теме «VBS: Очистка кэша Internet Explorer.».]]></description>
		<lastBuildDate>Fri, 28 Jan 2011 10:36:12 +0000</lastBuildDate>
		<generator>PunBB</generator>
		<item>
			<title><![CDATA[Re: VBS: Очистка кэша Internet Explorer.]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=44482#p44482</link>
			<description><![CDATA[<p><strong>Valera</strong>, не годится для Коллекции в таком виде. Вы ж не первый раз постите:</p><p>1. Заголовок:<br /> * О<span style="color: red"><strong>т</strong></span>чистка?!<br /> * Точка в заголовке из одного предложения — не нужна.</p><p><span style="color: Green">2. Код нужно оформлять тэгом «code».</span></p><p><span style="color: Green">3. Где хотя бы краткое пояснение (<a href="http://forum.script-coding.com/rules.html#3.10.">§3.10</a>)?</span> Я понимаю, Вы понимаете, сотня других, тех, кто не программирует — не поймёт и пройдёт мимо.</p><p>4. Вытекает из п.3: где границы применимости? Я, скажем, помню, что в IE6 такой функции нет:<br /></p><div class="quotebox"><blockquote><div class="codebox"><pre><code>---------------------------
RUNDLL
---------------------------
Ошибка в InetCpl.cpl
Отсутствует:ClearMyTracksByProcess
---------------------------
ОК   
---------------------------</code></pre></div></blockquote></div><p>А остальные?! Тоже нужно упомянуть.</p><p>5. Зачем так переусложнять простой скрипт: отдельная функция для MsgBox, абсолютно лишняя, названная непонятно зачем «Welcome()» — чтобы сильнее запутать? Всё укладывается в простую схему:<br /></p><div class="codebox"><pre><code>If MsgBox( _
    &quot;Очистить кэш Internet Explorer?&quot;, vbOKCancel + vbInformation, &quot;Очистка кэша Internet Explorer&quot; _
    ) = vbOK Then
    
    WScript.CreateObject(&quot;WScript.Shell&quot;).Run &quot;&quot;&quot;%systemroot%\system32\RunDll32.exe&quot;&quot; InetCpl.cpl,ClearMyTracksByProcess 255&quot;
End If</code></pre></div><p>Не нужно ничего лишнего.</p>]]></description>
			<author><![CDATA[null@example.com (alexii)]]></author>
			<pubDate>Fri, 28 Jan 2011 10:36:12 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=44482#p44482</guid>
		</item>
		<item>
			<title><![CDATA[VBS: Очистка кэша Internet Explorer.]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=44479#p44479</link>
			<description><![CDATA[<p>L_Welcome_MsgBox_Message_Text&nbsp; &nbsp;= _<br />&nbsp; &nbsp; &quot;Отчистить кэш Internet Explorer?&quot;<br />L_Welcome_MsgBox_Title_Text&nbsp; &nbsp; &nbsp;= &quot;Отчистка кэша Internet Explorer.&quot;<br />Call Welcome()</p><p>Dim wsh<br />Set wsh=CreateObject(&quot;WScript.Shell&quot;)<br />wsh.Run &quot;%systemroot%\system32\RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255&quot;</p><p>Sub Welcome()<br />&nbsp; &nbsp; Dim intDoIt</p><p>&nbsp; &nbsp; intDoIt =&nbsp; MsgBox(L_Welcome_MsgBox_Message_Text, _<br />&nbsp; &nbsp; &nbsp; &nbsp; vbOKCancel + vbInformation, _<br />&nbsp; &nbsp; &nbsp; &nbsp; L_Welcome_MsgBox_Title_Text )<br />&nbsp; &nbsp; If intDoIt = vbCancel Then<br />&nbsp; &nbsp; &nbsp; &nbsp;WScript.Quit<br />&nbsp; &nbsp; End If<br />End Sub</p>]]></description>
			<author><![CDATA[null@example.com (Valera)]]></author>
			<pubDate>Fri, 28 Jan 2011 09:47:27 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=44479#p44479</guid>
		</item>
	</channel>
</rss>
