[原创]关于最近网吧出现的主要问题解答
|
最近网吧中出现了很多病毒类的东西.包括病毒和一些维护的问题.对于这些常遇到的问题我把我的解决方法概括如下.给大家一个参考. 1.关于LOGO_1.EXE病毒:很多人说这个病毒会过冰点.但我现在是用5.7 22.1426的网络版了.所以没有被感染过.因为这个病毒是网络传播的.所以我感觉应该是部分机已经感染了而经过网络感染其他电脑.在网吧中一般的时候都是有客人在线的.如果想清除此病毒.建议利用左轮或其他相同的软件.把此进程结束了就好了.但在利用左轮前建议先把你网吧所有的电脑同时重新启动一下.再监控Logo1_.exe进程.发现此进程马上结束….最少我所管理的网吧中应用此方法后没有发现有感染过此病毒的. 2.自动改变桌面的病毒.前段时间在全国很多网吧同时发生自动改变桌面的病毒,此病毒会使你的桌面在一分钟改变一次.分析发现.此病毒三个进程.应用和上面相同的方法.先用左轮结束三个进程LetsCool.exe,ooldown.exe,mp0010.exe下面的工作机同时重新启动一下.问题解决… 3.关于不保护的盘***文件过多而造成磁盘空间不足的解决方法:现在网吧一般游戏盘为不保护。但很多客人会把一些文件和游戏安装在这个盘里面因为重启此盘不保护。所以造成磁盘空间不足。。。网上很多人说用批处理文件清除多余的文件和文件夹。但在实际应用中。因为批处理检测对比的时间需要很长。一个60G左右的游戏盘。批的对比时间需要大概5分钟。所以个人觉得此方法不适合应用。我是利用一个VBS脚本来完成此操作的。脚本如下: Option Explicit Dim Fso,Listfile,objListfile Listfile = "" If Listfile = "" Then Listfile = "Listfile.ini" Set Fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next Set objListfile = Fso.OpenTextFile(Listfile,1) If Err Then err.Clear Msgbox "没有找到配置文件 "&Listfile,16,"错误" WScript.quit End If On Error GoTo 0 Dim flnum,fdnum,t1,t2,tm flnum=0 fdnum=0 t1 = timer() Dim Myline,LineArr,ListArr Do While objListfile.AtEndOfStream <> True Myline = LCase(Replace(objListfile.ReadLine,"==","=")) If Left(Myline,1) = "/" Then 'objListfile.SkipLine ElseIf CheckLine(Myline) = 2 Then LineArr = Split(Myline,"=") 'DoFolder = LineArr(1) ListArr = Split(LineArr(2),";") 'MsgBox LineArr(0) If LineArr(0) = "目录" Then DelFolder LineArr(1),ListArr If LineArr(0) = "文件" Then DelFile LineArr(1),ListArr End If Loop t2 = timer() tm=cstr(int(( (t2-t1)*10000 )+0.5)/10) MsgBox "扫描完毕,共删除 "&fdnum&" 个目录, "&flnum& "个文件。"& vbCrLf &"耗时 "&tm&" 毫秒",64,"执行完毕" '不需要显示报告的话,注释掉上面这一行 Set Fso=NoThing WScript.quit Sub DelFolder(Folder,ListArr) Dim objFolder,subFolders,subFolder Set objFolder=Fso.Getfolder(Folder) Set subFolders=objFolder.subFolders For Each subFolder In subFolders If Not InArray(LIstArr,LCase(subFolder.name)) Then On Error Resume Next subfolder.Delete(True) If Err Then err.Clear Msgbox "不能删除目录,请检查 "&subFolder,16,"错误" Else fdnum = fdnum + 1 End If On Error GoTo 0 End If Next End Sub Sub DelFile(Folder,ListArr) Dim objFolder,Files,File Set objFolder=Fso.Getfolder(Folder) Set Files=objFolder.Files For Each File In Files If Not InArray(LIstArr,LCase(File.name)) Then On Error Resume Next File.Delete(True) If Err Then err.Clear Msgbox "不能删除文件,请检查 "&File,16,"错误" Elseflnum = flnum + 1 End If On Error GoTo 0 End If Next End Sub Function CheckLine(strLine) Dim LineRegExp,Matches Set LineRegExp = New RegExp LineRegExp.Pattern = ".=." LineRegExp.Global = True Set Matches = LineRegExp.Execute(strLine) CheckLine = Matches.count End Function Function InArray(Myarray,StrIn) Dim StrTemp InArray = True For Each StrTemp In Myarray If StrIn = StrTemp Then Exit Function Exit For End If Next InArray = False End Function 把上面的代码保存为VBS加上下面的脚本放在服务器上。在工作机的桌面建立一个脚本的快捷方式如磁盘空间不足请点我。如果出现磁盘空间不足就点一下基本可以解决问题。 下面为脚本配置文件; 目录=f:\=game1;netgame;RECYCLER;System Volume Information;Recycled;soft; 文件=f:\netgame=; 文件=f:\=pagefile.sys; 目录=f:\netgame=9you;JXOnline;JxOnline2;QQR2;QQtang;QQ幻想;shanda;飚车;大话西游;刀剑Online;海盗王online;华夏online;街头篮球;梦幻西游;魔兽世界;跑跑卡丁车;奇迹Mu;热血江湖;天堂Ⅱ;完美世界;希望Online;征途;QQ堂; 目录=f:\netgame\shanda=Legend of Mir;Woool;疯狂赛车;冒险岛Online;泡泡堂; 上面的配置文件另存为Listfile.ini就可以了。把两个文件保存在相同目录下面。需要保留的文件夹和文件就自己去设置吧。上面的是我这里用的。不过现在我是用迅闪4。7作为更新游戏了。迅闪设置为每次启动游戏都更新。不保留多余文件。 如果对此脚本有不明白的地方在帖子后面跟帖吧。我会把你所遇到的问题解决的。。。。。 4.关于ARP传奇盗号的解决方法。前段时间。很多网吧出现传奇盗号问题。偶管理的网吧可是一天掉好几个。把偶搞得晕晕的。查看下基本是由于ARP盗号的。试用了网上流传的几种方法。。发现有一种方法可以解决。就是在系统下面把四个文件设置权限。还有禁止及时雨外挂运行。在应用中发现很多及时雨外挂破解版都是带有病毒的。。。。此软件我已经放在黄页FTP上面了。名字为解决ARP欺骗////使用方法里面也有。大家去下来看看。这方法是参考别人的。。。。 ======================快活林================== 我第一个看到,收下了,复制到文本,改为*.vbs对吗? ======================快活林================== 脚本: c:\Documents and settings\zero\桌面\1.vbs ======================快活林================== 应该是脚本里面空格的问题了.你留意看下. ======================快活林================== 问题依旧,你放到ftp吧。让我们下载下。盘符就不用设了,免得不知道的人下了后误操作。 ======================快活林================== 迅闪4.7和网络冰点在FTP里面怎么没有啊? ======================快活林================== 好 |
》热 点 关 注
》编 辑 推 荐
》相 关 图 文