Un Vbscript con evento del teclado? (RESUELTO)

Iniciado por SuperDraco, 30 Junio 2010, 11:31 AM

0 Miembros y 1 Visitante están viendo este tema.

SuperDraco

Hola, no se nada de vbscript pero entre ejemplos de google y un poco de lógica he llegado a poder crear esto:

Código (vb) [Seleccionar]

Set oShell = CreateObject("WScript.Shell")
Set objshell = createobject("wscript.shell")
Set prog = objshell.exec("cmd /c taskkill /F /IM cmd.exe")
Set mensaje = objshell.exec("cmd /c echo Proceso cancelado a peticion del usuario  :(")
oshell.SendKeys "{F9}~"
Msgbox mensaje.stdout.readall
WScript.Quit


Bien, pero esto no es lo que quiero, teniendo esto, como hago para que se termine el proceso del CMD.EXE solamente  si el usuario presiona la tecla F9?

(NovLucker se que tu sabes :'S xD)
No he vuelto, solo estoy de paso.

Novlucker

No me queda claro lo que quieres hacer con el script, porque para matar el cmd, ejecutas el cmd, por lo que podrías incluso terminar antes tu propio proceso :xD

Por otra parte, para asignarlo al botón F9, crea un acceso directo en el escritorio y en las propiedades cambia la "Tecla de método abreviado" :P

Saludos
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."
Albert Einstein

SuperDraco

jajaja es increible, llevo usando windows mas de 8 años y nunca me habia fijado en ese detalle de los accesos directos XD, que bueno eres!

Sobre lo primero, tienes razon seria mas logico esto no?

Código (vb) [Seleccionar]
Set Sh = createobject("wscript.shell")
Sh.Run "Taskkill /f /im cmd.exe", 0



Bueno ya lo e podido terminar con tu ayuda gracias ^^ (aunque preferiria no tener q depender del acceso directo :/ )
No he vuelto, solo estoy de paso.

Novlucker

jeje, es que no puedes hacer un hook del teclado con vbs, se podría intentar utilizando las macros de excel y ahí no dependes del acceso directo, sino de un método más complejo y el office :-\

Ese code esta mejor

Saludos
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."
Albert Einstein

SuperDraco

ahá!!!! por fin encontré lo que keria xD


HotKey
   

Keyboard shortcut: a combination of keys that, when held down together, will start the application. Keyboard shortcuts typically consist of one of the following keys plus a letter (az), number (09), or function key (F1F12):

    *

      ALT
    *

      CTRL
    *

      SHIFT

For example, to set the keyboard shortcut to the CTRL key and the 9 key, use this value:

CTRL + 9

If the key combination you select is already in use, it will be overwritten and will be applied to the new shortcut created by your script.

objShortCut.HotKey = "Ctrl+Shift+I"



tema resuelto.
No he vuelto, solo estoy de paso.

Novlucker

Y por que no preguntaste antes? :xD ... claro, puedes crear el acceso directo desde vbs y asignarle la hotkey :P

Saludos
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."
Albert Einstein

SuperDraco

no sabia q se podia hacer ni una cosa ni la otra :/ aora lo del acceso directo me convence mas ya q puedo ocultarlo y crearlo donde kiera xD saludos
No he vuelto, solo estoy de paso.