[Iska]

O L E G, как Вы запускаете «explorer.exe»?

[O L E G]

Код:

wsh.run "Explorer.exe" или wsh.run "Explorer.exe", 0 ,True

или

Код:

wsh.run "Taskkill /IM Explorer.exe /F", 0 ,True
wsh.run "Explorer.exe"

[Iska]

O L E G, вот Вам пример для Блокнота:

читать дальше »

Код:

Option Explicit

Dim strProcess
Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx

Dim lngProcessID


strProcess  = "notepad.exe"
strComputer = "."

Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")

If objSWbemServicesEx.Get("Win32_Process").Create(strProcess, Null, Nothing, lngProcessID) = 0 Then
	WScript.Echo "Process [" & strProcess & "] create successfully, Process ID is [" & lngProcessID & "]."
	
	WScript.Sleep 3000
	
	If objSWbemServicesEx.Get("Win32_Process.Handle='" & CStr(lngProcessID) & "'").Terminate() = 0 Then
		WScript.Echo "Process [" & strProcess & "], Process ID [" & lngProcessID & "] terminate successfully."
	Else
		WScript.Echo "Can't terminate process [" & strProcess & "], Process ID [" & lngProcessID & "]."
	End If
Else
	WScript.Echo "Can't create process [" & strProcess & "]."
End If

Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0

Пытаемся запустить Блокнот, в случае успеха ждём три секунды, пытаемся закрыть тот экземпляр Блокнота, который запустили.

В случае же Проводника не всё так однозначно. Во-первых, процесс Проводника может существовать как в единственном экземпляре, так и в двух — когда настройками указано разделять процессы Проводника «Рабочего стола» и папок (вторичные входы здесь не рассматриваем). Во-вторых, если просто попытаться завершить процесс «Рабочего стола» Проводника — «Программа входа в систему Windows NT» (winlogon.exe) его попросту перезапустит (справедливо, по крайней мере для WIndows XP). Отменить подобное поведение можно, указав ненулевое значение «Reason» при вызове метода «.Terminate(Reason)».

К тому же, я совсем не понял, зачем снимать процесс, запускать процесс и снова снимать его. Ну, и, утверждение:

невозможно закрыть Explorer во 2 раз,так как он находиться в под процессе »

не верно.

[O L E G]

к примеру у тебя стоит блокировка win + L, если снять процесс explorer и запустить его заново он будет по верх этой блокировки,что нам даст полное дествие над ПК

[Iska]

к примеру у тебя стоит блокировка win + L, если снять процесс explorer и запустить его заново он будет по верх этой блокировки,что нам даст полное дествие над ПК »

«он будет по верх этой блокировки» — не подтверждаю.

[O L E G]

я пробовал! работает)) 100% поэтому я и задался этим вопросом

[Iska]

Значит, это не есть:

блокировка win + L »

[O L E G]

Iska, а вот с этим скриптом что ты мне дал на примере Блокнотапо верх Блокировки не вылазиет, пытался изменить но выдает ошибку

Код:

---------------------------
Windows Script Host
---------------------------
Сценарий:	C:\Documents and Settings\Admin\Рабочий стол\cmd\vbs\Программа KeyRepair\unlock\служба восстановления реестра\запуск и завершение процесса\Копия 1.vbs
Строка:	24
Символ:	2
Ошибка:	Не найден 
Код:	80041002
Источник: 	SWbemServicesEx

---------------------------
ОК   
---------------------------

оставлял только закрытие процесса.

Код:

Option Explicit

Dim strProcess
Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx

Dim lngProcessID


strProcess  = "explorer.exe"


Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")



	
	
	WScript.Sleep 3000
	
	If objSWbemServicesEx.Get("Win32_Process.Handle='" & CStr(lngProcessID) & "'").Terminate() = 0 Then
		
	Else
		WScript.Echo "Can't terminate process [" & strProcess & "], Process ID [" & lngProcessID & "]."
	End If

	WScript.Echo "Can't create process [" & strProcess & "]."


Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0

а открывал по своему

Код:

wsh.run "Explorer.exe"

[Iska]

Вы убрали код для запуска процесса и получения его идентификатора, а затем пытаетесь применить неинициализированную PID'ом (стало быть — нулевую) переменную «lngProcessID» для получения экземпляра процесса с последующим его закрытием.

Не удивительно, что это не работает, ибо в терминах Wbem процесс с нулевым PID'ом — это «System Idle Process» — «ожидание» системы.

[O L E G]

Код:

Option Explicit

Dim strProcess
Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx

Dim lngProcessID


strProcess  = "Explorer.exe"
strComputer = "."

Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")

If objSWbemServicesEx.Get("Win32_Process").Create(strProcess, Null, Nothing, lngProcessID) = 0 Then
	WScript.Echo "Process [" & strProcess & "] create successfully, Process ID is [" & lngProcessID & "]."
	
	WScript.Sleep 3000
	
	If objSWbemServicesEx.Get("Win32_Process.Handle='" & CStr(lngProcessID) & "'").Terminate() = 0 Then
		WScript.Echo "Process [" & strProcess & "], Process ID [" & lngProcessID & "] terminate successfully."
	Else
		WScript.Echo "Can't terminate process [" & strProcess & "], Process ID [" & lngProcessID & "]."
	End If
Else
	WScript.Echo "Can't create process [" & strProcess & "]."
End If

Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0

Данный скрипт открывает процесс в подпроцессе Winlogon, а можно ли его переписать,что бы открывал как отдельный процесс?не в под процессах?