Mensajes

hola , soy Aincrad de nuevo.

pon este code :

Código (bash) [Seleccionar] Expandir


@ECHO OFF
color a
goto pass1
:passno
          (  cls
                 echo/
                 echo/
                 echo ===================================
                 echo =     ATENCION                    =
                 echo ===================================
                 echo = Por favor Escriba la contraseña.=
                 echo ===================================
                 echo/
                 echo/
                     pause
                       goto pass1
                                        )

:pass1
                  ( cls
                      echo/
      set /p "Pass=^> Enter the value for the password in all rar files:  "
                if not defined pass (goto:passno)
                                             goto continue
             )

:continue
cls
echo tu contraseña es %pass%
pause


Listo es lo que querias . es en caso de que no escribas nada.

PD: porfavor colocar codigos dentro de las etiquetas correspondiente.

                              Comenta si te funciono

hola, Elektro. lo que queria decir en

el code tiene que implementar la funcion de :
Código

Código (vbnet) [Seleccionar] Expandir


Dim dirPath As String = Form2.FolderBrowserDialog1.SelectedPath

para el directorio. no se si me entienden. 

solamente queria decir , que utilizaria el FolderBrowserDialog para seleccionar
el directorio donde se encontraban las carpetas ocultas. no queria visualizarlas
eso como tu dijiste es imposible.


un ejemplo de lo que queria era algo asi:

Código (vbnet) [Seleccionar] Expandir


FolderBrowserDialog1
Dim dirPath As String = FolderBrowserDialog1.SelectedPath

Dim filePath As String = dirPath
Dim attribs As FileAttributes = File.GetAttributes(filePath)

File.SetAttributes(filePath, attribs And Not FileAttributes.Hidden)


era con FolderBrowserDialog1 seleccionar un disco extraible o una carpeta,
y después el code desoculta todo lo que esta dentro de la carpeta que seleccione.


en fin logre hacerlo de la siguiente manera:

Código (vbnet) [Seleccionar] Expandir


FolderBrowserDialog1
Dim dirPath As String = FolderBrowserDialog1.SelectedPath
Dim Pr As New Process
Dim Psi As New ProcessStartInfo("Cmd.Exe")
Psi.Arguments = "/C attrib -r -a -s -h " & dirPath & "*.* /S /D "
Pr.StartInfo = Psi
Pr.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
Pr.Start()

ejecuta la cmd oculto y con el argumento attrib .

eso era lo que queria desocultar todas las carpetas y archivos de un directotio seleccionado.

creo que me entendiste mal.

en pocas palabras lo que quiero en lo de desocultar carpetas es un code sencillo
algo como esto.

Código (vbnet) [Seleccionar] Expandir


FolderBrowserDialog1.ShowDialog()
Dim dirPath As String = FolderBrowserDialog1.SelectedPath
        File.SetAttributes(dirPath, FileAttributes.Normal)

PD: el primer problema ya lo solucione

gracias por la respuesta, pero no me funciono.

no se si me explique bien, lo que quiero es :

1) que borre todos los archivos con formato {"*.vbs", "*.cmd", "*.js", "*.wsf", "*.ink", "*.bat"} en por ejemplo el disco extraible I y todos sus subdirectorios.

2) y lo otro de atributos sobre archivos ya lo había visto pero .
lo que necesito es un code para desocultar todas las carpetas y subcarpetas de un
disco extrible I.
                                         gracias por comentar. 

hola a todos los del foro,  .

hoy me he encontrado con 2 pequeñas trabas.

yo quiero eliminar todos los archivos con formato {"*.vbs", "*.cmd", "*.js", "*.wsf", "*.ink", "*.bat"} de  un disco cualquiera.

pero solamente se eliminar uno por uno con este code

Código (vbnet) [Seleccionar] Expandir


        Dim dirPath As String = Form2.FolderBrowserDialog1.SelectedPath
For Each fichero As String In Directory.GetFiles( _
        dirPath, _
        "*.vbs")
            File.Delete(fichero)
        Next

lo que quiero es borrar todos esos archivos con un solo codigo. como le hago?


bien la segunda pregunta es como desocultar las carpetas de un diretorio en
vb.net 2008.

el code tiene que implementar la funcion de :

Código (vbnet) [Seleccionar] Expandir

Dim dirPath As String = Form2.FolderBrowserDialog1.SelectedPath

para el directorio. no se si me entienden. 

         creo que es mucho pedir, aunque son pequeñas funciones las que pido. XD

                                              Gracias de antemano.

1)mira la verdad no se si se puede hacer en python creo que si.

2)yo utilizo Notepad++ ya que que con eso puedo programar en diferentes lenguajes.

yo empece creando una aplicación HTA . que es realmente un html pero lo guardas
con formato hta, después hice una pequeña tool para el foro .
es un html , te permite ofuscar el codigo de un  batch.

llink:
https://batch-ofuser-by-aincrad.000webhostapp.com/Batch%20file%20Ofuscation.html

si quieres crear tools o paginas web te recomiendo que empieces buscando tutoriales
sobre aplicaciones hta.


3) te recomiendes que empieces con lenguaje html o PHP.
Y herramientas uso Notepad++ para programar y
Scripts Encryptor - Encoder para cifrar el codigo.

necesitas un conversor de texto a hex.  
te recomiendo Hex Workshop Hex Editor.  

o también tu mismo puedes crear un batch , que te convierta cada letra
en un numero , es muy facil de hacer.      

 tal vez sea tu navegador porque el link funciona perfectamente. 
gracias por el software simorg 

hola a todos los del foro.

tengo una propuesta, que tal si agregan en el foro herramientas online como
ofuscadores de javascript , vbs , batch.
asi tal ves taigamos a mas personas que estudian informática a este foro.

ne te he entendido muy bien, pero espero que te sirva.

según lo que se GridView y Datagridview son la misma, uno es para c# y otro para
asp, espero no equivocarme   .

en el evento CellContentClick de tu DatagridView
le asignas a tu textBox el valor de la celda que deseas ponerle.

Código (vbnet) [Seleccionar] Expandir


TextBox1.Text = tuDataGrid.CurrentRow.Cells["nombreColumna"].Value.ToString()

  Si utilizas un DataTable como DataSource para tu DataGridView puedes tomar el Row directamente desde tu DataTable.

Código (vbnet) [Seleccionar] Expandir

TextBox1.Text = TuDataTable.Rows(0)("NombreColumna").ToString()

otra forma seria :

Código (vbnet) [Seleccionar] Expandir

TextBox1.Text = DataGridView1.Item(0, 0).Value.ToString()

los valores item(0, 0)  son Item(renglón,columna)

                               Espero que te sirva de algo.