VBS把桌面改成快速启动栏

daoxxx

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

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

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

Q: 如何用code把代码扩起来？
A: http://bbs.bathome.net/thread-404-1-1.html

cjiabing

copy  "%ALLUSERSPROFILE%\桌面\AAA  %USERPROFILE%\Application Data\Microsoft\Internet Explorer\Quick Launch\

daoxxx

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

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

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

太让人无语了。。。

lwtxz123

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

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

oShellLink.Ic

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