右键新建bat、vbs等文件【修复bug】

holley2008

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

1. 
   
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  即可。

窄口牛

成品来了


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

2018-6-5 10:40 上传

点击文件名下载附件
下载积分: 无忧币 -2

q8155128

俺的牛牛还是不错的......

holley2008

q8155128 发表于 2018-6-3 19:40
俺的牛牛还是不错的......

嗯嗯！是头爱学习爱研究的好牛牛！

lbw2007

感谢分享！！！

窄口牛

我的win7下有这个问题

win10下没有
我基本排除注册表原因

holley2008

窄口牛 发表于 2018-6-5 10:40
成品来了

不错，！对bat、vbs、cmd等进一步的扩展会很好！

tzxinqing

窄口牛 发表于 2018-6-5 10:40
成品来了

能否修改下，放在在系统原有的新建（W）里面，而不是多出一个“新建”选项，谢谢

yyz2191958

不错 谢谢

窄口牛

tzxinqing 发表于 2023-7-6 09:15
能否修改下，放在在系统原有的新建（W）里面，而不是多出一个“新建”选项，谢谢

做不到，根本不是一码事。

huxu823

感谢分享！收藏备用