Supprimer les URL tapés [Résolu]

Signaler
Messages postés
26
Date d'inscription
mardi 6 novembre 2007
Statut
Membre
Dernière intervention
30 janvier 2009
-
Messages postés
26
Date d'inscription
mardi 6 novembre 2007
Statut
Membre
Dernière intervention
30 janvier 2009
-
Bonjour
Pour une petite application j'ai besoin d'acceder au URL tapé dans IE pour les supprimer...
Et j'en ai aucune idée...
Est ce que c'est stocké dans des fichier txt,log ou dans la base de registre, et comment faire pour les supprimer !

Merci pour votre temps

9 réponses

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Bonsoir à tous,

La source de ShareVB est très détaillée.

jean-marc
Messages postés
38
Date d'inscription
jeudi 20 septembre 2007
Statut
Membre
Dernière intervention
9 décembre 2008

Il y a + simple:
HKCU\software\microsoft\internet explorer\typedURLs
Messages postés
38
Date d'inscription
jeudi 20 septembre 2007
Statut
Membre
Dernière intervention
9 décembre 2008

Project>References>cocher la case "Windows Script Host Object Model">OK
Messages postés
3472
Date d'inscription
lundi 16 juillet 2007
Statut
Membre
Dernière intervention
28 février 2014
33
je pense que ce serai plus simple de faire appel a une fonction javascript qui supprime le contenu de l'historique !!!
je ne sais pas si on peut faire ce genre de chose en vb, ça fait lontemps que je ne m'y suis pas mis !!!
Messages postés
26
Date d'inscription
mardi 6 novembre 2007
Statut
Membre
Dernière intervention
30 janvier 2009

Alors si j'ai bien compris, en suprimant les fichiers dans le dossier "%CurrentUser%\Local Settings\Historique" je suprime les URL tapés ?!
Messages postés
26
Date d'inscription
mardi 6 novembre 2007
Statut
Membre
Dernière intervention
30 janvier 2009

Oui, je dois alors vider toutes la valeurs qui s'y trouve !
mais comment faire !
Messages postés
38
Date d'inscription
jeudi 20 septembre 2007
Statut
Membre
Dernière intervention
9 décembre 2008

 Sub DeleteHistory()
On Error Resume Next
Dim wsh As IWshRuntimeLibrary.WshShell, i As Integer
Set wsh = CreateObject("wscript.shell")
Err.Clear
Do Until Err.Number = -2147024894 'clé introuvable
    i = i + 1
    wsh.RegDelete "HKCU\software\microsoft\internet explorer\typedURLs\url" & i
    DoEvents
Loop
MsgBox i & " URLs supprimées.", vbInformation
End Sub
Messages postés
26
Date d'inscription
mardi 6 novembre 2007
Statut
Membre
Dernière intervention
30 janvier 2009

J'ai essayé d'utiliser votre code Vautour, mais j'ai une erreur sur la ligne :

wsh As IWshRuntimeLibrary.WshShell

l'erreur est "type defini par l'utilisateur non defini"
Messages postés
26
Date d'inscription
mardi 6 novembre 2007
Statut
Membre
Dernière intervention
30 janvier 2009

parfait !
Merci pour votre temps.