|
马上加入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",文件源路径,快捷方式名)
功能结束
空间结束
|
|