# 向右键菜单-发送添加启动目录(给需要的同学) - 系统技巧 - 雨滴社区 - Powered by Discuz!
 找回密码
 点击注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2112|回复: 4

[技巧] 向右键菜单-发送添加启动目录(给需要的同学)

[复制链接]

签到天数: 159 天

[LV.7]常住居民III

发表于 2013-9-11 00:36:37 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?点击注册

x
set WshShell = WScript.CreateObject("WScript.Shell")

      strDesktop = WshShell.SpecialFolders("C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\SendTo") '获得目录

      set oShellLink = WshShell.CreateShortcut("C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\SendTo" & "\启动.lnk") '快捷方式存放目录及名称

      oShellLink.TargetPath = "C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"   '指向的可执行文件

      oShellLink.IconLocation = "C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup, 0" '图标

      oShellLink.Save                                     '创建快捷方式




注解:Administrator这是计算机的用户名,请同学把上面语段中的Administrator改成自己本机的用户用.改好后,把注解及后面的全删除,另存为XXX.vbs
回复

使用道具 举报

签到天数: 58 天

[LV.5]常住居民I

发表于 2013-9-11 08:05:41 | 显示全部楼层
沙发
回复

使用道具 举报

签到天数: 864 天

[LV.10]以坛为家III

发表于 2013-9-11 09:31:12 | 显示全部楼层
这么没人气  我来打瓶醋
回复

使用道具 举报

签到天数: 42 天

[LV.5]常住居民I

发表于 2013-9-11 09:49:22 | 显示全部楼层
还在学习中。支持一下。
回复

使用道具 举报

签到天数: 8 天

[LV.3]偶尔看看II

发表于 2013-9-11 19:07:08 | 显示全部楼层
zan
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 点击注册

本版积分规则

快速回复 返回顶部 返回列表