Modification de la barre de titre --[only internet explorer]--

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 448 fois - Téléchargée 30 fois

Contenu du snippet

Aucune description n'est fournie pour ce projet

A voir également

Ajouter un commentaire

Commentaires

cs_freegamer
Messages postés
99
Date d'inscription
vendredi 11 juillet 2003
Statut
Membre
Dernière intervention
16 juin 2007
-
Salut,
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
Groumphy
Messages postés
17
Date d'inscription
mercredi 24 mars 2004
Statut
Membre
Dernière intervention
7 mai 2004
-
J'ai pas droit a une note ... Snif ...
---> 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)
Groumphy
Messages postés
17
Date d'inscription
mercredi 24 mars 2004
Statut
Membre
Dernière intervention
7 mai 2004
-
Encore un autre ... Interdisant le changement de WallPaper...

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.
Groumphy
Messages postés
17
Date d'inscription
mercredi 24 mars 2004
Statut
Membre
Dernière intervention
7 mai 2004
-
Dans le même principe :

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.
cs_azerty25
Messages postés
1115
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007
-
Met dont sur CS, ne te gene pas ;)

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.