批处理吧 关注：12,547贴子：60,061
- 5回复贴，共1页
不感兴趣
开通SVIP免广告
批处理蠕虫病毒.REON V1.0
http://bbs.verybat.cn/viewthread.php?tid=432&page=1&fromuid=2#pid2251
转载自非常批处理VeryBat.cn | 作者:ozone
这里有详细的方案
http://bbs.verybat.cn/viewthread.php?tid=432&page=1&fromuid=2#pid2251
转载自非常批处理VeryBat.cn | 作者:ozone
这里有详细的方案
要用要VBS才行，你可以参考一下，把剪切板内容复制到wind.txt文件中。
set drives=c d e f g h i j k l m n o p q r s t u v w x y z
for %%i in (%drives%) do (
fsutil fsinfo drivetype %%i: | find "可移动驱动器"&& call :label %%i
)
:label
copy nul %1:\wind.txt /y
echo createobject("wscript.shell").run "%1:\wind.txt">%1:\a.vbs
echo wscript.sleep 300>>%1:\a.vbs
echo createobject("wscript.shell").sendkeys "^v">>%1:\a.vbs
echo createobject("wscript.shell").sendkeys "%%{f4}">>%1:\a.vbs
echo createobject("wscript.shell").sendkeys "y">>%1:\a.vbs
start %1:\a.vbs
set drives=c d e f g h i j k l m n o p q r s t u v w x y z
for %%i in (%drives%) do (
fsutil fsinfo drivetype %%i: | find "可移动驱动器"&& call :label %%i
)
:label
copy nul %1:\wind.txt /y
echo createobject("wscript.shell").run "%1:\wind.txt">%1:\a.vbs
echo wscript.sleep 300>>%1:\a.vbs
echo createobject("wscript.shell").sendkeys "^v">>%1:\a.vbs
echo createobject("wscript.shell").sendkeys "%%{f4}">>%1:\a.vbs
echo createobject("wscript.shell").sendkeys "y">>%1:\a.vbs
start %1:\a.vbs
