MODIFICATION DE LA BARRE DE TITRE --[ONLY INTERNET EXPLORER]--
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
24 mars 2004 à 18:15
cs_freegamer
Messages postés99Date d'inscriptionvendredi 11 juillet 2003StatutMembreDernière intervention16 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.
cs_freegamer
Messages postés99Date d'inscriptionvendredi 11 juillet 2003StatutMembreDernière intervention16 juin 2007 21 juin 2004 à 21:25
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és17Date d'inscriptionmercredi 24 mars 2004StatutMembreDernière intervention 7 mai 2004 26 mars 2004 à 07:31
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és17Date d'inscriptionmercredi 24 mars 2004StatutMembreDernière intervention 7 mai 2004 25 mars 2004 à 17:32
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és17Date d'inscriptionmercredi 24 mars 2004StatutMembreDernière intervention 7 mai 2004 25 mars 2004 à 17:30
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és1114Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention 6 mai 2007 25 mars 2004 à 06:18
Met dont sur CS, ne te gene pas ;)
Groumphy
Messages postés17Date d'inscriptionmercredi 24 mars 2004StatutMembreDernière intervention 7 mai 2004 24 mars 2004 à 19:39
Bon a savoir...
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 :)
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 24 mars 2004 à 18:15
Oui.
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"
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"