设为首页收藏本站

切换到宽版

论坛BBS

批处理之家»论坛 › 其他脚本区 › VBS原创&转载 › 右键-新建-VBS文件

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发新帖

查看: 29964|回复: 10

[转贴] 右键-新建-VBS文件

发表于 2010-12-12 13:23:42 | 显示全部楼层 |阅读模式

创建：

filetype=".vbs"
Set wshshell=CreateObject("wscript.shell")
prg=readreg("HKCR"&filetype&"")
prgname=readreg("HKCR"&prg&"")
ask="新的vbs文件名"
title="创建新的vbs脚本"
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:注册表键值"""&key_&"""不能找到!"
MsgBox Error,vbCritical
WScript.Quit
End If
End Function

复制代码

删除：

Set wshshell=CreateObject("wscript.shell")
filetype=".vbs"
wshshell.RegDelete "HKCR"&filetype&"\shellnew"
MsgBox "command removed!"

复制代码

[ 本帖最后由 broly 于 2010-12-12 13:25 编辑 ]

回复

发表于 2011-1-3 16:23:27 | 显示全部楼层

建不起来啊！！！！！！

回复 

楼主| 发表于 2011-1-3 22:01:10 | 显示全部楼层

回复 2楼的帖子

你怎么建的？
后缀名字是VBS，不是BAT

回复 

发表于 2011-1-4 09:24:33 | 显示全部楼层

拜托、、我弄了也不行啊

回复 

发表于 2011-2-7 15:58:59 | 显示全部楼层

分享快乐！修正了下，这下可以了。

'ReadRegVal
Function ReadRegVal(Key)
On Error Resume Next
Set wshShell=CreateObject("WScript.Shell")
ReadRegVal=wshShell.RegRead(Key)
Set wshShell=Nothing
If Err.Number<>0 Then
MsgBox "描述：注册表键(值) """ & Key & """ 未找到!",vbCritical,"Error"
WScript.Quit
End If
End Function
'AddShellNew
Sub AddShellNew(ExtensionName)
Set wshShell=CreateObject("WScript.Shell")
Link=ReadRegVal("HKCR"& ExtensionName & "")
Description=ReadRegVal("HKCR" & Link &"")
NewDescription=InputBox("新建文件描述：","设置",Description)
If NewDescription<>"" Then
wshShell.RegWrite "HKCR" & Link &"",NewDescription
End If
wshShell.RegWrite "HKCR" & ExtensionName & "\ShellNew\NullFile",""
Set wshShell=Nothing
End Sub
'RemoveShellNew
Sub RemoveShellNew(ExtensionName)
Set wshShell=CreateObject("WScript.Shell")
wshShell.RegDelete "HKCR" & ExtensionName & "\ShellNew"
Set wshShell=Nothing
End Sub
'''''''
Call AddShellNew(".vbs")
'Call RemoveShellNew(".vbs")

复制代码

回复 

发表于 2011-2-24 20:11:29 | 显示全部楼层

非常的不错的啊，支撑架

回复 

发表于 2021-1-2 18:44:10 | 显示全部楼层

右键-新建-VBS文件

回复 

发表于 2022-6-7 15:59:40 | 显示全部楼层

牛批牛批，这个要得要得~~！！

回复 

发表于 2022-7-30 21:02:55 | 显示全部楼层

这个很好,感觉很好用

回复 

返回列表发新帖

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 01:45 , Processed in 0.018767 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表