• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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 

    您可能感兴趣的文章:
    • javascript屏蔽右键代码
    • jquery禁用右键单击功能屏蔽F5刷新
    • 屏蔽网页右键复制和ctrl+c复制的js代码
    • 屏蔽Flash右键信息的js代码
    • 网页屏蔽(左右键,代码等)的非JS方法
    • 屏蔽端口的vbs脚本
    • vbs之使用Internet Explorer 屏蔽密码
    • VB使用XMLHTTP实现Post与Get的方法
    • VB读取线程、句柄及写入内存的API代码实例
    • VB实现的倒计时类代码详解
    • VB调用Word拼写检查功能实例
    • VB实现屏蔽文本框右键菜单的复制、粘贴等功能的方法
    上一篇:刷QQ群的VBS脚本
    下一篇:alpha2 shellcode解密的vbs脚本
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    vbs屏蔽键盘按键 vbs,屏蔽,键盘,按键,vbs,屏蔽,