'在指定路径创建一个360极速浏览器的快捷方式
Set WshShell = WScript.CreateObject("WScript.Shell")
appdataDir = WshShell.SpecialFolders("APPDATA") '获取"程序数据"目录
currentDir = WshShell.CurrentDirectory '获取脚本当前目录
desktopDir = WshShell.SpecialFolders("Desktop") '获取"桌面"文件夹目录
taskbarDir = appdataDir & "\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar"
CreateLnk(desktopDir) '桌面快捷
'在指定路径创建一个360极速浏览器的快捷方式
Sub CreateLnk(str)
Set oShellLink = WshShell.CreateShortcut(str & "\360极速浏览器.lnk")
oShellLink.TargetPath = currentDir & "\360chrome.exe" '目标
oShellLink.WindowStyle = 3 '参数1默认窗口激活,参数3最大化激活,参数7最小化
oShellLink.Description = "360极速浏览器快捷方式" '备注
oShellLink.WorkingDirectory = str '起始位置
oShellLink.Save '创建保存快捷方式
End Sub
' 删除脚本自身
Set fso = CreateObject("Scripting.FileSystemObject")
f = fso.DeleteFile(WScript.ScriptName)
VbScript脚本
最新推荐文章于 2024-05-15 21:33:11 发布