如何生成一个带图标的快捷方式,最好是*.url的

[42252343]

如题，能提供例子或源代码的送高分

[tztz520]

引用：Windows Script Host ...

'创建快捷方式
Public Sub CreateShortCutOnDeskTop(ByVal Name As String, ByVal Description As String, TargetPath As String, WorkingDirectory As String)
Dim X As New IWshRuntimeLibrary.IWshShell_Class
Dim Y As IWshRuntimeLibrary.IWshShortcut_Class
'Attribute VB_Name = "ShortCut"
Set Y = X.CreateShortcut(X.SpecialFolders.item("AllUsersDesktop") & "\" & Name & ".lnk")
Y.TargetPath = TargetPath
Y.Description = Description
Y.WorkingDirectory = WorkingDirectory
Y.Save
End Sub

[VbKing]

同意

[haohaohappy]

关于"快捷方式"的几个问题 (引用 Windows Script Host Model):
1.如何获取某一已存在的快捷方式(*.lnk)的所有信息?
Dim x As New IWshRuntimeLibrary.IWshShell_Class
Dim y As IWshRuntimeLibrary.IWshShortcut_Class
Set y = x.CreateShortcut("..\..\XXX.lnk")
Dim s As String
s = "Arguments: " & y.Arguments & vbCrLf _
& "Description: " & y.Description & vbCrLf _
& "FullName: " & y.FullName & vbCrLf _
& "Hotkey: " & y.Hotkey & vbCrLf _
& "IconLocation: " & y.IconLocation & vbCrLf _
& "TargetPath: " & y.TargetPath & vbCrLf _
& "WindowStyle: " & y.WindowStyle & vbCrLf _
& "WorkingDirectory: " & y.WorkingDirectory
MsgBox s
2.如何在 Windows 任务栏中创建快捷方式?
Dim x As New IWshRuntimeLibrary.IWshShell_Class
Dim y As IWshRuntimeLibrary.IWshShortcut_Class
If VBA.Len(VBA.Trim(VBA.Dir(x.SpecialFolders.Item("AppData") & "\Microsoft\Internet Explorer\Quick Launch\"))) > 0 Then
Set y = x.CreateShortcut(x.SpecialFolders.Item("AppData") & "\Microsoft\Internet Explorer\Quick Launch\WinRAR.lnk")
y.TargetPath = "..\..\XXX.exe"
y.Save
End If
'下面是几种 Windows 特殊路径:
AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
AppData
Desktop
Favorites
Fonts
MyDocuments
NetHood
PrintHood
Programs
Recent
SendTo
StartMenu
Startup
Templates

综上 CreateShortcut 是用来创建一个 WshShortcut 的对象, 只要不调用其 Save 方法,就不会真正改变快捷方式的属性。

[haohaohappy]

'创建快捷方式
Sub CreateShortCuts()
Dim WSH_Shell As WshShell
Dim SCut As WshShortcut

Set WSH_Shell = New WshShell

Set SCut = WSH_Shell.CreateShortcut(TOUCHPATH & "\touch.lnk")

With SCut
.TargetPath = TOUCHPATH & "\touch.exe"
.WorkingDirectory = TOUCHPATH
.Save
End With

Set WSH_Shell = Nothing
Set SCut = Nothing

Dim FileNumber As Integer

FileNumber = FreeFile

'pif快捷方式的第430字节为8，全屏幕运行
Open TOUCHPATH & "\touch.pif" For Binary As #FileNumber
Put #FileNumber, 430, 8
Close #FileNumber

End Sub

[haohaohappy]

'Ê×ÏÈÒªÒýÓÃWSH£¬Ñ¡VBµÄ²Ëµ¥Project->Reference£¬¼ÓÈëWindows Script Host Model¡£
Option Explicit

Public Sub CreateShortCutOnDeskTop(ByVal Name As String, ByVal Description As String)

Dim x As New IWshRuntimeLibrary.IWshShell_Class
Dim y As IWshRuntimeLibrary.IWshShortcut_Class
Set y = x.CreateShortcut(x.SpecialFolders.Item("AllUsersDesktop") & "\" & Name & ".lnk")
'¿ì½Ý·½Ê½ÊôÐÔÖеÄÄ¿±ê
y.TargetPath = App.Path & "\ÏîÄ¿¹ÜÀíϵͳ.exe"
'¿ì½Ý·½Ê½ÊôÐÔÖеı¸×¢
y.Description = Description
'¿ì½Ý·½Ê½ÊôÐÔÖеÄÆðʼλÖÃ
y.WorkingDirectory = App.Path
y.Save
End Sub

Public Sub CreateShortCutOnStartMenu(ByVal Name As String, ByVal Description As String)
Dim x As New IWshRuntimeLibrary.IWshShell_Class
Dim z As IWshRuntimeLibrary.IWshShortcut_Class
Set z = x.CreateShortcut(x.SpecialFolders.Item("AllUsersStartMenu") & "\³ÌÐò\" & Name & ".lnk")

'¿ì½Ý·½Ê½ÊôÐÔÖеÄÄ¿±ê
z.TargetPath = App.Path & "\ÏîÄ¿¹ÜÀíϵͳ.exe"
'¿ì½Ý·½Ê½ÊôÐÔÖеı¸×¢
z.Description = Description
'¿ì½Ý·½Ê½ÊôÐÔÖеÄÆðʼλÖÃ
z.WorkingDirectory = App.Path
z.Save
End Sub
Public Sub main()
Call CreateShortCutOnDeskTop("ÏîÄ¿¹ÜÀíϵͳ", "")
Call CreateShortCutOnStartMenu("ÏîÄ¿¹ÜÀíϵͳ", "")
End Sub

[42252343]

我是要带有图标的快捷方式 自定义图标

[快乐老猫]

看VB5的打包程序，微软提供源代码的，就是很烂，不过创个连接时没问题。

[hhjjhjhj]

.url文件是文本格式,可以用VB代码:Name ... As ...把它改成.txt文件
当然也可以用文本方式做一个.url文件,如:把下面内容保存为.url文件试试

[DEFAULT]
BASEURL=http://office.9zp.com
[InternetShortcut]
URL=http://office.9zp.com
IconIndex=0
IconFile=D:\WINDOWS\regedit.exe

[42252343]

我想用我程序带的图标而不是用客户机的图标是不是不能实现？？？？？？？？？？？