标题: 怎样批处理修改快捷方式的“目标”一栏 [打印本页]
作者: sunspot 时间: 2010-1-22 09:01 标题: 怎样批处理修改快捷方式的“目标”一栏
装了个流氓软件，把IE首页篡改了。卸载后不定时的桌面上所有浏览器的快捷方式都被修改，在属性-快捷方式-目标一栏里，后面加上了一个网址，比如：
"D:\program files\Maxthon2\Maxthon.exe" http://f1999.cn
不论是在开始菜单里的还是桌面上的快捷方式都被这样修改了，现在找不到根源，有什么命令能去掉后面的网址？
作者: mountvol 时间: 2010-1-22 13:12
用vbs很容易改的。
不过你也可以改hosts,把它的地址定义到你需要的首页上去.
例如想设置首页为www.hao123.com,可以先ping www.hao123.com得到hao123的IP(220.181.107.31),然后在%Windir%\system32\drivers\ect下用记事本打开hosts,在最下面添加一行
220.181.107.31 f1999.cn
以后就直接打开的是hao123了.修改的时候hosts可能是只读属性，如果是则需要修改属性非只读，另外它木有小JJ(后缀).
作者: sunspot 时间: 2010-1-24 08:44
2楼是个折衷的好办法，不过我装了三、四个浏览器，每个浏览器的设置首页都不一样，用这个办法的话首页就全部相同了。
用VBS怎么实现，能说说吗？
作者: mountvol 时间: 2010-1-24 12:34
On Error Resume Next
If WScript.Arguments.Count < 1 Then
WScript.Echo "没有指定目标!"
WScript.Quit
End If
Set oShell = CreateObject("WScript.Shell")
Set oLink = oShell.CreateShortcut(WScript.Arguments(0))
If Err Then
WScript.Echo Err.Description
WScript.Quit
End If
ret = MsgBox("是否更改" & vbCrLf & _
oLink.TargetPath & " " & _
oLink.Arguments & vbcrlf & _
"为" & vbCrLf & _
oLink.Targetpath & "?",1)
If ret = 1 Then
oLink.Arguments = ""
oLink.Save
If Not Err Then
WScript.Echo "更改完毕!"
Else
WScript.Echo "更改失败，请手动操作!"
End If
End If
Set oShell = Nothing
保存为*.vbs后，把需要处理的快捷方式拖到该vbs脚本上即可。If WScript.Arguments.Count < 1 Then
WScript.Echo "没有指定目标!"
WScript.Quit
End If
Set oShell = CreateObject("WScript.Shell")
Set oLink = oShell.CreateShortcut(WScript.Arguments(0))
If Err Then
WScript.Echo Err.Description
WScript.Quit
End If
ret = MsgBox("是否更改" & vbCrLf & _
oLink.TargetPath & " " & _
oLink.Arguments & vbcrlf & _
"为" & vbCrLf & _
oLink.Targetpath & "?",1)
If ret = 1 Then
oLink.Arguments = ""
oLink.Save
If Not Err Then
WScript.Echo "更改完毕!"
Else
WScript.Echo "更改失败，请手动操作!"
End If
End If
Set oShell = Nothing
作者: yishanju 时间: 2010-1-25 09:22
想法把这流氓病毒清理掉才是正确的方向。