HOLA A TODOS !
Ximorro - Chefito - Basicos - Chekok y el resto de esta tribu
Espero q me sigan ayudando...
Bueno chefito como siempre hablandomE
PERO esta bien
creo q es algo insoportable de mi parte ggg agradesco tus respuestas pues me han ayudado un chance... bueno por lo q soy principiante...ya quisiera estar utilizando cosas avanzadas como vosotros dentro de autoit.
Me agrada de la forma q explicas..algo entiendo siquiera....ahora AYUDADME eso de ubicar en el subforo adecuado..es q casi no lo se, podés indicarme.
Ximorro tienes una buena forma de ayudar...(algo como q eres paciente si no me equivoco) te felicito aunque no los conosco os FELICITO a todos los q han tomado su preciado tiempo a responder mis basicas preguntas para vosotros esto es una tonteria ....pero bueno
Bassicos gracias por los aportes q me brindas aunq asido 1 o 2 pero vale
CHEEEEEKOk MUCHAS GRACIAS has realizado lo q pensaba q nadie me iba apegar una manito...
bueno
Lo q quiero es mostrarles lo q he hecho...es sobre proteger carpetas digamos de una carpeta pasa a ser una papelera..pero viendo lo q dice Ximorro mejor hice q sea una carpeta normal ...OSEA q si la vas abrir esta no se Ba abrir debes quitar el camuflage.. CON EL MISMO PROGRAMA bueno aqui va el code
BIEN DETALLADO POR SI A ALGUIEN LE SIRVE (asi quisiera q me ayuden pero no
HACIENDOLO sinoque explicando q hace cada codiguito como lo indico)
entonces LOS Q VEAN YA DAN IDEA de como se hace Y LA IMAGINACION le vuela
lo q hace mi programa es
- Camufla la carpeta (por si no hay resultados luego de haber camuflado cambien de nombre de lo camuflado o agreguen una letra para observar)
- Evita ser eliminada
-Evita ser copiada
ha por cierto lo del icono hay le ponen cualquier icono YO UTILIZABA EL ICONO folder.ico de w7
Código: Seleccionar todo
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=folder.ico
#AutoIt3Wrapper_outfile=PrivateFolder.exe
#AutoIt3Wrapper_Res_Description=Private folder YASMANY CURIMILMA
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Yasmany Curimilma
#AutoIt3Wrapper_Res_Language=1034
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3> ;udf para permitir icono a un boton
GUICreate("Private folder", 450, 160)
;~ $btnsal = ("Salir", 280,80,80,30)
$btnseleccionar = GUICtrlCreateButton("", 410,22, 37,37,$BS_ICON); para hacer esto se debe poner un udf
GUICtrlSetImage(-1, "shell32.dll", 23) ;ubico un icono tomado del shell32
GUICtrlSetTip(-1, "Seleccionar carpeta")
$btnaplicar = GUICtrlCreateButton("Aplicar", 360,80, 80,30,$BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", -145) ;ubico un icono tomado del shell32
GUICtrlSetTip(-1, "Proteger carpeta")
$btnquitar = GUICtrlCreateButton("Quitar", 280,80,80,30)
GUICtrlSetTip(-1, "Quitar proteccion")
$encabezado = GUICtrlCreateLabel("Ubique la direccion", 10, 10, 450, 21,0)
$desk="\Desktop.ini"
$texto_1=GUICtrlCreateInput("", 10, 30, 400,26,0)
$file = FileOpen("test.txt", 0)
$lbldireccion = GUICtrlCreateLabel("E-mail [email protected]", 5, 138, 270, 17)
;~ $lblLicencia = GUICtrlCreateLabel("E-mail [email protected]", 5, 120, 270, 17)
GUICtrlSetFont(-1, 8, 800, 0, "arial") ;tipo de letra
GUICtrlSetState(-1, $GUI_DISABLE) ; en forma desactivada
GUISetState(@SW_SHOW);Muestra una ventana previamente oculta (por defecto)
ControlFocus ("","",$texto_1); ubico el foco
While 1
Switch GUIGetMsg()
Case $btnseleccionar
$var = FileSelectFolder("Seleccione una carpeta.","",1)
GUICtrlSetData($texto_1, $var) ; establesco el valor de FileSelectFolder en el input ($texto_1)
Case $btnaplicar
$ubicacion = GUICtrlRead($texto_1) ; leo el contenido del Input
If FileExists($ubicacion) Then ; si la direccion existe aplico los cambios
; Demuestra la creación de una nueva sección usando una cadena como estrada.
$valores = "CLSID={9DBD2C50-62AD-11D0-B806-00C04FD706EC}"& @LF & "LocalizedResourceName=@%SystemRoot%\system32\shell32.dll,-0000"
IniWriteSection($ubicacion & $desk, ".ShellClassInfo", $valores)
DirCreate("\\.\" & $ubicacion & "\nul")
FileSetAttrib($ubicacion & $desk, "+rash") ;establesco el atributo al archivo ini
FileSetAttrib($ubicacion, "+raS") ;establesco el atributo a la carpeta
EnvUpdate(); refresca el entorno
DirRemove("\\.\" & $ubicacion & "\nul")
DirCreate("\\.\" & $ubicacion & "\nul")
FileChangeDir(@WindowsDir)
Else
MsgBox(48, "Aviso", "El directorio no existe o no es una carpeta",2) ;48=icono de exclamacion y 2 = 2segundos
EndIf
Case $btnquitar
$ubicacion = GUICtrlRead($texto_1) ; leo denuevo el contenido del Input
If FileExists($ubicacion) Then ; si la direccion existe aplico los cambios
FileSetAttrib($ubicacion, "-ras") ;retiro el atributo a la carpeta
DirRemove("\\.\" & $ubicacion & "\nul")
Else
MsgBox(48, "Aviso", "El directorio no existe o no es una carpeta",2);48=icono de exclamacion y 2 = 2segundos
EndIf
;~ Case $btnsal
;~ GUISetState(@exitCode)
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd
CHEEEKOK Y DEMAS CARNALES....podes ayudarme diciendo como es eso de funciones q muy agradecido estoy por vosotros
CHEKOK pegame otra ayudadita puedes explicar cada codiguito q pusiste en lo q te pedia... diciendome ¿el por q de las funciones ?
y para q sirve cada cosita...O ALGUIEN AYUDEME DE ESA FORMA
aaaa COMO HAGO ...DIGAMOS SIQUIERO COMPILAR CON UNOS 3 ARCHIVOS WAV ..osea q en el ejecutable ya contenga los wav
por cierto estoy desarrollando otro programita por eso es las consultas fuera de lo q les presento
TAMBIEN PIENSO PONERLE PARA UBICAR UNA CONTRASEÑA en la carpeta ya lo iré desarrollando luego
NO SE OLVIDEN AYUDARME DE LA FORMA Q LES DIGO Y PODERME EXPLICAR EL CODIGO Q ME BRINDO CHEKOK
Zalu2
