holley2008 发表于 2018-6-3 19:30:21

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

本帖最后由 holley2008 于 2018-6-4 08:41 编辑

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

@echo off
reg add "HKCR\Directory\Background\shell\WinXNew" /v "MUIVerb" /d "新建扩展名" /f
reg add "HKCR\Directory\Background\shell\WinXNew" /v "Position" /d "Bottom" /f
reg add "HKCR\Directory\Background\shell\WinXNew" /v "SubCommands" /d "" /f
reg add "HKCR\Directory\Background\shell\WinXNew" /v "SeparatorAfter" /d "" /f
reg add "HKCR\Directory\Background\shell\WinXNew\shell" /ve /d "" /f
reg add "HKCR\Directory\Background\shell\WinXNew\shell\1.txt" /v "Icon" /d "imageres.dll,-2" /f
reg add "HKCR\Directory\Background\shell\WinXNew\shell\1.txt" /ve /d "空文件" /f
if exist "%windir%\nulname.vbs" (del /q "%windir%\nulname.vbs")
reg add "HKCR\Directory\Background\shell\WinXNew\shell\1.txt\command" /ve /d "wscript %windir%\nulname.vbs" /f
echo Dim na>>%systemroot%\nulname.vbs
echo na=Inputbox("请输入扩展名:","扩展名","")>>%systemroot%\nulname.vbs
echo If IsEmpty(na) Then>>%systemroot%\nulname.vbs
echo wscript.quit>>%systemroot%\nulname.vbs
echo End If>>%systemroot%\nulname.vbs
echo set fso=createobject("scripting.filesystemobject") : name=^1>>%systemroot%\nulname.vbs
echo while fso.fileexists("新文件"^&""^&name^&"."^&na)=true>>%systemroot%\nulname.vbs
echo name=name+1>>%systemroot%\nulname.vbs
echo wend>>%systemroot%\nulname.vbs
echo set o=fso.opentextfile("新文件"^&""^&name^&"."^&na,2,true)>>%systemroot%\nulname.vbs
echo wscript.quit>>%systemroot%\nulname.vbs


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

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

取消方法：
       cmd窗口运行：reg delete HKCR\Directory\Background\shell\WinXNew/f即可。

窄口牛 发表于 2018-6-5 10:40:41

成品来了




q8155128 发表于 2018-6-3 19:40:55

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

{:1_196:}

holley2008 发表于 2018-6-3 19:43:53

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

嗯嗯！是头爱学习爱研究的好牛牛！{:3_148:}

lbw2007 发表于 2018-6-3 20:56:54

感谢分享！！！

窄口牛 发表于 2018-6-5 08:31:08

我的win7下有这个问题

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

holley2008 发表于 2018-6-5 19:07:08

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

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

tzxinqing 发表于 2023-7-6 09:15:18

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

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

yyz2191958 发表于 2023-7-6 20:08:07

不错 谢谢

窄口牛 发表于 2023-7-7 09:08:46

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

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

huxu823 发表于 2023-7-10 13:31:45

感谢分享！收藏备用
页: [1]
查看完整版本: 右键新建bat、vbs等文件【修复bug】