联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
set tc="%temp%\%random%.vbs"
echo Set tc=WScript.CreateObject("WScript.Shell")>%tc%
echo tc.Run "notepad.exe %~f1">>%tc%
echo tc.AppActivate "%~nx1 - 记事本">>%tc%
echo WScript.Sleep 500 >>%tc%
echo tc.SendKeys "%%FA%~n1bak.txt%%EA%%SY%%{F4}N">>%tc%
cscript %tc%
pause
Originally posted by everest79 at 2007-3-14 10:29 AM:
set tc="%temp%\%random%.vbs"
echo Set tc=WScript.CreateObject("WScript.Shell")>%tc%
echo tc.Run "notepad.exe %~f1">>%tc%
echo tc.AppActivate " ...
set tc="%temp%\%random%.vbs"
echo Set tc=WScript.CreateObject("WScript.Shell")>%tc%
echo tc.Run "notepad.exe 文件名.txt">>%tc%
echo tc.AppActivate "文件名 - 记事本">>%tc%
echo WScript.Sleep 500 >>%tc%
echo tc.SendKeys "%%FA文件名bak.txt%%EUUU%%SY%%{F4}N">>%tc%
cscript %tc%
pauseset tc="%temp%\%random%.vbs"
echo Set tc=WScript.CreateObject("WScript.Shell")>%tc%
echo tc.Run "notepad.exe 文件名.txt">>%tc%
echo tc.AppActivate "文件名 - 记事本">>%tc%
echo WScript.Sleep 500 >>%tc%
echo tc.SendKeys "%%FA文件名bak.txt%%EUUU%%SY%%{F4}N">>%tc%
cscript %tc%
pause
for /f "delims=" %%i in ('dir /b /a-d *.txt') do (start notepad "%%i")Originally posted by jdxhyuan at 2007-3-15 09:21 AM:
现在问题是怎样才能调用多个无规则的文件名来做想同的处理呢，而这段代码的文件名要求要输入。
set tc="%temp%\%random%.vbs"
echo Set tc=WSc ...
for /f "delims=" %%i in ('dir /b /a-d *.txt') do (call :ansi "%%~dpnxi")
goto :eof
:ansi
set tc="%temp%\%random%.vbs"
echo ct=WScript.Arguments.Item(0)
echo Set tc=WScript.CreateObject("WScript.Shell")>%tc%
echo tc.Run "notepad.exe %~f1">>%tc%
echo tc.AppActivate "%~nx1 - 记事本">>%tc%
echo WScript.Sleep 500 >>%tc%
echo tc.SendKeys "%%FA%~n1bak.txt%%EA%%SY%%{F4}N">>%tc%
cscript %tc%
goto :eof