Помогите пожалуйста - Страница 4

01pump · 14.02.2009, 00:13

Начит ту ссылку изучай

Iljeben · 14.02.2009, 00:16

Давайте я тож присоеденюсь к лиге любителей скриптов.
Скопируй этот скрипт в блокнот измени расширение на vbs и запусти.

'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don't show.
'© Kelly Theriot and Doug Knox - 8/22/2003

Set WSHShell = WScript.CreateObject("WScript.Shell")

Message = "To work correctly, the script will close" & vbCR
Message = Message & "and restart the Windows Explorer shell." & vbCR
Message = Message & "This will not harm your system." & vbCR & vbCR
Message = Message & "Continue?"

X = MsgBox(Message, vbYesNo, "Notice")

If X = 6 Then

On Error Resume Next

WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Ex plorer\StuckRects2\"
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Ex plorer\StreamMRU\"
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Ex plorer\Streams\Desktop\"

WshShell.RegDelete "HKCU\Software\Microsoft\Internet Explorer\Explorer Bars\{32683183-48a0-441b-a342-7c2a440a9478}\BarSize"

P1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\Explorer\"

WshShell.RegWrite p1 & "NoBandCustomize", 0, "REG_DWORD"
WshShell.RegWrite p1 & "NoMovingBands", 0, "REG_DWORD"
WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD"
WshShell.RegWrite p1 & "NoSetTaskbar", 0, "REG_DWORD"
WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD"
WshShell.RegWrite p1 & "NoSaveSettings",0,"REG_DWORD"
WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD"
WshShell.RegWrite p1 & "NoSetTaskbar",0,"REG_DWORD"
WshShell.RegWrite p1 & "NoActiveDesktop",0,"REG_DWORD"
WshShell.RegWrite p1 & "ClassicShell",0,"REG_DWORD"

p1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Gr oup Policy Objects\LocalUser\Software\Microsoft\Windows\Curre ntVersion\Policies\Explorer\"

WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD"
WshShell.RegDelete p1 & "NoMovingBands"

p1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell"

WshShell.RegWrite p1, "explorer.exe", "REG_SZ"

p1 = "HKCU\Software\Microsoft\Internet Explorer\Explorer Bars\{32683183-48a0-441b-a342-7c2a440a9478}\"
WshShell.RegDelete p1 & "BarSize"
WshShell.RegWrite p1, "Media Band", "REG_SZ"

On Error Goto 0

For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next

MsgBox "Finished." & vbcr & vbcr & "© Kelly Theriot and Doug Knox", 4096, "Done"

Else

MsgBox "No changes were made to your system." & vbcr & vbcr & "© Kelly Theriot and Doug Knox", 4096, "User Cancelled"

End If

FILICHPOK · 14.02.2009, 00:17

Что-то опасное))

Iljeben · 14.02.2009, 00:20

Неа, просто скопируй в блокнот сохрани под любыи именем и измени расширение на vbs. И все.

01pump · 14.02.2009, 00:20

Оффтоп :)
О! ночная смена пришла! Пойду спать чтоль

Iljeben · 14.02.2009, 00:23

Цитата:

Сообщение от 01pump

Оффтоп :)
О! ночная смена пришла! Пойду спать чтоль

Неа оставайся ради спортивного интереса. Посмотрим что выйдет.

FILICHPOK · 14.02.2009, 00:24

А как расширение менять?у меня из возможных только txt

Iljeben · 14.02.2009, 00:26

FILICHPOK, если боисшя применить скрипт иди в реестр по пути
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon] там справа найди Shell шелкни два раза и пропиши полный путь Explorer
C:\\WINDOWS\\Explorer.exe

FILICHPOK · 14.02.2009, 00:27

Я не боюсь,я ламер)

Iljeben · 14.02.2009, 00:28

Цитата:

Сообщение от FILICHPOK

А как расширение менять?у меня из возможных только txt

Сохрани с расширением txt, а потом правая кнопка переименовать и там вместо txt пишешь vbs

01pump · 14.02.2009, 00:30

Цитата:

Сообщение от FILICHPOK

А как расширение менять?у меня из возможных только txt

по файлу этому txt кликай правой мышкой-свойства-вкладка Общие- в строке вверху с именем файла идет полсе точки расширение .txt так ты смени его на .vbs и примени

FILICHPOK · 14.02.2009, 00:31

Пытался так сделать))документ называется "Скрипт",переименовываю..и теперь он называется "Скрипт.vbs",суть от этого не поменялась,только название)
Ну что поделать,вот такой я чайнеГ)

Iljeben · 14.02.2009, 00:33

Ну вот теперь запусти (шелкни два раза. Выйдет окошко нажми да.

FILICHPOK · 14.02.2009, 00:37

Пацаны,он изначально называется "Скрипт" а не "Скрипт.txt",в этом трабл)меняется только название..мб другой редактор?

01pump · 14.02.2009, 00:41

включи в проводнике Сервис-свойства- вид- убери птичку с "скрывать раширения зарег типов файлов". затем смени расширение с txt на vbs
Запусти его и потом снова верни птичку "скрывать расширения"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
помогите пожалуйста	Александр Горбачёв	Железо	1	10.01.2011 23:54
Помогите пожалуйста!	dimarist	Железо	3	12.11.2010 09:12
Помогите пожалуйста!!!	Rikki-Tikki-Tavi	Игры	9	04.11.2010 18:08
пожалуйста, помогите	Vodynoy	Windows 7	1	29.10.2010 21:08
Помогите пожалуйста!	Дмитрий D.	Неисправности, настройка	1	01.10.2010 19:54
Помогите, пожалуйста!	plobon	Железо	2	25.06.2010 20:23
Пожалуйста, помогите!	reyder09	Неисправности, настройка	2	16.08.2009 01:58
Помогите пожалуйста!	Poma	Windows XP	1	08.08.2009 01:54
помогите, пожалуйста	devo4ka_v_pezho	Безопасность	1	13.06.2009 00:45
помогите пожалуйста!!!	nadja	Неисправности, настройка	4	08.06.2009 22:08
Помогите пожалуйста!!!	mitreykina66	Windows XP	6	14.02.2009 16:57

14.02.2009, 00:13	#46 (ссылка)
01pump Специалист Регистрация: 01.01.2009 Сообщений: 13,209 Репутация: 415	Начит ту ссылку изучай

14.02.2009, 00:16	#47 (ссылка)
Iljeben Мастер Регистрация: 27.10.2008 Сообщений: 9,488 Записей в блоге: 4 Репутация: 702	Давайте я тож присоеденюсь к лиге любителей скриптов. Скопируй этот скрипт в блокнот измени расширение на vbs и запусти. 'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don't show. '© Kelly Theriot and Doug Knox - 8/22/2003 Set WSHShell = WScript.CreateObject("WScript.Shell") Message = "To work correctly, the script will close" & vbCR Message = Message & "and restart the Windows Explorer shell." & vbCR Message = Message & "This will not harm your system." & vbCR & vbCR Message = Message & "Continue?" X = MsgBox(Message, vbYesNo, "Notice") If X = 6 Then On Error Resume Next WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Ex plorer\StuckRects2\" WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Ex plorer\StreamMRU\" WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Ex plorer\Streams\Desktop\" WshShell.RegDelete "HKCU\Software\Microsoft\Internet Explorer\Explorer Bars\{32683183-48a0-441b-a342-7c2a440a9478}\BarSize" P1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\Explorer\" WshShell.RegWrite p1 & "NoBandCustomize", 0, "REG_DWORD" WshShell.RegWrite p1 & "NoMovingBands", 0, "REG_DWORD" WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD" WshShell.RegWrite p1 & "NoSetTaskbar", 0, "REG_DWORD" WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD" WshShell.RegWrite p1 & "NoSaveSettings",0,"REG_DWORD" WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD" WshShell.RegWrite p1 & "NoSetTaskbar",0,"REG_DWORD" WshShell.RegWrite p1 & "NoActiveDesktop",0,"REG_DWORD" WshShell.RegWrite p1 & "ClassicShell",0,"REG_DWORD" p1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Gr oup Policy Objects\LocalUser\Software\Microsoft\Windows\Curre ntVersion\Policies\Explorer\" WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD" WshShell.RegDelete p1 & "NoMovingBands" p1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell" WshShell.RegWrite p1, "explorer.exe", "REG_SZ" p1 = "HKCU\Software\Microsoft\Internet Explorer\Explorer Bars\{32683183-48a0-441b-a342-7c2a440a9478}\" WshShell.RegDelete p1 & "BarSize" WshShell.RegWrite p1, "Media Band", "REG_SZ" On Error Goto 0 For Each Process in GetObject("winmgmts:"). _ ExecQuery ("select * from Win32_Process where name='explorer.exe'") Process.terminate(0) Next MsgBox "Finished." & vbcr & vbcr & "© Kelly Theriot and Doug Knox", 4096, "Done" Else MsgBox "No changes were made to your system." & vbcr & vbcr & "© Kelly Theriot and Doug Knox", 4096, "User Cancelled" End If

14.02.2009, 00:17	#48 (ссылка)
FILICHPOK Новичок Регистрация: 12.02.2009 Сообщений: 45 Репутация: 0	Что-то опасное))

14.02.2009, 00:20	#49 (ссылка)
Iljeben Мастер Регистрация: 27.10.2008 Сообщений: 9,488 Записей в блоге: 4 Репутация: 702	Неа, просто скопируй в блокнот сохрани под любыи именем и измени расширение на vbs. И все.

14.02.2009, 00:20	#50 (ссылка)
01pump Специалист Регистрация: 01.01.2009 Сообщений: 13,209 Репутация: 415	Оффтоп :) О! ночная смена пришла! Пойду спать чтоль

14.02.2009, 00:24	#52 (ссылка)
FILICHPOK Новичок Регистрация: 12.02.2009 Сообщений: 45 Репутация: 0	А как расширение менять?у меня из возможных только txt

14.02.2009, 00:26	#53 (ссылка)
Iljeben Мастер Регистрация: 27.10.2008 Сообщений: 9,488 Записей в блоге: 4 Репутация: 702	FILICHPOK, если боисшя применить скрипт иди в реестр по пути [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon] там справа найди Shell шелкни два раза и пропиши полный путь Explorer C:\\WINDOWS\\Explorer.exe

14.02.2009, 00:27	#54 (ссылка)
FILICHPOK Новичок Регистрация: 12.02.2009 Сообщений: 45 Репутация: 0	Я не боюсь,я ламер)

14.02.2009, 00:31	#57 (ссылка)
FILICHPOK Новичок Регистрация: 12.02.2009 Сообщений: 45 Репутация: 0	Пытался так сделать))документ называется "Скрипт",переименовываю..и теперь он называется "Скрипт.vbs",суть от этого не поменялась,только название) Ну что поделать,вот такой я чайнеГ)

14.02.2009, 00:33	#58 (ссылка)
Iljeben Мастер Регистрация: 27.10.2008 Сообщений: 9,488 Записей в блоге: 4 Репутация: 702	Ну вот теперь запусти (шелкни два раза. Выйдет окошко нажми да.

Ads

Ads

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

14.02.2009, 00:37	#59 (ссылка)
FILICHPOK Новичок Регистрация: 12.02.2009 Сообщений: 45 Репутация: 0	Пацаны,он изначально называется "Скрипт" а не "Скрипт.txt",в этом трабл)меняется только название..мб другой редактор?

14.02.2009, 00:41	#60 (ссылка)
01pump Специалист Регистрация: 01.01.2009 Сообщений: 13,209 Репутация: 415	включи в проводнике Сервис-свойства- вид- убери птичку с "скрывать раширения зарег типов файлов". затем смени расширение с txt на vbs Запусти его и потом снова верни птичку "скрывать расширения"