【剑仙教程】调用VBS发送快捷方式 4.431

剑仙十号

//调用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",文件源路径,快捷方式名)
功能结束

空间结束

游客，如果您要查看本帖隐藏内容请回复

剑仙十号

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

qq147735456

lml164

调用VBS创建快捷方式