Fenêtres d'internet, changement de titre.

Soyez le premier à donner votre avis sur cette source.

Vue 3 123 fois - Téléchargée 203 fois

Description

Ben ouais, il suffit de rentrer une phrase dans la textbox, de lancer internet, et ça donne, par exemple avec la page de garde de wanadoo :
"Wanadoo - Votre phrase"
Premier prog déposé ! Très simple, je dirai niveau 1/3 !

Source / Exemple :


Private Sub lbl1_Click()

Unload Me

End Sub

Private Sub OkButton_Click()

a = txt1.Text

Set gui = CreateObject("WScript.Shell")
gui.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title", a

lbl1.Caption = "Désormais, chaque page d'Internet aura pour entête le nom de la page ouverte" & vbCrLf & "suivi de " & a & vbCrLf & vbCrLf & "Pour quitter cliquez ici           | :: |"

End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
148
Date d'inscription
dimanche 13 octobre 2002
Statut
Membre
Dernière intervention
13 novembre 2008

Y a t l une asstuce du meme style permettant d'associer son prog au menu contextuel du bouton droit de la souris? (comme l'associqation à winzip par exemple)
Messages postés
6
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
27 mai 2003

Ouais je sais, ya eu unpti problème dans mon dossier ! Mais il suffit de faire une form avec une textbox (appelée txt1), un label (appelé lbl1) et un boutton appelé OkButton.
Messages postés
29
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
21 novembre 2008

Il semble manquer le .frm dans ton zip

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.