cs_Turakam
Messages postés32Date d'inscriptionsamedi 31 août 2002StatutMembreDernière intervention26 juin 2005
-
1 sept. 2002 à 23:54
dimitriusai
Messages postés76Date d'inscriptionlundi 6 novembre 2006StatutMembreDerniè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.
dimitriusai
Messages postés76Date d'inscriptionlundi 6 novembre 2006StatutMembreDernière intervention 7 mai 20091 8 mai 2008 à 10:45
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
hexenez
Messages postés35Date d'inscriptiondimanche 10 août 2003StatutMembreDernière intervention16 février 2008 31 mai 2007 à 14:58
exactement ce que cherchais! vive toi !
(mais pourquoi microsoft ne documente pas mieux pour ce genre de chose ?)
babeuk
Messages postés47Date d'inscriptionjeudi 21 février 2002StatutMembreDernière intervention30 septembre 2003 29 oct. 2002 à 20:24
oui on peut, il suffit d'ajouter les lignes suivantes :
cs_Turakam
Messages postés32Date d'inscriptionsamedi 31 août 2002StatutMembreDernière intervention26 juin 2005 1 sept. 2002 à 23:54
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
8 mai 2008 à 10:45
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
31 mai 2007 à 14:58
(mais pourquoi microsoft ne documente pas mieux pour ce genre de chose ?)
29 oct. 2002 à 20:24
IconIndex=0
IconFile=C:Mes documentsSans Titre.ico
1 sept. 2002 à 23:54
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