Foros del web, para los que viven de bits

aldo1982 · 05-jun-2006, 00:48

Holami prgutna es ...Como podria hacer mediante VB para que por ejemplo cdo un usuario quiera entrar a una carpreta determinada (configurada dicah carpeta en el programa hecho en VB) le pida una contraseña para poder ver el contenido de la misma...ybue sila contraseña es incorrecta que se cierre el explorer o que no se pueda ver el contenido de dicha carpeta

salu2 y mucahs gracias

LeandroA · 05-jun-2006, 12:25

Hola con el explorer no hay problemas el tema es si se abre desde un commondialog por ejemplo, u otra aplicacion que sea de tipo explorador no se podria hacer nada

aldo1982 · 13-jun-2006, 21:31

Cita:

Iniciado por LeandroA

Hola con el explorer no hay problemas el tema es si se abre desde un commondialog por ejemplo, u otra aplicacion que sea de tipo explorador no se podria hacer nada

holaleandro m,e podrias decir como hacer mediante explorer para poenr una contraseña a una carpta ? salu2 y gracias

wansoft · 14-jun-2006, 23:34

Encontre varios ejemplos relacionados con tu pedido

Links:
http://planetsourcecode.com/vb/scrip...p%2FF493195101

http://planetsourcecode.com/vb/scrip...p%2FF574373112

http://planetsourcecode.com/vb/scrip...49712&lngWId=1

aldo1982 · 16-jun-2006, 05:54

grcias cristian lo pruebo y leugo te aviso ke tal me fue, salu2 y gracias nuevamente

aldo1982 · 18-jun-2006, 11:16

hola cristian, el prog para poenr contraseñas a las carpetas en winXP no me funciona, sera porq hay ke tener particion en ntfs ?

salu2

LeandroA · 18-jun-2006, 23:44

hola te paso un ejemplo pero tenes que tene esto en cuenta;
si se le cambia a la carpeta el nombre no funciona
y si no se abre desde el explorer tampoco

agrega un timer1 en un formulario y este codgio

La carpeta que bloquea es "Mis documentos"
y la contraseña "carlito"

Cita:

Option Explicit
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const SC_CLOSE = &HF060&
Private Const WM_SYSCOMMAND = &H112
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0
Dim MemContraseña As String
Dim MiContraseña As String
Dim NombreCarpeta As String
Private Sub Form_Load()
Timer1.Interval = 100
Me.Visible = False
App.TaskVisible = False
MiContraseña = "Carlito"
NombreCarpeta = "Mis documentos"
End Sub

Private Sub Timer1_Timer()
BuscarCarpeta NombreCarpeta
End Sub

Private Function BuscarCarpeta(NombreCarpeta As String)
Dim hwnd As Long
hwnd = FindWindow(vbNullString, NombreCarpeta)

If hwnd <> 0 Then
If MemContraseña = "" Then
Call ShowWindow(hwnd, SW_SHOWHIDE)
MemContraseña = InputBox("Ingrese su contraseña", NombreCarpeta)
If Not UCase(MemContraseña) = UCase(MiContraseña) Then
Call SendMessage(hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&)
If MemContraseña <> "" Then MsgBox "La contraseña es incorrecta", vbCritical, NombreCarpeta
MemContraseña = ""
End If
Else
Call ShowWindow(hwnd, SW_SHOWNORMAL)
End If
Else
MemContraseña = ""
End If

End Function

aldo1982 · 19-jun-2006, 17:04

Hola Leandro Muchas Gracias Ahorita Lo Pruebo Y Te Comento Ke Tal Me Fue.
Salu2 Desde Santafe ;) Y Vamos Argentina Carajo En El Mundialllllll !!!!

05-jun-2006, 00:48	#1 (permalink)
aldo1982 Fecha de Ingreso: noviembre-2004 Ubicación: santafe (argentina) COLON de STAFE Mensajes: 1.093	Poner contraseña a carpetas Holami prgutna es ...Como podria hacer mediante VB para que por ejemplo cdo un usuario quiera entrar a una carpreta determinada (configurada dicah carpeta en el programa hecho en VB) le pida una contraseña para poder ver el contenido de la misma...ybue sila contraseña es incorrecta que se cierre el explorer o que no se pueda ver el contenido de dicha carpeta salu2 y mucahs gracias __________________ LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA

13-jun-2006, 21:31	#3 (permalink)
aldo1982 Fecha de Ingreso: noviembre-2004 Ubicación: santafe (argentina) COLON de STAFE Mensajes: 1.093	Cita: Iniciado por LeandroA Hola con el explorer no hay problemas el tema es si se abre desde un commondialog por ejemplo, u otra aplicacion que sea de tipo explorador no se podria hacer nada holaleandro m,e podrias decir como hacer mediante explorer para poenr una contraseña a una carpta ? salu2 y gracias __________________ LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA

16-jun-2006, 05:54	#5 (permalink)
aldo1982 Fecha de Ingreso: noviembre-2004 Ubicación: santafe (argentina) COLON de STAFE Mensajes: 1.093	grcias cristian lo pruebo y leugo te aviso ke tal me fue, salu2 y gracias nuevamente __________________ LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA

18-jun-2006, 11:16	#6 (permalink)
aldo1982 Fecha de Ingreso: noviembre-2004 Ubicación: santafe (argentina) COLON de STAFE Mensajes: 1.093	hola cristian, el prog para poenr contraseñas a las carpetas en winXP no me funciona, sera porq hay ke tener particion en ntfs ? salu2 __________________ LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA

19-jun-2006, 17:04	#8 (permalink)
aldo1982 Fecha de Ingreso: noviembre-2004 Ubicación: santafe (argentina) COLON de STAFE Mensajes: 1.093	Hola Leandro Muchas Gracias Ahorita Lo Pruebo Y Te Comento Ke Tal Me Fue. Salu2 Desde Santafe ;) Y Vamos Argentina Carajo En El Mundialllllll !!!! __________________ LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA

05-jun-2006, 12:25	#2 (permalink)
LeandroA Fecha de Ingreso: abril-2005 Mensajes: 303	Hola con el explorer no hay problemas el tema es si se abre desde un commondialog por ejemplo, u otra aplicacion que sea de tipo explorador no se podria hacer nada

14-jun-2006, 23:34	#4 (permalink)
wansoft Fecha de Ingreso: mayo-2006 Mensajes: 72	Encontre varios ejemplos relacionados con tu pedido Links: http://planetsourcecode.com/vb/scrip...p%2FF493195101 http://planetsourcecode.com/vb/scrip...p%2FF574373112 http://planetsourcecode.com/vb/scrip...49712&lngWId=1

18-jun-2006, 23:44	#7 (permalink)
LeandroA Fecha de Ingreso: abril-2005 Mensajes: 303	hola te paso un ejemplo pero tenes que tene esto en cuenta; si se le cambia a la carpeta el nombre no funciona y si no se abre desde el explorer tampoco agrega un timer1 en un formulario y este codgio La carpeta que bloquea es "Mis documentos" y la contraseña "carlito" Cita: Option Explicit Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Const SC_CLOSE = &HF060& Private Const WM_SYSCOMMAND = &H112 Const SW_SHOWNORMAL = 1 Const SW_SHOWHIDE = 0 Dim MemContraseña As String Dim MiContraseña As String Dim NombreCarpeta As String Private Sub Form_Load() Timer1.Interval = 100 Me.Visible = False App.TaskVisible = False MiContraseña = "Carlito" NombreCarpeta = "Mis documentos" End Sub Private Sub Timer1_Timer() BuscarCarpeta NombreCarpeta End Sub Private Function BuscarCarpeta(NombreCarpeta As String) Dim hwnd As Long hwnd = FindWindow(vbNullString, NombreCarpeta) If hwnd <> 0 Then If MemContraseña = "" Then Call ShowWindow(hwnd, SW_SHOWHIDE) MemContraseña = InputBox("Ingrese su contraseña", NombreCarpeta) If Not UCase(MemContraseña) = UCase(MiContraseña) Then Call SendMessage(hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&) If MemContraseña <> "" Then MsgBox "La contraseña es incorrecta", vbCritical, NombreCarpeta MemContraseña = "" End If Else Call ShowWindow(hwnd, SW_SHOWNORMAL) End If Else MemContraseña = "" End If End Function

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado