能否把按键的创建快捷方式功能 改成TC可用？

sanmaodo

这是一个创建快捷方式的功能，很好用，能否改成TC来用呢，求高手指教。

1. //创建快捷方式（.lnk）
   
2. //样式参数: 0=常规方式 1=最小化 2=最大化
   
3. //其他参数参考 "取快捷方式属性"
   
4. 
   
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

http://bbs.tyuyan.com/thread-51086-1-1.html
这个方法就能创建快捷方式

a837198

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

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

1. //创建快捷方式（.lnk）
   
2. //样式参数: 0=常规方式 1=最小化 2=最大化
   
3. //其他参数参考 "取快捷方式属性"
   
4. 
   
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
    
27. 
    
28. '以上为你的子函数信息 无需修改，直接放到vbs文件中   创建方法  创建文本文档---另存为---类型 所有文件  ---名称后加上“.vbs”
    
29. 
    
30. '以下为自己用软件往该文件中写入的信息
    
31. 
    
32. 快捷方式路径=“你要设置的”
    
33. 目录=“你要设置的”
    
34. 目标=“你要设置的”
    
35. 参数=“你要设置的”
    
36. 样式=“你要设置的”
    
37. 图标=“你要设置的”
    
38. 备注=“你要设置的”
    
39. 热键=“你要设置的”
    
40. 创建快捷方式(快捷方式路径, 目录, 目标, 参数, 样式, 图标, 备注, 热键)
    
41. 
    
42. 
    
43. '/////写入后    让软件 用 命令（该vbs地址，真） 运行一下就可以了
    
44. 
    

复制代码

sanmaodo

itcfan 发表于 2015-8-28 08:43
http://bbs.tyuyan.com/thread-51086-1-1.html
这个方法就能创建快捷方式

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

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

itcfan

sanmaodo 发表于 2015-8-28 11:44
你说的这个办法，无法设置运行参数，只有放弃。

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

给你TC实现创建快捷方式代码，你说你的代码简洁，你那代码能在TC上用吗？
你认真看对方的帖子，再修改下不就实现了！

tan0360

a837198 发表于 2015-8-28 17:17
把你的代码 直接诶写到vbs文件里

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

这个好像是按键的代码。可以直接用vbs 来编译吗

a837198

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

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