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

赞 (0)

相关推荐

  • VB实现的倒计时类代码详解

    本文所述为用VB制作倒计时程序用到的一个Module类代码,是基于控制台的倒计时程序,可供VB初学者或者VB爱好者参考学习,当然读者也可以将其拷贝代码到VB工程里面直接使用,不过需要自己创建相关的代码,对于初学者来说,也是很容易看懂的一段代码. 具体功能代码如下: Module Module1 Sub Main() Dim a As Date Dim h, m, s As Integer Dim n, i As Long Dim x, z As Long Dim y As Long Consol

  • VB实现屏蔽文本框右键菜单的复制、粘贴等功能的方法

    本文实例讲述了VB屏蔽文本框中的右键菜单.复制.粘贴等功能的实现方法.该功能就是禁止文本框的右键功能,造成点击鼠标右键无效.是非常常见的一类实用功能. 具体的功能模块代码如下: '========================================================== '| 模 块 名 | TextBoxDisableAbility '| 说 明 | 禁止文本框的功能 '=================================================

  • javascript屏蔽右键代码

    javascript屏蔽右键 复制代码 代码如下: <span style="font-size:18px;color:#ff0000;"><strong>document.oncontextmenu=function(e){ return false; };</strong></span>

  • 网页屏蔽(左右键,代码等)的非JS方法第1/2页

    很早就想写一篇关于网页源代码屏蔽的文章.是因为经常编出些JS脚本的之后,在沾沾自喜的同时,也在担心源代码会被人家看到,盗用我的脚本.所以一直以来,我都在尽力维护我的网页源代码的安全.虽然目前还没有找到完全安全的屏蔽方法(也就是说,这些方法在我想出来的同时,自己已经知道其弱点和破解方法了),但是,我这里有很多屏蔽的思路,来总结一下.  众所周知,要保护一个页面,最基础的就是要屏蔽右键.而现在网页上用得最多的是function click(),即下面这段代码: 〈script〉  function 

  • 屏蔽网页右键复制和ctrl+c复制的js代码

    老是有些网站会屏蔽你的鼠标右键或者用快捷键复制,其实只是一段js代码,解决的方法就是直接把网页保存下来然后删掉下面这段js代码,然后就可以正常用右键菜单了. 当然,也可以通过设置浏览器的安全级别到最高级别来解决问题. 复制代码 代码如下: <script> document.oncontextmenu = function(){ return false; } document.onkeydown = function(){ if (event.ctrlKey && windo

  • VB读取线程、句柄及写入内存的API代码实例

    本文所述实例为VB读取内存.线程及句柄的一个API,对涉及系统底层操作的VB编程有一定的帮助,需要的读者可以参考使用.这个API可获取到线程ID,写内存,包括进程句柄,ByVal 内存区地址,数据,总长度,已经完成长度,读取进程,包括进程句柄,ByVal 内存区地址,读取来的数据存放处,要读取的长度,已经读取的长度,内存分配(进程柄,地址[好像只要丢个0进去就行],长度,权限1[MEM_COMMIT],权限2[PAGE_READWRITE])返回:分配到的内存起始地址等功能. 具体实现代码如下:

  • 屏蔽Flash右键信息的js代码

    复制代码 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv=&qu

  • jquery禁用右键单击功能屏蔽F5刷新

    1.禁用右键单击功能 复制代码 代码如下: $(document).ready(function() { $(document).bind("contextmenu",function(e) { alert("sorry! No right-clicking!"); return false; }); }); 2.屏蔽F5刷新 复制代码 代码如下: $(document).ready(function() { $(document).bind("keydo

  • vbs之使用Internet Explorer 屏蔽密码

    复制代码 代码如下: Set objExplorer = WScript.CreateObject _      ("InternetExplorer.Application", "IE_")  objExplorer.Navigate "file:///c:\scripts\password.htm"     objExplorer.Visible = 1               objExplorer.ToolBar = 0  objEx

  • VB使用XMLHTTP实现Post与Get的方法

    本文所述为visual basic6.0的一个模块方法,是使用XMLHTTP实现Post与Get功能,虽然是一个老代码,但是可以替代Inet控件,实现数据通讯.很值得学习借鉴一下. 主要模块代码如下: '========================================================== '| 模 块 名 | XMLHTTP '| 说 明 | 替代Inet控件,实现数据通讯 '============================================

  • 屏蔽端口的vbs脚本

    屏蔽端口的vbs脚本

    复制代码 代码如下: 'On Error Resume Next Const ALLOW_ALL = 0 Port = Array("4900", "5000", "5100", "5500", "5600", "6000", "7000", "7100", "7200", "7300", "740

  • VB调用Word拼写检查功能实例

    众所周知,Word有自带的拼写检查功能.VB中想要实现调用 Word 拼写检查功能其实很简单就可以实现,方法是先建立word对象,然后把需要检查的字符串放到 WORD中,调用word拼写检查,再取出返回值,最后关闭对象. 各个步骤的具体实现代码如下所示: Function CheckSpell(IncorrectText as string) as string Dim Word As Object, retText$ On Error Resume Next '建立WORD对象并打开 Set

随机推荐