Temas

Saludos ante todo, Estoy tratando de montar una red wifi y estoy realizando algunas pruebas de seguridad, por eso quisiera saber si es posible burlar esta opción.

Me disculpan de antemano si este no es el mejor sitio para realizar esta pregunta, especialmente con Elektro que siempre está pendiente  de los errores que cometemos. La cuestión es que estoy tratando de hacer un programa que me haga un Backup de los dispositivos externos que coloque en mi PC de forma automatica, lo cual ya he avanzado en ello con la ayudas de ustedes, el problema que tengo y que no he encontrado  nada al respecto buscando en  google,  es con la copia de los celulares, ya que este no se reconoce de la misma manera que las memorias o discos externos. Si me pudieran dar una idea de cómo hacerlo  se los agradecería.
Les argumento que ya lo he hecho con memoria y disco externo. (VB.net)

Buenas ante todo. Estimados usuarios, me pudieran decir si es posible entrar por la consola de Windows a un celular conectado  por cable en la PC o si existe algún programa que le realice un Backus de forma automática al conectarse en la PC. Saludos y gracias.

Buenas ante todos: Estoy tratando de resolver un problema que no tengo idea de como hacerlo. (En cuestión)  Quiero copiar las USB que son introducida en mi PC. Tengo el código que hace esa función pero si se esta copiando al momento de insertar otro USB esa ya no me la copia, Como puedo resolver ese problema.   

Código (vbnet) [Seleccionar] Expandir



'Estructura de datos que almacena la gestión de conexiones
Public Structure dispositivo
  Public dispTamaño As Integer
  Public dispTipo As Integer
  Public dispReserv As Integer
  Public dispMask As Integer
End Structure

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

  'Se ha producido un cambio en los dispositivos
  Const deviceChange As Integer = &H219
  'El sistema detecta un nuevo dispositivo
  Const deviceArrival As Integer = &H8000
  'Solicita retirada del dispositivo
  Const deviceQueryRemove As Integer = &H8001
  'Ha fallado la retirada del dispositivo
  Const devideQueryRemoveFailed As Integer = &H8002
  'Pendiente extracción del dispositivo
  Const deviceRemovePending As Integer = &H8003
  'Dispositivo extraído del sistema
  Const deviceRemoveComplete As Integer = &H8004
  ' Volumen lógico (Se ha insertado un disco)
  Const deviceTypeVolume As Integer = &H2

  Select Case m.Msg
    'Cambian los dispositivos del sistema
    Case deviceChange
    Select Case m.WParam.ToInt32
      'Llegada de un dispositivo
      Case deviceArrival
      Dim devType As Integer = Marshal.ReadInt32(m.LParam, 4)
      'Si es un volumen lógico..(unidad de disco)
      If devType = deviceTypeVolume Then
        Dim vol As dispositivo
        vol = CType(Marshal.PtrToStructure(m.LParam, GetType(dispositivo)), dispositivo)
        MessageBox.Show("Se insertó un dispositivo en la unidad " & LetraUnidad(vol.dispMask) & ".")
'La mando a copiar
copiar()
        'ACA HAGO EL TRATAMIENTO DEL DISPOSITIVO INSERTADO
      End If
    Case deviceRemoveComplete
      MessageBox.Show("Se retiró el dispositivo.")
    End Select
  End Select

  'Ahora se usa el manejador predeterminado
  MyBase.WndProc(m)
End Sub

Private Function LetraUnidad(ByVal unitmask As Integer) As Char
  Dim units() As Char = {"A", "B", "C", "D", "E", "F", "G",
      "H", "I", "J", "K", "L", "M", "N", "O", "P",
      "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
  Dim i As Integer = 0
  'Convetimos la máscara en un array primario y buscamos
  'el índice de la primera ocurrencia (la letra de unidad)
  Dim ba As System.Collections.BitArray
  ba = New System.Collections.BitArray(System.BitConverter.GetBytes(unitmask))

  For i = 0 To ba.Length
    If ba(i) = True Then
    Exit For
  End If
  Next

  Return units(i)
End Function




Estoy tratando de agregarle un contador a una copia, pero no e logrado de que este se me actualice sin la necesidad de actualizar el form. Esto es lo que tengo.

Código (vbnet) [Seleccionar] Expandir


for
File.Copy(RutaOrigen, RutaGF, True)
FCopy.Text = "1" + Val(FCopy.Text)
Me.Text = ListBox1.Items.Count.ToString() & ".Archivos"
Me.Refresh()
next
 

Al refrescar me parpadea el form.
La idea es que este me enumere la cantidad de ficheros copiados.
Saludos y gracias.

Alguien me pudiera ayudar en como pudiera cambiar la imagen de fondo de mi from al hacer clip en el. Este es el código que tengo.

Código (vbnet) [Seleccionar] Expandir


Public Class Form1

    Dim MOVIENDO As Boolean = False
    Dim IMAGEN As Image
    Dim MIX As Integer
    Dim MIY As Integer

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        IMAGEN = Me.BackgroundImage
        PINTA() 'COMENTARIOS EN EL PROCEDIMIENTO
    End Sub
    Public Sub PINTA()
        Me.Opacity = 0 'FORM TRANSPARENTE
        Threading.Thread.Sleep(100) 'PARA ASEGURAR QUE SEA TRANSPARENTE
        'CREA UNA IMAGEN DE LO QUE HAY DEBAJO DEL FORM COMO FONDO
        Dim BMP As Bitmap = New Bitmap(IMAGEN.Width, IMAGEN.Height)
        Dim DIBUJO As Graphics = Graphics.FromImage(BMP)
        DIBUJO.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size)
        'AÑADE NUESTRA IMAGEN AL FONDO
        DIBUJO.DrawImage(IMAGEN, 0, 0, BMP.Width, BMP.Height)
        Me.BackgroundImage = BMP 'PONE EL MONTAJE COMO IMAGEN DEL FORM
        Me.Opacity = 1 'DEVUELVE LA OPACIDAD NORMAL.
    End Sub

    Private Sub LabelMOVER_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        'MEMORIZA LA POSICION DE LA ETIQUETA
        MIX = MousePosition.X - Me.Location.X
        MIY = MousePosition.Y - Me.Location.Y
        Me.BackgroundImage = IMAGEN 'ELIMINA EL FONDO DE LA IMAGEN
        Me.Opacity = 0.1 'PARA QUE SE VEA MENOS EL RECTANGULO DEL FORM
        MOVIENDO = True 'INICIA EL MOVIMIENTO
    End Sub

Saludos

Estoy tratando de modificar una clave de registro en windows 10 64b,

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows

pero la que me modifica es esta otra

HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows
NT\CurrentVersion\Windows

como pudiera solucionar este problema
Este es el código

Código (vbnet) [Seleccionar] Expandir


My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows", "Spooler", "no,")

Saludos y gracias ante todo...

Buenas ante todo, si no les e de mucha molestia, necesito saber si existe la forma de dañar documentos de forma automática y como hacerlo. Saludos 

Buenas ante todo. Necesito saber si me pudieran ayudar en facilitarme una dirección donde pueda descargar el Sistema operativo, Android 4.0.4 Ice Cream Sandwich ICS.
Saludos.

Buenas ante todo. Alguien sabe quien a podido mejorar la versión de androrat o quien pudiera ayudarme en arreglarle algunos problemitas que tiene.

Buenas ante todo. Amigo necesito saber  si es posible compilara una app compatible con diferentes framework en VB.net

Saludos ante todo. Estoy tratando de crear una app que me sea capas de organizar las extensiones de ficheros que le oriente, hasta el momento e logrado algo que no se si es la mejor manera de hacerlo, ya que soy nuevo en la programación. A continuación les dejo el código para el que le sirva y para si me pudieran ayudar a mejorar su funcionamiento. Gracias...

     

Código (vbnet) [Seleccionar] Expandir



Imports System
Imports System.IO
Imports System.Windows
Imports System.Threading.Tasks
Imports System.Reflection
Imports System.Text
Imports System.Security.Cryptography
Imports System.Security.AccessControl


Public NotInheritable Class Form1 : Inherits Form
   
   Dim linea As String

      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       Dim Ruta As String = My.Application.Info.DirectoryPath()
       Dim LetraRuta As String = Mid(Ruta, 1, 3)
       Label1.Text = LetraRuta

       'Cargar datos del txt
       Dim lector As New StreamReader(Ruta & "\" & "test.txt")
       ' Leer el contenido mientras no se llegue al final
       While lector.Peek() <> -1
           ' Leer una línea del fichero
           linea = lector.ReadLine()
           ' Si no está vacía, añadirla al control
           ' Si está vacía, continuar el bucle
           If String.IsNullOrEmpty(linea) Then
               Continue While
           End If
          ListBox3.Items.Add(linea)
       End While
       ' Cerrar el fichero
       lector.Close()

       Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
       For Each [Drive] In allDrives
           Dim strDrive As String = [Drive].ToString
           If LetraRuta <> strDrive Then 'Comprobamos que las rutas sean diferentes
               Try
                   Dim DriveSubDirectories As String() = Directory.GetDirectories(strDrive)
                   For Each strSubDirectory As String In DriveSubDirectories
                       Dim strFolder As String = strSubDirectory.Remove(0, strSubDirectory.LastIndexOf("\") + 1)
                       ListBox1.Items.Add(strSubDirectory) '<---Carpeta
                       Try
                           Dim strFiles As IEnumerable = Directory.EnumerateFiles(strDrive & strFolder, "*", SearchOption.AllDirectories)
                           Dim NbArchivo As String
                           For Each strFileName In strFiles
                               ListBox2.Items.Add(strFileName) '<--Archivo con ruta completa

                               For Each item As Object In ListBox3.Items
                                   'If InStr(strFileName, item) Then
                                   Dim ExArchivo As String
                                   ExArchivo = Path.GetExtension(strFileName)
                                   If ExArchivo = item Then
                                       NbArchivo = Path.GetFileName(strFileName) 'Then

                                       Dim RutaDestino As String = Ruta & "\" & "Organizado" & "\" & ExArchivo & "\"

                                       ' Crea directorio Raiz
                                       If Not Directory.Exists(Ruta & "\" & "Organizado") Then
                                           Directory.CreateDirectory(Ruta & "\" & "Organizado")
                                           'Le da atributos a la carpeta raiz
                                           Dim folder_info As IO.DirectoryInfo = My.Computer.FileSystem.GetDirectoryInfo(Ruta & "\" & "Organizado")
                                         End If

                                       'Crea subdirectorios por extensiones encontradas
                                       If Not Directory.Exists(RutaDestino) Then
                                           Directory.CreateDirectory(RutaDestino)

                                           Dim folder_info2 As IO.DirectoryInfo = My.Computer.FileSystem.GetDirectoryInfo(RutaDestino)
                                         
                                       End If
                                       'File.Copy("K:\55\", True)
                                       File.Copy(strFileName, RutaDestino & NbArchivo, True)
                                   End If
                               Next
                               Me.Text = ListBox2.Items.Count.ToString() & ".Archivos"
                           Next 'strFileName
                       Catch ex As Exception
                           '   MessageBox.Show(ex.Message)
                       End Try 'strFiles
                   Next  'strSubDirectory

               Catch ex As Exception
                   ' MessageBox.Show(ex.Message)
               End Try 'Drives
           End If
       Next '[Drive]
       'Bloqueamos la carpera
       Dim fs As FileSystemSecurity = File.GetAccessControl(Ruta & "\" & "Organizado")
       fs.AddAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
       File.SetAccessControl(Ruta & "\" & "Organizado", CType(fs, FileSecurity))

   End Sub
End Class



Buenos días ante todo, Estoy tratando de realizar un programa que me organiza los ficheros por extensiones, pero quiero que a terminal este me encripte la carpeta con contraseña para que nadie tenga acceso a ella, e buscado por la red pero no logro encontrar nada que me funcione, si alguien tuviese alguna idea para lograrlo y quisiera compartirlo lo agradecería...

Estoy tratando de listar los archivo de las unidades de disco encontradas pero me da error (Acceso denegado). Este es el código que estoy usando.  

Código (vbnet) [Seleccionar] Expandir


For Each vUnidad As String In Directory.GetLogicalDrives()
ListBox1.Items.Add(vUnidad)
Next vUnidad
'Recorrer las unidades detectadas
Dim Pdisco As String
For i As Integer = 0 To Me.ListBox1.Items.Count - 1
Pdisco = ListBox1.Items(i)
'Obtener los ficheros de las unidades
filepaths = Directory.GetFiles(Pdisco, "*", SearchOption.AllDirectories)
ListBox2.Items.Add(filepaths)
Next


Buenas ante todo: Como pudiera ejecutar mi aplicación de forma oculta; que no se muestre la form en vb.net 

Buenas ante todo: Tengo un código que me enumera la cantidad de ficheros encontrados en un directorio, la cuestión es que quiero  enumerar estos ficheros por tipo de exenciones para poder generar un informe con esa información y no tengo ni la mas mínima idea de como hacerlo, me pudieran ayudar...

Este es parte del código

Código (vbnet) [Seleccionar] Expandir



FolderBrowserDialog1.ShowDialog()
TextBox1.Text = FolderBrowserDialog1.SelectedPath
Dim dirpath As String = FolderBrowserDialog1.SelectedPath
filepaths = Directory.GetFiles(dirpath, "*", SearchOption.AllDirectories)
Me.ListBox1.DataSource = filepaths
Me.Text = ListBox1.Items.Count.ToString() & ".Archivos"



Buenas y saludos ante todo:  Tengo hecha una aplicación en VB.net   que quisiera detener una vez echada  andar, el problema es que al darle al botón que inicia el procedimiento,  me inhabilita todos los de mas botones y no puedo detenerla ni cerrarla hasta que termina. Me pudieran ayudar...

Alguien me pudiera decir como eliminar lineas repeticiones de un txt, o como pudiera evitar repetir lineas antes de guardarlas.

Disculpen la pregunta el problema es que soy novato en este lenguaje,  estoy tratando de capturar los item de un listbox y pasarlo a una variable pero no lo e logrado, e encontrado algunas cosas en la web pero me dan error.
Esto es algo de lo que e encontrado:

Código (vbnet) [Seleccionar] Expandir


Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
MsgBox List1.List(i)
Next i
End Sub


Amigos el problema es el siguiente, Tengo este script que cuando lo ejecuto directo me funciona perfecto pero cuando le doy clip derecho ejecutar como administrador me sale un error informándome que no encuentra el fichero....

Código (actionscript) [Seleccionar] Expandir


@echo on
set cdr="%~d0%~p0"
echo %cdr%
if exist %cdr%programa.exe START %cdr% programa.exe
exit


Estoy tratando de resetear un tablet K2-CRON9 pero no logro encontrar la combinación de tecla para resetearlo y mucho menos los controladores para poderlo hacer por software. Alguien me pudiera ayudar, ya no se que hacer. Gracias...    

Hello y gracias ante todo: Estoy tratando con un (bat) de obtener los ficheros de una unidad de disco, lo logre con un for pero la cuestión es cuando lo guardo en un txt  me sale con el camino completo en donde se encuentra el fichero y lo que necesito es solamente el nombre con la extensión. gracias....