VBNet - Форум - Нужен скрипт vbs

Вопрос: Нужен скрипт vbs Добавлено: 02.07.10 19:23

Автор вопроса: 007

Мне нужен простейший vbs скрипт, который завершает любой заданный по названию процесс в windows xp. Напишите мне код если не сложно. Заранее спс.
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: Eugy Вопросов: 0 Ответов: 73	Профиль \| \| #1	Добавлено: 04.07.10 06:11
	Во народ! никто человеку ни строчки не напишет... a = inputbox("жертва?","goodby","explorer.exe") if len(a) then Set xPocs = GetObject("winmgmts://").InstancesOf("Win32_Process") For Each x In xPocs If LCase(x.Name) = LCase(a) Then x.Terminate msgbox("убит") end if Next end if Ответить

Номер ответа: 2 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #2	Добавлено: 04.07.10 07:11
	taskkill /? Ответить

Номер ответа: 3 Автор ответа: 007 Вопросов: 1 Ответов: 4	Профиль \| \| #3	Добавлено: 04.07.10 15:39
	Всем спасибо, особенно Eugy, не совсем то что я просил, я хотел в самом скрипте вписать несколько процессов которые будут убиваться, но так тоже ничего. Ответить

Номер ответа: 4 Автор ответа: 007 Вопросов: 1 Ответов: 4	Профиль \| \| #4	Добавлено: 04.07.10 15:39
	спасибо ! Ответить

Номер ответа: 5 Автор ответа: 007 Вопросов: 1 Ответов: 4	Профиль \| \| #5	Добавлено: 04.07.10 16:14
	Я уже немного разобрался, недаром я 007 ! Eugy, я из него такой сделал : a = ("wmagent.exe" if len then Set xPocs = GetObject("winmgmts://".InstancesOf("Win32_Process" For Each x In xPocs If LCase(x.Name) = LCase Then x.Terminate end if Next end if b = ("IEXPLORE.EXE" if len(b) then Set xPocs = GetObject("winmgmts://".InstancesOf("Win32_Process" For Each x In xPocs If LCase(x.Name) = LCase(b) Then x.Terminate end if Next end if c = ("BCWipeSvc.exe" if len then Set xPocs = GetObject("winmgmts://".InstancesOf("Win32_Process" For Each x In xPocs If LCase(x.Name) = LCase(c) Then x.Terminate end if Next end if d = ("BCWipeTM.exe" if len(b) then Set xPocs = GetObject("winmgmts://".InstancesOf("Win32_Process" For Each x In xPocs If LCase(x.Name) = LCase(d) Then x.Terminate end if Next end if но я смотрю он не все процессы может убивать, наверно приоритет слабый, не знаю... Как сделать чтобы он мог убивать любой процесс ? Ответить

Номер ответа: 6 Автор ответа: 007 Вопросов: 1 Ответов: 4	Профиль \| \| #6	Добавлено: 04.07.10 16:15
	почему эти смайлики получились ??? Ответить

Номер ответа: 7 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #7	Добавлено: 04.07.10 17:23
	+1 taskkill /f Ответить

Номер ответа: 8 Автор ответа: Шпион ICQ: 250543104 Вопросов: 13 Ответов: 118	Профиль \| \| #8	Добавлено: 14.07.10 23:34
	а я за использование WMI порой очень сильно выручает, особенно против порно-баннеров Ответить

Страница: 1 |