[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
daoxxx

Rank: 2

帖子
9 
积分
197 
技术
0  
捐助
0  
注册时间
2009-2-17 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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

Rank: 8Rank: 8

帖子
1069 
积分
12123 
技术
38  
捐助
0  
注册时间
2008-5-10 
2楼
发表于 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
复制代码
命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
3楼
发表于 2009-2-24 20:33 | 只看该作者

回复 1楼 的帖子

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

Q: 如何用code把代码扩起来？
A: http://bbs.bathome.net/thread-404-1-1.html
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

cjiabing

Rank: 8Rank: 8

帖子
1726 
积分
4476 
技术
95  
捐助
0  
注册时间
2008-12-21 
4楼
发表于 2009-2-25 00:11 | 只看该作者
copy  "%ALLUSERSPROFILE%\桌面\AAA  %USERPROFILE%\Application Data\Microsoft\Internet Explorer\Quick Launch\

TOP

daoxxx

Rank: 2

帖子
9 
积分
197 
技术
0  
捐助
0  
注册时间
2009-2-17 
5楼
发表于 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"

TOP

zqz0012005

Rank: 8Rank: 8

帖子
1069 
积分
12123 
技术
38  
捐助
0  
注册时间
2008-5-10 
6楼
发表于 2009-2-25 11:32 | 只看该作者
执手相看楼主，竟无语凝噎。。。

太让人无语了。。。
命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

TOP

lwtxz123

Rank: 1

帖子
3 
积分
24 
技术
0  
捐助
0  
注册时间
2010-12-2 
7楼
发表于 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

TOP

lwtxz123

Rank: 1

帖子
3 
积分
24 
技术
0  
捐助
0  
注册时间
2010-12-2 
8楼
发表于 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 编辑 ]

TOP

lwtxz123

Rank: 1

帖子
3 
积分
24 
技术
0  
捐助
0  
注册时间
2010-12-2 
9楼
发表于 2010-12-2 22:34 | 只看该作者

这一行显示不全

oShellLink.Ic

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

TOP

返回列表