批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

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

创建:
  1. filetype=".vbs"
  2. Set wshshell=CreateObject("wscript.shell")
  3. prg=readreg("HKCR\"&filetype&"\")
  4. prgname=readreg("HKCR\"&prg&"\")
  5. ask="新的vbs文件名"
  6. title="创建新的vbs脚本"
  7. prgname=InputBox(ask,title,prgname)
  8. wshshell.RegWrite "HKCR\"&prg&"\",prgname
  9. wshshell.RegWrite "HKCR\"&filetype&"\shellnew\nullfile",""
  10. Function readreg(key)
  11. On Error Resume Next
  12. readreg=wshshell.RegRead(key)
  13. If Err.Number>0 Then
  14. Error="error:注册表键值"""&key_&"""不能找到!"
  15. MsgBox Error,vbCritical
  16. WScript.Quit
  17. End If
  18. End Function
复制代码
删除:
  1. Set wshshell=CreateObject("wscript.shell")
  2. filetype=".vbs"
  3. wshshell.RegDelete "HKCR\"&filetype&"\shellnew\"
  4. MsgBox "command removed!"
复制代码
[ 本帖最后由 broly 于 2010-12-12 13:25 编辑 ]
---学无止境---

建不起来啊!!!!!!
菜鸟学批,一批一大批~~~~~~

TOP

回复 2楼 的帖子

你怎么建的?
后缀名字是VBS,不是BAT
---学无止境---

TOP

拜托、、  我弄了也不行啊

TOP

分享快乐!修正了下,这下可以了。
  1. 'ReadRegVal
  2. Function ReadRegVal(Key)
  3. On Error Resume Next
  4. Set wshShell=CreateObject("WScript.Shell")
  5. ReadRegVal=wshShell.RegRead(Key)
  6. Set wshShell=Nothing
  7. If Err.Number<>0 Then
  8. MsgBox "描述:注册表键(值) """ & Key & """ 未找到!",vbCritical,"Error"
  9. WScript.Quit
  10. End If
  11. End Function
  12. 'AddShellNew
  13. Sub AddShellNew(ExtensionName)
  14. Set wshShell=CreateObject("WScript.Shell")
  15. Link=ReadRegVal("HKCR\"& ExtensionName & "\")
  16. Description=ReadRegVal("HKCR\" & Link &"\")
  17. NewDescription=InputBox("新建文件描述:","设置",Description)
  18. If NewDescription<>"" Then
  19. wshShell.RegWrite "HKCR\" & Link &"\",NewDescription
  20. End If
  21. wshShell.RegWrite "HKCR\" & ExtensionName & "\ShellNew\NullFile",""
  22. Set wshShell=Nothing
  23. End Sub
  24. 'RemoveShellNew
  25. Sub RemoveShellNew(ExtensionName)
  26. Set wshShell=CreateObject("WScript.Shell")
  27. wshShell.RegDelete "HKCR\" & ExtensionName & "\ShellNew\"
  28. Set wshShell=Nothing
  29. End Sub
  30. '''''''
  31. Call AddShellNew(".vbs")
  32. 'Call RemoveShellNew(".vbs")
复制代码

TOP

非常的不错的啊,支撑架

TOP

右键-新建-VBS文件

TOP

牛批牛批,这个要得要得~~!!

TOP

返回列表