elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Administrador de Tareas VBScript
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Administrador de Tareas VBScript  (Leído 3,453 veces)
.:: KsV ::.

Desconectado Desconectado

Mensajes: 56



Ver Perfil
Administrador de Tareas VBScript
« en: 13 Diciembre 2012, 22:48 pm »

Q onda chav@sEn este mi primer aporte  les traigo un pequeño script q es como un segundo administrador de tareas


Es muy simple de usar solo ejecuten les preguntara q si qieren ver las aplicaciones
q estan corriendo si le dicen q si les creara y abrira un archhivo de texto con el nombrte de cada aplicacion segundos despues les pedira la aplicacion q se qiere cerrar no olviden la extensión ,ahora solo den enter y listo



Lo cree por q un virus no me degaba abrir el AT.  :silbar:

::)

aqui el code


Código
  1. 'VBScript By KsV
  2. Set ws = CreateObject("wscript.shell")
  3. a=msgbox ("Quieres Ver Las Aplicaciones En Ejecucion",36,".:Mini-Administrador De Tareas ksv:.")
  4. If a=VBYes Then
  5. Set ofso = CreateObject("scripting.filesystemobject")
  6. Set lita = ofso.createtextfile(".\EnEjecucion.txt")
  7. Set WM =GetObject("winmgmts:")
  8. Set listser= WM.instancesof("win32_process")
  9. For Each service In listser
  10. lita.writeline service.name
  11. lita.writeblanklines(1)
  12. Next
  13. lita.close
  14. ws.run ".\EnEjecucion.txt"
  15. Wscript.sleep 2000
  16. cual()
  17. Else
  18. cual()
  19. Sub cual()
  20. uv = InputBox("Nombre del proseso a terminar ",".:Mini-Administrador De Tareas:.")
  21. If Right(uv, 1) <> ".exe" Then                                
  22.    ap = uv & ".exe"
  23. ter(ap)
  24. else
  25. ter(uv)
  26. end if
  27.  
  28. End Sub
  29. sub ter(prne)
  30. 'empleando wmi Windows Management Instrumentation  terminamos el proceso indicado
  31. Set WM =GetObject("winmgmts:")                 'tomamos control de winmgmts por aqui pasan los procesos q se inician
  32. Set listser= WM.instancesof("win32_process")  'tomamos control de los procesos q se estan corriendo
  33. For Each service In listser 'recorremos cada uno de los prosesos
  34. If prne=service.name Then   'si el contenido de la var prne coincide con alguno de la lista
  35. service.Terminate 'lo terminamos
  36. End If
  37. Next
  38. End sub
  39. End If


Espero que les sirva el code creo q no tiene errores ,pero si les da uno m avisan no olviden los creditos  :D

KsV  ;-) DUDAS COMENTARISO  SUGERENCIAS RECLAMOS ETC SON SIEMPRE ACEPTADOS


« Última modificación: 19 Diciembre 2012, 22:45 pm por KsV » En línea

No confíes en aquel que una vez te defraudó.... William Shakespeare
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.824



Ver Perfil
Re: Administrador de Tareas VBScript
« Respuesta #1 en: 13 Diciembre 2012, 23:25 pm »

COMENTARIOs SON SIEMPRE ACEPTADOS

El código es inteligible, aprende y pon en práctica el uso de la Indentación

Código
  1. If ... Then
  2.     For ...
  3.         Orden
  4.         Otra orden
  5.     Loop
  6. End If

Saludos


En línea

.:: KsV ::.

Desconectado Desconectado

Mensajes: 56



Ver Perfil
Re: Administrador de Tareas VBScript
« Respuesta #2 en: 14 Diciembre 2012, 21:57 pm »

EleKtro H@cker

Si mis conosimientos no me fallan al  decir Indentación te refieres a q el mismo script ponga la extensión si esta no se le pone vdd

Si me eqivoco dimelo

Si es asi en un momento se lo agrego

Gracias  ::)
En línea

No confíes en aquel que una vez te defraudó.... William Shakespeare
-- KiLiaN --


Desconectado Desconectado

Mensajes: 1.163


Ju Já!!


Ver Perfil
Re: Administrador de Tareas VBScript
« Respuesta #3 en: 14 Diciembre 2012, 22:04 pm »

Lo que quiere decir es que tabules el texto para hacerlo más legible como en el ejemplo que él te ha puesto.
En línea

LordBynary

Desconectado Desconectado

Mensajes: 12


Ver Perfil
Re: Administrador de Tareas VBScript
« Respuesta #4 en: 19 Diciembre 2012, 06:45 am »

muy bueno el sccipt si podrias explicar a partir de la funcion me quedaria mas claro.

ahora me gustaria saber si alguien sabe un script en VBS para deshabilitar la pestaña procesos del administardor de tares, osea me explico mejor:

lo que quiero hacer que al ingresra al administradoe de tareas , cuando clickamos la pestaña procesos
que nos liste todos los procesos pero que aparezca la lista sin posibilidad de seleccionarlo ni eliminar el proceso nisiquiera de poder bajar el scrollbar osea la barra de despalzamiento de la parte de la dercha.

osea que se vean los procesos pero como solo lectura por asi decirlo, les agradecira su ayuda...

PD : esto lo vi en un internet cuando ejecute el taskmgr i fui a la pestaña procesos despues de un segundo se deshabilitaba la opcion de seleccionaar algun proceso y por ende de eliminarlo porque el boton de terminar proceso ttambien estaba deshabilitado y me di cuenta que tenia q ser con un script y no dede el registro como pensé en un princio.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
La memoria según fabricante y sistema no cuadra con la del Administrador de tareas
Hardware
Kyrie Eleison 1 1,914 Último mensaje 2 Noviembre 2020, 20:17 pm
por crazykenny
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines