中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]定时杀进程脚本，网吧工作的朋友可能会用得着

112183883
初级用户

积分 128
发帖 31
注册 2006-10-23
状态离线

『楼主』: [原创]定时杀进程脚本，网吧工作的朋友可能会用得着

你的网吧是不是经常有顾客看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

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

此帖被 +1 点积分点击查看详情