Dirmaster ..:: protéger vos dossiers ::..

Soyez le premier à donner votre avis sur cette source.

Vue 3 448 fois - Téléchargée 340 fois

Description

Je me suis inspiré du code "Manipulations d'IE" posé précédemment sur VBFrance.com

Ce programme bloque le menu contextuel ou bloque complètement l'accès à un dossier ou à une page web...

Mais voilà, j'ai commencer le prog sous Windows 98 SE
Me voilà converti en XP et il ne marche plus :(

Il n'est dons pas terminé!
Mais je remédie à ce problème (je le continue sous 98)
Comme ça devrait être un peu plus long, je le met ici tout de suite :)

Avancement: environ 78%

Source / Exemple :


Voir notre ami le zip

Conclusion :


Attention... la protection du mot de passe est très faible !!
à vrai dire le mot de passe s'écrit dans la fausse DLL DirMaster.dll (pas d'inquiétude j'améliore ça)

Comme la procédure Open .... Print ... Close ajoute un retour chariot (ENTER) à la fin du fichier, ne modifiez pas cette ligne: If txtPassword & vbcrlf = MDP ... elle vérifie si le mot de passe est bon... en ajoutant un VBCRLF sinon le mot de passe est pas bon! :)

A suivre...
Nox

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

bob3000
Messages postés
406
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
2 octobre 2004
-
desole, javais pas vu qu'il l'avait mentionner...
bob3000
Messages postés
406
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
2 octobre 2004
-
super bon sauf que le dll, tu l'ouvre avec Notepad pi ta le mot de passe :(
cs_Jackboy
Messages postés
757
Date d'inscription
vendredi 7 septembre 2001
Statut
Membre
Dernière intervention
19 juin 2008
-
erreur avec cette sub :

Private Sub IEWin_IENavigationComplete(hwnd As Long, ByVal pDisp As Object, URL As Variant)
Dim itmx As ListItem
'ici moi sa me donne une erreur quand j'essais d'ouvrir le dossier bloquer
Set itmx = LV1.ListItems("K" & CStr(hwnd))
itmx.Text = IEWin.IE(CStr(hwnd)).IEctl.LocationName
itmx.SmallIcon = 1
itmx.SubItems(1) = IEWin.IE(CStr(hwnd)).IEctl.LocationURL
itmx.SubItems(2) = "Chargement..."
Set itmx = Nothing
End Sub
cs_Nox
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008
-
a!!! ça maide bcp lol
merci!!
cs_Stephane
Messages postés
551
Date d'inscription
vendredi 5 janvier 2001
Statut
Membre
Dernière intervention
23 septembre 2006
-
salut

pour supprimet le retour chariot il te suffit juste de mettre un ;

print #1,"texte";

a+

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.