怎么在桌面创建快捷方式阿？

abmin

打开脚本后，发送脚本的快捷方式到桌面。

a837198

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. 功能结束

复制代码

小欧1023

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

小欧1023 发表于 2015-1-28 23:27
echo  >>test.url
echo URL=E:\TDDOWNLOAD\多功能播放器.exe>>test.url
echo IconIndex=29 >>test.url

= = 可以帮忙写一下吗，发论坛吗 不知道批处理在那里

小欧1023

我也不会,百度给你搜的 - -

abmin

a837198 发表于 2015-1-29 00:34
http://bbs.tyuyan.com/thread-48259-1-1.html

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

我想创建程序自身的快捷方式，用你这个 创建的是 我的电脑 或计算机。 空名字

a837198

abmin 发表于 2015-1-29 10:22
我想创建程序自身的快捷方式，用你这个 创建的是 我的电脑 或计算机。 空名字 ...

你不知道 函数的输入值那里么  不会自己把那输入值写上自己的程序名字或地址么？？？

小欧1023

echo [InternetShortcut] >>快捷方式名.url
echo URL=D:\要设置的exe.exe>>快捷方式名.url
echo IconIndex=29 >>快捷方式名.url
echo IconFile=C:\windows\system32\shell32.dll >>快捷方式名.url

研究了下 这样就可以了,生成的快捷键是根目录下 你之需要在用 tc自带的 文件 api 把他移动到桌面即可

abmin

a837198 发表于 2015-1-29 10:42
你不知道 函数的输入值那里么  不会自己把那输入值写上自己的程序名字或地址么？？？
...

= = 这个真心不知道 能帮在具体位置上 注明一下吗

abmin

a837198 发表于 2015-1-29 10:42
你不知道 函数的输入值那里么  不会自己把那输入值写上自己的程序名字或地址么？？？
...

贼回知道啦，你好像修改了源码 我看见了，我试试去