dod猪头 发表于 2013-9-11 00:36:37

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

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

孒非鱼 发表于 2013-9-11 08:05:41

沙发{:10_438:}{:10_445:}{:10_444:}

夜如歌 发表于 2013-9-11 09:31:12

这么没人气我来打瓶醋

ailikebear 发表于 2013-9-11 09:49:22

还在学习中。支持一下。

E`lea 发表于 2013-9-11 19:07:08

{:10_385:}{:10_385:}{:10_385:}{:10_385:}zan
页: [1]
查看完整版本: 向右键菜单-发送添加启动目录(给需要的同学)