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

broly

创建：

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 编辑 ]

LJY4.0

这个很好,感觉很好用

segree

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

zhangop9

右键-新建-VBS文件

huangbaoliang

非常的不错的啊，支撑架

dahual

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

'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")
复制代码

guaiwu

拜托、、  我弄了也不行啊

broly

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

yhcbird

建不起来啊！！！！！！