TC官方合作论坛

 找回密码
 立即注册
查看: 510|回复: 3

【剑仙教程】调用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, 下载次数: 31, 下载积分: 金币 -1 个

回复

使用道具 举报

 楼主| 发表于 2020-1-4 13:56:29 | 显示全部楼层
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

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

GMT+8, 2020-9-30 14:50 , Processed in 0.037407 second(s), 25 queries .

Powered by 海安简单软件服务部

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

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