完美者（wmzhe.com）网站以软件下载为基础，改版后的网站对功能性板块进行扩充，以期能够解决用户在软件使用过程中遇见的所有问题。网站新增了“软件百科”、“锦囊妙技”等频道，可以更好地对用户的软件使用全周期进行更加专业地服务。
SpecialFoldersView 是一个用来查看和管理WIN系统特殊文件夹的系统特殊目录查看工具，特殊目录，是如：如：IE历史记录，临时文件夹，共用启动，共用图片，共用文档等这一类的系统文件夹。这个工具，可以显示您系统中所有特殊文件夹的列表，只要双击项目就能跳转到相应的文件夹，还可以保存文件夹的路径列表到文本/网页/XML文件
"锦囊妙技"栏目是聚合全网软件使用的技巧或者软件使用过程中各种问题的解答类文章，栏目设立伊始，小编欢迎各路软件大神朋友们踊跃投稿，在完美者平台分享大家的独门技巧。
本站文章素材来源于网络，大部分文章作者名称佚失，为了更利于用户阅读和使用，根据需要进行了重新排版和部分改编，本站收录文章只是以帮助用户解决实际问题为目的，如有版权问题请联系小编修改或删除，谢谢合作。
软件大小：45.16 KB
发送快捷方式，由于批处理自身无法实现，所以我们借助VBS脚本代码实现。在下面的代码中我将利用批处理调用VBS脚本以达到创建快捷方式的效果。 代码使用方法：只需复制代码后粘帖到新的空文本文件中，然后按照脚本中注释的要求去修改内容，并保存为后缀名为bat的文件，最后双击这个bat文件即可执行并创建快捷方式。 以下为脚本代码： 以下为脚本的命令说明图： 以下为创建成功后快捷方式的属性和代码文本的展示：
声明一个对象库，下一步就是使用这个库里面的函数实际上这个库就是wshom.ocx文件wscript是库的名字，shell是里面的一个对象
近网相续看网友表示自载使用VeryCD载链接查看器款工具再打浏览器直接跳转 导航页面且打浏览器：IE、Chrome、Firefox、Opera、Safari、Maxthon均相同症状检查浏览器首页设置——均发现原快速启栏IE浏览器快捷命令其修改修改类似图于认普通修改快捷式手工删除 2345 网址部半再更改考虑能加载启项注册表、启项、服务等均未查找相关信息重启IE快捷式重新篡改尝试事件查看器任务计划均未面查任何信息安装超级兔、360、exterminateit等工具进行检查未检打ProcessMonitor进行监视发现每隔30钟现scrcons.exe进程自启并修改快速启栏命令自关闭（幸亏30钟要24我杯具……）修改Win7opera快速启图标路径类似：C:\Users\iefans\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Opera12.01 1532.lnk查找资料发现应该通WMI发起定自运行脚本要查看WMI事件址载WMITool并安装安装打WMI event viewer点击左角register for events弹Connect to namespace框填入root\subscription确定现图：点击左侧_EventFilter:Name="unown_filter"再至右侧右键点击ActiveScriptEventConsume r Name="unown"选择view instant properties图：查看ScriptText项知段VBScript调用系统服务间隔30钟执行所浏览器调用加http://抓住~隐藏够深没驻进程没文件（自存储WMI数据库）受影响浏览器（各色浏览器差齐）："IEXPLORE.EXE", "chrome.exe", "firefox.exe", "360chrome.exe", "360SE.exe", "SogouExplorer.exe", "opera.exe", "Safari.exe", "Maxthon.exe", "TTraveler.exe", "TheWorld.exe", "baidubrowser.exe", "liebao.exe", "QQBrowser.exe"具体代码：On Error Resume Next:Const link = "http://":browsers = Array("IEXPLORE.EXE", "chrome.exe", "firefox.exe", "360chrome.exe", "360SE.exe", "SogouExplorer.exe", "opera.exe", "Safari.exe", "Maxthon.exe", "TTraveler.exe", "TheWorld.exe", "baidubrowser.exe", "liebao.exe", "QQBrowser.exe"):Set oDic = CreateObject("scripting.dictionary"):For Each browser In browsers:oDic.Add LCase(browser), browser:Next:Set fso = CreateObject("Scripting.Filesystemobject"):Set WshShell = CreateObject("Wscript.Shell"):strDesktop = "C:\Users\Gemini\Desktop":strAllUsersDesktop = WshShell.SpecialFolders("AllUsersDesktop"):QuickLaunch = "C:\Users\Gemini\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch":UserPinnedStartMenu = QuickLaunch & "\User Pinned\StartMenu":UserPinnedTaskBar = QuickLaunch & "\User Pinned\TaskBar":For Each file In fso.GetFolder(strDesktop).Files:If LCase(fso.GetExtensionName(file.Path)) = "lnk" Then:set oShellLink = WshShell.CreateShortcut(file.Path):path = oShellLink.TargetPath:name = fso.GetBaseName(path) & "." & fso.GetExtensionName(path):If oDic.Exists(LCase(name)) Then:oShellLink.Arguments = link:If file.Attributes And 1 Then:file.Attributes = file.Attributes - 1:End If:oShellLink.Save:End If:End If:Next:For Each file In fso.GetFolder(strAllUsersDesktop).Files:If LCase(fso.GetExtensionName(file.Path)) = "lnk" Then:set oShellLink = WshShell.CreateShortcut(file.Path):path = oShellLink.TargetPath:name = fso.GetBaseName(path) & "." & fso.GetExtensionName(path):If oDic.Exists(LCase(name)) Then:oShellLink.Arguments = link:If file.Attributes And 1 Then:file.Attributes = file.Attributes - 1:End If:oShellLink.Save:End If:End If:Next:If fso.FolderExists(QuickLaunch) Then:For Each file In fso.GetFolder(QuickLaunch).Files:If LCase(fso.GetExtensionName(file.Path)) = "lnk" Then:set oShellLink = WshShell.CreateShortcut(file.Path):path = oShellLink.TargetPath:name = fso.GetBaseName(path) & "." & fso.GetExtensionName(path):If oDic.Exists(LCase(name)) Then:oShellLink.Arguments = link:If file.Attributes And 1 Then:file.Attributes = file.Attributes - 1:End If:oShellLink.Save:End If:End If:Next:End If:If fso.FolderExists(UserPinnedStartMenu) Then:For Each file In fso.GetFolder(UserPinnedStartMenu).Files:If LCase(fso.GetExtensionName(file.Path)) = "lnk" Then:set oShellLink = WshShell.CreateShortcut(file.Path):path = oShellLink.TargetPath:name = fso.GetBaseName(path) & "." & fso.GetExtensionName(path):If oDic.Exists(LCase(name)) Then:oShellLink.Arguments = link:If file.Attributes And 1 Then:file.Attributes = file.Attributes - 1:End If:oShellLink.Save:End If:End If:Next:End If:If fso.FolderExists(UserPinnedTaskBar) Then:For Each file In fso.GetFolder(UserPinnedTaskBar).Files:If LCase(fso.GetExtensionName(file.Path)) = "lnk" Then:set oShellLink = WshShell.CreateShortcut(file.Path):path = oShellLink.TargetPath:name = fso.GetBaseName(path) & "." & fso.GetExtensionName(path):If oDic.Exists(LCase(name)) Then:oShellLink.Arguments = link:If file.Attributes And 1 Then:file.Attributes = file.Attributes - 1:End If:oShellLink.Save:End If:End If:Next:End If清除：WMI event viewer_EventFilter:Name="unown_filter"项目右键删除删掉WMITool安装路径（例：C:\Program Files (x86)\WMI Tools）右键点击wbemeventviewer.exe选择管理员身份运行删没完要手快速启栏各浏览器快捷命令http://掉暂没其影响用用再看吧解决自：Gemini版权声明：转载请超链接形式标明文章原始处作者信息及本声明文章引用址： 作者：iefans
Private Sub Command1_Click()Dim nPath As String, sh As Object, ShortCut As Object Set sh = CreateObject("WScript.Shell") '获取桌面路径 nPath = sh.SpecialFolders("Desktop") '创建一个快捷方式对象 Set ShortCut = sh.CreateShortcut(nPath & "\电子小说阅览器.lnk") ShortCut.TargetPath = "D:\StoryView.exe" '快捷方式指向的目标 ShortCut.WorkingDirectory = "D:\" ShortCut.SaveEnd Sub
