TC官方合作论坛

标题: 怎么在桌面创建快捷方式阿？ [打印本页]
作者: abmin    时间: 2015-1-28 22:51
标题: 怎么在桌面创建快捷方式阿？
打开脚本后，发送脚本的快捷方式到桌面。
作者: 小欧1023    时间: 2015-1-28 23:27
echo [InternetShortcut] >>test.url
echo URL=E:\TDDOWNLOAD\多功能播放器.exe>>test.url
echo IconIndex=29 >>test.url
echo IconFile=C:\windows\system32\shell32.dll >>test.url

自己写到批处理里
作者: abmin    时间: 2015-1-28 23:56
小欧1023 发表于 2015-1-28 23:27
echo  >>test.url
echo URL=E:\TDDOWNLOAD\多功能播放器.exe>>test.url
echo IconIndex=29 >>test.url

= = 可以帮忙写一下吗，发论坛吗 不知道批处理在那里
作者: 小欧1023    时间: 2015-1-29 00:20
我也不会,百度给你搜的 - -
作者: a837198    时间: 2015-1-29 00:34
本帖最后由 a837198 于 2015-1-29 11:16 编辑

http://bbs.tyuyan.com/thread-48259-1-1.html

可以使用这里那个公共库中的子程序
  1. 功能 创建快捷方式(文件源路径="",快捷方式名="",快捷方式路径="")        
  2.        如果(文件源路径=="")
  3.           文件源路径=窗口.获取路径(窗口.自身句柄())
  4.        如果结束
  5.        选择(快捷方式名)
  6.            条件 "":
  7.            len1,返回值,返回值2
  8.            字符串.分割(文件源路径,"\\",返回值)
  9.            数组空间.大小(返回值,len1)
  10.            字符串.分割(返回值[len1-1],".",返回值2)
  11.            快捷方式名=返回值2[0]
  12.            条件 "窗口标题":
  13.            快捷方式名=窗口.得到标题(窗口.自身句柄())
  14.            默认:
  15.            快捷方式名=字符串.替换(快捷方式名,".lnk","")
  16.        选择结束      
  17.        strProgram ="Sub Shortcut(filepath,lnkpath): On Error Resume Next:  set WshShell = CreateObject(\"WScript.Shell\"): "
  18.        如果(快捷方式路径=="")
  19.                 //在桌面创建快捷方式
  20.                快捷方式名=快捷方式名&".lnk"
  21.                strProgram =strProgram &"strDesktop = WshShell.SpecialFolders(\"Desktop\"): set oShellLink = WshShell.CreateShortcut(strDesktop &\"\\\"&lnkpath): "   
  22.        否则
  23.               //指定位置的快捷方式
  24.               快捷方式名=快捷方式路径&"\\"&快捷方式名&".lnk"  
  25.               strProgram =strProgram &"set oShellLink = WshShell.CreateShortcut(lnkpath): "
  26.        如果结束   
  27.        strProgram =strProgram &"oShellLink.TargetPath = filepath: oShellLink.Save: Set oShellLink = Nothing: Set WshShell = Nothing: End Sub"
  28.        sc = com("ScriptControl")
  29.        sc.language = "VBScript"
  30.        sc.addcode(strProgram)
  31.        sc.run("Shortcut",文件源路径,快捷方式名)   
  32. 功能结束
复制代码






作者: abmin    时间: 2015-1-29 10:22
a837198 发表于 2015-1-29 00:34
http://bbs.tyuyan.com/thread-48259-1-1.html

可以使用这里那个公共库中的子程序

我想创建程序自身的快捷方式，用你这个 创建的是 我的电脑 或计算机。 空名字
作者: a837198    时间: 2015-1-29 10:42
本帖最后由 a837198 于 2015-1-29 10:45 编辑
abmin 发表于 2015-1-29 10:22
我想创建程序自身的快捷方式，用你这个 创建的是 我的电脑 或计算机。 空名字 ...

你不知道 函数的输入值那里么  不会自己把那输入值写上自己的程序名字或地址么？？？
作者: 小欧1023    时间: 2015-1-29 10:57
echo [InternetShortcut] >>快捷方式名.url
echo URL=D:\要设置的exe.exe>>快捷方式名.url
echo IconIndex=29 >>快捷方式名.url
echo IconFile=C:\windows\system32\shell32.dll >>快捷方式名.url

研究了下 这样就可以了,生成的快捷键是根目录下 你之需要在用 tc自带的 文件 api 把他移动到桌面即可
作者: abmin    时间: 2015-1-29 12:28
a837198 发表于 2015-1-29 10:42
你不知道 函数的输入值那里么  不会自己把那输入值写上自己的程序名字或地址么？？？
...

= = 这个真心不知道 能帮在具体位置上 注明一下吗
作者: abmin    时间: 2015-1-29 12:30
a837198 发表于 2015-1-29 10:42
你不知道 函数的输入值那里么  不会自己把那输入值写上自己的程序名字或地址么？？？
...

贼回知道啦，你好像修改了源码 我看见了，我试试去
作者: 2645572175    时间: 2015-6-25 09:09
作者: 6299843    时间: 2015-8-17 04:12
刚刚也遇见这个问题，看见二楼最佳嘉宾的回复，实在是太棒了。！！！



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1