中国DOS联盟

你的网吧是不是经常有顾客看PP，下迅雷，听酷狗，把一个本来就风雨飘摇的网络搞得更加动荡？也许你试过诸多方法，也许有效，或许效果不太明显，郁闷之际，不妨再看看下面的东东，或许也是一种思路？

部份代码示例，完整文件请参看附件：

'**********************************************************************************************************
'Description: 定时查杀自定义进程，建议设为开机启动
'Author: 十一狼
'Email: 112183883@qq.com
'QQ: 112183883
'WebSite: http://www.w3cg.net/
'**********************************************************************************************************

Dim scriptPath,lenRootPath,listFilePath
Dim sCheck
scriptPath=WScript.ScriptFullName
lenRootPath=Left(scriptPath,InStrRev(scriptPath,"\"))
listFilePath=lenRootPath & "list.txt" '设置进程黑名单文件名称
sCheck=10 '设定间隔多少秒钟扫描一次进程
Do
Call CheckList(listFilePath)
WScript.Sleep sCheck*1000
Loop

Sub CheckList(listFilePath)
On Error Resume Next
Dim Fso,listFile
Dim KeyWord,processKey,pathKey,TipStr
Set Fso=CreateObject("Scripting.FileSystemObject")
If Fso.FileExists(listFilePath) Then
Set listFile=Fso.OpenTextFile(listFilePath,1,0)
Do While Not listFile.AtEndOfStream
KeyWord=listFile.ReadLine
If KeyWord<>"" And Left(KeyWord,1)<>"'" Then
KeyWord=Split(KeyWord,"|")
If UBound(KeyWord)>1 Then
processKey=Trim(KeyWord(0))
pathKey=Trim(KeyWord(1))
Tipstr=Trim(KeyWord(2))
Call ProcessKiller(processKey,TipStr)
If pathKey<>"" Then Call ProcessKiller(pathKey,TipStr)
End If
End If
If Err Then Err.Clear
Loop
Set listFile=Nothing
Else
WScript.Quit
End If
Set Fso=Nothing
End Sub

Sub ProcessKiller(callstr,Tstr)
On Error Resume Next
Dim WMI,objProcess,Process
Dim MsgStr
Dim isKilled
isKilled=False
Set WMI=GetObject("WinMgmts:")
Set Process=WMI.InstancesOf("Win32_Process")
For Each objProcess In Process
If InStr(callstr,".")>0 Then
If objProcess.name=callstr Then
objProcess.Terminate
isKilled=True
End If
Else
If InStr(objProcess.ExecutablePath,callstr)>0 Then
objProcess.Terminate
isKilled=True
End If
End If
If Err Then Err.Clear
Next
Set Process=Nothing
Set WMI=Nothing
MsgStr="对不起，为了营造一个良好的网络环境，本网吧禁止运行以下程序：" & vbCrLf & vbCrLf
MsgStr=MsgStr & " - " & Tstr & vbCrLf & vbCrLf & "敬请广大顾客朋友理解并配合，谢谢！"
If isKilled=True Then MsgBox MsgStr
End Sub


最后说下，这种方法对于一般的网民有效，如果遇到内行的人，估计还是一眼就能看穿我们玩的这个把戏了，不过内行的人又有多少人到网吧闲混呢？呵呵。还有一个进程的黑名单列表，如果文件名改了，请在脚本中重新设置文件名，设置的地方见程序注释。

好东东，顶一个！

顶顶顶顶顶

dddd

還好啦

b不错

呵呵不错的喜欢顶个的~

用Terminate
来结束进程不是很好，有些是结束不掉的，如打印机的进程等。

好东东，是VB的？可惜我还看不懂，但还是谢了！！

不错，谢谢了