无忧启动论坛

标题: 右键新建bat、vbs等文件【修复bug】 [打印本页]
作者: holley2008    时间: 2018-6-3 19:30
标题: 右键新建bat、vbs等文件【修复bug】
本帖最后由 holley2008 于 2018-6-4 08:41 编辑

看到“窄口牛”相关帖子，
http://bbs.wuyou.net/forum.php?m ... 08927&extra=&page=1
看到“窄口牛”的动图显示，突然想到这个功能对于经常会写些小脚本的我而言，特别有用。
虽然“窄口牛”脚本是在PE下实现的，但win平台稍微改改照样适用，于是参考如下：

  2. @echo off
  3. reg add "HKCR\Directory\Background\shell\WinXNew" /v "MUIVerb" /d "新建扩展名" /f
  4. reg add "HKCR\Directory\Background\shell\WinXNew" /v "Position" /d "Bottom" /f
  5. reg add "HKCR\Directory\Background\shell\WinXNew" /v "SubCommands" /d "" /f
  6. reg add "HKCR\Directory\Background\shell\WinXNew" /v "SeparatorAfter" /d "" /f
  7. reg add "HKCR\Directory\Background\shell\WinXNew\shell" /ve /d "" /f
  8. reg add "HKCR\Directory\Background\shell\WinXNew\shell\1.txt" /v "Icon" /d "imageres.dll,-2" /f
  9. reg add "HKCR\Directory\Background\shell\WinXNew\shell\1.txt" /ve /d "空文件" /f
  10. if exist "%windir%\nulname.vbs" (del /q "%windir%\nulname.vbs")
  11. reg add "HKCR\Directory\Background\shell\WinXNew\shell\1.txt\command" /ve /d "wscript %windir%\nulname.vbs" /f
  12. echo Dim na>>%systemroot%\nulname.vbs
  13. echo na=Inputbox("请输入扩展名:","扩展名","")>>%systemroot%\nulname.vbs
  14. echo If IsEmpty(na) Then>>%systemroot%\nulname.vbs
  15. echo wscript.quit>>%systemroot%\nulname.vbs
  16. echo End If>>%systemroot%\nulname.vbs
  17. echo set fso=createobject("scripting.filesystemobject") : name=^1>>%systemroot%\nulname.vbs
  18. echo while fso.fileexists("新文件"^&""^&name^&"."^&na)=true>>%systemroot%\nulname.vbs
  19. echo name=name+1>>%systemroot%\nulname.vbs
  20. echo wend>>%systemroot%\nulname.vbs
  21. echo set o=fso.opentextfile("新文件"^&""^&name^&"."^&na,2,true)>>%systemroot%\nulname.vbs
  22. echo wscript.quit>>%systemroot%\nulname.vbs
复制代码


代码几乎全部照套“窄口牛”的示例，这里表示感谢！！！今早测试，发现取消后，再次运行不生效，原来是条件判断未完全生效，故再次修改。

使用方法：
       代码保存为.bat文件，直接运行，在桌面或任意文件夹中，右键会多出“新建扩展名”-“空文件”，，，不输扩展名，直接确定即生成类似hosts的无后缀名文件。

取消方法：
       cmd窗口运行：reg delete HKCR\Directory\Background\shell\WinXNew  /f  即可。
作者: q8155128    时间: 2018-6-3 19:40
俺的牛牛还是不错的......

作者: holley2008    时间: 2018-6-3 19:43
q8155128 发表于 2018-6-3 19:40
俺的牛牛还是不错的......

嗯嗯！是头爱学习爱研究的好牛牛！
作者: lbw2007    时间: 2018-6-3 20:56
感谢分享！！！
作者: 窄口牛    时间: 2018-6-5 08:31
我的win7下有这个问题

win10下没有
我基本排除注册表原因
作者: 窄口牛    时间: 2018-6-5 10:40
成品来了


右键添加新建空白文件.rar (650 Bytes, 下载次数: 55)

作者: holley2008    时间: 2018-6-5 19:07
窄口牛 发表于 2018-6-5 10:40
成品来了

不错，！对bat、vbs、cmd等进一步的扩展会很好！
作者: tzxinqing    时间: 2023-7-6 09:15
窄口牛 发表于 2018-6-5 10:40
成品来了

能否修改下，放在在系统原有的新建（W）里面，而不是多出一个“新建”选项，谢谢
作者: yyz2191958    时间: 2023-7-6 20:08
不错 谢谢
作者: 窄口牛    时间: 2023-7-7 09:08
tzxinqing 发表于 2023-7-6 09:15
能否修改下，放在在系统原有的新建（W）里面，而不是多出一个“新建”选项，谢谢

做不到，根本不是一码事。
作者: huxu823    时间: 2023-7-10 13:31
感谢分享！收藏备用



欢迎光临 无忧启动论坛 (http://bbs.wuyou.net/) Powered by Discuz! X3.3