1,488
社区成员
发帖
与我相关
我的任务
分享小贺一下小BLOG访问量超过1000，顶者有分，另提一API问题！
欢迎初学者访问:
http://blog.csdn.net/zcsor
老鸟们不要×!@0 哦
以下是问题：
众所周知，可以使用API函数来创建一个快捷方式，并同时设置其图标、说明等信息，但是小可用查来的代码时发现虽然快捷方式的属性里面的图标是设置的图标，但实际显示的还是原来的图标。例如，编译一个工程1.EXE，图标是VB默认的种FORM的图标，然后创建一个快捷方式并将图标设置为记事本的，发现创建的快捷方式的图标还是VB的那种，而查看快捷方式的属性发现图标是记事本的。问题出在哪了？代码就不贴了，求一可用代码。
http://blog.csdn.net/zcsor
老鸟们不要×!@0 哦
以下是问题：
众所周知，可以使用API函数来创建一个快捷方式，并同时设置其图标、说明等信息，但是小可用查来的代码时发现虽然快捷方式的属性里面的图标是设置的图标，但实际显示的还是原来的图标。例如，编译一个工程1.EXE，图标是VB默认的种FORM的图标，然后创建一个快捷方式并将图标设置为记事本的，发现创建的快捷方式的图标还是VB的那种，而查看快捷方式的属性发现图标是记事本的。问题出在哪了？代码就不贴了，求一可用代码。
...全文
请发表友善的回复…
发表回复
IORI915189 2006-10-27
- 打赏
- 举报
顶
清晨曦月 2006-10-22
- 打赏
- 举报
没测试各位楼上的说法，暂且认为是我机器的问题吧，呵呵。。。前两天把虚拟机里的系统弄坏了，过几天测试测试。
sdych6688 2006-10-20
- 打赏
- 举报
恭喜恭喜
清晨曦月 2006-10-20
- 打赏
- 举报
这里怎么这么臭呢，学过几天VB了？？SHELLLINK的例子在VB安装盘这个位置：
X:\安装程序所在目录\COMMON\TOOLS\VB\UNSUPPRT\SHELLLNK\TESTSLNK
那位2个星星的大哥，你不吝啬我也不吝啬，你可以把代码看完贴在这里，我的帖子随便你发的，真的。
X:\安装程序所在目录\COMMON\TOOLS\VB\UNSUPPRT\SHELLLNK\TESTSLNK
那位2个星星的大哥，你不吝啬我也不吝啬，你可以把代码看完贴在这里，我的帖子随便你发的，真的。
清晨曦月 2006-10-20
- 打赏
- 举报
恩恩，测试通过。稍修改一下是可以在VB里面直接写代码的，不用写成脚本再SHELL
Option Explicit
Dim WshShell As Object, WScript As Object, strDesktop As String, oShellLink As Object
Private Sub Form_Load()
Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") '桌面路径
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut Script.lnk") '创建快捷方式,参数为路径和名称
oShellLink.WindowStyle = 1 '风格
oShellLink.Hotkey = "CTRL+SHIFT+F" '热键
oShellLink.IconLocation = "notepad.exe, 0" '图标
oShellLink.Description = "Shortcut Script" '快捷方式备注内容
oShellLink.WorkingDirectory = strDesktop '源文件所在目录
oShellLink.Save '保存创建的快捷方式
End Sub
大家帮我再看看SHELLLINK那个例子，在你们机器上能正常创建不，那个示例在VB安装盘中，在你的安装盘里搜索一下就找到了。
Option Explicit
Dim WshShell As Object, WScript As Object, strDesktop As String, oShellLink As Object
Private Sub Form_Load()
Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") '桌面路径
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut Script.lnk") '创建快捷方式,参数为路径和名称
oShellLink.WindowStyle = 1 '风格
oShellLink.Hotkey = "CTRL+SHIFT+F" '热键
oShellLink.IconLocation = "notepad.exe, 0" '图标
oShellLink.Description = "Shortcut Script" '快捷方式备注内容
oShellLink.WorkingDirectory = strDesktop '源文件所在目录
oShellLink.Save '保存创建的快捷方式
End Sub
大家帮我再看看SHELLLINK那个例子，在你们机器上能正常创建不，那个示例在VB安装盘中，在你的安装盘里搜索一下就找到了。
heziyun99 2006-10-20
- 打赏
- 举报
up
一笑拔剑 2006-10-20
- 打赏
- 举报
嘿嘿
几段小代码而已
api就能完成
需要用控件么？
算了
不多说了
要不人说我找碴了
几段小代码而已
api就能完成
需要用控件么？
算了
不多说了
要不人说我找碴了
清晨曦月 2006-10-20
- 打赏
- 举报
?不舍得 ？
呵呵，VB安装盘上就有，何必呢，何必呢？？？？？？？
如果我都不舍得，何必在博客上写一些东西呢，你去网上看看，就那2个读写进程内存的函数，有几个正解的，都TMD垃圾货干的垃圾事，别以小人之心度所有人，那么多星星了，何必呢。
呵呵，VB安装盘上就有，何必呢，何必呢？？？？？？？
如果我都不舍得，何必在博客上写一些东西呢，你去网上看看，就那2个读写进程内存的函数，有几个正解的，都TMD垃圾货干的垃圾事，别以小人之心度所有人，那么多星星了，何必呢。
gsfcstx16 2006-10-20
- 打赏
- 举报
恭喜楼主，接分
一笑拔剑 2006-10-20
- 打赏
- 举报
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut Script.lnk")
oShellLink.TargetPath = WScript.ScriptFullName
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "CTRL+SHIFT+F"
oShellLink.IconLocation = "notepad.exe, 0"
oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
这玩意不错
代码估计是他舍不得弄上来
大家就不要等了
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut Script.lnk")
oShellLink.TargetPath = WScript.ScriptFullName
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "CTRL+SHIFT+F"
oShellLink.IconLocation = "notepad.exe, 0"
oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
这玩意不错
代码估计是他舍不得弄上来
大家就不要等了
Gujianda 2006-10-20
- 打赏
- 举报
重新启动机器就好啦！
IamDeane 2006-10-20
- 打赏
- 举报
刷以下图标缓存就可以了~~~
randomx 2006-10-20
- 打赏
- 举报
up
PctGL 2006-10-20
- 打赏
- 举报
应该是图标缓存的问题;重启电脑后如果还是不行,就说明,图标缓存该从新晒晒了...
VirtualDesktop 2006-10-20
- 打赏
- 举报
貌似正常，那个shelllink我用了n年了
pigsanddogs 2006-10-19
- 打赏
- 举报
jf
jackyc23 2006-10-19
- 打赏
- 举报
up!
yangao 2006-10-19
- 打赏
- 举报
恭喜
chenhui530 2006-10-19
- 打赏
- 举报
楼主没必要用API啊用VBS就一下解决了
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut Script.lnk")
oShellLink.TargetPath = WScript.ScriptFullName
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "CTRL+SHIFT+F"
oShellLink.IconLocation = "notepad.exe, 0"
oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut Script.lnk")
oShellLink.TargetPath = WScript.ScriptFullName
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "CTRL+SHIFT+F"
oShellLink.IconLocation = "notepad.exe, 0"
oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
xiagl311 2006-10-19
- 打赏
- 举报
up
加载更多回复（11）
