|
Mostrar Temas
|
Páginas: [1] 2 3
|
2
|
Programación / .NET (C#, VB.NET, ASP) / Ayuda con Backup de celulares en VB.net.
|
en: 17 Mayo 2017, 15:55 pm
|
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)
|
|
|
3
|
Comunicaciones / Hacking Mobile / Ayuda
|
en: 11 Abril 2017, 13:21 pm
|
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.
|
|
|
4
|
Programación / .NET (C#, VB.NET, ASP) / Ayuda con Copiador de USB
|
en: 10 Febrero 2017, 18:40 pm
|
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. ‘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
|
|
|
5
|
Programación / .NET (C#, VB.NET, ASP) / Ayuda con un Contador
|
en: 26 Enero 2017, 16:00 pm
|
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. 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.
|
|
|
6
|
Programación / .NET (C#, VB.NET, ASP) / Cambiar imagen de from
|
en: 10 Enero 2017, 17:34 pm
|
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. 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
|
|
|
7
|
Programación / .NET (C#, VB.NET, ASP) / Modificar registro de windows a 64 bits
|
en: 5 Enero 2017, 19:54 pm
|
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 My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows", "Spooler", "no,")
Saludos y gracias ante todo...
|
|
|
|
|
|
|