Inhiber la "recherche" dans le menu démarrer

Soyez le premier à donner votre avis sur cette source.

Vue 4 582 fois - Téléchargée 305 fois

Description

Un peu de Base de registre et un soupçon d'API

Source / Exemple :


'Petite application pour
'inhiber la recherche
'au démarrage de Windows

'N'obliez pas d'utiliser le module registre.bas
'Tout est dans le zip
'**************************Sp@ce*************************

Option Explicit

Dim Cle As Long
Dim SousCle As String
Dim RegOptions As Long
Dim RegSam As Long
Dim hKey As Long
Dim RegType As Long
Dim ValueName As String
Dim RegValeur As String
Dim RegLong As Long
Dim Retour As Long
Dim Message As String

Private Sub ModifierLeRegistre()

Retour = RegSetValueEx(hKey, ValueName, 0, RegType, RegValeur, RegLong)
Retour = RegCloseKey(hKey)

End Sub

Private Sub Command2_Click()
InhiberLePanneau
End Sub

Public Function InhiberLePanneau()
Declarations
RegValeur = Chr(1) + Chr(0) + Chr(0) + Chr(0)
RegLong = Len(RegValeur)
ModifierLeRegistre
End Function

Public Function ValiderLePanneau()
Declarations
RegValeur = Chr(0) + Chr(0) + Chr(0) + Chr(0)
RegLong = Len(RegValeur)
ModifierLeRegistre
End Function

Public Function Declarations()
'Declaration du chemin
Cle = HKEY_CURRENT_USER
SousCle = "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
RegSam = KEY_ALL_ACCESS
hKey = 0
'Ouverture de la cle
Retour = RegOpenKeyEx(Cle, SousCle, 0, RegSam, hKey)

'Declaration de la valeur à créer et de son type
ValueName = "NoFind"
RegType = REG_DWORD
End Function

Private Sub cmdInhiber_Click()
InhiberLePanneau
AffichageMessage
End Sub

Private Sub cmdValider_Click()
ValiderLePanneau
AffichageMessage
End Sub

Public Function AffichageMessage()
Message = MsgBox("Attention!!  Il faut redémarrer le PC pour enregistrer les changements effectués", vbExclamation, "Attention!")
End
End Function

Conclusion :


Tout est dans le zip

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
254
Date d'inscription
jeudi 27 décembre 2001
Statut
Membre
Dernière intervention
5 mars 2006

Et moi qui l'ai si longtemps cherché!

Un grand merci à toi, sp@ce!
Salut j'aime bien ton code source mais voici d'autre petites commandes :
NoClose + de bouton stop
NoRun + de bouton executer
NoDesktop + plus d'îcones
NoNetHood + de voisinage reseau
NoSetTaskbar + de parametre dans le menu demarrer
NoSetFolders + de panneau de config
NoFileMenu + de explorer
NoAddPrinter + peut pas mettre des imprimantes
NoSaveSetting + peut plus sauvegarder les modif
DisableRegistryTools + de regedit

Je trouve que ça peut faire 2 programmes 1/ un logiciel de securiter 2/ un Virus ;-)

amicalement m@x
ca c'est beau

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.