CRÉER UN RACCOURCI INTERNET (.url)

Messages postés
35
Date d'inscription
samedi 31 août 2002
Statut
Membre
Dernière intervention
26 juin 2005
- - Dernière réponse : dimitriusai
Messages postés
76
Date d'inscription
lundi 6 novembre 2006
Statut
Membre
Dernière intervention
7 mai 2009
- 8 mai 2008 à 10:45
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/71-creer-un-raccourci-internet-url

Afficher la suite 
cs_Turakam
Messages postés
35
Date d'inscription
samedi 31 août 2002
Statut
Membre
Dernière intervention
26 juin 2005
-
Cool !!!
Ca fait 30 ans que je veux faire un raccourcis .lnk mais je n'y arrive pas donc j'ai pris ton code est mis l'adresse de mon fichier et sa marche !!! :)

Par contre on pourrai pas changer l'icon en meme temps qu'on le cree ??
Merci
babeuk
Messages postés
47
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
30 septembre 2003
-
oui on peut, il suffit d'ajouter les lignes suivantes :

IconIndex=0
IconFile=C:Mes documentsSans Titre.ico
hexenez
Messages postés
35
Date d'inscription
dimanche 10 août 2003
Statut
Membre
Dernière intervention
16 février 2008
-
exactement ce que cherchais! vive toi !
(mais pourquoi microsoft ne documente pas mieux pour ce genre de chose ?)
dimitriusai
Messages postés
76
Date d'inscription
lundi 6 novembre 2006
Statut
Membre
Dernière intervention
7 mai 2009
-
Voici Comment je fais en VBNET(Visual Studio 2008)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Permet de trouver le chemin du bureau de l'utilisateur
Dim chemin As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
chemin = chemin + "\Nomdemonurl.url"
Dim objWriter As New System.IO.StreamWriter(chemin, False, System.Text.Encoding.Default)
Dim MysqlResult2 As New ArrayList()
objWriter.WriteLine("[InternetShortcut]")
objWriter.WriteLine("URL=http://monlien.html")
objWriter.WriteLine("IDList=")
objWriter.WriteLine("IconFile=C:\monicone.ico")
objWriter.WriteLine("HotKey = 0")
objWriter.WriteLine("IconIndex = 0")
objWriter.WriteLine("[{000214A0-0000-0000-C000-000000000046}]")
objWriter.WriteLine("Prop3=19,2")
objWriter.Close()
FileClose(1)
End Sub