用VB脚本实现向右键菜单添加快捷方式

最新推荐文章于 2024-09-15 12:49:10 发布

原创最新推荐文章于 2024-09-15 12:49:10 发布 · 1.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #脚本 #vbscript #extension #function #command

未分类专栏收录该内容

3 篇文章

订阅专栏

博客主要围绕 Vb 脚本展开，设置了文件扩展名.vbs，通过创建 WScript.Shell 对象连接注册表进行操作，读取注册表信息，还可输入新的 Vb 脚本名称并写入注册表，同时定义了读取注册表的函数。

'this is file extension the command
'should generate
filetype=".vbs"
'connect to WScript.Shell registry access
set WSHShell = CreateObject("WScript.Shell")
'read in the name of vbs-section
prg = ReadReg("HKCR/"&tiletype&"/")
prgname = ReadReg("HKCR/"&prg&"/")
'ask for a new name
ask = "What Should be the name for new VBScript script"
title="新建 Vb 脚本"
prgname = InputBox(ask,title,prgname)
WSHSHell.RegWrite "HKCR/"&PRG&"/",prgname
WSHSHell.RegWrite "HKCR/"&filetype&"/ShellNew/NullFile",""
function ReadReg(key)
on error resume next
ReadReg = WSHSHell.RegRead(key)
if err.Number > 0 then
  error = "Error:Registry-key"""&key&"""could not be found!!"
  MsgBox error.vbCritical
  WScript.Quit
end if
end function