TC官方合作论坛

 找回密码
 立即注册
查看: 4292|回复: 13

【剑仙教程】调用VBS创建快捷方式 7.0

  [复制链接]
发表于 2020-1-4 13:55:29 | 显示全部楼层 |阅读模式

马上加入TC

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
//调用VBS创建快捷方式
//tc调用VBS代码,发送快捷方式,不需要创建vbs文件.
//http://52tc.info/forum.php?mod=viewthread&tid=51080
//3楼 abmin 代码环境:tc7.0

var hThread
功能 执行()
创建快捷方式()
结束
功能 创建快捷方式(文件源路径 = "", 快捷方式名 = "", 快捷方式路径 = "")        
var hwndmy = 窗口获取自我句柄()
如果(文件源路径 == "")
  文件源路径 = 窗口获取路径(hwndmy)
结束

选择(快捷方式名)
  条件 ""
  var len, 返回值, 返回值2
  字符串分割(文件源路径, "\\",返回值)
  len = 数组大小(返回值)
  字符串分割(返回值[len - 1], ".", 返回值2)
  快捷方式名 = 返回值2[0]
  
  条件 "窗口标题"
  快捷方式名 = 窗口获取标题(hwndmy)
  
  默认
  快捷方式名 = 字符串替换(快捷方式名, ".lnk", "")
  
结束

var strProgram = "Sub Shortcut(filepath,lnkpath): On Error Resume Next:  set WshShell = CreateObject(\"WScript.Shell\"): "
如果(快捷方式路径 == "")
  //在桌面创建快捷方式
  快捷方式名 = 快捷方式名 & ".lnk"
  strProgram = strProgram & "strDesktop = WshShell.SpecialFolders(\"Desktop\"): set oShellLink = WshShell.CreateShortcut(strDesktop &\"\\\"&lnkpath): "
否则
  //指定位置的快捷方式
  快捷方式名 = 快捷方式路径 & "\\"&快捷方式名&".lnk"  
  strProgram = strProgram & "set oShellLink = WshShell.CreateShortcut(lnkpath): "
结束

strProgram = strProgram & "oShellLink.TargetPath = filepath: oShellLink.Save: Set oShellLink = Nothing: Set WshShell = Nothing: End Sub"
var sc = com("ScriptControl")
sc.language = "VBScript"
sc.addcode(strProgram)
sc.run("Shortcut",文件源路径,快捷方式名)
结束

功能 启动_热键()
var bool = 线程获取状态(hThread)
if(bool == 0)
  hThread = 线程开启("执行", "")
end
结束
功能 终止_热键()
线程关闭(hThread)
结束
游客,如果您要查看本帖隐藏内容请回复


调用VBS创建快捷方式7.0.zip

2.89 KB, 下载次数: 37, 下载积分: 金币 -1 个

回复

使用道具 举报

 楼主| 发表于 2020-1-4 13:56:29 | 显示全部楼层
本帖最后由 剑仙十号 于 2023-4-4 22:11 编辑

二楼,更新信息专用。
tc简单开发_爱好群:
433286131 (491/500)
  
tc简单开发_兴趣群
143358382 (481/500)
  
tc简单开发_高级群
891069033(138/200)  
教程有连接安卓手机,连接安卓模拟器。
有编程四大F:
1、流程控制,2、变量和数组,
3、函数多线程,4、系统 api函数。
每章十多节。本群大神众多,新手众多,群文件内资源海量。希望新手分享出.更多学习笔记,减少重复造轮子的时间。
大家共同学习,共同进步。
回复 支持 反对

使用道具 举报

发表于 2020-1-8 16:01:46 | 显示全部楼层
回复

使用道具 举报

发表于 2020-8-7 21:49:06 | 显示全部楼层
顶你.
回复

使用道具 举报

发表于 2020-10-14 19:35:35 | 显示全部楼层
666666
回复

使用道具 举报

发表于 2021-1-23 06:45:55 | 显示全部楼层
4
回复

使用道具 举报

发表于 2021-4-13 05:54:39 | 显示全部楼层
看看是不是我需要的
回复 支持 反对

使用道具 举报

发表于 2021-7-10 09:01:43 | 显示全部楼层
啊啊啊啊啊啊啊啊啊啊啊啊啊我看看啊
回复 支持 反对

使用道具 举报

发表于 2021-9-8 15:03:47 | 显示全部楼层
虚心学习
回复

使用道具 举报

发表于 2022-11-22 06:36:56 | 显示全部楼层
和规范化风格
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-3-30 03:31 , Processed in 0.049702 second(s), 25 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

快速回复 返回顶部 返回列表