|
发表于 2015-8-28 17:17:06
|
显示全部楼层
本帖最后由 a837198 于 2015-8-28 17:24 编辑
把你的代码 直接诶写到vbs文件里
然后 自己在最后写上相应的参数 最后加上那个函数的调用就可以
- //创建快捷方式(.lnk)
- //样式参数: 0=常规方式 1=最小化 2=最大化
- //其他参数参考 "取快捷方式属性"
- Sub 创建快捷方式(快捷方式路径, 目录, 目标, 参数, 样式, 图标, 备注, 热键)
- Dim WsObj, LnkObj, StyleNum
- If 样式 = 1 Then
- StyleNum = 2
- ElseIf 样式 = 2
- StyleNum = 6
- Else
- StyleNum = 0
- End If
- Set WsObj = CreateObject("WScript.Shell")
- Set LnkObj = WsObj.CreateShortcut(快捷方式路径)
- LnkObj.WorkingDirectory = 目录
- LnkObj.TargetPath = 目标
- LnkObj.Arguments = 参数
- LnkObj.WindowStyle = StyleNum
- LnkObj.IconLocation = 图标
- LnkObj.Description = 备注
- LnkObj.Hotkey = 热键
- LnkObj.Save
- Set LnkObj = Nothing
- Set WsObj = Nothing
- End Sub
- '以上为你的子函数信息 无需修改,直接放到vbs文件中 创建方法 创建文本文档---另存为---类型 所有文件 ---名称后加上“.vbs”
- '以下为自己用软件往该文件中写入的信息
- 快捷方式路径=“你要设置的”
- 目录=“你要设置的”
- 目标=“你要设置的”
- 参数=“你要设置的”
- 样式=“你要设置的”
- 图标=“你要设置的”
- 备注=“你要设置的”
- 热键=“你要设置的”
- 创建快捷方式(快捷方式路径, 目录, 目标, 参数, 样式, 图标, 备注, 热键)
- '/////写入后 让软件 用 命令(该vbs地址,真) 运行一下就可以了
-
复制代码
|
评分
-
查看全部评分
|