中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-10-01 10:45

共 47,813 主题排行 / 349,918 发帖 / 今日 0 篇 / 48,279 会员排行

DOS批处理 & 脚本技术（批处理室） » 如何这样执行批处理代码？从txt和从粘贴板

可打印版本　3,554 / 35

第1楼　loquat	发表于 2009-09-05 04:39
初级用户　发帖 80　积分 81
如何这样执行批处理代码？从txt和从粘贴板 1、从txt中执行一段cmd代码因为我不少人保存在电脑里面的代码都是txt的怎么在鼠标右键中添加一个“bat”或者“cmd” 点击这个选项就直接把这个txt当做bat文件来执行。。。 2、点击某一个文件，就直接执行粘贴板的命令。以前经常看到非常批处理的伤脑筋这么玩。。。

第2楼　loquat	发表于 2009-09-05 11:37
初级用户　发帖 80　积分 81
哇，好多人进来了，都没有回答偶啊。是这个问题问得太菜了？还是我没有表述明白？

第3楼　defanive	发表于 2009-09-05 12:58
初级用户　发帖 62　积分 111
第一个问题请参考注册表 HKEY_CLASSES_ROOT\txtfile\shell的部分

第4楼　tireless	发表于 2009-09-06 00:04
银牌会员　发帖 1,122　积分 2,025
1、在“运行”对话框中运行： reg add HKEY_CLASSES_ROOT\txtfile\shell\RunAsBat\command /ve /d "cmd /c copy \"%1\" \"%temp%\txt.bat\">nul & \"%temp%\txt.bat\"" /f 2、nircmd.exe exec show "~$clipboard$"

第5楼　loquat	发表于 2009-09-06 10:15
初级用户　发帖 80　积分 81
感谢tireless 吼吼，一看nircmd.exe，好多好多强大的命令哦。。。 http://www.nirsoft.net/utils/nircmd.html

第6楼　loquat	发表于 2009-09-06 10:36
初级用户　发帖 80　积分 81
找到这么一个代码。。。 @echo off :其中将剪贴板的文本保存为text.bat的作者为清风——地址：http://bbs.verybat.org/viewthread.php?tid=11762 mshta vbscript:createobject("scripting.filesystemobject").opentextfile("text.bat",2,true).writeline(CreateObject("htmlfile").parentwindow.clipboarddata.getdata("text"))(window.close) ::start /w notepad text.bat start text.bat 不懂vbs，怎么弄成关闭text.bat时就删除本身？？？

第7楼　loquat	发表于 2009-09-06 10:41
初级用户　发帖 80　积分 81
del /f %0 这个怎么写到text.bat中去？？？

第8楼　loquat	发表于 2009-09-06 10:45
初级用户　发帖 80　积分 81
直接用del test.bat好像不行在test里面添加一句也不行echo del /f %0 >> text.bat 再test里添加echo del text.bat >> text.bat还是不行。奇怪了。。。 [ Last edited by loquat on 2009-9-6 at 10:49 ]

第9楼　loquat	发表于 2009-09-06 11:08
初级用户　发帖 80　积分 81
还有一个vbs的，怎么去掉它的弹窗？？？并在bat执行完毕后删除临时文件？？？ Option Explicit dim strClipb dim objIE Dim WshShell,oExec Set objIE = CreateObject("htmlfile") strClipb=objIE.parentWindow.clipboardData.getData("text") WScript.Echo strClipb CreateBat strClipb If strClipb = "" Then Set objIE =Nothing WScript.Quit End If '剪贴板如果为空，不执行命令' Set WshShell = CreateObject("WScript.Shell") 'Set oExec= WshShell.Exec("%comspec% /k _tempbat.bat") '这句CMD不能自动关闭 WshShell.Run("%comspec% /c call _tempbat.bat"),1, false '执行BAT, "pause"执行后退出 Set objIE =Nothing Set WshShell =Nothing Sub CreateBat(strCopy) '创建BAT文件 Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("_tempbat.bat", True) MyFile.WriteLine strCopy &vbcrlf& "pause" '在所有代码后加回车及"pause" MyFile.Close Set fso =Nothing Set MyFile =Nothing End Sub [ Last edited by loquat on 2009-9-6 at 11:10 ]

第10楼　loquat	发表于 2009-09-07 00:21
初级用户　发帖 80　积分 81
再顶一下，问题还没有完美解决。希望有人再进来看一下。怎么删除临时文件。。。

第11楼　netbenton	发表于 2009-09-07 02:19
银牌会员　发帖 752　积分 1,916　来自广西
建一个bat.bat文件，内容如下： @copy %1 %~n1.cmd 1>nul @call %~n1.cmd @del /q %~n1.cmd 1>nul 把要变为BAT执行的文件类型，在选择打开方式中指定始终用bat.bat程序打开这样每次双击该类型的文件，就当成批处理文件运行了

第12楼　deason21	发表于 2009-09-07 09:31
初级用户　发帖 12　积分 20
到处看看

第13楼　loquat	发表于 2009-09-08 08:02
初级用户　发帖 80　积分 81
是一种方法，但是txt文件怎么能改成始终作为bat打开呢？你能看看楼上那几个已经成功的代码吗？如果能删除临时文件就完美了。

第14楼　523066680	发表于 2009-09-08 08:53
银牌会员　发帖 1,133　积分 2,361
你说始终啊…… 关联成batfile 如果是看文本的话右键-编辑觉得不方便看文本的话，最多再改回去…… [ Last edited by 523066680 on 2009-9-8 at 08:57 ]

第15楼　loquat	发表于 2009-09-08 12:50
初级用户　发帖 80　积分 81
Originally posted by 523066680 at 2009-9-8 08:53: 你说始终啊…… 关联成batfile 如果是看文本的话右键-编辑觉得不方便看文本的话，最多再改回去…… [ Last edited by 523066680 on 2009-9-8 at 08:57 ] 不是，上面tireless提供的那个代码。像现在这样我觉得是最好的了。。。现在的问题是执行剪贴板的bat代码那个。。。上面我上面找到的代码都是vbs的，都要生成临时bat文件。怎么执行完后删除临时文件。vbs不懂。。。

1 2 3 　下一页

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023