监控并中止QQ及QQgame进程 的vbs 脚本
'监控并中止QQ及QQgame进程，同样可以用于中断其他程序进程，只要将进程的name写入stop_qq.txt- o1 u( |; G4 u' q0 A" H, W, s$ K
'此脚本由 wscript.exe 脚本解析程序负责解析执行.
3 u6 M; t% h$ a- ~'此脚本是死循环程序，要中断此脚本只需要在STOP_QQ.TXT 中填入含有 “WSCRIPT.EXE” 内容的记录并保存(Ctrl+S)，脚本会将自身中断。
; i3 U9 B6 a7 b; }0 G! F4 @'当程序中断以后再删除 "wscript.exe" 数据，以确保下次能够正常发挥作用。" x/ \3 H" t8 M6 n" n
on error resume next
2 r4 P% L3 k- d( nSet os0=createobject("shell.application")
) P7 V! ^. L& @ L- vSet os=CreateObject("wscript.shell")) ]8 A2 x; J9 Q2 e. K. z* A. j
Set fs=CreateObject("scripting.filesystemobject")
! J7 r' U/ l6 l6 `- z# l7 Z7 gSet wmi=GetObject("winmgmts:\\.")
( Q! H1 g" o) c1 t5 C- Opathx=fs.GetFile(WScript.scriptFullName).ParentFolder.Path6 V) a" o) o" o. S1 C8 [/ F
path0=fs.GetFile(WScript.scriptFullName).Path
$ |* w- s" T% z* X6 DSet path1=fs.GetSpecialFolder(1)2 E L& Z% F2 E2 l; C: Y/ M
'--------------------------------------------------------------------------------
4 ~# T) \) o, f! O'----------------MAIN DO LOOP --------------------------------------------------4 i7 D: O% ^6 P
Do
. Z+ I1 H/ ^4 ~' q, U'create_boot/ D5 E& _: A* e/ | K( r
Set d0=createobject("scripting.dictionary")
: A6 g( v* f G5 |8 O qedit_d
' F' j d' T, Y) L# F4 s% Nstop_p
: o9 y: f g" {WScript.Sleep 50001 {4 {, I2 R1 ^- Z
Loop
, P$ n2 K/ S3 F" u6 s1 r'---------------------------------------------------------------------------------
: M; o; C0 U1 y( z'-------安装启动项, V7 t- K8 [/ R0 a
Sub create_boot
( `$ J; l# k+ q2 mIf fs.FolderExists(path1&"\vbs") = False Then fs.CreateFolder path1&"\vbs": D3 u6 V! N9 D' ?. m- f
fs.CopyFile path0 , path1&"\vbs\boot.vbs",True
' C; ~7 A `( e1 ~+ B4 bIf fs.FileExists(pathx&"\stop_qq.txt") Then fs.CopyFile pathx&"\vbs\stop_qq.txt" , path1&"\stop_qq.txt",true0 z4 N7 C/ ?, u q7 U# `6 D) w
os.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\stop_qq", Chr(34)&path1&"\vbs\BOOT.vbs"+Chr(34)( G6 ^* T$ e$ ]1 X! X' |
End Sub
' G2 |4 V+ T$ y'---------------------------------------------------------------------------------8 e7 ]# R' {$ S
'----------将数据文件中的数据导入dictionary d0
* b" R+ A! x; S: \4 ^, ?* t% Ysub edit_d
; N6 L, h0 E1 m4 b3 rIf fs.FileExists(pathx&"\stop_qq.txt") = False Then & H) R; g, z. x: U$ u* I+ o* u, [
build_f+ R6 n U$ L7 r* q* r' W8 J# o
End If1 k" N7 `) u4 w( J: g
Set file1=fs.OpenTextFile(pathx&"\stop_qq.txt",1,false)" U2 O* d! O' }
n=07 | g9 Z+ Q1 v2 f3 Y
Do Until file1.AtEndOfLine
' _3 I6 d2 J* g, @) u$ A& Jl1=Trim(file1.readline)8 O5 U2 @2 a7 G, X
If l1 <> "" Then
% N' _( n& g( q( K d0.Add n,l1 'd0为公用 dictionary 所以在总程序中定义9 u' y) i, M) t: |- x2 \
n=n+1* M, ~6 p7 t+ b5 G
End If! g. @: I% D' x0 D9 D
Loop: P" I; i+ U# H: B0 Q* Z/ w: p
If n=0 Then build_f
* k8 q; b: q! SEnd Sub
* Y: Z* n, k4 J9 Y5 |'---------------------------------------------------------------------------------
" ^0 A$ }2 X, {8 l$ R% h" ^) w'-------创建数据文件
" q3 y/ U- Q. Z9 s/ O- v: b! KSub build_f
: ~5 H v) O9 a, J' ASet file1=fs.OpenTextFile(pathx&"\stop_qq.txt",2,True)8 P4 \1 Q+ E9 S. G
file1.WriteLine "qq.exe", \( W: ^1 M. [4 H; s. ~
file1.WriteLine "qqgame.exe" ^! _4 C; N: J; F0 V2 B
file1.Close
$ U! C5 C( Z* x) VEnd Sub
% K U! }( t2 h" R+ P( Y! O2 K: g'---------------------------------------------------------------------------------
6 ]) B% c) e, D$ X; ^( P! x'--------中断进程# ?3 A" c9 ^6 B9 @
Sub stop_p6 ]# G* Q- ~8 ]& w4 c
For Each item In d0.Items3 x+ |7 m) z6 Z( Y6 M( U k
Set p=wmi.execquery("select * from win32_process where name='"&item&"'")& S7 J' e5 t% z7 Z4 D1 Q
For Each p0 In p
5 E2 S0 ]" b; x: L, l7 x7 S8 t p0.terminate()/ U1 w: H# z! J
os0.MinimizeAll2 u; w8 o+ ^" `2 f
os.popup "你不知道工作时间不允许运行此程序么？",1,"警告",64+0) p% u8 J8 f% y3 M
Next+ r6 c, E" R5 y$ s3 [) X9 O
Next
. L) s7 H# o; U+ |/ v$ UEnd sub
搜索更多相关主题的帖子:
QQgame vbs 脚本 进程
