Soyez le premier à donner votre avis sur cette source.
Vue 4 682 fois - Téléchargée 331 fois
'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
27 oct. 2002 à 19:14
Un grand merci à toi, sp@ce!
10 août 2001 à 10:39
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
14 janv. 2001 à 04:36
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.