TC官方合作论坛

标题: 能否把按键的创建快捷方式功能 改成TC可用？ [打印本页]
作者: sanmaodo    时间: 2015-8-28 03:47
标题: 能否把按键的创建快捷方式功能 改成TC可用？
这是一个创建快捷方式的功能，很好用，能否改成TC来用呢，求高手指教。

  1. //创建快捷方式（.lnk）
  2. //样式参数: 0=常规方式 1=最小化 2=最大化
  3. //其他参数参考 "取快捷方式属性"

  5. Sub 创建快捷方式(快捷方式路径, 目录, 目标, 参数, 样式, 图标, 备注, 热键)
  6.     Dim WsObj, LnkObj, StyleNum
  7.     If 样式 = 1 Then
  8.         StyleNum = 2
  9.     ElseIf 样式 = 2
  10.         StyleNum = 6
  11.     Else
  12.         StyleNum = 0
  13.     End If
  14.     Set WsObj = CreateObject("WScript.Shell")
  15.     Set LnkObj = WsObj.CreateShortcut(快捷方式路径)
  16.     LnkObj.WorkingDirectory = 目录
  17.     LnkObj.TargetPath = 目标
  18.     LnkObj.Arguments = 参数
  19.     LnkObj.WindowStyle = StyleNum
  20.     LnkObj.IconLocation = 图标
  21.     LnkObj.Description = 备注
  22.     LnkObj.Hotkey = 热键
  23.     LnkObj.Save
  24.     Set LnkObj = Nothing
  25.     Set WsObj = Nothing
  26. End Sub
复制代码



作者: itcfan    时间: 2015-8-28 08:43
http://bbs.tyuyan.com/thread-51086-1-1.html
这个方法就能创建快捷方式
作者: sanmaodo    时间: 2015-8-28 11:44
本帖最后由 sanmaodo 于 2015-8-28 11:45 编辑
itcfan 发表于 2015-8-28 08:43
http://bbs.tyuyan.com/thread-51086-1-1.html
这个方法就能创建快捷方式

你说的这个办法，无法设置运行参数，只有放弃。

顶楼贴出的代码，看上起更简洁。
作者: itcfan    时间: 2015-8-28 17:08
sanmaodo 发表于 2015-8-28 11:44
你说的这个办法，无法设置运行参数，只有放弃。

顶楼贴出的代码，看上起更简洁。

给你TC实现创建快捷方式代码，你说你的代码简洁，你那代码能在TC上用吗？
你认真看对方的帖子，再修改下不就实现了！
作者: a837198    时间: 2015-8-28 17:17
本帖最后由 a837198 于 2015-8-28 17:24 编辑

把你的代码 直接诶写到vbs文件里

然后  自己在最后写上相应的参数  最后加上那个函数的调用就可以

  1. //创建快捷方式（.lnk）
  2. //样式参数: 0=常规方式 1=最小化 2=最大化
  3. //其他参数参考 "取快捷方式属性"

  5. Sub 创建快捷方式(快捷方式路径, 目录, 目标, 参数, 样式, 图标, 备注, 热键)
  6.     Dim WsObj, LnkObj, StyleNum
  7.     If 样式 = 1 Then
  8.         StyleNum = 2
  9.     ElseIf 样式 = 2
  10.         StyleNum = 6
  11.     Else
  12.         StyleNum = 0
  13.     End If
  14.     Set WsObj = CreateObject("WScript.Shell")
  15.     Set LnkObj = WsObj.CreateShortcut(快捷方式路径)
  16.     LnkObj.WorkingDirectory = 目录
  17.     LnkObj.TargetPath = 目标
  18.     LnkObj.Arguments = 参数
  19.     LnkObj.WindowStyle = StyleNum
  20.     LnkObj.IconLocation = 图标
  21.     LnkObj.Description = 备注
  22.     LnkObj.Hotkey = 热键
  23.     LnkObj.Save
  24.     Set LnkObj = Nothing
  25.     Set WsObj = Nothing
  26. End Sub

  28. '以上为你的子函数信息 无需修改，直接放到vbs文件中   创建方法  创建文本文档---另存为---类型 所有文件  ---名称后加上“.vbs”

  30. '以下为自己用软件往该文件中写入的信息

  32. 快捷方式路径=“你要设置的”
  33. 目录=“你要设置的”
  34. 目标=“你要设置的”
  35. 参数=“你要设置的”
  36. 样式=“你要设置的”
  37. 图标=“你要设置的”
  38. 备注=“你要设置的”
  39. 热键=“你要设置的”
  40. 创建快捷方式(快捷方式路径, 目录, 目标, 参数, 样式, 图标, 备注, 热键)


  43. '/////写入后    让软件 用 命令（该vbs地址，真） 运行一下就可以了

复制代码

作者: tan0360    时间: 2015-8-28 19:23
a837198 发表于 2015-8-28 17:17
把你的代码 直接诶写到vbs文件里

然后  自己在最后写上相应的参数  最后加上那个函数的调用就可以

这个好像是按键的代码。可以直接用vbs 来编译吗
作者: a837198    时间: 2015-8-28 22:37
tan0360 发表于 2015-8-28 19:23
这个好像是按键的代码。可以直接用vbs 来编译吗

就是创建一个vbs文件  然后运行他




欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1