利用VBS创建快捷方式
2010年06月19日
利用VBS创建快捷方式详细说明
2008-07-04 20:00
以下内容另存为 XXX.VBS
第1个是桌面上创建快捷方式的应用范例
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夹“桌面”
set oShellLink = WshShell.CreateShortcut(strDesktop & "\计算器.lnk")
oShellLink.TargetPath = "C:\Windows\System32\Calc.exe" : '目标
oShellLink.WindowStyle = 3 :'参数1默认窗口激活,参数3最大化激活,参数7最小化
oShellLink.Hotkey = "Ctrl+Alt+C" : '快捷键
oShellLink.IconLocation = "C:\Windows\System32\Calc.exe" : '图标
oShellLink.Description = "系统默认计算器" : '备注
oShellLink.WorkingDirectory = strDesktop : '起始位置
oShellLink.Save : '创建保存快捷方式
第2个是自定义目录位置上创建快捷方式的应用范例
Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("C:\Documents and Settings\Administrator\计算器调试.lnk")
oShellLink.IconLocation = "C:\Documents and Settings\Administrator\Calc.exe" : '图标
oShellLink.TargetPath = "C:\Documents and Settings\Administrator\Calc.exe" : '目标
oShellLink.WorkingDirectory = "C:\Documents and Settings\Administrator\" : '起始位置
oShellLink.Hotkey = "Ctrl+Alt+C" : '快捷键
oShellLink.WindowStyle = 3 :'运行方式,参数1默认窗口激活,参数3最大化激活,参数7最小化
oShellLink.Description = "系统默认计算器" : '备注
oShellLink.Save : '创建保存快捷方式
以下内容另存为 XXX.js
第3个是自定义目录位置上以JS类创建快捷方式的应用范例
var fso = new ActiveXObject("Scripting.FileSystemObject");
var shl = WScript.CreateObject("WScript.Shell");
var oUrl = shl.CreateShortcut("C:\Documents and Settings\Administrator\Favorites\\游戏菜单.lnk");
oUrl.TargetPath = "E:\\nbmsclient\\BarClientView.exe";
oUrl.IconLocation = "E:\\nbmsclient\\BarClientView.exe";
oUrl.WorkingDirectory = "E:\\nbmsclient";
oUrl.Save();
从以上VBS和JS脚本对比我们可以发现有共同点之处,此类脚本开始都要声明以下内容以什么程序来解析运行,声明好了,接下去才是具体的步骤.
发表评论
-
转笔记
2012-01-20 10:06 870转笔记 2010年09月29日 *作者:alxston ... -
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误 不能使用(未知的) 文件使用中
2012-01-20 10:06 558HTTP 错误 500.100 - 内部服务器错误 - ASP ... -
powerdesigner逆向工程生成PDM时的列注释解决方案
2012-01-20 10:06 628powerdesigner逆向工程生成PDM时的列注释解决方案 ... -
WinCe 配置文件解析
2012-01-20 10:05 653WinCe 配置文件解析 2011年01月20日 Win ... -
如何访问Facebook、Twitter及Youtube等网站
2012-01-20 10:05 10如何访问Facebook、Twitter及Youtube等网站 ... -
开机快速自动联网(一句话的VBS)
2012-01-19 15:07 727开机快速自动联网(一句话的VBS) 2010年10月20日 ... -
使用脚本程序管理Windows网络(3)
2012-01-19 15:07 616使用脚本程序管理Windows ... -
VBS WScript.Shell 隐藏cmd命令行
2012-01-19 15:07 788VBS WScript.Shell 隐藏cmd命令行 201 ... -
全自动申请qq号vbs代码
2012-01-19 15:07 726全自动申请qq号vbs代码 2011年08月25日 下面 ... -
NSClassFromString
2012-01-17 04:54 1795NSClassFromString 2010年11月06日 ... -
速度-电脑运行速度慢的各种原因及解决方法zz
2012-01-17 04:54 524速度-电脑运行速度慢的 ... -
CEGUI 学习笔记 - 启动详细分析
2012-01-17 04:54 1073CEGUI 学习笔记 - 启动详 ... -
Unity Android让游戏移植变得异乎寻常的简单
2012-01-17 04:53 926Unity Android让游戏移植变得异乎寻常的简单 20 ... -
config配置中文解释
2012-01-17 04:53 661config配置中文解释 2011年04月02日 con ... -
as3 正则表达式
2012-01-16 03:44 513as3 正则表达式 2009年10月04日 /\scom ... -
AS3正则与js正则中反向引用
2012-01-16 03:44 742AS3正则与js正则中反向引用 2010年09月29日 ... -
常用数字正则表达式
2012-01-16 03:44 767常用数字正则表达式 20 ... -
常用正则表达式
2012-01-16 03:44 638常用正则表达式 2010年04月17日 常用数字正则表达 ... -
揭开正则表达式的神秘面纱
2012-01-16 03:44 576揭开正则表达式的神秘 ...
相关推荐
用于创建快捷方式的vbs代码 根据自己的具体情况做一些修改即可
创建程序快捷方式 (“C:\Users\Administrator\Desktop\asd.exe”)。@hmyroot。
VBS病毒是用VBScript编写而成,该脚本语言功能非常强大,它们利用Windows系统的开放性特点,通过调用一些现成的Windows对象、组件,可以直接对文件系统、注册表等进行控制。...vbs文件夹快捷方式病毒清除专用
可以由vbs创建你所想创建的文件,方便批量处理,但是不一定是最适合的,(我还加密了)希望对你有用,当然我也不是为了啥的,嘻嘻。
该程序,利用vbs的方式创建快捷方式.需要使用cmd运行,具体操作,可以在cmd中键入本程序完整路径,再输入参数 "help" 查看
vbs创建写入执行删除文件
vbs建立宽带连接+桌面快捷方式 绿色 透明软件 放心使用
有两个txt文件:qq1.txt和qq2.txt,现在利用vbs将qq1.txt文件里的内容进行筛选,如果该内容也出现在qq2.txt里,则在qq1.txt里将此部分内容删除,适合有需要的朋友下载!
利用vbs脚本编写系统序列号更改器,很实用。
利用VBS脚本代码扫描U盘插入拔出消息,并向其中创建随机文件夹
Installfont.vbs /y C:\code128.ttf
使用的时候需要将readTimeAndCall.vbs的快捷方式放入启动文件夹,这样可以自动多次重启。 具体的规则:运行inputRestartSet.vbs设定1-9次重启,每次需要3600-360000秒时延,前n-1次为重启,最后一次为关机;将...
vbsvbs的基础,html编程的基础,vbsvbs的基础,html编程的基础
VBS实例 44个 vbs脚本实例, VBS取QQ-TM号码的自动登录命令行.vbs 妙用脚本清除电脑中的痕迹.vbs 后台字典文件管理器.vbs 定时关机.vbs 列出管理工具集.vbs ...利用VB编写文本朗读精灵.vbs 。。。。。。。。。。。
生成应用程序的桌面快捷方式.vbs,很方便的生成桌面应用程序的快捷方式,配置好后,双击运行即可。不过360会报警告,忽略警告即可。
这是一个可以删除硬盘里的空文件夹的vbs脚本,不建议在c盘和d盘使用,误删除跟原作者及发送者无关。
创建程序快捷方式 (“C:\Users\Administrator\Desktop\asd.exe”)
用VBS获取网页源代码.vbs set http=createobject("Microsoft.XMLHTTP") '\\调用XMLHTTP对象 url="http://www.119880.com/qq.txt" '\\赋予变量URL值 Set hhh = createObject("Microsoft.XMLHTTP") hhh.open "get",...
利用VBS将EXCEL内容读出来 利用VBS将EXCEL内容读出来 利用VBS将EXCEL内容读出来 利用VBS将EXCEL内容读出来