看到标题你是不是不相信呢,说实话,换成以前我也不相信,VBS怎么可能屏蔽键盘和鼠标呢?光靠VBS当然是不可能的啦。但是结合我之前的两篇文章《用C语言屏蔽键盘和鼠标》和《用VBS读写二进制文件》,你会发现通过曲线救国的方法就可以实现了。这应该还算用VBS屏蔽的吧,就像网上很多人在批处理中调用VBS来实现一些批处理无法实现的功能一样。

用C语言写出来的程序还是有点太大了,我用汇编写了一个屏蔽键盘和鼠标的程序,编译好以后才2.5KB,把它的二进制数据放到VBS中不算太大,下载地址在文章末尾。

另外要说一下的是,网上也有所谓的“屏蔽”键盘的VBS程序,使用了快捷方式的快捷键来实现的,只能屏蔽单个按键,组合键和部分特殊按键无法屏蔽,不过拿来恶作剧一下也是不错的。但是代码中那个叫伤脑筋的写的代码通用性也太不高了,竟然使用"\程序\附件\辅助工具\"这样的路径,他怎么知道别人的电脑上有这个路径。我的系统是英文版的,就没有这个路径。于是我改写了一下,代码如下

Dim strKeys,arrKeys

strKeys = "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,"_

& "1,2,3,4,5,6,7,8,9,0,"_

& "Tab,Up,Down,Left,Right,"_

& "F1,F2,F3,F4,F5,F6,F7,"_

& "F8,F9,F10,F11,F12"

arrKeys = Split(strKeys,",",-1,1)

Dim WshShell

Set WshShell = CreateObject("wscript.Shell")

Dim fso

Set fso = CreateObject("scripting.filesystemobject")

Dim desktop

desktop = WshShell.SpecialFolders("Desktop")

Dim bound,link,path

bound = UBound(arrKeys)

For i = 0 To bound

path = desktop & "\" & arrKeys(i) &".lnk"

Set link = WshShell.CreateShortcut(path)

link.TargetPath = "http://demon.tw"

link.HotKey = arrKeys(i)

link.Save

fso.GetFile(path).Attributes = 6

Next

不过,还是下面给出的代码才是真正的屏蔽键盘,代码太长就不贴出来了,需要的自己下载。

VBS屏蔽键盘和鼠标的代码

[download id=16]

顺便附上汇编语言屏蔽键盘和鼠标的代码

[download id=17]

随机文章:

这篇文章发布于 2010年06月23日,星期三,19:04,归类于 程序设计。您可以跟踪这篇文章的评论通过 RSS 2.0 feed。

您可以留下评论,或者从您的站点trackback。

用c语言屏蔽鼠标键盘,用VBS屏蔽键盘和鼠标相关推荐

  1. C语言 ACLLib键盘方向键控制图形移动以及鼠标控制图形移动

    C语言 ACLLib键盘方向键控制图形移动以及鼠标控制图形移动 鼠标的参数 键盘的参数 键盘方向键控制图形移动 鼠标控制图形移动 鼠标的参数 button:5:没有按下鼠标1:按下左键2:按下中键3: ...

  2. 计算机上键盘无法输入法,为什么键盘打不出字 大家都会用鼠标点击输入法图...

    说到不出,大家应该都知道,有朋友问电脑键盘打不出字是怎么回事,还有人问电脑键盘打不出来字是什么原因,这到底怎么回事呢?事实上台式电脑的键盘突然不能用了呢,下面就由小编为大家介绍一下为什么键盘打不出字, ...

  3. python模拟鼠标点击和键盘输入的操作_Python模拟鼠标点击及键盘输入(PyUserInput)...

    一.背景 有时可以通过程序来监控键盘或鼠标行为来触发鼠标的点击或者键盘的输入,类似于按键精灵,而Python是门简洁易实现的语言,同时PyUserInput库简单封装了底层的调用. 整篇文章以Wind ...

  4. 电脑键盘怎么代替鼠标_今日电脑展上展出的鼠标、键盘、耳机

    今年的台北电脑展正进行得如火如荼,可以说是厂商和发烧友的狂欢.今天,新品电脑或者先进技术的相关新闻最近也十分之多.不过今天不讲这些,今天要带大家一起看看台北电脑展上的鼠标.键盘.耳机这些外设新品. 在 ...

  5. python模拟键盘输入视频_python教程-模拟鼠标和键盘输入

    大家可能知道,有的情形下,如果我们需进行自动化操作的应用程序不提供相对应的的接口,就难以通过Python直接调用API来做到自动化.在此类情形下,Python也并非压根没有办法,我们可以通过模拟键盘和 ...

  6. 鼠标计算机无法识别,如何解决usb鼠标和键盘无法识别问题

    如何解决usb鼠标和键盘无法识别问题 usb鼠标和键盘无法识别问题如何解决?usb鼠标无法识别总是让人非常恼火,具体就是插入键盘后电脑检测不到.我们可以插入USB鼠标试试看,如果还是检测不到的话,那只 ...

  7. python键盘控制_python实现键盘控制鼠标移动

    玩QQ桌球游戏时,有时候用鼠标控制鼠标指针的微小移动比较费劲儿,所以想写个程序,可以用键盘的上下左右键来控制鼠标的移动,每次只移动一个像素. 本脚本依赖pywin32.pyHook和pymouse这两 ...

  8. 如何禁用笔记本键盘输入?屏蔽掉笔记本键盘

    在上次除尘的时候,不小心损坏了键盘,导致Ctrl键一直是按下状态,效果你可以想象,例如,浏览网页时滚动滚轮,不是页面往下滚动,而是网页大小在滚动··非常影响使用.但是暂时还没办法维修,想了个办法,可解 ...

  9. 鼠标坏了怎么用键盘操作鼠标

    当鼠标坏了,可以使用键盘进行操作,确保键盘上有数字小键盘, 同时按下            左"Alt"    +    左"Shift" + "Nu ...

  10. php 屏蔽鼠标右键 复制,FLEX屏蔽鼠标右键

    屏蔽FLEX右键菜单以及实现自定义的FLEX右键功能 ========================================================================= ...

最新文章

  1. CF803C Maximal GCD
  2. BREW 计费模式概览
  3. (如何从一个列表中随机抽样)np.random.choice(),random.sample()
  4. iPhone应用程序图标 - 精确半径?
  5. doget dopost 过滤器 乱码
  6. 【年终总结】有三AI至今在人脸图像算法领域都分享了哪些内容?
  7. C++类分号(;)问题
  8. 实例28:python
  9. 我的DWR学习(二)
  10. 【转】【Java/Android】Toast使用方法大全
  11. 学python买什么书-关于 Python 的经典入门书籍有哪些?
  12. 压力测试 - Apache JMeter使用教程
  13. 技术族谱:软件开发相关知识体系的整理心得(图)
  14. 什么是局域网?什么是广域网?CCNP是什么证书?电信能提供长途数据线路吗?
  15. YB1205B 外置MOS异步升压恒流LED驱动控制器
  16. [剑指Offer]-把数字翻译成字符串
  17. 随机排列与八卦太极的联系
  18. 六边形俄罗斯方块游戏创意
  19. 插入字符到指定字符数组中指定位置
  20. 辽宁省葫芦岛市谷歌高清卫星地图下载

热门文章

  1. 分享:查重软件(免费)
  2. 感谢所有的幸运与不幸 --- 致我的2016
  3. 《开源之迷》:每天那么多人念叨的开源,究竟该如何解读?
  4. Simon‘s writting 全网最全笔记
  5. sonar配置报错问题处理
  6. java quicktime_Java Media Development with QuickTime for Java
  7. java构造扑克牌算法_java扑克牌算法
  8. 十四、数字图像处理之图像压缩
  9. 多线程抢票_多线程抢票系统浅析
  10. 3月股权激励团队管理内容回顾