http://www.bg-pro.com/forum/index.php Форуми bulgarian (c) Copyright 2026 by bG-PrO.CoM support@bg-pro.com support@bg-pro.com 22 Октомври 2026, 09:49 22 Октомври 2026, 09:49 http://backend.userland.com/rss phpBB2 RSS Syndication Mod by Lucas 1 http://www.bg-pro.com/forum/ Форуми http://www.bg-pro.com/forum/viewtopic.php?p=8436#8436 <br /> Автор: <a href='http://www.bg-pro.com/forum/profile.php?mode=viewprofile&u=2'>Kraff</a><br /><br /> Пуснато: 31 Май 2010, 06:33<br /><br /> <div style="text-align:justify;"><span style="font-weight: bold">??????????:</span><br /> ? ???? ???? ?? ????????? ??? ?? ?????? ?? ????? ????? ? ???????<br /> ????? Windows 7 ?? ?? ?????????? ??????? ?? ???????? ???? (Desktop).<br /> <br /> <span style="font-weight: bold">??? ????? ???????</span><br /> ?? ?? ???????? ??????? ?? ???????????? ?? Windows, ??? ?? ??????????<br /> ???? VB Script (Visual BASIC Scripting Edition). ?? ???? ????? ????? ??? ??????...<br /> <br /> <span style="font-weight: bold">????? ??-????????...</span><br /> <span style="font-style: italic">??????? ??????? ???????? ? ????????? (HKCU \ Software \ Microsoft \ Current Version \ run) ???? ?? ?? ???? ?? ?? ???????? ?????? ??? ?????????. ?????? ?????????????? ??????? ?? ??????? ? ????? ???????? ? ?????????, ????????? ???????. ?? ????? ?? ?????????????? ??????? ??????? ???? ? ??????????, ???? ????? ????????? ???? ??????? ???????? ????????? ??????? ??????????. ??? ? ????, ?? ?????? ? ?????????? ?? ?? ??????? ????? ???????, ?? ?? ?? ?????? ?????????? ????? ? ??????? ?? ???????. ???? ???? ????? ????? ???????? ? ????????? ???????? ????? ?????????? (????? ?? ?????????? ? ????, ? ????? ?? ????????? ???????).</span><br /> <br /> <span style="font-weight: bold">1. ???????? ??? ??????? ???????? ? ????????? ? ???? ??????? ??? ??-????:</span><br /> <br /> </span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Код:</b></span></td> </tr> <tr> <td class="code">Option Explicit<br /> On Error Resume Next<br /> Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff<br /> MsgA = &quot;???? ????????? ?????? ?????????? ???????? ? ????????? ??.&quot;<br /> KeyA = &quot;HKEY_CURRENT_USER\Software\RestartTime\&quot;<br /> KeyB = &quot;HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\RestartTime&quot;<br /> AppName = &quot;????? ?? ???????...&quot;<br /> Set Wsh = CreateObject&#40;&quot;WScript.Shell&quot;&#41;<br /> PathFile = &quot;&quot;&quot;&quot; &amp; WScript.ScriptFullName &amp; &quot;&quot;&quot;&quot;<br /> Result = wsh.RegRead&#40;KeyA &amp; &quot;Times&quot;&#41;<br /> if Result = &quot;&quot; then<br /> MsgResult = Msgbox &#40;MsgA, vbOKCancel, AppName&#41;<br /> If MsgResult = vbcancel then WScript.Quit<br /> Wsh.RegWrite KeyA &amp; &quot;Times&quot;, left&#40;Time,8&#41;, &quot;REG_SZ&quot;<br /> Wsh.RegWrite KeyB, PathFile, &quot;REG_SZ&quot;<br /> Wsh.Run &quot;cmd /c Shutdown -r -t 00&quot;, false, 0 <br /> else<br /> Wsh.RegDelete KeyA &amp; &quot;Times&quot;<br /> Wsh.RegDelete KeyA<br /> Wsh.RegDelete KeyB<br /> TimeDiff = DateDiff&#40;&quot;s&quot;,Result,left&#40;Time,8&#41;&#41;<br /> MsgBox &quot;?????? ???????? ?? ?????????? ?? &quot; &amp; TimeDiff &amp; &quot; ???????.&quot;, VbInformation, AppName<br /> end if<br /> wscript.Quit</td> </tr></table><span class="postbody"><br /> <span style="font-weight: bold">2. ???????? ????? ? .VBS ?????? (????????: <span style="color: #0900ff">Restart-Time.vbs</span>)</span><br /> <br /> ??? ??????? ?? ??????? (?????? ??????? 2 ???? ?? ????..) ?? ??????:<br /> <br /> <img src="http://www.bg-pro.com/forum/temp/windows7/Restart-Time1.png" border="0" alt=""><br /> <br /> ? ???? ???? ????????? ?? ?????????? ? ?? ?????? ???????? ????:<br /> <br /> <img src="http://www.bg-pro.com/forum/temp/windows7/Restart-Time2.png" border="0" alt=""></div><br /> <span style="color: #bf0000">???? ?????? ? ??????? ?? Windows XP ? Vista - ??????!</span> <img src="http://www.bg-pro.com/forum/images/smiles/icon_wink.gif" alt="Wink" width="19" height="19" border="0" class="inlineimg"><br /> <br /> ?????? ???? ?? ?????? startup ???????? ???? ?????????? ????????? (Event Viewer):<br /> C:\Windows\system32\eventvwr.msc<br /> <br /> ?????? ??????? ??:<br /> <span style="font-weight: bold">Applications and Services Logs, Microsoft, Windows, Diagnostics-Performance, Operational</span>.<br /> ???????? ?? ?? ??????? ????? ?? ????????, ????? ????? ?????? ? ?.?. http://www.bg-pro.com/forum/viewtopic.php?p=8436#8436 Kraff 31 Май 2010, 06:33 http://www.bg-pro.com/forum/viewtopic.php?p=8436#8436