怎样实现Vb创建桌面自定义图标的快捷方式呢

Question

个位大侠，我学Vb不久，还是个菜鸟。谁能给我写段代码啊  怎样实现Vb创建桌面自定义图标的快捷方式呢

Answer 1

Private Sub Command2_Click()
'引用windows scripting host object model   Dim WSH As WshShell
    Dim Urllink As WshShortcut
    Dim DeskPath As String
    Dim lnkName As String
  
    Set WSH = New WshShell
    DeskPath = WSH.SpecialFolders("Desktop")  '获得桌面路径
    
    '得到快捷方式
    lnkName = Dir(DeskPath & "\*.lnk") 
    Debug.Print lnkName
    While Len(lnkName)
        Debug.Print lnkName
        lnkName = Dir
    Wend
    
    '可以用wsh_shell.expandenvironmentstrings("%windir%")获得windows路径
    Set Urllink = WSH.CreateShortcut(DeskPath & "\Test.lnk")
    With Urllink
        .TargetPath = "d:\test.txt"         '目标
        .IconLocation = WSH.ExpandEnvironmentStrings _
            ("%SystemRoot%\system32\SHELL32.dll,70")     '图标,可以是自己的ico
        .Hotkey = "ctrl+shift+F"            '快捷键
        .WorkingDirectory = "d:\"           '起始位置
        .WindowStyle = 1                    '运行方式
        .Description = "备注备注备注备注备注"       '备注
        .Arguments = StrArg '参数
  End With
  Urllink.Save '保存快捷方式
  
'  '添加到桌面
'lReturn = fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\calc.exe", "")
''添加到程序组
'lReturn = fCreateShellLink("", "Shortcut to Calculator", "c:\windows\calc.exe", "")
''添加到启动组
'lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", "c:\windows\calc.exe", "")
  
End Sub

Answer 2

在VC下如何实现呢，各位大虾们，主要是这一句，
 .IconLocation = WSH.ExpandEnvironmentStrings _
            ("%SystemRoot%\system32\SHELL32.dll,70")     '图标,可以是自己的ico
比如我要把应用程序图标改成图片图标，.jpg快捷方式的样子。
在下面这里回贴给分。http://topic.csdn.net/u/20110724/23/36dde568-2e94-4d26-8468-986bf051fbd0.html

Answer 3

+++1
不错不结贴,csdn的人还是不欢迎的