Hola a todos ,bueno el motivo de este post es para agradecer a un usuario del chat de tarinaga (marco)todo empezo cuando miraba videos de como tunear la pc ...y empeze a instalar cosas como por ejemplo side bars y barras personalizables , cuando tenia muchas de estaas cositas note que al apretar el icono del escritorio muchas de estas cosas desaparecian (por ejemplos si queria visualizar la barra rocket dock rapidamente apretaba escritorio y esta desaparecia como por arte de magia )entonces investigando el problema lei por ahi que esto era un problema de windows ... en fin vamos a la solucion improvisada pero bastante buena ...lo que hice fue tratar de crear un archivo en bat o vbs (estos se hacen copiando una serie de comandos en un Block de nota) dicho archivo tendria como fin ejecutar el comando (tecla windows + m) ya que al apretar esto se minimizan todas las ventanas ..pero no consegui hacer eso por mucho que googlie... entonces se me ocurrio entrar al chat de taringa y consultar .en el chat muchos chicos brindaron ayuda (gracias) ..y un usuario (marco) me dijo que podia hacer lo siguiente ....crear un archivo vbs con una serie que les paso a mostrar ...Set wshshell = CreateObject("Shell.Application" )
wshshell.MinimizeAll
lo que hace esto es minimizar las ventanas que tengas abiertas haciendo solamente un click ...luego lo arrastras hacia la barra donde se encuentra el icono de mostrar escritorio y listo (la barra rocket dock ya no desaparece)
como crear el archivo vbs:
abrir bloc de notas
luego lo guardan como "nombre del archivo" .vbs
y finalmente cuando tengan el archivo creado lo arrastran junto al escritorio
bueno espero que les sirva a mi me sirve mucho es basicamente un boton q minimiza todo automatikamente si el codigo no se puede apreciar bien aka va otra vez:
Set wshshell = CreateObject("Shell.Application" ) <-sto va to2 junto,lo q psa es q puse espacio x q sino sale sto "
wshshell.MinimizeAll
("Shell.Application"
aka sta otra vz
Set wshshell = CreateObject("Shell.Application" )
wshshell.MinimizeAll
wshshell.MinimizeAll
lo que hace esto es minimizar las ventanas que tengas abiertas haciendo solamente un click ...luego lo arrastras hacia la barra donde se encuentra el icono de mostrar escritorio y listo (la barra rocket dock ya no desaparece)
como crear el archivo vbs:
abrir bloc de notas
luego lo guardan como "nombre del archivo" .vbs
y finalmente cuando tengan el archivo creado lo arrastran junto al escritorio
bueno espero que les sirva a mi me sirve mucho es basicamente un boton q minimiza todo automatikamente si el codigo no se puede apreciar bien aka va otra vez:
Set wshshell = CreateObject("Shell.Application" ) <-sto va to2 junto,lo q psa es q puse espacio x q sino sale sto "
wshshell.MinimizeAll
("Shell.Application"
aka sta otra vz
Set wshshell = CreateObject("Shell.Application" )
wshshell.MinimizeAll