中国DOS联盟

虽然我不会，我帮你顶起来。他们肯定知道。

Originally posted by loquat at 2009-9-6 10:41:
del /f %0
这个怎么写到text.bat中去？？？

echo del /f %%0 >>test.bat 这样就可以了！

这句话如果在批处理里面执行…… %0 可能就是 执行重定向的批处理的路径。

Originally posted by xiaofei120 at 2009-9-9 07:10:





echo del /f %%0 >>test.bat 这样就可以了！

写进去没用。。。

@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)

echo del /f %%0 >>text.bat

::start /w notepad text.bat

start text.bat

发现上面代码可行。
但是运行后无论怎么改都会在CMD中输出“找不到批处理文件。”
怎么去掉这个提示。
>nul 2>nul 加到哪个位置？？？

和伤脑筋的批处理还有一点点差距啊。
人家的没有这个错误提示。。。



Last edited by loquat on 2009-9-10 at 07:08 ]

没人进来看了，再顶起来。。。

你没看到你CMD的标题麽。

cd切换路径

Originally posted by slore at 2009-9-11 01:16:
你没看到你CMD的标题麽。

cd切换路径

提示依旧，一下两种改法都是一样的提示。

@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)

echo cd /d "%homepath%\桌面\" >>text.bat

echo del /f %%0 >>text.bat

::start /w notepad text.bat

start text.bat

@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)

echo del %%0 >>text.bat

echo cd /d "%homepath%\桌面\" >>text.bat

::start /w notepad text.bat

start text.bat

现在的情况是start text.bat时，运行到del %0这一句的时候，能执行成功删除text.bat文件。
然后会返回一个提示"找不到批处理文件！"
能不能退出text.bat时才执行删除命令？

另外第一页那个vbs的代码有人会改吗？？？

这么改也还是有问题，我瞎了啊。。。

@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)

echo cd /d %~dp0 >>text.bat

echo del %%0 >>text.bat

::start /w notepad text.bat

start text.bat

这样，怎么还有问题呢。。。

@echo off

mshta vbscript:createobject("scripting.filesystemobject").opentextfile("text.bat",2,true).writeline(CreateObject("htmlfile").parentwindow.clipboarddata.getdata("text"))(window.close)

::echo cd /d %~dp0 >>text.bat

::echo del %%0 >>text.bat

::start /w notepad text.bat

start text.bat

cd /d %~dp0

del text.bat >nul 2>nul

还是没人进来，一点点差别搞不定，汗，没人再进来了么？
start本身比call好用些，因为call之后就直接exit了，不能再继续输入命令执行。
http://bbs.verybat.org/viewthread.php?tid=19057
这边也发过帖了。。。

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

Originally posted by slore at 2009-9-12 04:28:
Option Explicit

Dim strClipb
Dim objIE
Dim WshShell,oExec

Set objIE =

感谢老大进来看帖。

vbs我是完全不会，正在业余学习中。呵呵~~~

其实，单纯的批处理主帖的两种想法都实现了。

主要是bat命令用call之后，运行完不能继续手动输入命令再执行了。这一点不是我不喜欢，我只是好奇，多一种想法和探讨。。。start是否能完美删除临时bat文件而不留那个错误提示？

vbs里面还是用的call，并且没有删除临时文件的项目。vbs我就不会了，没法自己尝试完善了。。。

所以继续顶帖，盼高手出手吧。