谁知道，怎么给vbs脚本，加入进
另存为 xxx。vbs
1。option Explicit
2。dim wmi,proc,procs,proname,flag,WshShell
3。Do
4。 proname="QQ。 exe" '需要监测的服务进程的名称，自行替换这里的记事本进程名
5。set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!\\。 \root\cimv2")
6。set procs=wmi。execquery("select * from win32_process")
7。 flag=true
8。 for each p...全部
另存为 xxx。vbs
1。option Explicit
2。dim wmi,proc,procs,proname,flag,WshShell
3。Do
4。 proname="QQ。
exe" '需要监测的服务进程的名称，自行替换这里的记事本进程名
5。set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!\\。
\root\cimv2")
6。set procs=wmi。execquery("select * from win32_process")
7。 flag=true
8。
for each proc in procs
9。 if strcomp(proc。name,proname)=0 then
10。 flag=false
11。
exit for
12。 end if
13。next
14。 set wmi=nothing
15。 if flag then
16。
Set WshShell = Wscript。CreateObject("Wscript。Shell")
17。 WshShell。Run ("D:\Tencent\QQ。
exe")
18。end if
19。 wscript。sleep 50000 '检测间隔时间，这里是50秒
20。loop
定时查杀进程的VBS脚本。vbs
复制代码
1。
'**********************************************************************************************************
2。
'Description: 定时查杀自定义进程，建议设为开机启动
3。'**********************************************************************************************************
4。
Dim scriptPath,lenRootPath,listFilePath
5。Dim sCheck
6。scriptPath=WScript。ScriptFullName
7。lenRootPath=Left(scriptPath,InStrRev(scriptPath,"\"))
8。
listFilePath=lenRootPath & "list。txt" '设置进程黑名单文件名称
9。sCheck=10 '设定间隔多少秒钟扫描一次进程
10。
Do
11。 Call CheckList(listFilePath)
12。 WScript。Sleep sCheck*1000
13。Loop
14。Sub CheckList(listFilePath)
15。
On Error Resume Next
16。 Dim Fso,listFile
17。 Dim KeyWord,processKey,pathKey,TipStr
18。
Set Fso=CreateObject("Scripting。FileSystemObject")
19。 If Fso。FileExists(listFilePath) Then
20。
Set listFile=Fso。OpenTextFile(listFilePath,1,0)
21。 Do While Not listFile。
AtEndOfStream
22。 KeyWord=listFile。ReadLine
23。 If KeyWord<>"" And Left(KeyWord,1)<>"'" Then
24。
KeyWord=Split(KeyWord,"|")
25。 If UBound(KeyWord)>1 Then
26。
processKey=Trim(KeyWord(0))
27。 pathKey=Trim(KeyWord(1))
28。
Tipstr=Trim(KeyWord(2))
29。 Call ProcessKiller(processKey,TipStr)
30。
If pathKey<>"" Then Call ProcessKiller(pathKey,TipStr)
31。
End If
32。 End If
33。 If Err Then Err。
Clear
34。 Loop
35。 Set listFile=Nothing
36。 Else
37。 WScript。
Quit
38。 End If
39。 Set Fso=Nothing
40。End Sub
41。Sub ProcessKiller(callstr,Tstr)
42。
On Error Resume Next
43。 Dim WMI,objProcess,Process
44。 Dim MsgStr
45。 Dim isKilled
46。
isKilled=False
47。 Set WMI=GetObject("WinMgmts:")
48。 Set Process=WMI。InstancesOf("Win32_Process")
49。
For Each objProcess In Process
50。 If InStr(callstr,"。")>0 Then
51。 If objProcess。
name=callstr Then
52。 objProcess。Terminate
53。 isKilled=True
54。
End If
55。 Else
56。 If InStr(objProcess。
ExecutablePath,callstr)>0 Then
57。 objProcess。Terminate
58。 isKilled=True
59。
End If
60。 End If
61。 If Err Then Err。Clear
62。
Next
63。 Set Process=Nothing
64。 Set WMI=Nothing
65。 MsgStr="对不起，为了营造一个良好的网络环境，本网吧禁止运行以下程序：" & vbCrLf & vbCrLf
66。
MsgStr=MsgStr & " - " & Tstr & vbCrLf & vbCrLf & "敬请广大顾客朋友理解并配合，谢谢！"
67。 If isKilled=True Then MsgBox MsgStr
68。
End Sub
希望能帮助到你，麻烦点击“有用”，谢谢！。收起
