TC官方合作论坛

 找回密码
 立即注册
查看: 86|回复: 2

[源码分享] 【剑仙教程】调用VBS发送快捷方式 4.431

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

马上加入TC

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

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

//
空间 调用VBS发送快捷方式

功能 开始_点击()
调用VBS发送快捷方式.创建快捷方式()
功能结束

功能 退出_点击()
辅助.退出()
功能结束

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

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

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"
sc = com("ScriptControl")
sc.language = "VBScript"
sc.addcode(strProgram)
sc.run("Shortcut",文件源路径,快捷方式名)
功能结束

空间结束
游客,如果您要查看本帖隐藏内容请回复


调用VBS发送快捷方式4.431.zip

2.82 KB, 下载次数: 7

回复

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

关闭

站长推荐上一条 /2 下一条

关闭

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

GMT+8, 2020-1-26 20:00 , Processed in 0.034993 second(s), 25 queries .

Powered by 海安简单软件服务部

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

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