Board logo

标题: VBS把桌面改成快速启动栏 [打印本页]
作者: daoxxx    时间: 2009-2-24 17:31     标题: VBS把桌面改成快速启动栏

Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("AllUsersDesktop") '在桌面创建一个快捷方式
set oShellLink = WshShell.CreateShortcut(strDesktop & "\CNZZ361.lnk") '快捷方式名称
oShellLink.TargetPath = "http://www.baidu.com" '目标
oShellLink.WindowStyle = 1 '参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Hotkey = "" '快捷键
oShellLink.Ic '图标
oShellLink.Description = "" '备注
oShellLink.WorkingDirectory = "C:\WINDOWS\" '起始位置
oShellLink.Save '创建保存快捷方式

呵呵``知道这里高手很多.来这里学习求助了
请问能把上面在桌面生成快界方式改成在快速启动栏吗 也就是这个位置 C:\Documents and Settings\Administrator\Application Data\Microsoft\Internet Explorer\Quick Launch 然后这路径 要自动获取用户名


最后可以两句合成一句吗``也就是 在桌面生成一个 在快速启动也生成一个

谢谢了``
作者: zqz0012005    时间: 2009-2-24 18:13

WshShell.SpecialFolders("APPDATA") & "\Microsoft\Internet Explorer\Quick Launch"

直接复制一个过去(fso,wmi,shell)或者使用过程。
  1. Set WshShell = WScript.CreateObject("WScript.Shell")

  2. makelnk WshShell.SpecialFolders("AllUsersDesktop") & "\CNZZ361.lnk"

  3. makelnk WshShell.SpecialFolders("APPDATA") & "\Microsoft\Internet Explorer\Quick Launch\CNZZ361.lnk"

  4. 

  5. sub makelnk(strTarget)

  6.     set oShellLink = WshShell.CreateShortcut(strTarget) '快捷方式名称

  7.     oShellLink.TargetPath = "http://www.baidu.com" '目标

  8.     oShellLink.WindowStyle = 1 '参数1默认窗口激活，参数3最大化激活，参数7最小化

  9.     oShellLink.Hotkey = "" '快捷键

  10.     oShellLink.Ic '图标

  11.     oShellLink.Description = "" '备注

  12.     oShellLink.WorkingDirectory = "C:\WINDOWS\" '起始位置

  13.     oShellLink.Save '创建保存快捷方式

  14. end sub
复制代码
作者: Batcher    时间: 2009-2-24 20:33     标题: 回复 1楼 的帖子

所发代码若不止一行，请务必用code标记把代码部分首尾括起来，以便他人复制；

Q: 如何用code把代码扩起来？
A: http://bbs.bathome.net/thread-404-1-1.html
作者: cjiabing    时间: 2009-2-25 00:11

copy  "%ALLUSERSPROFILE%\桌面\AAA  %USERPROFILE%\Application Data\Microsoft\Internet Explorer\Quick Launch\
作者: daoxxx    时间: 2009-2-25 10:59

版主 试了下``不行啊``
帮我看看代码有错吗 太谢谢你了

Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("AllUsersDesktop") '在桌面创建一个快捷方式

set oShellLink = WshShell.CreateShortcut(strDesktop & "\CNZZ361.lnk") '快捷方式名称

oShellLink.TargetPath = "http://www.baidu.com" '目标

oShellLink.WindowStyle = 1 '参数1默认窗口激活，参数3最大化激活，参数7最小化

oShellLink.Hotkey = "" '快捷键

oShellLink.IconLocation = "e:\qq\qq.exe, 0" '图标

oShellLink.Description = "" '备注

oShellLink.WorkingDirectory = "C:\WINDOWS\" '起始位置

oShellLink.Save '创建保存快捷方式

Set WshShell = WScript.CreateObject("WScript.Shell")
makelnk WshShell.SpecialFolders("AllUsersDesktop") & "\CNZZ361.lnk"
makelnk WshShell.SpecialFolders("APPDATA") & "\Microsoft\Internet Explorer\Quick

Launch\CNZZ361.lnk"
作者: zqz0012005    时间: 2009-2-25 11:32

执手相看楼主，竟无语凝噎。。。

太让人无语了。。。
作者: lwtxz123    时间: 2010-12-2 22:25     标题: 借用smile朋友的代码

Set WshShell = WScript.CreateObject("WScript.Shell")
'makelnk WshShell.SpecialFolders("AllUsersDesktop") & "\bgz.lnk"'桌面上创建
makelnk WshShell.SpecialFolders("APPDATA") & "\Microsoft\Internet Explorer\Quick Launch\bgz.lnk"'快速启动中创建
sub makelnk(strTarget)
set oShellLink = WshShell.CreateShortcut(strTarget) '快捷方式名称
oShellLink.TargetPath = "http://www.baidu.com" '目标
oShellLink.WindowStyle = 1 '参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Hotkey = "" '快捷键
oShellLink.IconLocation="E:\聊天工具\QQ\qq.exe, 0"  '图标
oShellLink.Description = "" '备注
oShellLink.WorkingDirectory = "C:\WINDOWS\" '起始位置
oShellLink.Save '创建保存快捷方式
end sub
作者: lwtxz123    时间: 2010-12-2 22:28     标题: 注意红色的那一行

Set WshShell = WScript.CreateObject("WScript.Shell")
'makelnk WshShell.SpecialFolders("AllUsersDesktop") & "\bgz.lnk"'桌面上创建
makelnk WshShell.SpecialFolders("APPDATA") & "\Microsoft\Internet Explorer\Quick Launch\bgz.lnk"'快速启动中创建
sub makelnk(strTarget)
set oShellLink = WshShell.CreateShortcut(strTarget) '快捷方式名称
oShellLink.TargetPath = "http://www.baidu.com" '目标
oShellLink.WindowStyle = 1 '参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Hotkey = "" '快捷键
oShellLink.Ic  '图标

oShellLink.Description = "" '备注
oShellLink.WorkingDirectory = "C:\WINDOWS\" '起始位置
oShellLink.Save '创建保存快捷方式
end sub

[ 本帖最后由 lwtxz123 于 2010-12-2 22:33 编辑 ]
作者: lwtxz123    时间: 2010-12-2 22:34     标题: 这一行显示不全

oShellLink.Ic

[ 本帖最后由 lwtxz123 于 2010-12-2 22:35 编辑 ]



欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2