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
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)
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.
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.
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
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.