ßê ïîâåðíóòè ³êîíêó íà ðîáî÷èé ñò³ë
Êîìï`þòåðí³ â³ðóñè äîñèòü ÷àñòî âêëþ÷àþòü â ñåáå ôóíêö³þ âèäàëåííÿ âñ³õ ³êîíîê ðîáî÷îãî ñòîëó. Çíà÷îê ïðîãðàìè ìîæå áóòè âèäàëåíèé ñàìèì êîðèñòóâà÷åì âèïàäêîâî â ïðîöåñ³ î÷èùåííÿ. ßê áè òàì íå áóëî, ïðîáëåìà â³äíîâëåííÿ ³êîíîê íà ðîáî÷îìó ñòîë³ ìîæå ñòàòè ïåðåä êîæíèì.
1
Íàòèñí³òü êíîïêó «Ïóñê» ³ ââåä³òü regedit â ðÿäêó ïîøóêó. Öå äîçâîëèòü óâ³éòè â óòèë³òó ðåäàêòîðà ðåºñòðó, äå ³ çáåð³ãàþòüñÿ ò³ ïàðàìåòðè, ÿê³ ïîòðåáóþòü çì³í.
2
Âèáèðàéòå ³ ïîñë³äîâíî â³äêðèâàéòå êëþ÷³ ç³ ñïèñêó â ë³â³é ÷àñòèí³ åêðàíà: HKEY_CURRENT_USER
Software
Microsoft
Windows
CurrentVersion
Policies
Explorer.
Software
Microsoft
Windows
CurrentVersion
Policies
Explorer.
3
Ïåðåêîíàéòåñÿ â òîìó, ùî â ñïèñêó â ïðàâ³é ÷àñòèí³ â³êíà ïðèñóòí³é ïàðàìåòð NoDesktop.  ³íøîìó âèïàäêó - ñòâîð³òü éîãî, âèáðàâøè «Ñòâîðèòè íîâèé ïàðàìåòð» â ñåðâ³ñíîìó ìåíþ, ÿêå ìîæíà âèêëèêàòè êë³êîì ïðàâîþ êíîïêîþ ìèø³ ïî ïîðîæíüîìó ì³ñö³ ó â³äêðèòîìó â³êí³ ðåäàêòîðà ðåºñòðó. Çàäàéòå òèï ïàðàìåòðà - DWORD, ùî äîçâîëÿº çáåð³ãàòè ÷èñëîâ³ çíà÷åííÿ.
4
³äêðèéòå íîâîñòâîðåíèé ïàðàìåòð ïîäâ³éíèì êë³êîì ìèø³ íà ïîëå ç éîãî íàçâîþ ³ ââåä³òü çíà÷åííÿ 0. Ó äåÿêèõ âèïàäêàõ äëÿ â³äíîâëåííÿ ³êîíîê ðîáî÷îãî ñòîëó ìîæå çíàäîáèòèñÿ ïîâíå âèäàëåííÿ ïàðàìåòðà (ÿêùî â³í áóâ ñòâîðåíèé øê³äëèâîþ ïðîãðàìîþ) .Àëüòåðíàò³âíèì ñïîñîáîì â³äíîâëåííÿ çíà÷ê³â ðîáî÷îãî ñòîëó ìîæå ïîñëóæèòè íàïèñàííÿ ñêðèïòà, ùî âèêîíóº âñþ ðîáîòó.
5
³äêðèéòå ïðîãðàìó «Áëîêíîò» ³ ñòâîð³òü íà ðîáî÷îìó ñòîë³ òåêñòîâèé ôàéë.
6
Ââåä³òü òàêå çíà÷åííÿ:
Dim WshShell
Dim Value
Dim ResultOn Error Resume NextSet WshShell = CreateObject ( "Wscript.Shell")
Value = WshShell.RegRead ( "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDesktop") If (Value = "") or (Value = 0) Then
Result = MsgBox ( "Çíà÷êè ðîáî÷îãî ñòîëó â³äíè.Ñêðèòü? ", 65," Ðåçóëüòàò ÷èòàííÿ ")
if Result = 1 then Value = 1
Else
Result = MsgBox ( "Çíà÷êè ðîáî÷îãî ñòîëó ñêðèòè.Ïîêàçàòü? ", 65," Ðåçóëüòàò ÷èòàííÿ ")
if Result = 1 then Value = 0
End ifWshShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDesktop", Value, "REG_DWORD" Result = MsgBox ( "Äëÿ çàâåðøåííÿ îïåðàö³¿ ïîòð³áíî ïåðåçàãðóçêà.Âèïîëí³òü ïåðåçàâàíòàæåííÿ?", 65, "Ïåðåçàâàíòàæåííÿ")
if Result = 1 then
Set OpSysSet = GetObject ( "winmgmts: {(Shutdown)}). ExecQuery (" select * from Win32_OperatingSystem where Primary = true ")
For Each OpSys In OpSysSet
OpSys.Reboot ()
Next
End IF
Dim WshShell
Dim Value
Dim ResultOn Error Resume NextSet WshShell = CreateObject ( "Wscript.Shell")
Value = WshShell.RegRead ( "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDesktop") If (Value = "") or (Value = 0) Then
Result = MsgBox ( "Çíà÷êè ðîáî÷îãî ñòîëó â³äíè.Ñêðèòü? ", 65," Ðåçóëüòàò ÷èòàííÿ ")
if Result = 1 then Value = 1
Else
Result = MsgBox ( "Çíà÷êè ðîáî÷îãî ñòîëó ñêðèòè.Ïîêàçàòü? ", 65," Ðåçóëüòàò ÷èòàííÿ ")
if Result = 1 then Value = 0
End ifWshShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDesktop", Value, "REG_DWORD" Result = MsgBox ( "Äëÿ çàâåðøåííÿ îïåðàö³¿ ïîòð³áíî ïåðåçàãðóçêà.Âèïîëí³òü ïåðåçàâàíòàæåííÿ?", 65, "Ïåðåçàâàíòàæåííÿ")
if Result = 1 then
Set OpSysSet = GetObject ( "winmgmts: {(Shutdown)}). ExecQuery (" select * from Win32_OperatingSystem where Primary = true ")
For Each OpSys In OpSysSet
OpSys.Reboot ()
Next
End IF
7
Âèáåð³òü «Çáåðåãòè» â ìåíþ «Ôàéë». Âêàæ³òü «Âñå ôàéëè» â âèïàäàþ÷îìó ìåíþ «Òèï ôàéëó» ³ ââåä³òü ³ì`ÿ ôàéëó ³ ðîçøèðåííÿ .vbs. (Ïðèêëàä: Desktop Icon.vbs)
8
Çàïóñò³òü ñêðèïò ³ ïåðåçàâàíòàæòå êîìï`þòåð.
Çâåðí³òü óâàãó
Ïàì`ÿòàéòå, ùî âíåñåííÿ çì³í äî ðåºñòðó ìîæå ïðèçâåñòè äî íåîáõ³äíîñò³ ïåðåóñòàíîâëåííÿ îïåðàö³éíî¿ ñèñòåìè Windows.
Êîðèñíà ïîðàäà
Ðåºñòð - ì³ñöå çáåð³ãàííÿ íàëàøòóâàíü îïåðàö³éíî¿ ñèñòåìè ³ âñòàíîâëåíîãî ïðîãðàìíîãî çàáåçïå÷åííÿ.
Ñòàòò³ çà òåìîþ "ßê ïîâåðíóòè ³êîíêó íà ðîáî÷èé ñò³ë"
Îö³í³òü, áóäü ëàñêà ñòàòòþ
Ùå ñòàòò³ ðîçä³ëó