Fenêtres d'internet, changement de titre.

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

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.