无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站投放广告、加入VIP会员,请联系 微信:wuyouceo
查看: 6958|回复: 10
打印 上一主题 下一主题

[分享] 右键新建bat、vbs等文件【修复bug】

  [复制链接]
跳转到指定楼层
1#
发表于 2018-6-3 19:30:21 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 holley2008 于 2018-6-4 08:41 编辑

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

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


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

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

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

评分

参与人数 1无忧币 +5 收起 理由
q8155128 + 5 神马都是浮云

查看全部评分

推荐
发表于 2018-6-5 10:40:41 | 只看该作者
成品来了


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

点评

能否修改下,放在在系统原有的新建(W)里面,而不是多出一个“新建”选项,谢谢  详情 回复 发表于 2023-7-6 09:15
不错,!对bat、vbs、cmd等进一步的扩展会很好!  详情 回复 发表于 2018-6-5 19:07
回复

使用道具 举报

3#
发表于 2018-6-3 19:40:55 | 只看该作者
俺的牛牛还是不错的......

点评

嗯嗯!是头爱学习爱研究的好牛牛!  详情 回复 发表于 2018-6-3 19:43
回复

使用道具 举报

4#
 楼主| 发表于 2018-6-3 19:43:53 | 只看该作者
q8155128 发表于 2018-6-3 19:40
俺的牛牛还是不错的......

嗯嗯!是头爱学习爱研究的好牛牛!
回复

使用道具 举报

5#
发表于 2018-6-3 20:56:54 | 只看该作者
感谢分享!!!
回复

使用道具 举报

6#
发表于 2018-6-5 08:31:08 | 只看该作者
我的win7下有这个问题

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

使用道具 举报

7#
 楼主| 发表于 2018-6-5 19:07:08 | 只看该作者

不错,!对bat、vbs、cmd等进一步的扩展会很好!
回复

使用道具 举报

8#
发表于 2023-7-6 09:15:18 | 只看该作者

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

点评

做不到,根本不是一码事。  详情 回复 发表于 2023-7-7 09:08
回复

使用道具 举报

9#
发表于 2023-7-6 20:08:07 | 只看该作者
不错 谢谢
回复

使用道具 举报

10#
发表于 2023-7-7 09:08:46 来自手机 | 只看该作者
tzxinqing 发表于 2023-7-6 09:15
能否修改下,放在在系统原有的新建(W)里面,而不是多出一个“新建”选项,谢谢

做不到,根本不是一码事。
回复

使用道具 举报

11#
发表于 2023-7-10 13:31:45 | 只看该作者
感谢分享!收藏备用
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-12-12 07:17

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表