Hola. ¿Cual es el codigo para matar un proceso en vbs? Si puede ser, sin usar la consola (tskill o similares). Esque no me acuerdo del code y lo e mirado por todos lados pero no lo encuentro. Gracias.
En línea
-Asus Crosshair IV Formula -AMD Phenom II X6 1090T 3.94Ghz @1.38V -Corsair H70 -Sapphire Radeon HD 6970 2GB Dual-Fan -G.Skill PIS PC3-17066 4GB 1900MHz 7-9-7-20 @1.65V -WD Caviar Black 500GB -Seagate Barracuda Green 2TB x2 -Antec TruePower New 750W Modular -Cooler Master Dominator CM-690
set taskmgr = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process")
'Obtienes acceso a los procesos
Foreach process in taskmgr
If Lcase(process.name) = "notepad.exe"then
Process.terminate
EndIf
Next
Saludos
« Última modificación: 31 Diciembre 2008, 01:50 am por Novlucker »
En línea
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro."
Muchas gracias por responder pero la verdad no entiendo mucho el code. Creo que exportas los procesos y luego compruebas si esta uno determinado para terminarlo. No habria algo en visual basic script similar a esto:
tskill notepad
Edit: ademas tu codigo no me funciona
« Última modificación: 31 Diciembre 2008, 01:41 am por FroSeck »
En línea
-Asus Crosshair IV Formula -AMD Phenom II X6 1090T 3.94Ghz @1.38V -Corsair H70 -Sapphire Radeon HD 6970 2GB Dual-Fan -G.Skill PIS PC3-17066 4GB 1900MHz 7-9-7-20 @1.65V -WD Caviar Black 500GB -Seagate Barracuda Green 2TB x2 -Antec TruePower New 750W Modular -Cooler Master Dominator CM-690
Lo similar en vbs es eso ,el código primero accede a la lista de procesos, luego verifica que el nombre del proceso sea notepad.exe (en este caso), y si coincide lo mata.
Citar
Edit: ademas tu codigo no me funciona
Tienes abierto un bloc de notas? sino no va a funcionar, yo lo acabo de probar Por si el ejecutable de tu NOTEPAD esta en maýusculas, he agregado un pequeño detalle en el code
En línea
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro."
Si ok me funciona, se me olvido ponerle la extension (costumbre de usar el tskill xd). Bueno, ahora el problema es otro xd... ¿como lo puedo integrar con este code?
Do
'matar el proceso ejemplo.exe en el caso que exista
set objshell = createobject("wscript.shell") objshell.run "%systemroot%\System32\ejemplo.exe" wscript.sleep 20000 Do Loop Until Variable = True
Mi idea es que antes de ejecutar la aplicacion mate el proceso si existe. Es un bucle infinito.
En línea
-Asus Crosshair IV Formula -AMD Phenom II X6 1090T 3.94Ghz @1.38V -Corsair H70 -Sapphire Radeon HD 6970 2GB Dual-Fan -G.Skill PIS PC3-17066 4GB 1900MHz 7-9-7-20 @1.65V -WD Caviar Black 500GB -Seagate Barracuda Green 2TB x2 -Antec TruePower New 750W Modular -Cooler Master Dominator CM-690
Simplemente lo agregas, solo tienes que cambiar el ejecutable y como mucho agregar un IF para continuar
En línea
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro."
Autor
En línea
,el código primero accede a la lista de procesos, luego verifica que el nombre del proceso sea notepad.exe (en este caso), y si coincide lo mata.
