现在的位置: 首页 > 综合 > 正文

VBS脚本恢复[so8.sc.cn]快捷方式

2013年09月04日 ⁄ 综合 ⁄ 共 2371字 ⁄ 字号 评论关闭

实现恢复功能的是一段VBS脚本代码,不太长,由小弟最早发布在360求助中心,但是很多朋友加Q询问该如何使用,现在特意在CSDN博客写一份说明!

 

 

 


 

 

最理想的解决途径:

首先,下载文件:so8Killer_Ex.zip

然后,将文件解压到含有快捷方式的目录

通常存储快捷方式的路径都跑不了用户文件夹 

 

在资源管理器找到VBS文件,运行即可

 

 

 

 


 

 

 

再说一下本人整理的常见问题:

⑴Q:为什么VBS文件不能运行?

A:原因主要是脚本宿主程序(WScript.exe)受损,可以从其他机器拷贝相关组件,或者下载安装包

⑵Q:脚本运行出错怎么办?

A:由于设计脚本时没有考虑到所有使用环境,所以脚本还不完善;目前,

在修改只读Office快捷方式的时候会报错---临时解决办法:删除文件夹以及子文件夹中的Office快捷方式,等到所有快捷方式恢复完毕后,再手工创建

⑶Q:为什么恢复了快捷方式,重启以后又会出现"so8.sc.cn"?

A:由于此脚本设计之初只是为了恢复快捷方式,代替手工劳动,并没有清除病毒和流氓软件的功能;鉴于大部分网友反映杀毒软件并没有查出异常,本人推荐使用360安全卫士禁用所有可疑启动项和可疑服务

⑷Q:为什么找到了快捷方式,修复不了?

A:在确保使用的是管理员账户之后,原因如下,

重复运行---选择快捷方式查看属性,如果没有发现"so8.sc.cn",那么恭喜你,已经成功恢复

病毒变异(听着别扭,大意就是这样)---在本人接受的反馈中发现,有的快捷方式后缀被改成了"http://so8.sc.cn",导致了脚本不能正常识别受损快捷方式;---解决办法:用记事本打开VBS脚本,参考注释①中深红色代码,修改为:oldCmd = "http://so8.sc.cn"再次运行即可!

 

⑸FAQ陆续更新中。。。

 

 


 

 

 

注①:如果文件下载失败,可以手工保存下面斜体字代码,命名为"so8Killer_Ex.vbs"

 

'Option Explicit

Dim oldCmd, newCmd, Wsh, Folder, Ji_1, Ji_2
Ji_1 = 0
Ji_2 = 0
oldCmd = "so8.sc.cn"
newCmd = ""
Set Wsh = WScript.CreateObject("WScript.Shell")
Folder = Wsh.CurrentDirectory
MsgBox "将要改正[" & Folder & "]及其子文件夹里的所有含[" & oldCmd & "]的快捷方式",,"如不确定请手动结束进程!"
Action (Folder)
ListFolder (Folder)

Function ListFolder(sPath)
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFso.GetFolder(sPath)
Set oSubFolders = oFolder.SubFolders
For Each oSubFolder In oSubFolders
'WScript.Echo oSubFolder.Path
Call Action(oSubFolder.Path)
ListFolder (oSubFolder.Path)
Next
Set oFolder = Nothing
Set oSubFolders = Nothing
Set oFso = Nothing
End Function
 
Sub Action(subFolder)
Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")
Dim Folder
Dim f, fc, f1, Ext
Set f = Fso.GetFolder(subFolder)
Set fc = f.Files
For Each f1 In fc
Ext = LCase(Fso.GetExtensionName(f1))
If Ext = "lnk" Then
Ji_1 = Ji_1 + 1
Call Doit(f1)
End If
Next
Set Wsh = Nothing
End Sub

Sub Doit(strlnk)
Dim oShlnk, Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Set oShlnk = Wsh.CreateShortcut(strlnk)
If oShlnk.Arguments = oldCmd Then
oShlnk.Arguments = newCmd
oShlnk.Save
Ji_2 = Ji_2 + 1
End If
Set oShlnk = Nothing
End Sub

MsgBox "找到 " & Ji_1 & " 个快捷方式" & vbCrLf & "改正了 " & Ji_2 & " 个快捷方式", 64, "感谢您的选择---CreativeJQ"

'针对受so8.sc.cn困扰的朋友们,复制到有被修改快捷方式的文件夹,运行即可~
'CreativeJQ (QQ:496218484)于09-08-26首次编辑;于09-08-30再次编辑
'30日终稿命名为[so8Killer_Ex.vbs],通过本地实测
'顺便稍稍地BS一下so8病毒的作者以及极其缺乏流量的so8网站~!!

 

 

 

 

 

注②:用户文件夹通常路径就是"C:/Documents and Settings/"(WindowsXP)和"C:/Users"(WindowsVista,Windows7)

 

 

 

 

注③:使用360安全卫士,根据提示鉴定可疑项目,标记为安全的项目可以保留,其它项目在不确定的情况下,建议全部禁止!

 

 

 

 

 

注④:本博客为分流博客,本人会不定期维护;

如急需咨询,请联系Creative.Zhang@Gmail.com或者QQ:496218484通过QQ与CreativeJQ交谈

 


 

 

本文代码和FAQ均为CreativeJQ原创,不反对但不鼓励转载,转载务必保留原版信息和链接!

 

 

抱歉!评论已关闭.