Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - DeziBel

#1
Wireless en Windows / Re: Problemas wpa windows
14 Septiembre 2012, 18:30 PM
Ayudaría que brindarás más información sobre el método que estas usando, por que tanto puede ser un erro de sintaxys en la ejecución de aircrack, como también puede ser un problema de formato del diccionario que estas usando, pues la transición de archivos de texto plano desde linux a windows suele presentear anomalías.
#2
¿Todavía tienes esa duda?
#3
Pues yo hice esto en el VB 2005:
Cree una aplicación que muestra las imágenes del portapapeles, no importa si son de archivo o copiadas directamente; osea que lee las imagenes copiadas de un browser o las copiadas desde una carpeta.
Espero que sea lo que buscas:

* Agregué una PictureBox y la deje asi como esta
* Agregué un boton y lo deje también asi como esta
* Por último agregué un timer con la propiedad "Interval" en 1000 (1 segundo)

este es el código:



'Variable que enlista los archivos del portapapeles:
    Dim lista As System.Collections.Specialized.StringCollection

    'Numerador de imágenes:
    Dim numerador As Integer

    'Variable para obtener la extensión de los archivos
    'enlistados en la variable lista:
    Dim Archivo As System.IO.FileInfo

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Ajuste de tamaño en la PictureBox1:
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        numerador = 0

        'Se obtienen los archivos del portapapeles:
        lista = Clipboard.GetFileDropList

        If lista.Count = 0 Then
            'Si no hay archios en el portapapeles:
            MsgBox("No hay archivos en el portapapeles" & vbCrLf & "Buscando imagenes...")
            'Se buscan imagenes copiadas directamenete
            '(copiadas de un browser directamente, por ejemplo)
            If Clipboard.ContainsImage() Then
                'Si hay alguna imagen se pone en la PictureBox
                PictureBox1.Image = Clipboard.GetImage()
            Else
                'Si no hay:
                MsgBox("Tampoco hay imagenes en el portapapeles")
            End If
        Else
            'Si si hay archivos en el portapapeles
            'se coloca el primero en la PictureBox
            'en caso de que sea una imagen:
            Archivo = My.Computer.FileSystem.GetFileInfo(lista(numerador))
            If Archivo.Extension.ToString = ".jpg" _
            Or Archivo.Extension.ToString = ".bmp" _
            Or Archivo.Extension.ToString = ".gif" _
            Or Archivo.Extension.ToString = ".JPG" _
            Or Archivo.Extension.ToString = ".BMP" _
            Or Archivo.Extension.ToString = ".GIF" Then
                PictureBox1.ImageLocation = lista(numerador)
            End If
            'Y despues se activa el timer si hay más
            'imágenes:
            Timer1.Enabled = True
        End If
    End Sub

    'El timer mustra una imagen diferente cada segundo
    'hasta que ya no hay más en el portapapeles:
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If numerador >= lista.Count Then
            Timer1.Stop()
            MsgBox("no hay más imágenes")
        Else
            Archivo = My.Computer.FileSystem.GetFileInfo(lista(numerador))

            If Archivo.Extension.ToString = ".jpg" _
            Or Archivo.Extension.ToString = ".bmp" _
            Or Archivo.Extension.ToString = ".gif" _
            Or Archivo.Extension.ToString = ".JPG" _
            Or Archivo.Extension.ToString = ".BMP" _
            Or Archivo.Extension.ToString = ".GIF" Then
                PictureBox1.ImageLocation = lista(numerador)
            End If

            numerador = numerador + 1
        End If
    End Sub



Espero que te sirva  ;D
#4
Pues no se si todavía tengas ese problema, pero como ya pasó un mes y nadie responde, te dejo esto  ;D:

Nota: Yo uso el Visual Basic 2005 Express Edition

* Agregas un boton (Button) con las siguientes propiedades:
   Name: Start
   Text: Start

* Agregas otro boton con las siguientes propiedades:
   Name: Reset
   Text: Reset

* Agregas una etiqueta (Label) y la dejas asi como esta.

* Agragas la trackbar y le pones la propiedad "Minimum" en 1

* Agregas un Timer y le pones la propiedad "Interval" en 1000

debe kedar algo asi:



Este es el código:



    'Variable que contiene el numero en el conteo:
    Dim numero As Short = 0

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'La etiqueta tiene el numero 0 al correr el programa
        'y la TrackBar empieza en la mitad:
        Label1.Text = 0
        TrackBar1.Value = 5
    End Sub

    Private Sub Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.Click
        'Al oprimir el boton "Start" empieza el conteo:
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Cuando el conteo llega a 100,
        'el conteo se detiene:
        If numero >= 100 Then
            'Se detiene el conteo
            Timer1.Enabled = False
            'numero pasa de 100 a 0
            numero = 0
        Else
            'Si el conteo aun no llega a 100,
            'suma 1 a número y la etiqueta
            'muestra el valor de numero:
            numero = numero + 1
            Label1.Text = numero
        End If
    End Sub

    Private Sub Reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Reset.Click
        'Al oprimir el boton "Reset" se detiene el conteo,
        'la etiqueta muestra el numero 0
        'y numero se resetea a 0:
        Timer1.Enabled = False
        Label1.Text = 0
        numero = 0
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        'El valor inicial de la TrackBar es 5.
        'Se multiplica el valor de la TrackBar
        'por 200 milisegundos.
        'Al correr el programa el producto es 1000 milisegundos,
        '(1000 milisegundos = 1 segundo)
        'lo que significa que la velocidad es de 1 numero/segundo
        Timer1.Interval = TrackBar1.Value * 200
    End Sub



Espero que te sirva hermano.
Ya nomás adaptas el timer y la trackbar para cambiar las velocidades.