|
马上加入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)
结束
|
|