做了个程序,专门针对年收入120万,累计偷税漏税1300万的数学老师李永。。。
先放效果pkN94:Sg.jpg
检测机制是 检测到存在名为“李永”的U盘,就会弹出这个弹窗。
具体运行时会在后台每隔十秒检测一下,检测到就弹这个弹窗,然后退出。检测不到就再等10秒,所以杀伤力不是很大。
由于本人比较菜,实现这一功能写了三个文件pkN9gTP.jpg

dis.vbs,这个就是弹这么一个窗口,功能仅限如此,手动点一下就会弹出来,当然它得跟其他两个文件配合
pkN94Sg.jpg

1
MsgBox "李永违法补课,年收入 120W。累计偷税漏税1300W ,已达 无期徒刑 标准", vbOKOnly, "李永病毒"

很好理解,就是一个标准的弹窗代码

李永病毒.bat,这个是检测,只要检测到卷标为“李永”的U盘,就会弹出dis.vbs那个弹窗,然后退出。如果没有找到这个U盘就会等待10秒再检测,重复直到存在这个U盘。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
@echo off
:loop
set USBDrive=
for %%a in (D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
if exist %%a:\ (
vol %%a: | find "李永" > nul
if not errorlevel 1 set USBDrive=%%a:
)
)
if defined USBDrive (
start "" dis.vbs
exit
)
timeout /t 10 /nobreak >nul
goto loop

本人比较菜,还在用这个笨方法,不过效果没多大影响。

然后hide.vbs,这个是隐藏执行 李永病毒.bat ,不然等待的时候一直都有个黑框。。。

1
CreateObject("Wscript.Shell").Run "cmd /c 李永病毒.bat", 0, True

作用就是隐藏执行同目录的 李永病毒.bat

OK,拜拜