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

dod猪头

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

孒非鱼

沙发

夜如歌

这么没人气  我来打瓶醋

ailikebear

还在学习中。支持一下。

E`lea

zan