Url
cs_bucheron1
Messages postés
40
Date d'inscription
samedi 27 septembre 2003
Statut
Membre
Dernière intervention
20 février 2009
-
3 mars 2008 à 11:14
cs_bucheron1 Messages postés 40 Date d'inscription samedi 27 septembre 2003 Statut Membre Dernière intervention 20 février 2009 - 5 mars 2008 à 10:25
cs_bucheron1 Messages postés 40 Date d'inscription samedi 27 septembre 2003 Statut Membre Dernière intervention 20 février 2009 - 5 mars 2008 à 10:25
4 réponses
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
3 mars 2008 à 13:26
3 mars 2008 à 13:26
ouvres en un avec Notepad...
[DEFAULT]
BASEURL=http://www.cyberactivex.com/UnicodeTutorialVb.htm
[InternetShortcut]
URL=http://www.cyberactivex.com/UnicodeTutorialVb.htm
Modified=40B31180E675C701A7
ce sont tous simplement des fichiers INI.
[DEFAULT]
BASEURL=http://www.cyberactivex.com/UnicodeTutorialVb.htm
[InternetShortcut]
URL=http://www.cyberactivex.com/UnicodeTutorialVb.htm
Modified=40B31180E675C701A7
ce sont tous simplement des fichiers INI.
cs_bucheron1
Messages postés
40
Date d'inscription
samedi 27 septembre 2003
Statut
Membre
Dernière intervention
20 février 2009
4 mars 2008 à 09:42
4 mars 2008 à 09:42
salut,
j' affiche dans " DirListBox "
C:\
Users
Favorites
moto
astuces
quand je double click sur un dossier " moto "il m' affiche dans une " FileListBox "
honda.url
info.url
ce que je veux c' est recupere l' adresse cache derriere " .url "
honda.url = http://www.honda.be
info .url = http://www.bikers-attitude.be/webtv/fr/
merci
bucheron a+
j' affiche dans " DirListBox "
C:\
Users
Favorites
moto
astuces
quand je double click sur un dossier " moto "il m' affiche dans une " FileListBox "
honda.url
info.url
ce que je veux c' est recupere l' adresse cache derriere " .url "
honda.url = http://www.honda.be
info .url = http://www.bikers-attitude.be/webtv/fr/
merci
bucheron a+
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
4 mars 2008 à 10:05
4 mars 2008 à 10:05
..........
tu as toutes les billes pour avancer.
je t'ai indiqué que les fichier .url étaient de bêtes fichiers INI renommés.
un simple appel à GetPrivateProfileString te permettra donc de récupérer l'URL.
pour lancer le navigateur, il s'agira cette fois d'utiliser ShellExecute.
tous ces points sont traités de nombreuses fois sur le forum, n'hésites pas a y mettre les mains.
tu as toutes les billes pour avancer.
je t'ai indiqué que les fichier .url étaient de bêtes fichiers INI renommés.
un simple appel à GetPrivateProfileString te permettra donc de récupérer l'URL.
pour lancer le navigateur, il s'agira cette fois d'utiliser ShellExecute.
tous ces points sont traités de nombreuses fois sur le forum, n'hésites pas a y mettre les mains.
cs_bucheron1
Messages postés
40
Date d'inscription
samedi 27 septembre 2003
Statut
Membre
Dernière intervention
20 février 2009
5 mars 2008 à 10:25
5 mars 2008 à 10:25
Salut,
voila ce que je fais et ca marche
Dim LFile As Long 'Lecture
Dim OFile As String 'Fichier à ouvrir
Dim Ligne As String 'Ligne
Dim site
OFile = Dir1 & "" & File1
LFile = FreeFile
Open OFile For Input As #LFile
'Do 'début de boucle
Input #LFile, Ligne
site = Mid(Ligne, InStr(1, Ligne, "=") + 1, Len(Ligne))
Text1.Text = Text1.Text & vbNewLine & Ligne
'Loop Until EOF(LFile)
cboURL.Text = site
Merci
bucheron a+
voila ce que je fais et ca marche
Dim LFile As Long 'Lecture
Dim OFile As String 'Fichier à ouvrir
Dim Ligne As String 'Ligne
Dim site
OFile = Dir1 & "" & File1
LFile = FreeFile
Open OFile For Input As #LFile
'Do 'début de boucle
Input #LFile, Ligne
site = Mid(Ligne, InStr(1, Ligne, "=") + 1, Len(Ligne))
Text1.Text = Text1.Text & vbNewLine & Ligne
'Loop Until EOF(LFile)
cboURL.Text = site
Merci
bucheron a+
