如何用VBS修改桌面快捷方式的目标位置？

给这个

目标位置的程序添加运行参数

还是用脚本改目标位置？

用WScript.Shell的WshShortcut类可以建立快捷方式

set

WshShell

=

WScript.CreateObject("WScript.Shell")

'设置CreateObject

方法

strDesktop

=

WshShell.SpecialFolders("Desktop")

'取得“桌面”的路径

set

oShellLink

=

WshShell.CreateShortcut(strDesktop

&

"\腾讯QQ.lnk")

'设置快捷方式将要保存到的路径和快捷方式名,你也可以指定一个真实存在的路径，这个范例是创建到桌面

oShellLink.TargetPath

=

"d:\qq\QQ木马清除.vbs"

'快捷方式里的“目标”

oShellLink.WindowStyle

=

1

'快捷方式里的“运行方式”

oShellLink.Hotkey

=

"Ctrl+Alt+e"

'快捷方式里的“快捷键”

oShellLink.IconLocation

=

"d:\qq\qq.exe,

0"

'快捷方式的图标

oShellLink.Description

=

"腾讯QQ"

'快捷方式里的“备注”

oShellLink.WorkingDirectory

=

"d:\qq"

'快捷方式里的“起始位置”

oShellLink.Save

'建立快捷方式

新建一个文件 后缀为vbs

复制以下代码:

Set ws = CreateObject("WScript.Shell")

strDesktop = ws.SpecialFolders("Desktop")

set oShellLink = ws.CreateShortcut(strDesktop &"\myeclipse8.0.lnk")

oShellLink.TargetPath = WScript.ScriptFullName

oShellLink.TargetPath = "E:\MyEclipse\Genuitec\MyEclipse 8.x Latest\myeclipse.exe"

oShellLink.IconLocation = "E:\MyEclipse\Genuitec\MyEclipse 8.x Latest\myeclipse.exe,0"

oShellLink.Save

快捷方式名字和指向文件 自己修改一下

把这文件放到自解压文件中 在自解压文件注释下写

Path=C:\Windows\System32 (你自解压的路径)

SavePath

Setup=abc.vbs (你自己起的脚本名字)

Silent=1

Overwrite=1

在解压完成后会自动运行 你桌面上会有相应的快捷方式了

先把快捷方式拖到开始菜单的启动里，慢慢拖就进去了。要是360阻止了，就放行或者添加信任，放行不了就把360退掉再拖。

拖进去后，再次运行360，用系统修复，扫描完之后，找到360认为危险的项目，添加到信任。

---