Bueno lo he hecho así espero sus criticas constructivas: 

Imports System.IO
 
Public Class Form1
Public Shared MyDrive As String
Private Sub buttonScan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonScan.Click
        Using folder As New FolderBrowserDialog
            With folder
                If .ShowDialog = 1 Then
                    MyDrive = .SelectedPath.ToString
                    Unhide()
                End If
            End With
        End Using
    End Sub
 
#Region "unhide"
 
    Private Function GetFilesRecursive(ByVal initial As String) As List(Of String)
 
        Dim result As New List(Of String)
 
        Dim stack As New Stack(Of String)
 
        stack.Push(initial)
 
        Do While (stack.Count > 0)
            Dim dir As String = stack.Pop
            Try
                result.AddRange(Directory.GetFiles(dir, "*.*"))
 
                Dim directoryName As String
                For Each directoryName In Directory.GetDirectories(dir)
                    stack.Push(directoryName)
                Next
 
            Catch ex As Exception
            End Try
        Loop
 
        Return result
    End Function
 
    Private Function GetDirectoriesRecursive(ByVal initial As String) As List(Of String)
 
        Dim result As New List(Of String)
 
 
        Dim stack As New Stack(Of String)
 
 
        stack.Push(initial)
 
 
        Do While (stack.Count > 0)
 
            Dim dir As String = stack.Pop
            Try
 
                result.AddRange(Directory.GetDirectories(dir, "*.*"))
 
 
                Dim directoryName As String
                For Each directoryName In Directory.GetDirectories(dir)
                    stack.Push(directoryName)
                Next
 
            Catch ex As Exception
            End Try
        Loop
 
 
        Return result
    End Function
 
    Public Sub Unhide()
        Dim FileCounter As Integer = 0
        Dim FolderCounter As Integer = 0
 
        Dim Files As List(Of String) = GetFilesRecursive(MyDrive)
        Dim Directories As List(Of String) = GetDirectoriesRecursive(MyDrive)
 
        For Each Filename In Files
            If (IO.File.GetAttributes(Filename) And IO.FileAttributes.Hidden) = IO.FileAttributes.Hidden Then
 
                IO.File.SetAttributes(Filename, IO.FileAttributes.Normal)
                FileCounter = FileCounter + 1
            End If
        Next
 
        For Each DirectoryName In Directories
            If (IO.File.GetAttributes(DirectoryName) And IO.FileAttributes.Hidden) = IO.FileAttributes.Hidden Then
 
                IO.File.SetAttributes(DirectoryName, IO.FileAttributes.Normal)
                FolderCounter = FolderCounter + 1
            End If
        Next
    End Sub
 
#End Region
 
End Class

lo único que me falta es el ProgressBar. pero estoy pensando en mejor poner unos labels que muestren los numeros de archivos y otro que muestre el directorio.

Busca en google hay demasiados resultados .

aqui estan varios codigo fuentes de muchos cypter :

https://github.com/malwares/Crypter

y aqui hay otro (en este tienes que hacerle el stub):

https://github.com/jozemberi/PE-Crypter

Hola a todos , bueno como dice el titulo estoy necesitando un code que tenga buena recursividad  y que este ligado a un progressbar .

(No estoy pidiendo que me hagan la tarea ni nada por el estilo) , yo mismo lo puedo hacer , pero cuando se trata de leer directorios y archivos soy pesimo.

solo hago este post haber si alguien tiene un buen code que quiera compartirlo.

el code que necesito debe tener:

*buscar archivos y carpetas ocultas de un directorio y volverlos visibles . (o viceversa).
*tener buena recursividad.
*estar ligado a un ProgressBar

Bueno de todos modos yo tambien lo intentare hacer, haber como me sale .  

Capa sin Héroe...

aunque es mas fácil crear una cuenta falsa de google  y ver todos los videos con restricción sin tener que hacer esto a cada rato :v 

jajajajaj XD

---

Intentaste utilizar alguna ayuda de las que estan en google o youtube?

intatate esta solucion:

https://www.youtube.com/watch?v=0z9JsGvJ2OU

y descargate pixelShalder 2.0 o el 3.0 y colaca los archivos dentro de la carpeta del juego.

PD: NO te puedo ayudar ya que mi Internet y mi pc son de carton. 

Bueno en virus total hay una parte que me muestra esto :



Alguien Sabe para que sirve y Que quiere decir esta parte ? 

Gracias por el codigo del proyecto .

Mi Antivirus Salta de una.  Tengo que desactivarlo para poder Copilarlo/Depurarlo .



Bueno igual esta bueno . Gracias.

bueno solo cabía el 100 y listo.

@if (@a==@b) @end /*
 
:: batch portion
 
@ECHO OFF
 
cscript /e:jscript "%~f0"
 
 
:: JScript portion */
 
var shl = new ActiveXObject("WScript.Shell");
for (var i=0; i<25; i++) {
    shl.SendKeys(String.fromCharCode(0xAE));
}

Dime que te cuesta leer , también te puse como bajarlo. 

@if (@a==@b) @end /*
 
:: batch portion
 
@ECHO OFF
 
cscript /e:jscript "%~f0"
 
 
:: JScript portion */
 
var shl = new ActiveXObject("WScript.Shell");
for (var i=0; i<100; i++) {
    shl.SendKeys(String.fromCharCode(0xAE));
}

Revisea el POST : https://foro.elhacker.net/scripting/comando_bat_vbs-t482191.0.html

solo hay que buscar en la internet .

te dejo un bat que encontre. (Bueno realmente es javascript  )

@if (@a==@b) @end /*
 
:: batch portion
 
@ECHO OFF
 
cscript /e:jscript "%~f0"
 
 
:: JScript portion */
 
var shl = new ActiveXObject("WScript.Shell");
for (var i=0; i<100; i++) {
    shl.SendKeys(String.fromCharCode(0xAF));
}

bueno para bajarlo es :

@if (@a==@b) @end /*
 
:: batch portion
 
@ECHO OFF
 
cscript /e:jscript "%~f0"
 
 
:: JScript portion */
 
var shl = new ActiveXObject("WScript.Shell");
for (var i=0; i<100; i++) {
    shl.SendKeys(String.fromCharCode(0xAE));
}