vbs热键？

vbs使用热键只能运用快捷方式

通过创建桌面快捷方式，用快捷方式的快捷键启动已经编写好的另一个vbs程序，里面可以是用opentextfile创建一个新的文件，再用fileexists找到

set fso=wscript.createobject("scripting.filesystemobject")

strDesktop=WShell.SpecialFolders("Desktop")

openw.write("set fso=wscript.createobject("&chr(34)&"scripting.filesystemobject"&chr(34)&")"&vbcrlf&"set f=fso.opentextfile("&chr(34)&strdesktop&"\xxx.txt"&chr(34)&",1,true)")

openw.close

set oShellLink = WShell.CreateShortcut(strDesktop &"\xxx.lnk")

oShellLink.TargetPath = strdesktop&"\w.vbs"

oShellLink.WindowStyle = 1

oShellLink.Hotkey = "ctrl+alt+x"

oShellLink.WorkingDirectory = strdesktop

oShellLink.Save

……

………

………

do until fso.fileexists(strdesktop&"\xxx.txt")

wscript.sleep 100

loop

…………

…………

…………

快捷方式的快捷键只能是ctrl+alt+……

也可以创建一个进程，再用wmi历遍所有任务，如果找到则跳出循环，一样的道理

Dim x

Set x = CreateObject("Wscript.Shell")

Do

x.SendKeys "你要按的键" //Ctrl键用^表示。

Loop

Dim Ws set Ws = CreateObject("wscript.Shell") Ws.SendKeys "123456" Ws.SendKeys "{enter}" Ws.SendKeys "321654" '要指定在按下多个其他键时，按下 SHIFT、CTRL 和 ALT 的组合，请创建复合字符串参数，用括号括起其中的组合键。例如，要发送的组合键指定： '如果在按 e 和 c 的同时按 SHIFT 键，则发送字符串参数 "+(ec)"。 '如果在按 e 时只按 c（而不按 SHIFT），则发送字符串参数 "+ec"。 '可使用 SendKeys 方法发送一种在一行内重复按键的键击。为此，要创建复合字符串参数，以指定要重复的键击，并在其后指定重复次数。可使用 {键击 数字} 形式的复合字符串参数来完成上述 *** 作。例如，如果要发送 10 次 "x"，则需要发送字符串参数 "{x 10}"。请确保在键击和数字之间有一个空格。 '注意 只可以发送重复按一个键的键击。例如，可以发送 10 次 "x"，但不可发送 10 次 "Ctrl+x"。 '注意 不能向应用程序发送 PRINT SCREEN 键 {PRTSC}。

---