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

[转贴] 右键-新建-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 编辑 ]
---学无止境---

回复 2楼 的帖子

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

TOP

返回列表