MODIFICATION DE LA BARRE DE TITRE --[ONLY INTERNET EXPLORER]--
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
24 mars 2004 à 18:15
cs_freegamer Messages postés 99 Date d'inscription vendredi 11 juillet 2003 Statut Membre Dernière intervention 16 juin 2007 - 21 juin 2004 à 21:25
cs_freegamer Messages postés 99 Date d'inscription vendredi 11 juillet 2003 Statut Membre Dernière intervention 16 juin 2007 - 21 juin 2004 à 21:25
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/21445-modification-de-la-barre-de-titre-only-internet-explorer
https://codes-sources.commentcamarche.net/source/21445-modification-de-la-barre-de-titre-only-internet-explorer
21 juin 2004 à 21:25
Es ce que tu en connait d'autre ?
Ce que tu pourrais faire toutes les regrouper dans un seul projets VB,qui serait un peu comme un livre, comme api guide, si tu a besoin d'aide je suis OK pour t'aider, comme pour faire une interface
26 mars 2004 à 07:31
---> Encourager moi, j'suis débutant (mais ca veut pas dire pour cela que vous devez tronquer vos notes !).
GNIARK
P.S. : GNIARK est le cri du Groumphy dans une période de rut éthylique. Ce cri est labellisé original et cpoyright a été déposé. Toute imitation sera séverement punie ! :p)
25 mars 2004 à 17:32
Compatible Win 2000/XP (les autres j'ai pas regardé...).
WScript.Echo "[Enlève l'onglet Arrière-plan de l'affichage]"
MsgBienvenue = "Reg v1 - Modification de la base de registre."
TitreBienvenue = "Digital-Nation : [Script de Configuration]"
Call MsgAccueil()
MsgAttnTxt = "Compatibilité unique vers Windows."
TitreAttn = "Digital-Nation : [Attention]"
Call MsgAttn()
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim theValue, theClic
theValue InputBox("Entrer la valeur de la clé [N non actif ou A = Actif]:")
If theValue = "N" then
theClic = "1"
Call Ecriture()
ElseIf theValue = "A" then
theClic = "0"
Call Ecriture()
Else
WScript.Echo "Valeur non correcte. Abandon de la procédure. -- by Groumphy --"
WScript.Quit
End if
Sub Ecriture()
WSHShell.Popup "Création de la clé : NoDispBackGroundPage"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoDispBackGroundPage", theClic, "REG_DWORD"
End Sub
' *****************
' * End of Script *
' *****************
WScript.Echo "Modification de la base de registre effectuée. -- [by Groumphy] --"
' ***********
' * Accueil *
' ***********
Sub MsgAccueil()
Dim MsgXt
MsgXt = MsgBox(MsgBienvenue, vbOKCancel + vbInformation, TitreBienvenue )
If MsgXt = vbCancel Then
WScript.Quit
End If
End Sub
Sub MsgAttn()
Dim MsgAt
MsgAt = MsgBox(MsgAttnTxt, vbOKCancel + vbInformation, TitreAttn)
If MsgAt = vbCancel then
WScript.Quit
End If
End Sub
Et voila... Pratique pour limiter les accès.
On peut faire la même chose avec le menu démarrer... Les panneaux de configuration... Enfin on s'amuse.
J'aime bien le VBS. C'est sympa.
25 mars 2004 à 17:30
WScript.Echo "[Empecher le clic droit]"
MsgBienvenue = "Reg v1 - Modification de la base de registre."
TitreBienvenue = "Digital-Nation : [Script de Configuration]"
Call MsgAccueil()
MsgAttnTxt = "Compatibilité unique vers Windows."
TitreAttn = "Digital-Nation : [Attention]"
Call MsgAttn()
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim theValue, theClic
theValue InputBox("Entrer la valeur de la clé [N non actif ou A = Actif]:")
If theValue = "N" then
theClic = "1"
Call Ecriture()
ElseIf theValue = "A" then
theClic = "0"
Call Ecriture()
Else
WScript.Echo "Valeur non correcte. Abandon de la procédure. -- (c) Groumphy --"
WScript.Quit
End if
Sub Ecriture()
WSHShell.Popup "Création de la clé : NoViewContextMenu"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu", theClic, "REG_DWORD"
End Sub
' *****************
' * End of Script *
' *****************
WScript.Echo "Modification de la base de registre effectuée. -- [by Groumphy] --"
' ***********
' * Accueil *
' ***********
Sub MsgAccueil()
Dim MsgXt
MsgXt = MsgBox(MsgBienvenue, vbOKCancel + vbInformation, TitreBienvenue )
If MsgXt = vbCancel Then
WScript.Quit
End If
End Sub
Sub MsgAttn()
Dim MsgAt
MsgAt = MsgBox(MsgAttnTxt, vbOKCancel + vbInformation, TitreAttn)
If MsgAt = vbCancel then
WScript.Quit
End If
End Sub
Evidemment n'hésitez pas a changer ...
C'est simplement un Reg Write...
Et il faut trouver les options.
25 mars 2004 à 06:18
24 mars 2004 à 19:39
Si vous le désirer je peux aussi vous fournir les clés pour bloquer les mise a jour Windobe ... Bloquer les programmes au démarrage ...
Visualiser les connections (lecteur réseau) ...
Je viens de me rendre compte que c'est vraiment bien le VBS :)
24 mars 2004 à 18:15
Si le titre que tu veux imposer ne change pas, tu peux aussi exécuter un fichier "TitreIE.reg" dans lequel tu mets :
REGEDIT4
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"Window Title"="IE"