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

Soyez le premier à donner votre avis sur cette source.

Vue 3 541 fois - Téléchargée 408 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
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...
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 :(
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
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!!
Messages postés
550
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+
Afficher les 9 commentaires

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.