Modification de la barre de titre --[only internet explorer]--
Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 498 fois - Téléchargée 30 fois
Contenu du snippet
A voir également
- Modification de la barre de titre --[only internet explorer]--
- C / C++ / C++.NET : Supprimer une adresse de la barre d'adresse d'internet explorer (registre) - Co - Guide
- Javascript et "la barre d'informations d'Internet Explorer" ✓ - Forum - Javascript / DHTML
- Barre de titre excel - Forum - Visual Basic 6
- Changer la couleur de la barre de titre - Codes sources - Visual Basic / VB.NET (Formulaire)
- Deplacer un formulaire sans barre de titre - Codes sources - Visual Basic / VB.NET (Formulaire)
Commentaires
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
---> 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)
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.
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.
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.